【加试题】某Visual Basic程序如下：（）Private Sub Command1Click() Dim a(-1 To 8) As Integer Dim i As Integer For ...

题型：单选题题类：常考题难易度：普通

浙江省温州市十校联合体2015-2016学年高二上学期信息技术期中联考试卷

【加试题】某Visual Basic程序如下：（）

Private Sub Command1Click()

Dim a(-1 To 8) As Integer

Dim i As Integer

For i = -1 To 8

a(i) = i * i

Next i

List1.AddItem Str (a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为

A、下标越界 B、子程序或函数未定义 C、溢出 D、类型不匹

举一反三

Private Sub Command1_Click()

Dim a as Integer

a=Val(Text1.text) ‘将文本框中的数字文本转换成数值

a=2*a+1

Text1.text = StrA.

End Sub

程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（）

x=5

Print x+7

Print x+2

s = ""

For i = 1 To Len(Text1.Text)

s = s + Mid(Text1.Text, Len(Text1.Text) - i + 1, 1)

Next i

若文本框Textl中输入“a1b2c3”,执行程序后，变量s的值为（）

a=356

b=365

a=b

print(a)

相关试卷