最新版精选2019VisualBasic程序设计期末测试题库200题(含答案)

2019年Visual Basic 程序设计期末测试复习题200题

[含答案]

一、选择题

1．在程序中使用日期型数据时，必须用符号____将日期型数据括起来。 a) @ b) $ c) %

d) # 答案：D

2．以下哪个是合法的变量名_______。 a) Len

b) Test@qw c) 6cost_1

d) count2s 答案：D

3．下列程序运行后，变量s的值为______。 J=0:s=0

For I=1 To 4 j=j+I s=s+j Next I a) 20 b) 10 c) 5

d) 15 答案：A

4．下列程序段的执行结果是_____。 N=10

For k=n To 1 Step-1 x=Sqr(k) x=x-2 Next k Print x-2 a) -3 b) -1 c) 1

d) 1.16 答案：A

5．可以通过_____来删除列表框中的选择项。 a) Enable属性 b) RemoveItem方法 c) AddItem方法 d) Text属性 答案：B

6．写列选项中，合法的变量是______。 a) c%aaa b) sum_3 c) Else

d) 5persons 答案：B

7．下面的运算符中，哪个是关系运算符______。 a) Not b) mod c) <>

d) & 答案：C

8．整型变量占用的字节数为______。 a) 2个字节 b) 3个字节 c) 4个字节

d) 5个字节 答案：A

9．8.6787E+8写成普通的十进制数是_______。 a) 86787000 b) 867870000 c) 8678700

d) 8678700000 答案：B

10．下列数据中哪一个是布尔常量_______。 a) 123 b) not c) TRUE

d) xyz 答案：C

11．下列数据类型不可能占8个字节的是_____数据类型。 a) Date b) Long c) Double

d) Currency 答案：B

12．下列控件不能改变大小的有_______。 a) TextBox b) Label c) Timer

d) PictureBox 答案：C

13．若要将窗体隐藏起来，则实现的方法为_______。 a) Unload b) Show

c) WindowsState d) Hide 答案：D

14．若要使标签的大小自动适应所显示的文本，可通过设置______属性的值来实现。 a) AutoSize b) Alignment c) Enabled

d) Visble 答案：A

15．以下不属于Visual Basic系统的文件类型是 a) .frm b) .cls c) .bat

d) .vbp 答案：C

16．要想改变一个窗体的标题内容，则应该设置______属性的值。 a) Name b) Fontname c) Caption d) Text 答案：C

17．以下选项中，是Visual Basic控件的是_____。 a) 文本框 b) Print c) Click

d) Debug 答案：A

18．假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是? a) BOOLVAR=‘TRUE’ b) BOOLVAR=.TRUE c) BOOLVAR=#TRUE#

d) BOOLVAR=False 答案：D

19．下面的运算符中，哪个是算术运算符_______。 a) Mod b) = c) Eqv

d) Xor 答案：A

20．在Visual Basic中按文件的访问方式不同，可以将文件分为_______。 a) 顺序文件、随机文件和二进制文件 b) 文本文件和数据文件 c) 数据文件和可执行文件

d) ASCII文件和二进制文件 答案：A

21．在Visual Basic中，要设置菜单项的快捷访问键，应使用哪个符号：______。 a) & b) * c) $

d) @ 答案：A

22．在Visual Basic设计界面中不能隐藏的窗口是______。 a) 工程窗口 b) 属性窗口 c) 立即窗口

d) 窗体窗口 答案：A

23．运行VB程序的快捷键为_______。 a) F4 b) F5 c) F6

d) F7 答案：B

24．以下程序输出的结果为______。 X=1 y=4

Do Until y>4 x=x*y y=y+1 Loop Print x

a) 4 b) 8 c) 12

d) 16 答案：A

25．用于获得字符串S从第4各字符开始的4个字符的函数是______。 a) Mid(S,4,4) b) Middle(S,4,4) c) Midstr(S,4,4)

d) MiddleStr(S,4,4) 答案：A

26．下列______语句可以将变量A、B的值互换。 a) A=B:B=A

b) A=A+B:B=A-B:A=A-B c) A=C:C=B:C=A

d) A=(A+B)/2:B=(A-B)/2 答案：B

27．窗体能响应的事件是_______。 a) ActiveFrom b) Drive c) Load

