事实上
满分：124分
姓名：________
1、单项选择题(本题共计40分)
1、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Static A As Integer Static B As Integer Cls B = 2 B = B+3 A= 3+A print A, B End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为___________。A、3 5 B、6 6 C、9 5 D、3 3
2、VisualBasic是用于开发________环境下的应用程序的工具。 ( )
A、DOS B、Windows C、DOS和Windows D、UNIX
3、关于窗体Name属性的叙述，正确的是________。 ( )
A、窗体Name属性可以具有与别的公共对象相同的名字 B、窗体Name属性和变量定义一样 C、窗体Name属性最长可达255个字符
D、窗体Name属性不能具有与别的公共对象相同的名字 4、下面程序的内层循环次数是________。 For i=1 TO 3 For j=1 TO i For k=j TO 3 ... Next k Next j Next i ( )
A、3 B、14 C、9 D、21
( )
5、VisualBasic的一行可以写多条语句，语句之间用____________隔开。 ( )
A、逗号 B、分号 C、顿号 D、冒号
6、下面正确的赋值语句是____________。 ( )
A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x
7、假定有一个菜单，名为MenuItem，为了运行时使该菜单项失效，应使用的语句为________。 ( )
A、MenuItem.Enabled=False B、MenuItem.Enabled=True C、MenuItem.Visible=True D、Unload Form2
8、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 ____过程。 ( )
A、方法 B、事件 C、调动 D、编译
9、下面语句的输出结果是____________。 x=10:y=3
Print (x*y)\\8 ( )
A、4 B、3 C、5 D、6
10、窗体从加载到显示出来，下列最先发生的事件是____________。 ( )
A、Load B、Resize C、Activate D、Paint
11、文本框没有____________属性。 ( )
A、Enabled B、Visible C、BackColor D、Caption
12、使用_______方法，可将新的项加到一个列表框中。 ( )
A、Print B、AddItem C、Clear D、RemoveItem
13、在Form_Click事件中执行PrintFormat(1236.54,\语句正确结果是________.。 ( )
A、123456 B、+123,654.0% C、+123,6.54% D、+123,654
14、下面的表达试的值为真的是________。 ( )
A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12) B、“ABCRG” > ”abcde” C、Int(134.69) > Cint(134.69)
D、78.9/32.77 < = 97.5/43.97 AND –45.4 > 4.98
15、如果文本框的Enable属性被设置为False,则运行时_________ . ( )
A、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上
B、文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框
中的内容
C、文本框中的文本将变成灰色，用户仍能改变文本框中的内容
D、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 16、执行语句\，正确的输出结果是________。 ( )
A、5459.48 B、5,459.48 C、5,459.478 D、5,459.47
17、VB是面向______的程序设计语言。 ( )
A、过程 B、工程 C、事件 D、对象
18、当用户单击命令按钮时，________属性可以使得命令按钮对激发事件无效。 ( )
A、Name B、Enable C、Default D、Cancel 19、执行语句
Print Format(1234.567,“##,##0.00”) 后，输出结果是____________。 ( )
A、1234.57 B、1,234.57 C、1，234.567 D、1,234.56
20、下列叙述中不正确的是___________. ( )
A、变量名的第一个字符必须是字母 B、变量名的长度不超过255个字符
C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字
21、语句Print \输出的结果是________。 ( )
A、\B、出现错误信息 C、5*20 D、100
22、有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。 ( )
A、Integer,0 B、Variant,空值 C、String,\D、Long,0,0
23、如下数组声明语句，则数组a包含元素的个数有____________。 Dim a(3 , -2 to 2 , 5) ( )
A、120 B、75 C、60 D、13
24、执行语句\正确的输出结果是__________。 ( )
A、1234.57 B、1,234.57 C、1,234.56 D、01,234.57
25、求圆的内接正多边形的面积公式为nRsin(π/n)Rcos(π/n)，其的对应的VB6.0算术表达式是 ________。其中n为大于2的正整数，R为圆半径，π为圆周率。 ( )
A、n*r*sin(3.14159/n)*r*cos(3.14159/n) B、n×R×sinπ/n×R×cosπ/n
C、n×R×sin(3.14159/n)*R*cos(3.14159/n) D、nRsin(π/n)Rcos(π/n)
26. 以下程序段的输出结果是____________。 Dim B(2, 2) As Integer Dim i, j, t As Integer For i = 1 To 2 For j = 0 To 2 B(i, j) = j Next j Next i t = 1
For i = 0 To 2 For j = 0 To 2
t = t + B(i, B(j, j)) Next j Next i Print t
A. 3
B. 4 C. 1 D. 7
27、如果在立即窗口内执行以下操作： X=10 Y=5
Print X^2>=Y^3
则输出的结果是____________。 ( )
A、1 B、0 C、True D、False
28、Rnd函数不可能为下列____________值。 ( )
A、0 B、1 C、0.1234 D、0.0005
29、以下程序的输出结果是_________。 Option Base 1
Private Sub Command1_Click() Dim a(10) As Integer, p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub ( )
A、33 B、28 C、35 D、37
30、如果文本框的Enabled属性设为False，则____________。 ( )
A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框
B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中
的内容