填空题

下面程序是用来打印九九乘法表的，请补充完整。 　　Dim i As Integer，j As Integer，Strl$ 　　Strl=" " 　　For i=1 To 9 　　Forj=1 To 9 　　　If 【 】 Then 　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) 　　　　Else 　　　Strl=Strl & Chr(13) 　　　 【 】 　　　　End If 　　　　Next j 　　Next i 　　Print Str

【参考答案】

j＜=i
<上一题 目录 下一题>
热门 试题

填空题
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 ……如此循环。单击“结束”按钮，程序运行结束。请填空。Private Sub cmdChange_Click()If Mark=0 Then【 】 Mark=1ElseIf【 】ThenForml．BackColor=vbGreenMark=2ElseIf Mark=2 ThenForm1．BackColor；vbBlue【 】 End IfEnd SubPrivate Sub cmdExit_Click()EndEnd Sub
填空题
如果存在如下过程：Private Function FMax(a( )As Integer)Dim First As Integer，Last As Integer，i As IntegerFirst=LBound(A) Last=UBound(A) Max=a(First)For i=First To LastIf a(i) ＞ Max Then Max=a(i)Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click( )ReDim m(1 To 4) As Integerm(1)=20：m(2)=30：m(3)=50：m(4)=100c=FMax(m)Print cEnd Sub单击命令按钮，其输出结果为【 】。
相关试题