二 、填空题
(1) Visual Basic应用程序中标准模块文件的扩展名是 【1】 。正确答案: 1.(.bas)
(2) 在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit, Visible属性为False。程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序,请填空。
Private Sub 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="黑体"
Case 2
a="楷体_GB2312"
End Select
Text1 【9】 =a
End Sub
正确答案: 1.(Index) 2.(FontName)
(7) 在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,如图所示。程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。
Private Sub Combo1_Click()
Call ShowItem(Combo1,Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2,Label2)
End Sub
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 Sub Command1_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=1 To 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)