d) Change 答案：C

28．单精度浮点数占用的字节数为______。 a) 2个字节 b) 3个字节 c) 4个字节

d) 8个字节 答案：C

29．对象是一个逻辑实体，它是______的集合。 a) 数据 b) 代码 c) 数据与代码 d) 属性 答案：C

30．改变驱动器列表框的Drive属性值将激活_____事件。 a) Change b) Scroll c) KeyDown d) KeyUp 答案：A

31．不能触发滚动条Change事件的操作是_______。 a) 拖动滚动块 b) 单击两端箭头 c) 单击滚动块

d) 单击箭头与滚动块之间的滚动条 答案：C

32．在使用菜单编辑器设计菜单时，必须输入的项是____。 a) 标题 b) 名称 c) 索引

d) 快捷键 答案：B

33．用于获取字符串长度的函数是_______。 a) Len() b) Length() c) Strlen()

d) Lofo() 答案：A

34．VB应用程序的运行模式是 a) 解释运行模式 b) 编译运行模式 c) 两者都有

d) 汇编模式 答案：C

35．下列是一个循环结构的程序，循环体内的语句将执行_____次。 K=0

For I=1 to 10 For j=1 to 100 K=K+1 Next j Next I a) 0 b) 10 c) 100

d) 1000 答案：D

36．将任意一个正的两数N的个位数与十位数对换的表达式为 a) （N-INT（N/10)*10)*10+INT（N/10) b) N-?INT（N/10)*10)*10+INT（N)/10 c) INT（N/10)+（N-INT（N/10)

d) （N-?INT（N/10)*10)*10+INT（N/10) 答案：A

37．INT（100*RND（1))产生的随机整数的闭区间是 a) [0，99] b) [1，100] c) [0，100]

d) [1，99] 答案：A

38．设A=”abcdefghijklm”，下面（)的函数值为”jklm”。? a) Mid(A,10,4) b) Ringht(A,5) c) Ringht(A,1,4)

d) Left(A,10,4) 答案：A

39．启动Visual Basic后，系统为用户新建的工程起一个名为（)的临时名称 a) 工程1 b) 窗体1 c) 工程

d) 窗体 答案：A

40．下列哪项是窗体对象的方法而不是属性（) a) Name b) Print c) Caption

d) Enabled 答案：B

41．下列叙述正确的是（ )

a) 对象是包含数据又包含对象数据进行操作的方法的物理实体 b) 对象的属性只能在属性窗口中设置 c) 不同的对象能识别不同的事件

d) 事件过程都要由用户点击对象来触发 答案：C

42．下列关于属性设置的叙述错误的是：（)

a) 一个控件具有什么属性是VB预先设计好的，用户不能改变 b) 一个控件具有什么属性是VB预先设计好的，用户可以改变 c) 一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置

d) 一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值

43．能够改变窗体边框线类型的属性是（ ) a) FontStyle

答案：A

b) BorderStyle c) BackStyle d) Border 答案：B

44．决定控件上文字的字体、字形、大小及效果的属性是（) a) TEXT b) CAPTION c) NAME

d) FONT 答案：D

45．变量未赋值时，数值型变量的值为( ) a) 0 b) 空 c) 1

d) 0.1 答案：A

46．以下（)程序段可以实施X、Y变量值的变换 a) Y=X：X=Y b) Z=X：Y=Z：X=Y c) Z=X：X=Y：Y=Z

d) Z=X：W=Y：Y=Z：X=Y 答案：C

47．语句PRINT?“SGN（-26)=”；SGN（-26)的输出结果为 a) SGN（-26)=26 b) SGN（-26)=-26 c) SGN（-26)=+1

d) SGN（-26)=-1 答案：D

48．下列语句中正确的是 a) txt1.text+txt2.text=txt3.text b) command1.name=cmdok c) 12label.caption=1234 d) a=inputbox(hello) 答案：D

49．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（)属性 a) BACKCOLOR b) BORDERSTYLE c) FORECOLOR

d) BACKSTYLE 答案：D

50．叹釘哏

说法不正确的是

a) 必须是字母开头，不能是数字或其他字符 b) 不能用Visual Basic 保留字

c) 可以包含字母、数字、下划线和标点符号 d) 不能超过255个字符 答案：C

51．VB 6.0中，执行下面的四个语句时出现错误的是_____。 a) x=SGN(0) b) x=SQR(0) c) x=LOG(0)

d) x=SIN(0) 答案：C

52．假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是_______。 a) Print 25

b) Picture1.Print 25 c) Text1.Print 25

d) Debug.Print 25 答案：C

53．表达式25.26 MOD 6.98的值是_____。 a) 1 b) 5 c) 4

d) 提示错误信息 答案：C

54．当x=-5时，下列语句y=iif(x>0,x^2+1,x-1)执行后y的值_____。 a) 0 b) 26 c) -6

d) 4 答案：C

55．如果x是一个正实数，对x的第二位小数四舍五入的表达式是_____。 a) 0.1*Int(x+0.05)

b) 0.1*Int(10*(x+0.05)) c) 0.1*Int(100*(x+0.5)) d) 0.1*Int(x+0.5) 答案：B

56．若x=5,y=6,则表达式x+y=11的值是_____。 a) x+y=11 b) 11 c) True

d) False 答案：C

57．列表框中的列表项的数目可通过以下哪个属性的值获得_____。 a) Count b) Listcount c) Listindex d) Index 答案：B

58．表达式2+3*4^5-SIN（X+1)/2中最先进行的运算是? a) 4^5 b) 3*4 c) x+1

d) SIN 答案：C

59．能够改变窗体边框线类型的属性是_____。 a) Fontstyle b) Borderstyle c) Backstyle

d) Border 答案：B

60．命令按钮Command1 的Caption属性为“退出（x)”，要将命令按钮的快捷键设为Alt+x,应修改Caption属性为_________。 a) 在x前插入& b) 在x后插入& c) 在x前插入 #

d) 在x后插入# 答案：A

61．如果有声明Option base 1 dim arr(3,3),则该数组共有_____个元素。 a) 16 b) 9 c) 4

d) 6 答案：B

62．下列对象中没有焦点属性的是（???) a) 命令按钮控件 b) 窗口控件 c) 文本框控件

d) 单选框控件 答案：B

63．文本框控件中将Text的内容全部显示为所定义的字符的属性项是（?? ) a) PasswordChar b) 需要编程来实现

c) Password

d) 以上都不是 答案：A

．下列赋值语句正确的是（?? )

a) Text1.text=Text.text+Text2.text?

b) Text1.name=Text1.Name+Text2.Name?

c) Text1.Caption=Text1.Caption+Text2.Caption? d) Text1.Enable=Text1.Enable+Text2.Enable? 答案：A

65．要清除组合框Combol中的所有内容，可以使用( )语句 a) Combo1.ClS b) Combo1.Clear c) Combo1.Delete

d) Combo1.Remove? 答案：B

66．将字符串“hello”添加到列表框的最后，可使用（)请语句。 a) List1.AddItem“hello”,List1.ListCount-1 b) List1.AddItem“hello”,List1.ListCount+1 c) List1.AddItem“hello”,List1.ListIndex d) List1.AddItem“hello” 答案：D

67．在VB6.0中，12345678的类型中是______。 a) 整数型 b) 长整数型 c) 字符串型

d) 日期型 答案：B

68．15.5\\2的结果是_____。 a) 1 b) 1.5 c) 7

d) 8 答案：D

69．用InputBox函数可帮助生成_______。 a) 消息框

b) “保存”对话框 c) 简单输入框

d) “颜色”对话框 答案：C

70．______对象不能响应Click事件。

a) 列表框 b) 图片框 c) 窗体

d) 计时器 答案：D

71．_____控件可以使用SetFocus()方法。 a) Frame b) Label c) TextBox

d) Timer 答案：C

72．下列程序段的执行结果为______。 K=0

For J=1 to 2 For I = 1 to 3 K =I+1 Next I

For I = 1 to 7 K = K+1 Next I Next J Print K a) 10 b) 6 c) 11

d) 16 答案：C

73．下列程序段的执行结果为_______。 M=0

For I=1 To 3

For J =5 To 1 Step-1 N = N+1 Next J,I Print N;J;I a) 12 0 4 b) 15 0 4 c) 12 3 1

d) 15 3 1 答案：B

74．下面四个选项，不是事件的是______。 a) Click b) Visibale

c) Unload

d) Change 答案：B

