题目内容
（请给出正确答案）
[主观题]
Private Sub Form_Activate（) For j = 1 to 3 x=3 For i
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 程序运行后，窗体上显示的结果为【 】。
如搜索结果不匹配，请 联系老师 获取答案
更多“Private Sub Form_Activate（) Fo…”相关的问题
第1题
下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer, j As Integer, Strl $ Strl =" " For i = 1 To 9 For j = 1 To 9 If【 】Then Strl =Strl +Str$ (j) +" x" +Str$ (i) +" =" +Str$ (Val(i*j)) Else Strl = Strl & Chr( 13 ) 【 】 End If Next Next Print Strl
请帮忙给出正确答案和分析，谢谢！
第2题
下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)=【 】 Next max=an(1) For i%=2 to 10 if an(i%)＞max then max=an(i%) End If Next Print max End Sub
请帮忙给出正确答案和分析，谢谢！
第4题
下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array (678,45,324,528,439,387,87,875,273,823) For i =【 】 Forj =0 To 9 Ifa (i)＜a(j) Then Tmp = a(i): a(i) = a(j) i a(j) = Tmp End If Next j,i For i = 0 To 9 Print a(i) Next End Sub
请帮忙给出正确答案和分析，谢谢！
热门考试
全部 >
