| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2294 人关注过本帖
标题:这个乘法口诀程序怎么实现?
只看楼主 加入收藏
xiao2009xiao
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2017-10-25
结帖率:40%
收藏
 问题点数:0 回复次数:4 
这个乘法口诀程序怎么实现?
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

在窗体上绘制一个图片控件,双击写完上面的程序后,还要做什么,才能正确运行?
搜索更多相关主题的帖子: 乘法 Print Tab For Next 
2018-11-22 16:03
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:0 
直接打印就可以
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
2018-11-22 18:03
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 
以下是引用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

http://toorup.3v.do
loading...
2018-11-23 09:13
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
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

请不要选我!!!
2018-11-25 08:59
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
程序代码:
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编辑过]


授人于鱼,不如授人于渔
早已停用QQ了
2018-11-25 16:57
快速回复:这个乘法口诀程序怎么实现?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038328 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved