违法和不良信息举报 联系客服
免费注册 登录

以下程序的输出结果是()。 Option Base 1 Private Sub Command1 Click()Dim a(10),p(3)as Integer

题目

以下程序的输出结果是( )。 Option Base 1 Private Sub Command1 Click() Dim a(10)，p(3)as Integer k=5 For I=1 to 10 a(i)=I Next I For j=1 to 3 p(i)=a(I*j) Next j For I=1 to 3 k=k+p(I)*2 Next I Print k End Sub

A．33

B．28

C．35

D．37

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

以下程序的输出结果是D)9 12 Option Base 1 Private Sub Command1_Click() Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub

A．33

B．28

C．35

D．37


正确答案：A

第2题：

下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

A．36

B．25

C．1

D．出错信息


正确答案：D

第3题：

在窗体上添加一个命令按钮控件，名为Command1，事件过程如下，则执行结果是 Option Base 1 Private Sub Command1_Click() Dim a(5)As Integer Dim k As Integer Dim total As Integer a(1) = 2 a(2) = 5 a(3) = 4 a(4) = 10 a(5) = 6 For k = 1 To 5 Total = total + a(k) Next k Print total End SubA. 10 B.15 C. 27 D. 35


正确答案：C
【解析】要得到数组中的每个元素时，可以通过数组的下标来分别引用数组的各个元素。本程序的作用是通过一个for循环，计算数组中各元素值的总和并输出，for循环条件是1-5，因此循环了5次，即使数组元素a(1)-a(5)累加起来，所以最后输出结果为：2+5+4+10+6=27.

第4题：

以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub

A．33

B．28

C．35

D．37


正确答案：A
解析：此题中共定义了两个数组：a(0，p(0，共用到了3次For循环。第1个For语句对数组a(i)赋值，a(1)…a(10)=1...10：第2个For语句，对p(1)：1，p(2)：4，p(3)：9；第3个For语句，计算k的值，3次循环分别得到：5，15， 33。答案为A。

第5题：

下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。

A．33

B．28

C．35

D．37


正确答案：A
解析：此题中共定义了两个数组：a(i)，p(i)，共用到三次For循环：
  第一个For语句是对数组a(i)赋值，a(1)到a(10)的值分别为1到10；
  第二个For语句是对数组p(i)赋值，p(1)=a(1)=1，p(2)=a(4)=4，p(3)=a(9)=9；
  第三个For语句是对k的值循环相加，三次循环的结果分别为：7，15，33。

第6题：

在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )。

A．15

B．20

C．25

D．35


正确答案：B

第7题：

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为( )。


正确答案：27
27

第8题：

在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。

A．12

B．15

C．17

D．18


正确答案：D
解析：函数f的作用是将x的值加3(由于Vb中默认的参数传递方式为ByRef,故对形参的改变将影响到实参)，同时将该值作为函数的结果返回。由于开始时x的值为2，执行f(x)后，x的值为5，f(x)的结果亦为5。故最后输出的结果应为a(10)，而在for循环中a(10)=8＋10=18。

第9题：

执行以下Command1的Click事件过程，在窗体上显示 Option Base 0 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．abc

B．bdf

C．ace

D．出错


正确答案：B
解析：本题使用了optionBase0语句，该语句对于使用Array定义的数组同样起作用，数组a的索引从0开始，故本题输出的结果为bdf，答案为选项B。

第10题：

在一个窗体上添加命令按钮控件，名为Command1，事件过程如下，则该过程的执行结果为______。Option Base 1Private Sub Command1_ Click() Dim a(5)As Integer Dim k As Integer Dim Total As Integer a (1)= 2 a (2)= 5 a (3)= 4 a (4)= 10 a (5)= 6 for k =1 To 5 Total = Total +a(k) Next k Print TotalEnd Sub

A．10

B．15

C．27

D．35


正确答案：C
解析：本题的难点是循环计算数组之和。计算结果为“2+5+4+10+6=27”。

更多相关问题
相关内容