题目内容 (请给出正确答案)
⽤Dim A(-3 To 5)As Integer语句所定义的数组的元素个数是()。
[单选]

⽤Dim A(-3 To 5)As Integer语句所定义的数组的元素个数是()。

A、6

B、7

C、8

D、9

查看答案
更多“⽤Dim A(-3 To 5)As Intege…”相关的问题
第1题
在窗体上画一个名称为Command1的命令按钮, 然后编写如下事件过程:
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 1 To 3
a (i, j) = (i – 1) * 3 + j
Print a(i, j );
next j
Print
next i
End Sub
程序运行后, 单击命令按钮, 窗体上显示的是______

A、1 2 3 2 4 6 3 6 9

B、2 3 4 3 4 5 4 5 6

C、1 4 7 2 5 8 3 6 9

D、1 2 3 4 5 6 7 8 9

点击查看答案
第2题
'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。Private Sub Form_Click(B )Dim
'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。
Private Sub Form_Click(B )
Dim a(1 To 5)As Integer
a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4
n = 5
For i = 1 To n - 1
Min = i
For j = i + 1 To n
If a(j)< a(min)then min = j
Next j
t = a(i): a(i)= a(Min): a(Min)= t
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
A. 2 3 1 5 4
B. 1 2 3 4 5
C. 9 8 7 6 5
D. 5 5 5 5 5
点击查看答案
第3题
运行下列程序:Private Sub Form_Click()Dim a As Integera = 1For i = 1 To 5Call fun1(a)Ne

运行下列程序:
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.5
B.1 2 3 4 5
C.19
D.7

点击查看答案
第4题
执行以下Command1的Click事件过程在窗体上显示_______。
Private Sub Command1_Click()
Dim a
a =
Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g
”)
Print a(1); a(3); a(5)
End Sub

A、a b c

B、b d f

C、

D、a c e

E、出错

点击查看答案
第5题
下列数组声明正确的是()。

A、n=5 : Dim a (1 to n) as integer

B、Dim a(10) as integer : ReDim a(1 to 12)

C、Dim a() as single : ReDim a(3,6) as integer

D、Dim a() as integer : n=5 : ReDim a(1 to n) as integer

点击查看答案
第6题
数组声明语句dim a(5) as integer 声明的数组a中元素个数是5 。()

点击查看答案
第7题
用Dim a(-1 to 5 )定义一个一维数组,该数组中元素个数是6。()

点击查看答案
第8题
数组声明语句dim a(5) as integer 声明的数组a下标最小的元素是a(1).用于循环次数已知。()

点击查看答案
第9题
代码段如下:dim N as integerN = 2N = N + 1Print N以上代码执行后,输出结果为()

A、1

B、2

C、3

D、4

点击查看答案
第10题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮, 然后编
写如下事件过程:
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后, 单击命令按钮, 在文本框中显示的值是______

A、12

B、13

C、14

D、15

点击查看答案
第11题
运行下列程序:Dim bPrivate Sub Form_Click()a = 1: b = 1Call fun1(a)Print "X = &quo

运行下列程序:
Dim b
Private Sub Form_Click()
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.X = 1,Y = 1
B.X = 2,Y = 6
C.X = 6,Y = 2
D.X = 6,Y = 1

点击查看答案
发送账号至手机
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
搜题
如果结果不匹配,请 联系老师 获取答案
搜索
如果结果不匹配,请 联系老师 获取答案