填空题

在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是【15】
Private Sub Command1_Click()
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

【参考答案】

33

<上一题目录下一题>

热门试题

填空题

执行下面的程序，当输入3时，输出的结果是【11】 Private sub Command1_Click() i=2 j= InputBox( j = ) On j GoTo 20,30,40,50 i=i+2 20:i=i+2 30:i=i+2 40:i=i+2 50:i=i+2 Print i End Sub

填空题

在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Do t2 = Timer If t2 ＜ t1 Then t2 = t2 + 86400 If t2 - tl ＞ n Then Exit Do 【12】 Loop End Sub Sub main( ) Form2. Show dlys 【13】【14】 Form1. Show End Sub

相关试题