单项选择题

在窗体上添加如下命令按纽，然后编写如下事件过程：
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
<上一题 目录 下一题>
热门 试题

单项选择题
有如下函数过程: 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
单项选择题
下列程序执行后，变量x的值为______。 Dim a, b, c, d As Single Dim x As Single a=100 b=20 c=1000 If b＞a Then d=a: a=b: b=d End If If b＞c Then x=b Elseif a＞c then x=c Else x=a End If
A．100
B．20
C．1000
D．0
相关试题