TEXT1.TEXT=C和C=" TEXT1.TEXT" 都没有语法错误；（   ）

Sub test12()
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是（  ）

A．5  15

B．6  15

C．5  21

D．6  21

有关下列语句说法不正确的是（   ）
① If a="b=c" Then  Msgbox(“这三个数相等”)  Else  Msgbox(“这三个数不相等”) 
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox  (a+b=c)

A．语句①能运行，但逻辑上有错误

B．语句②能运行，且无任何逻辑错误

C．语句③不能运行

D．语句④不能运行

一个漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、酒杯被摔碎了分别代表的是（）

A．对象，属性，事件，方法	B．对象，属性，方法，事件
C．属性，对象，方法，事件	D．属性，对象，事件，方法

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n 
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是    (    )

A．15

B．18

C．42

D．24

如图所示流程图片断该流程图中循环部分结束后，变量S的值是(    )

A．5	B．15
C．25	D．36

【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。程序界面如图所示：

实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。
'定义全局数组变量
Dim a(1 To 10) As Long
Dim b(1 To 10) As String
'自动加载条形码信息以及对应的商品信息
Private Sub Form_Load()
Dim i As Integer
a(1) = 503741
For i =" 2" To 10
a(i) =" a(i" - 1) + 1
Next i
b(1) = "可乐 5.00"
b(2) = "薯片 7.50"
b(3) = "牛奶 5.60"
b(4) = "橙汁 7.50"
b(5) = "面包 4.00"
b(6) = "蜂蜜 28.00"
b(7) = "蛋糕 12.00"
b(8) = "绿箭 3.50"
b(9) = "饼干 6.00"
b(10) = "雪碧 5.00"
End Sub
'输入条形码，查找条形码，并显示条形码及其对应的商品信息
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim txm As Long:
Dim i As Integer:
Dim j As Integer
txm = Val(Text1.Text)
If KeyAscii =" 13" Then
If txm >=" 503741" And txm <=" 503750" Then
List1.AddItem txm
Text1.Text = ""
i =" 1:" j = 10
Do While i <= j
    ①
If txm =" a(m)" Then
List2.AddItem b(m)
Exit Do
ElseIf txm > a(m) Then
i =" m" + 1
Else
   ②   
End If
Loop
Else
MsgBox "条形码输入错误，无此商品"
Text1.Text = ""
End If
End If
End Sub
'计算所购商品的总额
Private Sub Command1_Click()
Dim i As Integer, mx As String, jg As String, sum As Single
For i =" 0" To 9
If List2.List(i) <> "" Then
mx = List2.List(i)
sum =" sum" + Mid(mx, 4)
End If
Next i
Text2.Text = ③    
End Sub

在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：
Private Sub Command1_Click() 
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是（   ）

A．software and hardware

B．software

C．hadrware

D．and

在Visual Basic的代码窗口中，语句List1.Clear中的Clear是（　　）

A．属性值

B．属性名

C．对象名

D．方法

下列关于“控件”属性的说法正确的是( )

A．控件的每一个属性都具有同样的默认值；

B．所有对象都具有同样的属性；

C．控件的属性只能在设计时设置，不能在运行时修改；

D．单击窗体中某控件，在属性窗口中的属性列表框中找到要设置的属性，即可设置其属性值；