设有数组定义语句：Dima(5)AsInteger，Listl为列表框控件。下列给数组元素赋值的语句，错误的是（）。A．a(3)=3B．a(3)=VAL(In_刷题宝

题干

设有数组定义语句：Dim a(5) As Integer，Listl 为列表框控件。下列给数组元素赋值的语句，错误的是（）。

A．a(3)=3

B．a(3)=VAL(InputBox(“InputData”）

C．a(3)=Listl.ListIndex

D．a=Array(1,2,3,4,5,6)

上一题下一题 0.99难度选择题更新时间:2019-09-12 12:53:42

答案(点此获取答案解析）

同类题1

在窗体上画一个命令按钮，名称为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

同类题2

若a = 8，b = 5，则运行Print a; "-"; b; "="; a - b的结果是（）。

A．a -b = 3	B．8 - 5 = 3
C．a - b =" a" – b	D．3

同类题3

有如下Visual Basic程序段：
A＝“Happy new year！”
B＝Len(A)\2
C＝63 Mod 10
Text1.Text＝Mid(A，B，C)
该程序运行后文本框text1显示的内容为( )

A．3	B．new
C．B	D．Mid(A，7，3)

同类题4

在窗体上画一个名称为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中显示的内容是 ( )

同类题5

Sub test2()
a = 12：b = 12：c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后，在标签Label3的Caption属性值是( )

C．"mondaytiger"

相关知识点