51.以下是字符串常量的是( )

A、\、'def ' C、# True # D、False

52.将数学表达式cos2(a+b)+5e2写成Vb表达式的正确形式是( )

A、Cos (a+b) ^2 +5*e^2 B、Cos ^2(a+b) +5*Exp(2) C、Cos(a+b)^2+5*Exp(2) D、Cos ^2(a+b) +5*Ln(2)

53.表达式Val(“abcdfg123e1234”)的值为( )

A、1234 B、0 C、789 D、表达式错

54.窗体上放置了三个文本框，若在Text1中输入123，在Text2中输入78，在程序中执行了语句

Text3 = Text1 + Text2后，则在Text3中显示( )

A、201 B、溢出 C、语法错误 D、12378

55.下面不是字符串常量的是( )

A、#False# B、\ \、\、\你好\

56.表达式5 * 2 Mod 25 \\ 2 ^ 2的值是( )

A、6 B、0 C、1 D、4

57.产生[10,37]之间的随机整数的VB表达式是( )

A、Int(Rnd * 27) + 11 B、Int(Rnd * 28) + 11 C、Int(Rnd * 28) + 10 D、Int(Rnd * 27) + 10

58.如下语句中，不能正常执行的是( )

A、Print 3245343＋23233 B、Print 32765＋3 C、Print 3423/89 D、Print 5＋7＝100

59.要强制显式声明变量，可在窗体模块或标准模块的通用声明段中加入语句( )

A、Option Base 0 B、Option Base 1 C、Option compare D、Option Explicit

60.假设变量Lng为长整形变量，下面不能正常执行的语句是( )

A、Lng=4*0.5*16384 B、Lng=190^2 C、Lng=16384*2 D、Lng=32768*2

6

61.如下四个符号，可以作为VB合法变量名的是( )

A、5_f B、User%s C、_5flg D、N1

a?b62.数学表达式a?b对应的正确Visual Basic表达式为( )。

A、a-b/(a+b) B、a-b/a+b C、(a-b)/(a+b) D、(a-b)/a+b

67.在一个语句行内写多条语句时，语句之间应该用的分隔符是( )

A、逗号 B、冒号 C、分号 D、顿号

68.设A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达式可以表示为( )

A、A + B > C And A + C > B And B + C > A B、A + B > C Or A + C > B Or B + C > A C、A + B < C And A + C < B And B + C < A D、A + B < C Or A + C < B Or B + C < A

69.设Mys1,Mys2均为字符串型变量，Mys1=\Basic\Mys2=\则下面关系表达式中结果为True的是( )

