填空题

Private Sub Form_Activate( )
For j = 1 to 3
x=3
For i = 1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为 【14】 。

【参考答案】

O
<上一题 目录 下一题>
热门 试题

填空题
下列程序运行后的输出结果是 【9】 。 Private Sub f(k，s) s=1 For j=1 To k s=s*j Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Call f(i，s) Sum=Sum+s Next Print Sum End Sub
填空题
下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)= 【10】 Next max=an(1) For i%=2 to 10 if an(i%)＞max then max=an(i%) End If Next Print max End Sub
相关试题