
1个回答
展开全部
'点击窗体出现九九乘法表,如果显示不全,适当调大窗体
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As String
For a = 1 To 9
c = ""
For b = 1 To 9
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print c
Next a
End Sub
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As String
For a = 1 To 9
c = ""
For b = 1 To 9
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print c
Next a
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |