这个乘法口诀程序怎么实现？ - 编程论坛

#2

wds12018-11-22 18:03

直接打印就可以
Private Sub Command1_Click()
  Print "乘法表"
  For i = 1 To 9
    For j = 1 To i
     Print j & "X" & i & "="; i * j;
    Next
    Print
  Next
End Sub

#3

icecool2018-11-23 09:13

以下是引用xiao2009xiao在2018-11-22 16:03:29的发言：

Private Sub Picture1_Click()

Dim se As String
pictrue1.Print Tab(35); "乘法表"
For i = 1 To 9
  For j = 1 To 9
   se = i & "✖" & j & "=" & i * j

   pictrue1.Print Tab((j - 1) * 9); se;
   Next j
pictrue1.Print
Next i
End Sub

在窗体上绘制一个图片控件，双击写完上面的程序后，还要做什么，才能正确运行？

你和程序应该是可以运行的，不能运行是因为你的picture1打错了，有几处打成了pictrue1

二楼正确的乘法口决。
如果你一定得打印在PICTURE1里，下面的试试:

程序代码：

Private Sub picture1_Click()
  Dim txt
  Picture1.Print Tab(35); "乘法表"
  For i = 1 To 9
    For j = 1 To i
     txt = txt & j & "X" & i & "=" & i * j & "  "
    Next
     Picture1.Print txt
     txt = ""
  Next
End Sub

#4

ZHRXJR2018-11-25 08:59

只有本站会员才能查看附件，请登录

程序代码：

Dim I As Integer, J As Integer
For I = 1 To 9
    For J = 1 To 9
        If I * J < 10 Then
        Text1.Text = Text1.Text & I & " × " & J & " = " & I * J & Space(5)
        Else
        Text1.Text = Text1.Text & I & " × " & J & " = " & I * J & Space(3)
        End If
    Next J
    Text1.Text = Text1.Text & vbCrLf
Next I

#5

风吹过b2018-11-25 16:57

程序代码：

Dim se As String
Picture1.Print Tab(35); "乘法表"
For i = 1 To 9
  For j = 1 To i
   se = i & "X" & j & "=" & i * j
   Picture1.Print Tab((j - 1) * 9); se;
   Next j
Picture1.Print
Next i

只有本站会员才能查看附件，请登录

改正了控件名，有可能是写错了，也有可能是自己重命过了名了。
修改了代码里的一个字符， 9 改成 8 。
当然，复制过去，你的乘号变成？号了，改成字母 X 了。

你代码里，
se = i & "X" & j & "=" & i * j
建议 i 和 j 建议交换一个位置

[此贴子已经被作者于2018-11-25 16:58编辑过]