单项选择题

在窗体上添加如下命令按纽，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(10)As Integer
Dim 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．35
B．33
C．31
D．29
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序执行后，变量a的值为______。 dim a, b, c, d as single a=100 b=20 c=1000 if b＞a then d=a: a=b: b=d end if if c＞a then d=a: a=c: c: d end if if c＞b then d=b: b=c: c=d end if
A．0
B．1000
C．20
D．100
单项选择题
有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End Sub
A．25
B．35
C．45
D．55
相关试题