题目内容

下列程序段的运行结果是（）。 Private Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub

A. 12
B. 4321
C. 1234
D. 34

查看答案

搜索结果不匹配？点我反馈

更多问题

有如下程序代码，输出结果是（）。 Dim a() a=Array(1,2,3,4,5) for i=Lbound(a）to Ubound(a) print a(i); next I

A. 4 3 2 1 0
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 1 2 3 4 5

窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click（） Dim a（10）As Integer Dim x As Integer For i = 1 To 10 a（i）= Int（Rnd * 100） Next x = InputBox（"输入100以内的整数："） p = 0 For i = 1 To 10 If a（i）= x Then p = i Exit For End If Next If p = 0 Then Print "没有找到与输入数据相同的数！" Else Print Str（x）+ "在数组中的位置是" + Str（p） End If End Sub 对于上述事件过程，以下叙述中正确的是（）

A. 程序有错，p的初值设置不对
B. 若产生的随机数中有相同数，则p是其中最后一个数的位置
C. 程序有错，InputBox函数产生的数据与x的类型不匹配
D. 本程序实际产生的随机数是0-99

以下程序运行的结果是（）。 Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(ij) If (j>=i) Then Print Tab(j3);Format(b(i,j),"# # #"); Next j Print Next i End Sub

A. 1 4 5 7 8 9
B. 1 4 7 2 4 6 3 6 9
C. 1 2 3 4 6 9
D. 1 2 3 4 5 6 7 8 9

二维数组元素在内存中存放的顺序是（）。

A. 随机存放
B. 不在内存中
C. 按列主顺序存放
D. 按行住顺序存放