Question

vb6.0练习题

Dim i As Integer, j As Integer, str1$
str1 = " "
For i = 1 To 9
For j = 1 To 9
if( ) then
str1 = str1 + Str$(j) + "x" + Str$(i) + "=" + Str$(Val(ixj))
Else
str1 = str1 & Chr(13)
( )
End If
Next
Next
Print str1
下面程序师用来打印九九乘法表的，请填空？ 要有详细说明啊

Answer 1

第一空：（i>=j） 作用：限制乘数的大小避免重复，形成阶梯形势。

第二空： （Exit For） 作用：跳出j循环，确保每次换行只有一个回车。

Answer 2

Dim i As Integer, j As Integer, str1$
str1 = ""
For i = 1 To 9
For j = 1 To 9
If j <= i Then
str1 = str1 + " " + Str$(j) + "x" + Str$(i) + "=" + Str$(Val(i * j))
Else
str1 = str1 & Chr(13)
Exit For
End If
Next
Next
MsgBox str1