75．下列程序共执行了________循环。 Dim intsum As Integer Dim I As Integer Dim j As Integer For I=1 To 10 Step 2 For j=1 To 5 Step 2 intsum=intsum+j Next j Next I a) 10 b) 20 c) 25

d) 15 答案：D

76．以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If ____ Then x=x+I End If Next I Print x End Sub

a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 <> 0

d) x Mod 2 <> 0 答案：A

77．19.5 Mod 2*2的运算结果是_____。 a) 3.5 b) 1 c) 3

d) 0 答案：D

78．Cint函数返回值类型是_____。 a) 整型 b) 字符串 c) 变体

d) 双精度浮点型 答案：A

79．ControlBox属性只适用于窗体，当窗体的______属性设置为0-None时， 则ControlBox属性不起作用。 a) Borderstyle b) Autoredraw c) Windowstate d) Enabled 答案：A

80．Inputbox()函数的返回值类型为_____。 a) 数值型 b) 字符型 c) 逻辑型

d) 变体型 答案：B

81．Inputbox函数的参数中，必选参数Prompt的作用是_____。 a) 输出信息 b) 定义提示信息 c) 定义隐含信息

d) 定义输入的位置 答案：B

82．Rnd函数不可能产生的值是_____。 a) 0 b) 1

c) 0.1234

d) 0.00005 答案：B

83．下列程序段运行后，输出结果是____。 B=1

Do until b>7 b=b*(b+1) Loop Print b a) 7 b) 39 c) 42

d) 1 答案：C

84．下面程序段的循环结构执行后， 的输出值是_____。 程序段为： For I=1 to 10 step 2

y=y+I Next I print I; a) 25 b) 10 c) 11

d) 因为Y的初值不知道，所以不确定 答案：C

85．设执行以下程序段时依次输入1、3、5，执行结果为_____。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据：\")) b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5

d) 0 答案：A

86．编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print \"Hello\" End If End Sub

程序运行后，为了在窗体上输出\"Hello\"，应在窗体上执行以下_______操作。 a) 同时按下 Shift 键和鼠标左键 b) 同时按下 Shift 键和鼠标右键 c) 同时按下Ctrl、Alt 键和鼠标左键

d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D

87．如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。 X=1 do

x=x+3 print x

loop until(___) a) x>=8 b) x<=8

c) x>=7

d) x<=7 答案：A

88．我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=Ucase(Text1.text) End Sub

则在Text1文本框输入“visual basic”，Text2将______。 a) Text2中无内容显示。 b) Text2显示\"VISUAL BASIC\"。 c) Text2显示\"visual basic\"

d) Text1显示\"visual basic\" 答案：B

．下列程序的执行结果是_____。 Dim a(5) As String Dim b As Integer Dim I As Integer For I =0 To 5 a(I)=I+1 Print a(I) Next I

a) 123456 b) 6

c) 654321 d) 0 答案：A

90．下列程序的执行结果为_____。 Dim S As Integer,n As Integer S=0:n=1

Do While n<=100 S=S+n n=n+1 Loop Print S a) 5050 b) 2500 c) 3000

d) 4000 答案：A

91．下列运算结果中，值最大的是 ______。 a) 3\\4 b) 3/4

c) 4 mod 3

d) 3 mod 4 答案：D

92．下面程序执行的结果是____。 Private Sub Form_Click() A$=\"123\":B$=\"456\" C=Val(A$)+Val(B$) Print C\\100 End Sub a) 123 b) 3 c) 5

d) 579 答案：C

93．以下是计算10的阶乘的程序，请补充该程序。 Dim t as single Dim k as Integer k=0:t=1

While_______ k=k+1 t=t*k Wend Print t a) k<10 b) k>10 c) k=10

d) k>=10 答案：A

94．以下语句输出结果是（在立即窗口中)_____。 A=\"Beijing\" b=\"ShangHai\" Print a;b

a) Beijing ShangHai b) Abeijing ShangHai c) BeijingShangHai d) Abeijing 答案：C

95．有如下程序： For I=1 To 3

For j=5 To 1 Step -1 Print I+j Next j NEXT I

其循环执行的次数为______。 a) 12 b) 13 c) 14

d) 15 答案：D

96．执行下列程序后，X的值为______。 X=3 y=6