A、Len(Mys1)<>2*InStr(Mys1,\B、Mid(Mys1,8,1)>Mys2

C、InStr(Left(Mys1,6),\D、Chr(98) & Right(Mys1,4)=\

70.下面所列四组数据中，全部是正确的VB常数是( )

A、3276 123.56 1.2E-2 #True# B、ABCDE #02-02-2002# E-2 #True# C、&HABCE 02-03-2002 False D-3 D、32768 1.34D2 \

71.以下不能作为Visual Basic变量名的是( )

A、Fa_2 B、F2a C、2Fa D、Fa2

73.语句Print \的输出结果是( )

A、5*20 B、100 C、出现错误信息 D、\

74.以下( )程序段可以实现X、Y变量值的交换

A、Z=X:X=Y:Y=Z B、Z=X:W=Y:Y=Z:X=Y C、Y=X:X=Y D、Z=X:Y=Z:X=Y

75.语句X=X+1的正确含义是( )

A、变量X的值与X+1的值相等 B、将变量X的值加1后赋给变量X C、将变量X的值存到X+1中去 D、变量X的值为1

7

76.下列说法正确的是( )

A、语句Val(Text1.Text)=X的含义是将文本框Text1中的内容转换为数值型后赋值给变量X B、语句Text1.Text=X的含义是将变量X的值显示于文本框Text1中

C、语句X=Val(Text1.Text)的含义是将文本框Text1中的内容转换为字符型后赋值给变量X D、语句Text1.Text=X的含义是将文本框Text1中的内容转换为数值型后赋值给变量X

77,MsgBox函数的返回值的类型是( )

A、字符串型 B、布尔型 C、整型 D、日期型

78.如果将布尔常量值True赋值给一个整型变量，则整型变量的值为( )

A、0 B、假 C、-1 D、真

79.为了防止用户随意将光标置于文本框中，应( )

A、将文本框的TabStop属性设置为True B、将文本框的TabStop属性设置为False C、将文本框的Enabled属性设置为True D、将文本框的TabIndex属性设置为0

80.为了给X、Y、Z三个变量赋值1，下面正确的赋值语句是( )

A、X,Y,Z=1 B、X=Y=Z=1 C、X=1:Y=1:Z=1 D、X=1,Y=1,Z=1

81.以下关于MsgBox的叙述中，错误的是( )

A、通过MsgBox函数可以设置消息框中显示的图标 B、通过MsgBox函数可以设置消息框中显示的按钮的类型

C、MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 D、MsgBox函数返回一个整数

82下列语句中正确的是( )

A、txt1.Text+txt2.Text=txt3.Text B、Command1.Name=cmdOK C、A=InputBox(\D、12Label.Caption=1234

83.下面的赋值语句正确的是( )

A、PI*R*R=Y B、X=3Y C、X+Y=30 D、Y=X+30

84.如果X的值小于或等于Y的平方，则打印“OK”，表示这个功能的单行If语句是( )A、If x <= y ^ 2 Then Print \B、If x <= y ^ 2 Then \C、If x <= y ^ 2 Print \D、If x <= y2 Then Print \

8

。

85.关于语句If x = 1 Then y = 1，下列说法正确的是( )。

A、x = 1 为关系表达式， y = 1为赋值语句 B、x = 1 和 y = 1均为赋值语句

C、x = 1 为赋值语句， y = 1为关系表达式 D、x = 1 和 y = 1均为关系表达式

86.下列语句正确的是( )。

A、If A>=B Then T=A A=B B=T B、If A>=B Then T=A : A=B : B=T C、If A≥B Then T=A ;A=B; B=T D、If A≥B Then T=A A=B B=T

87.下列语句正确的是( )。

A、If x < 3 * y ： x > y Then y = x ^ 3 B、If x < 3 * y And x > y Then y = x * * 3 C、If x < 3 * y And x > y Then y = x ^ 3 D、If x < 3 * y And x > y Then y = x3

88.分析下列语句，给出执行结果 Private Sub Form_Click()

Const pi As Single = 3.14 Dim a As Integer a=7

If a Mod 4 > pi Then Print \努力\Else Print \学习\End Sub

执行结果为( )，其判决条件的值为( )。

A、学习 TRUE B、学习 False C、努力 TRUE D、努力 False

89.下列说法中正确的是( )。

A、语句Text1.Text = x的含义是将变量x的值显示于文本框Text1中 B、语句Text1.Text = x的含义是将文本框Text1中的内容赋值给变量x

C、语句Text1.Text = x的含义是将文本框Text1中的内容转换为数值型后赋值给变量x D、以上说法都是错误的

90.以下循环语句中在任何情况下都至少执行一次循环体的是( )。

A、Do 循环体 Loop Until <条件>

B、Do While <条件> 循环体

9

Loop

C、While <条件> 循环体 Wend

D、Do Until <条件> 循环体 Loop

91.下列循环结构中，窗体上打印出来的循环变量i的值为( )。 sum = 0

For i = 1 To 100 sum= sum + i Next i Print i

A、101 B、1 C、100 D、2

92.下列循环结构中，循环体x = x + k的执行次数为( )。 x = 0

For k = 1 To 10 Step 2 x = x + k Next k print k；x

A、0 B、5 C、10 D、1

93.循环结构For I = 1 to 15 step 2 的执行次数是( )。

A、6 B、9 C、7 D、8

94.在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click(） Dim n% ,b ,t

t = 1 : b = 1 : n = 2 Do

b = b * n t = t + b n = n +1

Loop Until n>9 Print t

10