2010年9月计算机二级VB试题(3)

Private Sub Command 1 _Click（） Dim x As Integer

x=Val(InputBox(\输入数据\ Text1=Str(fun(x)+fun(x)+fun(x)) End Sub

Private Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n*n End If _【9】_=n End Function

当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_ （8）窗体上有一个名称为List1的列表框，一个名称为Picture 1的图片框。Form_ Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。

Private Type Pic

gName As String*10 ?物品名称

picFile As String*20 ?物品图片的图片文件名

End Type

Dim p(4)As Pic，pRec As Pic Private Sub Form_Load()

Open ”Datal.txt\m As #1 _【11】_=Len（pRec） For i=0 To 4

Get #1，i+l，P(i)

List1.AddItem p(i).gNaine Next i Close #1 End Sub

Private Sub List1_DblClick() For i=0 To 4

If Rtrim(List1.List(i))=RTrim（_【12】_）Then Picturel.Picture=LoadPicture(p(i)._【13】_） Exit For End If Next End Sub

（9）窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如： G:\\VB\\2010-9\\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。

以一下是单击“打开”菜单项的事件过程，请填空。 Dim mnuCounter As Integer Private Sub tnnuOpen_ Click（）

CD1.Show0pen

If CD1.FileName＜＞\

Open_【14】_For Input As #1

mnuCounter=mnuCounter+1

Load Fname(mnuCounter)

Fname(mnuCounter).Caption=CD1.FileName Fname(mnuCounter)._【15】_=True

Close #1

End If

End Sub

参考答案及解析 一、选择题 1 2 3 B C D 11 12 13 A D D 21 22 23 C D B 31 32 33 D C C 二、填空题 【1】1DCBA2345 【5】物理设计 【9】fun 【13】picFile

4 A 14 B 24 D 34 B 【2】n 【6】Array 【10】276 5 A 15 B 25 C 35 A 6 D 16 B 26 C 7 D 17 C 27 C 8 C 18 A 28 D 9 C 19 B 29 A 10 A 20 A 30 D 【3】25 【7】1 【11】Len 【4】结构化 【8】city(i) 【12】p(i).gName 【14】CD1.FileName 【15】Visible