未分类题

设有如下程序：
Private Sub Form_Click()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(j)=i+1
sum=sum+ary(i)
Next 1
Print sum
Eud Sub
程序运行后，单击窗体，则在窗体上显示的是

A.15
B．16
C．20
D．25

【参考答案】

C
解析：i=1时，ary(1)=1+1=2，sum=O+2=2，i=2时，ary(2)=2+1=3，sum=2......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

未分类题

有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即 0，1，1，2，4，7，13，24，…… 要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下： Private Sub Form_Click() Dim i As Integer，a As Integer，b As Integer Dim C As Integer，d As Integer a=0：b=1：c=1 d=a+b+C i=5 While d<=1000 Print d； a=b：b=C：C=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A．把While d<=1000改为While d>1000B．把i=5改为i=4C．把i=i+1移到While d<=1000的下面D．在i=5的上面增加一个语句：Print a；b；c；

未分类题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码： Sub S(x As Integer，Y As Integer) Static z As Integer y=x*x+z z=y End Sub Private Sub Command1_Click() Dim i As Integer，z As Integer m=0 z=0 For i=1 To 3 S i，z m=m+z Next i Label1．Caption=Str(m) End Sub 程序运行后，单击命令按钮，在标签中显示的内容是A．50B．20C．14D．7

相关试题