1、VB笔试模拟试卷 200及答案与解析 1 设有命令按钮 Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(30)As Integer Fori=1 To 30 a(i)=Int(Rnd*100) Next For Each arrltem In a IfarrltemMod7=0 ThenPrintarrItem； Ifarrltem90ThenExitFor Next End Sub （ A） a数组中的数据是 30个 100以内的整数 （ B）语句 ForEacharrItem Ina有语法错误 （ C） Ifarrltem M
2、od7=0 语句的功能是输出数组中能够被 7整除的数 （ D） Ifarrltem 90 语句的作用是当数组元素的值大于 90时退出 For循环 2 以下是 MDI子窗体在运行时特性的叙述，错误的是 ( )。 （ A）子窗体在 MDI窗体的内部区域显示 （ B）子窗体可在 MDI窗体的外部区域显示 （ C）当子窗体最小化时 ，它的图标在 MDI窗体内显示 （ D）当子窗体最大化时，其标题与 MDI窗体标题合并，并显示在 MDI窗体的标题栏中 3 有如下程序，该段程序将 ( )。 Fori=1 to 10 Step0 k=k+2 Nexti （ A）形成无限循环 （ B）循环体执行一次后结束循环
3、 （ C）语法错误 （ D）循环体不执行即结束循环 4 给文件改名的 VB语句正确的是 ( )。 （ A） Name原文件名 To新文件名 （ B） Rename原文件名 To新文件名 （ C） Name原文件名 as新文件名 （ D） Rename原文件名 as新文件名 5 在窗体上画一个名称为 List1的列表框，一个名称为 Labe11的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 ( )。6 下列不能打开菜单编辑器的操作是 ( )。 （ A）按 Ctrl+E （ B）单击工具栏中的 “菜单编辑
4、器 ”按钮 （ C）执行 “工具 ”菜单中的 “菜单编辑器 ”命令 （ D）按 Shift+Alt+M 7 下列程序的执行结果为 ( )。 Ptivate Sub Command_Click() DimFirStr As String FirStr=“abcdef“ PrintPat(FirSB) End Sub PrivateFunctionPat(xStr As String)As String DimtempStr As String， strLen As Integer tempStr=“ strLen=Len(xStr) i=1 DoW （ A） abcdef （ B） afbecd
5、 （ C） fedcba （ D） defabc 8 VisualBasic采用了 ( )编程机制。 （ A）面向过程 （ B）面向对象 （ C）事件驱动 （ D）可视化 9 执行如下语句： a=InputBox(“Today“， “Tomorrow“， “Yesterday“， “Day before yesterday“,5) 将显示一个输入对话框，在对话框的输入区中显的信 息是 ( )。 （ A） Today （ B） Tomorrow （ C） Yesterday （ D） Daybeforeyesterday 10 下面的程序运行结果是 ( )。 Private Sub Form_C
6、lick() I=0 DoUntil0 i=i+1 if i 10 then Exit Do Loop Printi End Sub （ A） 0 （ B） 10 （ C） 11 （ D）出错 11 如果要改变窗体的标题，则需要设置的属性是 ( )。 （ A） Caption （ B） Name （ C） BackColor （ D） Borderstyle 12 下列程序运行时输出的结果是 ( )。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step
7、-2 Printx(i)； NextI End Sub （ A） 1 3579 （ B） 975 3 1 （ C） 1234567 89 10 （ D） 1098765432 1 13 设已经在窗体上添加了一个通用对话框控件 CommonDialogl，以下正确的语句是 ( )。 （ A） CommonDialog1.Filter=-ALLLFiles* *| Pictures(*.Bmp)|*.Bmp （ B） CommonDialoS1.Filter=“ALLLFiles“|*.*|“Pictures(*.Bmp)“|*.Bmp （ C） CommonDialog1.Filter=ALLL
8、PUesI* *I Pictures(*.Bmp)|*.Bmp) （ D） ComlnonDialogFilter=“ALLLPdes|*.*|Pictures(*.Bmp)|*.Bmpn 14 运行以下程序后，输出的图案是 ( )。 Form1.ClS A$=Strillg$(10， “*”) Fori=1 To 5 n=10-2*I X$=A$： Y$=Space$(n) Mid$(X$， i+1， n)=Y$ PrintX$ Nexti 15 下面有关注释语句的格式，错误的是 ( )。 （ A） Rem注释内容 （ B） 注释内容 （ C） a=3： b=2对 a、 b赋值 （ D） P
9、rivate Sub Cpmmandl_Mouse Down(button As Integer， Shin As Integer， Rem鼠标按下事件的命令调用过程 X As Single， Y As Single) 16 在窗体上画一个名称为 Command1的命 令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Funcdonf(m As Integer) If m Mod2=0 Then f=m E1Se f=1 End If End FunCdOn Private Sub Cmnmalldl_CUCk() Dimi As Integer S=0 Fori=1 To
10、5 s=s+f(i) （ A） 11 （ B） 10 （ C） 9 （ D） 8 17 下列命令按钮事件过程执行后，输出结果是 ( )。 Form=1 To 1000Step2 a=10 Forn=1 To 20 Step2 a=a+2 Nextn Nextm Printa （ A） 1200 （ B） 10000 （ C） 30 （ D） 20 18 下列程序的输出结果是 ( )。 Dima a=Array(1， 2,3,4,5,6,7,8) i=0 ForK=100 To 90 Step-2 s=a(i)2 If a(i) 3 Then Exit For i=i+1 Nextk Print
11、k； a(i)； s （ A） 88 6 36 （ B） 88 1 2 （ C） 90 2 4 （ D） 94 4 16 19 在窗体上画一个名称为 Filel的文件列表框，并编写如下程序： Private Sub FUel_DblClick() x=Shell(File1_ileName， 1) End Sub 以下关于该程序的叙述中，错误的是 ( )。 （ A） x没有实际作用，因此可以将该语句写为： Call Shell(Filel.FileName,1) （ B）双击文件列表框中的文件，将触发该事件过程 （ C）要执行的文件的名字通过 File1.FileName指定 （ D） Ffl
12、e1中显 示的是当前驱动器、当前目录下的文件 20 fileFiles.Pattem=“*.dat“程序代码执行后，会显示 ( )。 （ A）只包含扩展名为 “*.dat“的文件 （ B）第一个 dat文件 （ C）包含所有的文件 （ D）会显示磁盘的路径 21 退出 VB6.0的快捷键是 ( )。 （ A） Ctrl+Q （ B） Alt+Q （ C） Alt+A （ D） Ctrl+A 22 任何控件都具有 ( )属性。 （ A） Text （ B） Caption （ C） Name （ D） ForeColor 23 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 ( )。
13、（ A）如果工程中含有 Sub Main过程，则程序一定首先执行该过程 （ B）不能把标准模块设置为启动模块 （ C）用 Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 （ D）任何时刻最多只有一个窗体是活动窗体 24 设 A$=“Hello“，下列语句正确的是 ( )。 （ A） Labe11.Hight=Labe11.Hight+A$ （ B） Labe11.Caption=Labe11.Caption+A$ （ C） Labe11.Enabled=Laabe11.Enabled+A$ （ D） Labe11.Visible=Labe11.Visible+AS 25 下列语句的输出结
14、果为 ( )。 PrintFormat$(5689.36， “000,000.000“) （ A） 5,689.36 （ B） 5,689.360 （ C） 5,689.3 （ D） 005,689.360 26 在面向对象方法中，类的实例称为 _。 27 窗体设计器窗口简称 _，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。 28 VisualBasic使用的是 _字符集。 29 若 A=20,B=80， C=70， D=30，则表达式 A+B 1600r(B*C 200AndNotd 60)的值是 _。 30 以下过程
15、的作用是将 26个小写字母逆序打印出来，请填空。 Sub Inverse() Fori=122 To_ PrintChr$(i)； Nexti End Sub 31 在 Selectcase结构中应至少包含一个 _子句。 32 表达式 (2+8*3)/2的值是 _。 33 程序运行后，利用冒泡法对数组 a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Ptivate Sub Form_load() Dima(1T05)As Integer,n=5 a(1)=20： a(2)=25： a(3)=10： a(4)=40： a(5)=15 _ Forz=1 To n-m If a
16、(z) a(z+1)Then t=a(z) a(z)=(z+1) a(z+1)=t End If NextZ Next 34 假定当前日期为 2002年 12月 16日，星期一，则执行以下语句后，输出结果是16、 12、 2002_。 PrintDay(Now) CR PrintMonth(NOW) CR PrintYear(Now) CR PrintWeekday(NOW) CR 35 下列程序的执行结果是 _。 PrivateFunctionP(NASInteger) Fori=1 To N SUM=SUM+i Nexti P=SUM End Function Privte Sub Com
17、mandl_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub 36 下列程序的作用是将三个数按从大到小进行排序，请填空。 If a b Then d=a a=b b=d End If If a c Then d=a a=c c=d End If If_Then d=b b=c c=d End If Printa,b,c 37 要将 Form2作为无模式对话框打开，且随窗体 Form3最小化而最小化，随Form3关闭而关闭，相应的 Show语句为 _。 38 以下程序用来产生 20个 100以内的随机整数，并将其中的偶数在窗体上显示，请填空。 Rando
18、mize Fori=1 To 20 x= 5 If x/2= 6 Then PrintX End If Nexti 39 随机文件以 11 为单位读写，二进制文件以 12 为单位读写。 VB笔试模拟试卷 200答案与解析 1 【正确答案】 B 2 【正确答案】 B 3 【正确答案】 A 4 【正确答案 】 C 5 【正确答案】 C 6 【正确答案】 D 7 【正确答案】 B 8 【正确答案】 C 9 【正确答案】 C 10 【正确答案】 D 11 【正确答案】 A 12 【正确答案】 A 13 【正确答案】 D 14 【正确答案】 A 15 【正确答案】 D 16 【正确答案】 C 17 【正
19、确答案】 C 18 【正确答案】 O 19 【正确答案】 A 20 【正确答案】 A 21 【正确答案】 B 22 【正确答案】 C 23 【正确答案】 A 24 【正确答案】 B 25 【正确答案】 D 26 【正确答案】 对象 27 【正确答案】 窗体 (Form) 28 【正确答案】 Unicode 29 【正确答案】 True 30 【正确答案】 97Step-1 31 【正确答案】 Case 32 【正确答案】 13 33 【正确答案】 Form=1 to n-1 34 【正确答案】 2 35 【正确答案】 20 36 【正确答案】 b c 37 【正确答案】 Form2.ShowVbModeless,Form3 38 【正确答案】 ht(Rnd*99),x2 39 【正确答案】 记录 ,字节
