?? x＝2*i一1
?? 1f x Mod 3＝0 Then s＝s十1 ?? Nexti
?? Labell．Caption=s ?? End Sub
?? ． 程序运行后，单击命令按钮，则标签中显示的内容是 ?? A)1 B)5 C)27 D)45
?? (25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、 ?? Label3的标签，然后编写如下代码： ?? Private x As Integer
?? Private Sub Command1_C1ick() ?? Static y As Integer ?? Dimz As Integer ?? n＝10 ?? z=n十z ?? y＝y十z
?? X＝X十Z
?? Labell.Caption＝x ?? Label2．Caption=y ?? Label3．Caption＝z ?? End Sub
?? 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
?? A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程： ?? PriVate Sub Commandl_C1ick() ?? Static b As Variant ?? b＝Array(1,3,5,7,9)
?? End Sub
?? 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功 ?? 能，省略号处的程序段应该是 ?? A)For i＝0 To 5-1＼2 ?? tmp＝b(i) ?? b(i)＝b(5-i-1) ?? b(5-i-1)＝tmp ?? Next
?? B)for i＝0 To 5 ?? tmp=b(i) ?? b(i)＝b(5-i-1) ?? b(5-i-1)=tmp ?? Next
?? C) For i＝0 T0 5＼2 ?? tmp＝b(i) ?? b(i)＝b(5-i-1) ?? b(5-i-1)；tmp
?? Next
?? D)For i＝1 T0 5＼2 ?? tmp=b(i)
?? b(i)＝b(5一i一1) ?? b(5—i—1)＝tmp
?? Next
?? 二级VlsualBM5c语言程序设计试卷第8页 (共15页)
?? (27)在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Labell、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如图所示。 ?? 能够正确实现上述功能的程序是
?? A) Private Sub Dirl_Change() B)Private Sub Dir1_Change() ?? Filel．Path＝Dir1.path Filel.path=dir1．Path ?? End Sub End Sub
?? Private Sub Drivel_Change() Private Sub Drive1_Change() ?? Dirl．Path＝Drivel．Drive Dirl．Path＝Drivel.Drive
?? Labell．Caption＝Filel.listCount Labell．Captlon＝file1.list ?? End Sub End Sub
?? C)Private Sub Dirl_Change() D) Private Sub Dirl_Change() ?? Filel．Path=Dirl．Path filel．Path＝Dir1．Path
?? Labell．Caption＝Filel．ListCount Labell．Caption＝Filel．List ?? End Sub End Sub
?? Private Sub Drivel_Change() Private Sub Drivel_Change() ?? Dirl．Path＝Drivel．Drlve Dir1．Path＝Drivel．DrlVe
?? Labell．Caption＝Filel．ListCount Labell．Caption＝Filel.list
?? End Sub End Sub
?? (28)一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准
?? 模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为： ?? Forml中定义的过程： ?? PriVate Sub frmfunctionl() ?? End Sub
?? Form2中定义的过程： ?? Public Sub frmffunction2() ?? End Sub
?? mdlFunc中定义的过程： ?? PubliC Sub mdlFunction() ?? End Sub
?? 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 ?? A)上述三个过程都可以在工程中的任何窗体或模块中被调用
?? B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
?? C)上述三个过程都只能在各自被定义的模块中调用
?? D)只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。 ?? 设有如下的类型声明 ?? Type Person ?? name As String*8 ?? major As String*20
?? End Type
?? 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是
?? A)0pen”c：＼Test29．dat\?? Put #1，1，p ?? Close #1
?? B)Open \＼Test29.dat\?? Get#1，1，p
?? C10se #1
?? C)open \＼Test29．dat\＝Len(p) ?? Put #1，1，p
?? Close #1
?? D)Open \：＼Test29．dat \
?? Get #1，1，p ?? CloSe #1
?? (30)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为\，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 ?? A)Private Sub Command_C1ick()
?? Commondialogl．FileName=“Savefile”
?? Commondialogl.filter＝\．|*.doc\?? CommonDialogl．Filterindex=2 ?? CommonDialogl．Dial0g．title＝\?? CommonDialogl．Action＝2 ?? End Sub
?? B)Private Sub Commandl—Click()
?? CommonDialogl．FileName＝\
?? CommonDiaLogl．Filter＝\．doc|*．doc\?? C0mmonDialogl．FilterIndex＝1 ?? CommonDialogl．DialogTitle＝\?? CommonDialogl．Action＝2 ?? End Sub
?? C)Private Sub Cmmandl_C1ick()
?? COmmonDialogl．FileName＝\
?? CommonDialogl．FiLter＝\?? CommonDialogl．Filterindex＝2
?? C0mmonDialogl．DialogTitle＝\?? CommonDialogl．Action＝2 ?? End Sub
?? D)Private Sub Commandl_C1ick()
?? CommonDialogl．FileName＝\
?? CommonDialogl．Filter＝\?? CommonDialogl．FilterIndex=1 ?? CommonDialogl．DialogTitle=“Save” ?? CommonDialogl．Action＝1 ?? End Sub
??二、填空题(每空2分，共30分)
?? 请将每空的正确答案写在答题卡[1]一[15序号的横线上，答在试卷上不得分。 ?? (1)visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是________ ?? (2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式_____和二进制访问方式。
?? (3)执行下面的程序段后，变量S的值为_______。 ?? S＝5
?? For i ＝2.6 To 4.9 Step 0.6 ?? S=S十1 ?? Next i
?? (4)为了在运行时把d:\\pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语句为_______。
?? (5)计时器控件能有规律的以一定时间间隔触发_______事件，并执行该事件过程中的程序代码。
?? (6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 ?? Private Sub Commandl_C1ick() ?? Fori＝1To 20
?? x＝Int(____________*200+100) ?? If_______[7] ＝0 Then ?? Print x
?? 二级VIsualBMic语言程序设计试卷第12页 (共15页) ?? S＝S十 _________ [83 ?? End If Next i
?? Print “Sum＝”：S ?? End Sub
?? (7)设有如下程序
?? Private Sub Form_Click()
?? Dim a AS Integer，b As integer ?? a＝20：b=50 ?? pla，b ?? p2a，b
?? p3a,b
?? Print\＝\；a,\＝\；b ?? End Sub
?? Sub pl(x As Integer，ByVal y As Integer) ?? x=x十10． ?? v＝v十20 ?? End Sub
?? Sub p2(byVal x As Integer, y As Integer) ?? x＝x十10 ?? y＝y十20 ?? End Sub
?? Sub p3(ByValx As Integer, ByVal y As Integer) ?? x＝x十10 ?? y=y十20
?? End Sub
?? 该程序运行后，单击窗体，则在窗体上显示的内容是：a＝______和b=______。 ?? (8)在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程 ?? PRiVate Sub Commandl_C1icK() ?? Dim As String ?? a=_____[11] ?? For i ＝1 To 5
?? Print Space(6—i)；Mid$3(a，6—i，2*i—1)
?? 二级V1sualBMic语言程序设计试卷第13页 (共15页) ?? Nexti ?? End Sub
?? 程序运行后，单击命令按钮，要求窗体上显示的输出结果为 ?? 456 ?? 34567 ?? 2345678 ?? 123456789
?? 请填空。(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption
?? 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项 ?? 后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动 ?? 添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示； ?? 如果存在，则在Label2中给出提示“输入项已在组合框中”。请在[12>、[13]和 ?? [14>处将程序补充完整。
?? Private Sub Combol_________<12> (KeyAscii As integer) ?? 1f KeyAscii＝13 Then
?? Fori＝0 To Combo1．listCount—1 ?? 1f Combo1．Text＝______ [13] Ihen ?? Label2．Caption＝”输入项己在组合框中” ?? ExIt Sub ?? End lf