二 、填空题 (1)VisualBasic应用程序中标准模块文件的扩展名是 【1】 。正确答案: 1.(.bas)
(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit,Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。
PrivateSub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【3】 mnuEdit
End If
End Sub
正确答案: 1.(MouseDown)2.(PopupMenu)
(3)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】 属性设置为 【5】 。正确答案: 1.(Interval)2.(500)
(4)与数学表达式 对应的Visual Basic表达式是 【6】。
正确答案: 1.(((Cos(a+B))^2)/(3*x）+5)
(5)将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是 【7】 。
正确答案: 1.(Picture1.Picture=LoadPicture("c:\moon.jpg"))
(6)在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。
Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a="宋体"
Case 1
a="黑体"
Case2
a="楷体_GB2312"
End Select
Text1 【9】 =a
EndSub
正确答案: 1.(Index)2.(FontName)
(7)在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。
Private Sub Combo1_Click()
Call ShowItem(Combo1,Label1)
EndSub
Private Sub Combo2_Click()
Call ShowItem(Combo2,Label2)
EndSub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【10】Caption= 【11】 Text
End Sub
正确答案: 1.(tmpLabel)2.(tmpCombo)
(8)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f 【12】
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算的值。请填空。
正确答案: 1.(/i)
(9)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private SubCommand1_Click()
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap ( 【13】 )
For i=1 To 10
Print a(i);
Next
End Sub
Sub swap(b()As Integer)
n= 【14】
For i=1To n/2
t=b(i)
b(i)=b(n)
b(n)=t
【15】
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
正确答案: 1.(a)2.(UBound(
B))3.(n=n-1)
上一页 [1] [2] [3] [4] [5]
责任编辑：小草