Do While y<=6 x=x*y y=y+1 Loop a) 3 b) 6 c) 18

d) 20 答案：C

97．有如下语句，执行后该段语句的循环次数是_____。 Dim s,I,j as integer For I =1 to 3

For j=3 To 1 Step-1 S=I*j Next j Next I a) 9 b) 10 c) 3

d) 4 答案：A

98．有如下程序，该程序将______。 For I=1 to 10 step 0 K=k+2 Next I

a) 形成无限循环。

b) 循环体执行一此后结束循环。 c) 语法错误。

d) 循环体不执行即结束循环。 答案：A

99．如有数组声明语句Dim a(2,-3 to 2,4)，则数组a包含元素的个数是_____。 a) 40 b) 75

c) 12

d) 90 答案：D

100．下列程序的执行结果为________。 Dim intsum As Integer Dim I As Integer intsum=0

For I=0 To 50 Step 10 intsum=intsum+I Next I

Print intsum a) 150 b) 200 c) 50

d) 0 答案：A

101．以下______控件不能触发Dbclick()事件。 a) Label

b) Commandbutton c) PictureBox d) Image 答案：B

102．Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 a) 属性、事件、方法 b) 控件、属性、事件 c) 窗体、控件、过程

d) 窗体、控件、模块 答案：A

103．下列各赋值语句，语法不正确的是_____。 a) x+y=5

b) iNumber=15

c) Labell.caption=\"time\" d) sLength=x+y 答案：A

104．下列变量名中不合法的是_____。 a) strname b) 3abc c) A_one

d) vaone 答案：B

105．下拉式组合框的Style属性值为_____。

a) 0 b) 1 c) 2

d) 3 答案：A

106．下列 逻辑运算结果为\"true\"的是________。 a) false or not true b) false and not true c) true or not true

d) true and not true 答案：C

107．设定当鼠标移动到文本框控件上时给用户提示文本的属性是_____。 a) HideSelection b) ToolTipText c) Aligmment

d) WordWrap 答案：B

108．若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是_____。 a) Value b) Cancel c) Default

d) Enabled 答案：C

109．以下不具有Picture属性的对象是______。 a) 窗体 b) 图片框 c) 图像框

d) 文本框 答案：D

110．若要获得滚动条的当前值，可访问的属性是______。 a) Text b) Value c) Max

d) Min 答案：B

111．要改变控件的宽度，应修改该控件的_____属性。 a) Top b) Left c) Width

d) Height 答案：C

112．如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。 a) 0 b) -1 c) TRUE

d) FALSE 答案：B

113．若要使某命令按钮获得控制焦点，可使用的方法是_____。 a) lostfocus b) setfocus c) point

d) value 答案：B

114．声明全局变量的位置是______。 a) 事件过程 b) 函数过程

c) 标准模块通用声明段

d) 窗体模块通用声明段 答案：C

115．下列那些控件不可能包含其它控件______。 a) Picturebox b) Frame c) Toolbar

d) Image 答案：D

116．下列声明语句中存在变体变量的是______。 a) Dim a,b As Integer b) Dim a As String c) Static a As Integer

d) Public a As Currenency 答案：A

117．以下不是Visual Basic特点的选项是_____。 a) 可视编程 b) 算法设计 c) 事件驱动

d) 面向对象 答案：B

118．将当前窗体中显示的文字及绘制的图形全部清除，可以用方法_____。 a) Me.Clear b) Me.Cls c) Me=\" \"

d) Me.Delete 答案：B

119．下列程序运行后，输出的结果为______。 B=1

Do while (b<40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6

d) 1 答案：A

120．通用对话框中能打开“颜色对话框”的方法是______。 a) ShowOpen b) ShowColor c) ShowSave

d) ShowPrinter 答案：B

121．如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于_______。 a) 5000 b) 500 c) 50

d) 5 答案：B

122．如果要改变窗体的标题,需要设置窗体对象的________属性。 a) Name b) Caption c) BackColor

d) BorderStyle 答案：B

123．如果要在文本框中输入字符时，只显示某个字符，如星号（*)，应设置文本框的_______属性。 a) Caption

b) PasswordChar c) Text

d) Char 答案：B

124．若要将窗体从内存中卸载出去，应该使用的方法是______。 a) Show b) UnLoad c) Load

