主要程序: Dim i, j As Int16 i = 1 Dim s As String For i = 1 To 9 For j = 1 To i s &= j.ToString & "x" & i.ToString & "=" & i * j & " " Next s &= vbCrLf Next 然后把s变量写入到文件c99.txt就是了。如果你用vb6,那么.toString就不要写了。本回答被提问者采纳
第2个回答 2013-06-24
Private Sub Form_Load() Open "C:\Users\Asus\Desktop\C99.txt" For Output As #1 For i = 1 To 9 For j = 1 To 9 Print #1, j & "*"; i & "=" & i * j, Next Print #1, Next Close #1 End Sub