单项选择题
在窗体上添加如下命令按纽,然后编写如下事件过程:
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
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
在面向对象的程序设计中,类描述的是具有相似性质的一组 【1】 。
点击查看答案
单项选择题
有如下函数过程: 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
点击查看答案
相关试题
在Select case 结构中,使用“To表达式”...
面向对象的程序设计方法是把 【10】 封...
以下程序用来建立一个10*10矩阵,该矩...
窗体中有图片框(Pieture1)和计时器(Tim...
下面的程序代码实现将一个一维数组中元素向...