d) Hide 答案：B

125．下列表达式不合法的是_______。 a) 123+abc b) 123 & \"abc\" c) 1+2/3

d) [3*(4+5)-6]/7 答案：D

126．改变控件在窗体中的上下位置应修改控件的_____属性。 a) Top b) Left c) Width

d) Height 答案：A

127．表达式X+1>X是_____。 a) 算术表达式 b) 非法表达式 c) 字符串表达式

d) 关系表达式 答案：D

128．控件的什么内容决定事件发生时的执行代码_____。 a) 属性 b) 事件过程 c) 函数

d) 通用过程 答案：B

129．以下控件中没有Caption属性的是_____。 a) 标签框 b) 文本框 c) 框架

d) 命令按钮 答案：B

130．______属性决定了按Tab键时焦点在各个控件之间移动的顺序。 a) Index b) TabStop c) TabIndex

d) SetFocus 答案：C

131．可变数组的各个数组元素的数据类型可以______。 a) 相同

b) 不相同 c) 两可

d) 都不对 答案：A

132．若要设置文本框中所显示的文本颜色，使用的属性是______。 a) BackColor b) FillColor c) ForeColor

d) BackStyle 答案：C

133．使图形能自动按控件大小而改变的控件是______。 a) 标签框 b) 框架 c) 图片框

d) 图像框 答案：D

134．Msgbox 函数返回值的类型是______。 a) 数值 b) 字符串 c) 变体

d) 数值或字符串(视输入情况而定)答案：A

二、填空题

135．下列程序是用来计算1＋2＋3……＋10的程序段，请补充完该程序。 Dim I, s, k As Integer s = 0: k = 0 For____To -1 k = k+1:s = s+k Next I

Print s 答案：J=-10

136．当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的____属性设置为空。 答案：TEXT

137．在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码： Private Sub CommAnd1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k

x=6

Print M(2+M(x)) End Sub

程序运行后，单击命令按钮，输出结果是______。 答案：4

138．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中______个选项按钮（提示：该题答案不能出现汉字)。 答案：2

139．在Visual Basic中按文件的访问方式不同, 可以将文件分为顺序文件、随机文件和______。 答案：二进制文件

140．x,y中至少有一个变量小于变量z的VB表达式为x141．表达式：Mid(\"SHANGHAI\的值是______。 答案：HAI

142．程序运行工程中，清除BMP图片框中的图片应使用语句 。答案： cls

143．设置窗体的 属性，可在窗体上显示图片。答案：Picture

144．有数组定义语句：dim I(99,99) as Integer，则数组I包含有______个元素。 答案：10000

145．有如下程序，该程序的运行结果是______。 A=20 : b=10

print a>b 答案：TRUE

146．下列程序用来将变量X，Y的值互换，请补充完程序（提示：该题答案中不要出现空格)。

T=Y:______:X=T 答案：Y=X

147．可用窗体的___（9)_ 方法在窗体中显示文字。 Print

148．执行下面的程序段后，s的值为______。 S=5

For I=2.6 To 4.9 Step 0.6 s=s+1

Next I 答案：9

149．Private Sub Form_Click() Print \"*\"; Tab(6); 2, Tab(15); 5 Print

For I = 15 To 16 Print I;

For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Next j Print Next I End Sub

程序运行结果：

150．表达式“12345”<>“12345”&“ABC”的值是_____。 答案：TRUE

151．在VB中，最主要的两种对象是 （3) 和 （4) 。 窗体（form) 控件

152．下列程序段的运行结果是： Sub sele()

Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop Print I End Sub

打印结果_____。 答案：3

