填空题
在窗体画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_CIick()
Dim a(1 To 10)
Dim p(1 To 3)
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
程序运行后,单击命令按钮,输出结果是
【8】
。
【参考答案】
33
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在 【9】 、 【10】 、 【11】 处将程序补充完整。 Option Base 1 Private Sub Command1_Click () Dim a a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823) For i= 【9】 For j= 【10】 If a(i) 【11】 a(j) Then a1=a(i) a(i)=a(j) a (j) =a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub
点击查看答案
填空题
以下程序段的输出结果是 【7】 。 num=0 While hum<=2 num=num+1 Print num Wend
点击查看答案
相关试题
如果要将某个菜单项设计为分隔线,则该菜单...
在窗体画一个命令按钮,然后编写如下过程:...
假定建立了一个工程,该工程包括两个窗体,...