14. 下列VB程序运行时，单击命令按钮Command1后，文本框显示的内容是 Private Sub Command1_Click()

　 a = 2

　 b = 2

　 Do While a <= 4

　　　 a = a * b

　　　 b = a * b

　 Loop

　 Text1.Text = Str(a)

Text2.Text = Str(b)

End Sub

Text1中显示　 　▲　 , Text2中显示　 　▲　 。

13．当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为

If a<b Then

　 If c<d Then x=1 Else x=2　

Else

　 If c<d Then x=3　 Else x=4　

End If

A. 1　　　　 B. 2　　　　 C. 3　　　　　 D. 4

12．想从学生中选出一些理科比较好的同学参加理科知识竞赛，主要考察数学和物理两个科目的成绩，在数学成绩大于90的同学中挑选出物理成绩不小于89的同学参加竞赛，VB条件表达式应该是

(S:数学成绩，W:物理成绩)

A. S<90　 ， W>=89　 　　　　　　　　　　　　 B. S<90 Or　 W>=89

C. S<90　 And　 W>=89　　　　　　　　　　　　　 D. S>90 And W>=89

11．下列图标中不是VB的标准控件图标的是

A．　　　　　　 B．　　　　　　　 C．　　　　　　 D．

10．下面的表达式的值为"on"的是

(提示：函数Replace(X,S,R)的功能是将字符串X中的字符串S替换为字符串R，然后返回)

A．Mid("cartoon",6,2)　　　　　　　　 　B．Mid("only",2,2)

C．Replace("cartoon",catro,on)　　　　 　D．Len("on")

9．小李有一被污损的保修卡(如图)，客服热线中有一个数字被　

污损掉了，找出这个数字的适合算法是

A．枚举算法　　　　　　　　　　 B．解析算法

C．对分查找算法　　　　　　　　 D．递归算法

8．下列语句中，可以说明x是偶数的是

A. x/2=abs(x)　　 　　　　　　 B. x/2=int(x)/2

C. x/2=int(x/2)　　　 　　　　　 D. sqr(x)=x/2

7．在Visual Basic中定义一个二维的而且最多可以存储100个单精度实数型数值型数组s，正确的数组定义语句是

A．Dim s(1 to 100) As Integer　　　　　 B．Dim s(1 to 100) As Single　

C．Dim s(1 to 10,1 to 10) As Single　 　 D．Dim a(1 To 100,1 to 100) As Double

6．数学表达式x²+5|x|+3改成Visual Basic表达式是

A．x*x+5*Abs(x)+3　　　　　　　 　　　　B．x*x+5Int(x)+3

C．sqr(x)+5*Abs(x)+3　　　　　　 　　　　D．x^2+5*Int(x)+3

5．有如下VB程序:

Private Sub Command1_Click()

Dim x As Double, y As Double

x = Val(Text1.Text)

If x > 10 Then

y = "HELLO"

Else

　y = "BYEBYE"

　Endif

Text2.Text = y

End Sub

这个程序运行的时候出现“类型不匹配”的错误，应把划线处改为

A．Integer　　　　 B．String　　　　　　 C．Boolean　　　　　　 D．Long