运行下列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【 】
??【 】
EMDFOR
?
ENDFOR
RETURN
下面程序是用来打印九九乘法表的,请填空。
Private Sub Form_Click()
Dim flag As Integer,i As Integer,j As Integer,Str1$
Str1=“”
For i=1 To 9
【 】
For j=1 To 9
If【 】 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
子过程Test显示—个如下所示4×4的乘法表。
1*1=1 1*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 To 4
If【 】Then
Debug.Print i& "*" &j&"="& i*j & Space(2),
End If
Next j
Debug.Print
Next i
End sub
( 10 )子过程 Test 显示一个如下所示 9X4 的乘法表。
1*1=1 1*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 To 4
If 【 10 】 Then
Debug.Prrint I & “ * ” & j & “ = ” & i * j & Space ( 2 )
End If
Next j
Debug .Print
Next i
End Sub
以下程序的作用是()
For i = 1 To 9
For j = 1 To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1); se;
Next j
Picture1.Print
Next i
A.打印ASCII码表
B.打印九九乘法表
C.打印加法表
D.以上说法都不正确