在Visual Basic中，用变量code存储学生的借阅卡编码(如“CH20130036”)，则变量code的数据类型应说明为（  ）

A．Integer

B．Single

C．String

D．Date

某算法的流程图如下所示,该算法实现的功能是（  ）

A．求a，b的和

B．求a，b的差

C．交换a，b的值

D．求a，b的较小值

下列Visual Basic表达式中计算结果为4的是（  ）

A．Abs(-4.2)

B．Len("a123")

C．Sqr(4)

D．Int（3.5）

在Visual Basic中，下列能产生一个[1，60]之间随机正整数的表达式是（  ）

A．Rnd*60

B．1+Rnd*59

C．Int(Rnd*60)

D．1+Int(Rnd*60)

对实数型变量x，保留一位小数，第二位四舍五入的表达式为：（  ）

A．int(x)

B．int(x*10)/10

C．int(x*10+0.5)/10

D．int(x*10)

在VB窗体中有一个对象，该对象的属性窗口如图所示，下列说法不正确的是(   )

A．Interval为属性名

B．1680为属性值

C．该对象的名称为Timer1

D．根据“Timer1 Timer”可判断窗体名为Timer

在条件语句If x=1 Then y=2中，下列说法正确是(    )

A．x=1和y=2均为赋值语句	B．x=1和y=2均为关系表达式
C．x=1为关系表达式，y=2为赋值语句	D．x=1为赋值语句，y=2为关系表达式

在包含20 个元素的数组a 中，寻找最小值的VB 程序段如下。其中变量min 用于储最小值：
For  i=2 To 20
If a(i)<min Then min=a(i)
Next i
则方框中最合适的语句是: (    )

A．a(i)=min

B．min=a(i)

C．a(1)=min

D．min=a(1)

某算法的流程图如图所示，当输入a和b的值分别为3、6时，该算法的输出结果为(   )

A．3

B．6

C．8

D．9

下列能作为Visual Basic变量名的是（  ）

A．b+7

B．Mod

C．3x

D．T_1

“如果a,b中任意一个为0，那么y=y+1”，能实现该功能的VB语句是(   )

A．If a=0 And b=0 Then y=y+1	B．If a*b=0 Then y=y+1
C．If a=0,b=0 Then y=y+1	D．If a∙b=0 Then y=y+1

计算机能直接识别的算法表示形式是（  ）

A．自然语言

B．流程图

C．伪代码

D．程序语言

有如下的程序段：
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示(    )

A．23

B．a+b

C．5

D．2+3

下列文件中属于工程文件的是（ ）

A．五子棋.frm

B．五子棋.exe

C．五子棋.vbp

D．五子棋.caption

程序运行界面如图所示。

要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为(  )

A．Command1_Click	B．Text1_Click
C．Form_Click	D．Label2_Click

在绕地球做匀速圆周运动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：，若用VB表达式来表示，正确的是(   )

A．F=m(g-v*v/r)	B．F=m(g-v^2/r)
C．F=m*(g-v^2/r)	D．F=m*(g-v*2/r)

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String, b As String
a = "up "
b ="look "+"  "+a
Label1.Caption = b
End Sub
运行程序，单击命令按钮Command1后弹出如下图所示的出错信息提示，此时程序正执行的语句是（  ）

A．Dim a As String, b A s String	B．a = "up "
C．b =  "look "+"  "+a	D．Label1.Caption = b

某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a, b, h As Single
Dim v As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c= Val(Text3.Text)
v = a * b * h
label1.Caption = "长方体体积为：" + Val(v)
End Sub
运行程序，单击命令按钮command1后弹出如图所示的出错提示，引起该错误的语句是：

A．Dim a, b, h As Single	B．a = Val(Text1.Text)
C．v = a * b * h	D．label1.Caption = "长方体体积为：" + Val(v)

编写VB程序，实现如下功能：在文本框Text1里输入一个字符串，单击“判断”按钮Command1，判断这个字符串是不是回文字符串（回文字符串就是一个对称的字符串，如"abcba"或"abccba"都是回文字符串，"abc"不是回文字符串）。在文本框Text2里显示结果，回文字符串显示"yes"，否则显示"no"。运行效果如左图所示。
  
（1）要使窗体Form1的标题改为“判断回文字符串”，可在其属性窗口（上方右图）中将_____________①属性的属性值修改为“判断回文字符串”。
（2）为实现上述功能，请在划线处填入合适代码或选项
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
________②  ' (填程序代码)
j = Len(st)
i = 1
flag = True
Do While flag And (i <= j)
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
______________③ 
Else
flag = False
End If
Loop
If __________④ Then 
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub

在text1中输入一串字符，单击命令按钮command1，统计字符串中字母、数字、下划线的个数，并在标签label2上输出。
（1）结合界面与代码，可知当前窗体（不包含窗体本身）中共有①__类，②__个对象，若要让文本框text1显示为空，应该修改文本框text1的③___属性。
（2）对代码进行填空。

Private Sub Command1_Click（___）
Dim s,ch as string
Dim a,b,c as integer
a=0:b=0:c=0
_____________________④
For i=1 to_______⑤
_________________⑥ ‘取第i个字符ch
If ______________________________⑦then ‘如果ch是字母则a计数器加1
a=a+1
Elseif  ch>=”0” and ch<=”9 ”  then ‘若是数字则数字计数器b加1
b=b+1
Else
c=c+1
End if
_______________⑧
Text2.text=str(a)
Text3.text=str(b)
Text4.text=str(c)
End sub

如图所示，这是打印九九乘法表的程序，请你完善程序。

Private Sub Form_click()
Dim i As Integer, j As Integer
For i = 1 To ①________

For j = 1 To ②_________

Print j; "*"; i; "="; i * j;

Next j

Print  ‘换行
Next i
End Sub