设已有语句"Option Base 0",则下列程序段执行后的输出结果是()Dim a, i As Integera = Array("abc", "123", "456", "789")i = 1Do While i < UBound(a) Print a(i + 1); i = i + 1Loop
abc123456789
456789
123456789
789789789
abc123456789
456789
123456789
789789789
第1题
要强制声明变量,可在窗体模块或标准模块的声明段中加入语句().
A:Option Base 0
B:Option Explicit
C:Option Base 1
D:Option Compare
第2题
执行以下语句过程,在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A.ab
B.bd
C.ac
D.出错
第3题
执行以下语句过程,在窗体上显示的内容是 Option Base 0 Private Sub Command3_Click() Dim d d=Array("a","b","c","d") Print d(1);d(3) End Sub
A.ab
B.bd
C.ac
D.出错
第5题
用下列语句定义数组的元素个数是()。 Option Base 1 Dim Arr5(0 to 6,0 to 5)As Integer
A.42
B.30
C.37
D.36
第6题
执行以下语句过程,在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a","b","c","d")
Print d(1);d(3)
End Sub
A.ab
B.bd
C.ac
D.出错
第7题
执行以下语句过程,在窗体上显示的内容是 Option Base 0 Private Sub Command3_Click() Dim d d=Array("a", "b", "c", "d" Print d(1) ; d(3) End Sub
A.ab
B.bd
C.ac
D.出错
第9题
运行下列语句后,输出的结果是()。 Option Base 1 Dim a i=1 a=Array(l, -2, 9, 0, -1, 9) Do k=a(i) For m = 10 To k Step -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n) <> 27
A.3 27-8
B.3-8 27
C.-8 27 3
D.-8 3 27
第10题
执行以下语句过程,在窗体上显示的内容是 Option Base 0 Prirate Sub Command3_Click() Dim d d=Array("a","b","c","d") Print d(1);d(3) End Sub A) B)
C) D)
A.ab
B.bd
C. ac
D.出错
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!