1、VB 笔试模拟试卷 208及答案与解析 1 下面程序执行的结果是 ( )。 Private Sub Form_Click() AS=“123“： B$=“456“ C=Val(A$)+Val(B$) Print C100 End Sub （ A） 123 （ B） 3 （ C） 5 （ D） 579 2 在窗体上画一个名称为 Command1的命令按钮和三个名称分别为 Label1、Label2、 Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As
2、Integer n=10 z=n+z y=y+z x=x+z Label1.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 3 设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为 Command1的命令按钮，然后编
3、写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ( )。 （ A） 10 5 （ B） 20 5 （ C） 20 40 （ D） 10 40 4 如下程序段定义了学生成绩的记录类型，由学号、姓名、三门课程成绩 (百分制 )组成。 Type Stud no As Integer name As String*10 score(1 To 3) As Single End Type 若对某个学生的各数据项进行赋
4、值，下列程序段正确的是 ( )。 （ A） Dim S As Stud Stud.no=0201 Stud.name=“李平 “ Stud.score=78,88,96 （ B） Dim S As Stud S.no=0201 S.name=“李平 “ S.score=78,88,96 （ C） Dim S As Stud S.no=0201 S.name=“李平 “ S.score(1)=78 S.score(2)=88 S.score(3)=96 （ D） Dim S As Stud Stud.no=0201 Stud.name=“李平 “ Stud.score(1)=78 Stud.sc
5、ore(2)=88 Stud.score(3)=96 5 假定编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single， Y As Single) If(Button and 3)=3 then Print“Hello“ End if End Sub 程序运行后，为了在窗体上输出 “Hello”，应该窗体上执行以下( )操作。 （ A）只能按下左键并拖动 （ B）只能按下右键并拖动 （ C）必须同时按下左、右键并拖动 （ D）按下左键拖动或按下右键拖动 6 下面程序段中正确的是 ( )
6、。 （ A） If x 0 Then y=0 If x 1 Then y=1 If x 2 Then y=2 If x =2 Then y=3 （ B） If x =2 Then y=3 If x 1 Then y=2 If x =0Then y=1 If x 0 Then y=0 （ C） If x 0 Then y=0 Else If =0Then y=1 Else y=3 End If （ D） If x =2 Then y=3 Else If =1 Then y=2 Else y=0 End If 7 下列块结构条件语句，正确的是 ( )。 （ A） If x 10 Then prin
7、t“a“ Else if x 5 Then print“b“ Else if x 5 Then print“c“ End if （ B） if x 10 Then print“a“ Else if x 5 Print“b“ Else Print“c“ End if （ C） If x 10 Then print“a“ Else if x 5 Then print“b“ Else x 5 Then Print“c“ End if （ D） If x 10 Then Print“a“ Else if x 5 Then print“b: Else Print“c“ End if 8 在窗体上画一个名
8、称为 Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Ctick() Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum=Sum+a(i) Next i x=Sum /5 For i=1 To 5 If a(i) x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 ( )。 （ A） 1 2 （ B） 1 2 3 （ C） 3 4 5 （ D） 4 5 9 在窗体上画一个名称为 Text1的文本框
9、和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text=“Visual“ Me.Text1=“Basic“ Text1=“Program“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是 ( )。 （ A） Visual （ B） Basic （ C） Program （ D）出错 10 下列程序段的执行结果为 ( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0
10、End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M （ A） 1 0 0 0 1 0 0 0 1 （ B） 1 1 1 1 1 1 1 1 1 （ C） 0 0 0 0 0 0 0 0 0 （ D） 1 0 1 0 1 0 1 0 1 11 编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print“AAAA” End If End Sub 程序
11、运行后，为了在窗体上输出 “AAAA”，应按下的鼠标键为 ( )。 （ A）左 （ B）右 （ C）同时按下左、右 （ D）按什么键都不显示 12 下列程序运行时输出的结果是 ( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=12 Next I Print x(i) End Sub （ A） 36 （ B） 25 （ C） 1 （ D）出错信息 13 下面程序运行结果是 ( )。 Private Sub Form_Click() Dim x As Single
12、,y As Single x=InputBox(“请输入数据 25“):y=InputBox(“请输入数据 10“) Print x+y;InputBox(“请输入数据 25“)+InputBox(“请输入数据 10“) End Sub （ A） _35_2510 （ B） 25102510 （ C） _35_35_ （ D） 2510_35_ 14 执行以下程序段后，变量 C$的值为 ( )。 A$=“Visual Basic Programing“ B$=“Quick“ C$=B$ End Sub 程序运行后，如果在文本框中输入字母 “a”，然后单击窗体，则在窗本上显示的内容是 ( )。
13、（ A） Visual Basic （ B）程序设计 （ C） Visual Basic程序设计 （ D） a程序设计 20 在 VB中设计程序时，能自动被检查出来的错误是（ ）。 （ A）语法错误 （ B） 语法错误和逻辑错误 （ C）运行错误 （ D）逻辑错误 21 下面叙述正确的是（ ）。 （ A） Spc函数既能用于 Print方法中，也能用于表达式 （ B） Space函数既能用于 Print方法中，也能用于表达式 （ C） Spc函数与 Space函数均生成空格，没有区别 （ D）以上说法均不对 22 假定建立了一个名为 Command1的命令按钮数组，则以下说法中错误的是（ ）。
14、 （ A）数组中每个命令按钮的名称 (Name属性 )均为 Command1 （ B）数组中每个命令按钮的标题 (Caption属性 )都一样 （ C）数组中所有命令按钮可以使用同一个事件过程 （ D）用名称 Command1(下标 )可以访问数组中的每个命令按钮 23 下列叙述中正确的是（ ）。 （ A）程序设计就是编制程序 （ B）程序的测试必须由程序员自己去完成 （ C）程序经调试改错后还应进行再测试 （ D）程序经调试改错后不必进行再测试 24 用于获得字符串 S最左边 4个字符的函数是（ ）。 （ A） Left(S， 4) （ B） Left(1， 4) （ C） Leftstr(
15、S) （ D） Leftstr(3， 4) 25 双击窗体中的对象后， Visual Basic将显示的窗口是（ ）。 （ A）项目 (工程 )窗口 （ B）工具箱 （ C）代码窗口 （ D）属性窗口 26 在 VB集成开发环境中，以下最不可以缺少的窗口是（ ）。 （ A）立即窗口 （ B）代码窗口 （ C）窗口布局窗口 （ D）监视窗口 27 以下能从字符串 “Visual Basic“中直接取出子字符串 “Basic“的函数是（ ）。 （ A） Left （ B） Mid （ C） String （ D） Instr 28 设 x=4， y=6，则以下不能在窗体上显示出 “A=10”的语句
16、是（ ）。 （ A） PrintA=x+y （ B） Print“A=“;x+y （ C） Print“A=“+Str(x+y) （ D） Print“A=“Mid$(a,_,2*i-1) Next i End Sub 程序运行后，单击命令按钮，窗体上的输出结果是如下，请填空。 5 456 34567 2345678 123456789 42 在窗体模块的声明段中用 Public定义的变量可以在 _ 模块中使用，而用 Dim或 Private关键字定义的变量可以在 _ 模块中使用。 43 面程序的功能是找出能够被 13、 23、 43除余数分别为 1、 2、 3的最小的两位正整数。 请填空。
17、Private Sub Form_Click() Dim i As Integer,j As Integer j=0 j=43+3 Do j=j+1 if _ then print j i=i+1 end if Loop _ End Sub 44 对随机文件数据存取是以 _为单位进行操作的。 45 对长度为 10的线性表进行冒泡排序，最坏情况下需要比较的次数为 _。 46 在关系模型中，把数据看成是二维表，每一个二维表称为一个 _。 47 窗体、图片框或图像框中的图形通过对象的 _属性设置。 48 变量未赋值时， 数值型变量的值为 _，字符串变量的值为空串。 49 事件的方法是用于 _。 50
18、 LOF函数的功能是返回某文件的字节数， LOF(2)是返回 _。 VB 笔试模拟试卷 208答案与解析 1 【正确答案】 C 2 【正确答案】 C 3 【正确答案】 C 4 【正确答案】 C 5 【正确答案】 C 6 【正确答案】 D 7 【正确答案】 A 8 【正确答案】 D 9 【正确答案】 C 10 【正确答案】 D 11 【正确答案】 D 12 【正确答案】 D 13 【正确答案】 A 14 【正确答案】 D 15 【正确答案】 B 16 【正确答案】 B 17 【正确答案】 C 18 【正确答案】 A 19 【正确答案】 C 20 【正确答案】 A 21 【正确答案】 B 22 【
19、正确答案】 B 23 【正确答案】 C 24 【正确答案】 A 25 【正确答案】 C 26 【正确答案】 B 27 【正确答案】 B 28 【正确答案】 A 29 【正确答案】 C 30 【正确 答案】 D 31 【正确答案】 B 32 【正确答案】 D 33 【正确答案】 B 34 【正确答案】 C 35 【正确答案】 B 36 【正确答案】 D 37 【正确答案】 C 38 【正确答案】 D 39 【正确答案】 D 40 【正确答案】 123 41 【正确答案】 6-i 42 【正确答案】 整个程序的所有模块 定义该变量的窗体 43 【正确答案】 j Mod 13=1 And j Mod 23=2 And j M0d 43=3 Until i=2或 Until i =2 44 【正确答案】 一个记录 45 【正确答案】 45 46 【正确答案】 关系或关系表 47 【正确答案】 Picture 48 【正确答案】 0 49 【正确答案】 完成某种特定功能 50 【正确答案】 #2文件的长度
