VB复习题库 - 图文

Private Sub Option3_Click()

If Option3.Value = True Then Text1.ForeColor = vbRed End Sub

Private Sub Option4_Click()

If Option4.Value = True Then Text1.ForeColor = vbGreen End Sub

Private Sub Option5_Click()

If Option5.Value = True Then Text1.ForeColor = vbBlue End Sub

实验三。

窗体设计

如图所示：在名称为Form1的窗体上画一个名称为Label1、标题为\添加项目：\的标签；画一个名称为Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项（不少于三个，内容任意）；再画两个命令按钮，名称分别为Command1、Command2，标题分别为\添加\、\统计\，如图3-4所示。在运行时，向Text1中添加内容，单击\添加\按钮，则Text1中的内容作为一个列表项被添加到组合框的列表中，单击\统计\按钮，则在窗体上显示组合框中列表项的个数。窗体保存为com.frm，工程保存为com.vbp。

【控件】VB.CommandButton_Command2 标准答案：Caption=统计

【控件】VB.CommandButton_Command1 标准答案：Caption=添加

【事件】Private Sub Command2_Click() 标准答案： Print Combo1.ListCount

【事件】Private Sub Command1_Click() 标准答案： Combo1.AddItem Text1.Text

如图所示，设计Form1和Form2两个窗体，其中Form1上有Image1和Timer1两个控件和操作菜单。要求当单击窗体2菜单项时，隐藏Form1，显示Form2；当单击动画菜单项时，Image1中的图像从左向右移动；单击退出菜单项时，结束工程。代码区域已经有部分代码，请考生填空，并能正常运行程序。窗体分别保存为Form1.frm和m2.frm，工程保存为工程1.vbp。

【事件】Private Sub flah_Click() 标准答案： Timer1.Enabled = True

程序运行界面如图所示，利用属性窗口向列表框中添加四个项目：Visual Basic，Turbo C，C++，Java，当选择列表框中的一项和单选按钮Option1，然后单击\确定\命令按钮，则文本框中显示\笔试\；当选择列表框中的一项和单选按钮Option2，则文本框中显示\上机\。其中\是在列表框中所选择的项目。

【控件】VB.CommandButton_Command1 标准答案：Caption=确定

如图所示，在窗体Form1上画一个Text1文本框，再建立一个名为F的弹出式菜单，含三个菜单项，标题分别为\加粗\、\斜体\和\下划线\，名称分别为f1,f2和f3。当鼠标Mousedown事件右击窗体时，弹出该菜单，选中菜单项后设置文本框的格式。窗体保存为pmenu.frm，工程保存为pmenu.vbp。

提示：先使用菜单编辑器设计一个下拉式菜单，编写三个菜单项的Click事件，再将F菜单设为不可见，再编写窗体的Mousedown事件， 弹出Font菜单。

【控件】VB.TextBox_Text1 标准答案：Text=计算机等级考试 【控件】VB.Menu_F 标准答案：Name=F 【控件】VB.Menu_F 标准答案：Visible=0 'False 【控件】VB.Menu_f3 标准答案：Name=f3

【控件】VB.Menu_f3 标准答案：Caption=下划线

【控件】VB.Menu_f2 标准答案：Name=f2

【控件】VB.Menu_f2 标准答案：Caption=斜体

【控件】VB.Menu_f1 标准答案：Name=f1

【控件】VB.Menu_f1 标准答案：Caption=加粗

【事件】Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 标准答案： If Button = 2 Then Form1.PopupMenu F

【实验四】 一、填空题

1、表达式：\信电\《=“信电学院”。输出的值为 True 2、#20/5/01#表示 日期 类型常量。 3、表达式：“abCd”《“abcd”；输出的值为 Private sub command1-click()

Dim a as integer ,b as boolean ,c as integer ,d as integer A=18/3: b=True:C=B:D=A+C Debug..printA, A, A=A+C End sub

5、求a与b之积除以c的余数，用vb表达式可表示为 a*b mod c 6、设i为大于0的实数，写出大于i的最小整数的表达式 Int（i）+1 7、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为text1、label1和command1，然后编写如下两个事件过程： Private sub command1-click() S$=inputbox(\请输入一个字符串\Label1.caption=ucase(mid(text1.text,7)) End sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“visualbasic”，则在标签中显示的内容是 BASIC 8、表达式：#08'02'2010#<#08/05/2010#的值是 False 9、表达式：int（134.69）>=cint(134.69)的值是 False 10、假设有如下的窗体事件过程： Private sub form-click() A$=\B$=right(A$,5) C$=mid(A$,1,9)

Msgbox A$, 34, B$, C$, 5 End sub

程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是

Basic 11、表达式value（“1234.67E-3ab789”）的值为 1.23467 12、设A=2,B=-4,则表达式3*A>5 Or B+8<0的值为 True 13、表达式：78.9/32.77<=97.5/43.87 And -45.4>-4.98的值是 False 14、下面语句的输出结果是 1234,5.68 Print format （int(12345.6789*100+0.5)/100,\，0.00\）

True

4、运行下面的程序，单击命令按钮command1，则窗口上显示的结果是 6 5 False