程序运行后，单击Command1命令按钮，变量x的值为（   ）
Private Sub Command1_Click()
n = 6
x = 1
For i ="1" To n
x =" x" * i
Next
End Sub

A．15

B．24

C．120

D．720

在VB中，某对象的属性窗口如下图所示：该对象的控件类型是（   ）

A．Enabled

B．Timer

C．Tine

D．Tine Timer

下棋时要通过掷骰子来随机确定走棋步数。骰子的六个面上标有数字1至6，下面能表示产生1至6之间的随机整数的表达式是：（   ）

A．Rnd(1)*6

B．Rnd(1)*5+1

C．Int(Rnd(1)*6)+1

D．Int(Rnd(1)*5)+1

已知x= "Visual Basic"，则表达式Mid(x，6，3)的值为：（   ）

A．"lBa"

B．"l B"

C．"Bas"

D．"lB "

在Visual Basic中，下列语句定义错误的是：（   ）

A．const g="9.8"	B．Dim False As Boolea
C．Dim b(1 to 5) As String	D．Dim y As Long

用下列语句定义的数组的元素个数是：（   ）
Dim names(5) As String

A．4

B．5

C．6

D．不确定

某同学要制作一个计算商品团购优惠的VB小程序。请回答以下问题：
该同学绘制了该程序的流程图，如下图所示：

当n为100、p为10时，实付金额s的值是（   ）

A．1000元

B．950元

C．850

D．750元

看程序写结果：

请问右边的程序段运行结束后，
变量x的值为
变量y的值为

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer    'n为试题计数器,s为得分
Dim a, b As Integer  'a，b 为两个运算数
Dim c As String 'c为运算符："+ "表示加法，"-"表示减法
Private Sub Form_Load()
n = 0:
s = 0
End Sub
Private Sub Command1_Click()   ‘出题按钮
Randomize
n =" n" + 1
If n < 11 Then
Label1.Caption = "No：" + Str(n)
a =" Int(Rnd" * 100)  'a，b为运算数，且要求a不小于b
b =" Int(Rnd" * 100)
If   a > b   Then t =" a:" a =" b:" b = t '(1)
If  Rnd > 0.5  Then c = "+" Else  b = "-" '(2)
Label5.Caption =" Str(a)" + c + Str(b) + "="
Text1.Text = ""
Else
Command1.Caption = "完成测试"
End If
End Sub
Private Sub Command2_Click()   ‘判断按钮
If c = "+" Then
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10
Else
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10    '(3)
End If
Label3.Caption = "得分:" + Str(s)
End Sub

在Visual Basic中，如果变量p用来存储某张试卷上的缺考填涂标记，则p应采用的最适合的数据类型是（   ）

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