更多"我想重新回到生活简简单单的时代。那时你所知道的只有色彩、乘法表和童谣("的相关试题:
[填空题]下面程序是用来打印九九乘法表的,请填空。
Private Sub Form_Click( )
Dim flag As Integer,i As Integer,j As Integer,Str1$
Str1=“”
For i=1 To 9
【11】
For j=1 To 9
If 【12】 Then
str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))
Else
str1=str1 & Chf(13)
Exit For
End If
Next j
Next i
Print str1
End Sub
[填空题]下面程序是用来打印九九乘法表的,请填空。
Dim i As Integer,j As Integer,Str1 $
Str1=""
For i=1 To 9
For j=1 To 9
If (12) Then
Str1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(i*j))
Else
Str1=Str1&Chr(13)
(13)
End If
Next
Next
Print Str1
[填空题]下面程序是用来打印九九乘法表的,请补充完整。
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
[填空题]运行XY.PRG程序后,将在屏幕显示如下乘法表:
1) 1
2) 2 4
3) 3 6 9
4) 4 8 12 16
5) 5 10 15 20 25
6) 6 12 18 24 30 36
7) 7 14 21 28 35 42 49
8) 8 16 24 32 40 48 56 64
9) 9 18 27 36 45 54 63 72 81
请对下面的程序填空:
***计算乘法表XY.PRG***
SET TALK OFF
CLEAR
FOR J=1 TO 9
STR(J,2)+’)’
FOR K= (10)
(11)
ENDFOR
ENDFOR
RETURN
[填空题]运行下列XY.PRG程序后,将在屏幕上显示如下的乘法表:
1
2 4
3 6 9
4 8 12 16
5 10 15 20 25
6 12 18 24 30 36
7 14 21 28 35 42 49
8 16 24 32 40 48 56 64
9 18 27 36 45 54 63 72 81
请对下面的程序填空:
***计算乘法XY.PRG***
SET TALK OFF
CLEAR
FOR J=1 TO 9
FOR [12]
[13]
EMDFOR
ENDFOR
RETURN
[填空题]运行XY.PRG程序后,将在屏幕显示如下乘法表:
1) 1
2) 2 4
3) 3 6 9
4) 4 8 12 16
5) 5 10 15 20 25
6) 6 12 18 24 30 36
7) 7 14 21 28 35 42 49
8) 8 16 24 32 40 48 56 64
9) 9 18 27 36 45 54 63 72 81
请对下面的程序填空:
***计算乘法表XY.PRG***
SET TALK OFF
CLEAR
FOR J=1 To 9
STR(J,2) +’) ’
FOR K= [10]
[11]
ENDFOR
ENDFOR
RETURN
[填空题]运行XY.PRG程序后,将在屏幕上显示如下乘法表:
1)1
2)2 4
3)3 6 9
4)4 8 12 16
5)5 10 15 20 25
6)6 12 18 24 30 36
7)7 14 21 28 35 42 49
8)8 16 24 32 40 48 56 64
9)9 18 27 36 45 54 63 72 81
请对下面的程序填空:
***计算乘法XY.PRG***
SET TALK OFF
CLEAR
FORJ=1 TO9
STR(J,2+’)’
FOR______
______
ENDFOR
ENDFOR
RETURN
[填空题]子过程Test显示如下所示的4×4乘法表。
1 * 1=1 2 * 2=2 1 * 3=3 1 * 4=4
2 * 2=4 2 * 3=6 2 * 4=8
3 * 3=9 3 * 4=12
4 * 4=16
请在空白处填入适当的语句使子过程完成指定的功能。
Sub Text( )
Dim i,j As Integer
For i=1 To 4
For j=1 T0 4
If (10) T11en
Debug.Print i &”" * "& j &"="i * j & Space(2)
End If
Next If
Debug.Print
Next i
End Sub