153．假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装 入一个图片框PICTURE1，应执行的语句为_____。 答案：PICTURE1.PICTURE=LOADPICTURE(\"C:\\PIC2.GIF\")

154．设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____ 。 答案：FALSE

155．给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer

y=InputBox(\"请输入年号\")

If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \"是闰年\" Else Print \"是普通年份\" End If

End Sub 答案：AND

156．当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 答案：双击

到 15 (总共 103 个记录) 第一页 前一页 下一页 最后一页

157．以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。

If X___2=____ Then Print X 答案：MOD 0

158．货币类型的数据小数点的位置是固定的，精确到小数点后_____位。 答案：4

159．在Select case 结构中应至少包含一个______子句。 答案：CASE

160．下列程序段的执行后输出的结果为_____。 I=4:A=5 Do

I=I+1:A=A+2 Loop Until I>=7

Print \"A=\";A 答案：A=11

161．双精度数用字母_____将尾数与指数分开。 答案：D

162．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(\"请输入一个整数\") b=InputBox(\"请输入一个整数\") Print a+b End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。 答案：321456

三、判断题

163．在一个语句行内写多条语句时，语句之间应该用逗号分隔。 答案：错

1．在Visual Basic设计界面中,工程窗口 是不能隐藏的窗口 对

3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。 4、通过改变属性窗口中的Name属性，来改变窗体的标题。错

5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。对

6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。对 7、已知P＝MsgBox(“Howareyou?\"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。对

8、工程文件的扩展名是 .vbg 。错

9、VB允许设计和使用用户自己设计的控件。对 10、OptionButton控件没有DblCliek事件。对 11、同一条记录中的各数据具有相同的类型。错

13、ImageList 是一个图像容器控件，可用作工具栏的图像库。对

17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。对 18、使用数组定义语句：Dim D$（10)，则数组D中各元素的值为空。对

165．计时器（Timer)的Interval属性的默认单位为毫秒。 答案：对

166．计时器不只有Timer事件，interval也是计时器的事件。 答案：错

167．滚动条通常用于浏览显示内容、确定位置，也可以作为数据输入的工具。通过编程控制，可以为不具备滚动能力的控件提供滚动功能。 答案：对

168．当滚动条位于最右端或顶端时，表示其值最大，反之为最小。 答案：错

169．当在滚动条内拖动滑动块时只触发Scroll事件。 答案：错

170．控件中不能改变大小的只有timer。 答案：错

171．列表框List属性可以得到列表中任何选项的值，它以数组的方式存在。 答案：对

172．可以用剪切+复制的方法将已有控件放入框架中。 答案：对

173．列表框的listindex返回当前选项的索引号，索引号从0开始。如果没有选项被选中，该属性为1。 答案：错

174．在语句Label1.caption=\"欢迎\"被执行之前，标签控件Label1的Caption属性为默认值，则该语句被执行后，标签控件Label1的Name属性和Caption属性的值分别为：“label”、 “欢迎”。 答案：错

175．在Visual Basic中按文件的访问方式不同，可以将文件分为数据文件和可执行文件。答案：错

176．要想改变一个窗体的标题内容，则应该设置Name属性的值。 答案：错

177．要获得当前驱动器应使用驱动器列表框的Dir属性。 答案：错

178．将当前窗体中显示的文字及绘制的图形全部清除，可以用方法me.cls。 答案：对

179．控件的事件过程内容决定事件发生时的执行代码。 答案：对

180．通常，文本框的Setfocus方法不能使用在Form_load事件中。 答案：对

181．若要使标签透明，则可使用属性BackColor。 答案：错

182．在Visual Basic中通过FontColor 属性来设置字体颜色。错

183．在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。 对

184．在Select case结构中应至少包含一个子句。答案：对

185．当对窗体中的对象进行单击操作时，Visual Basic就会显示该对象的代码窗口。答案：错

186．Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个滚动条。答案：对

187．用面向对象的编程思想观点来看，一只黑色的台球被打进袋内，则台球是对象、黑色是方法。答案：错

188．单击滚动条的滚动箭头时，产生的事件是Change。答案：对

1．对象名.函数名 可以构成语句。答案：错

190．列表框Columns属性可以用来设置列表框多列显示。 答案：对

191．属性是指对象的名字、大小、位置和颜色等特性。答案：对

192．在Visual Basic程序设计中,TextBox对象没有Caption属性。 答案：对

193．方法是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。对

194．Double类型的数据由 4 个字节组成。答案：错

195．整型数的取值范围为–32768～+32768 。答案：错

196．局部变量是指那些在过程中用Dim语句或Static语句声明的变量。答案：对

197．局部变量的作用域仅限于声明它的过程。答案：对

198．静态局部变量是在过程中用Static语句声明的。答案：对

199．逻辑表达式Not\"a\">\"b\" And 9<3 Or 9>3的值为true 。 对

200．事件驱动不是Visual Basic的特点。答案：错