VB6.0乘法口诀求修改（附源码）

火焙鱼

如题，[求助]VB6.0乘法口诀求修改（附源码）


最近百度到一本pdf电子书《Visual Basic 6.0程序设计与应用教程》
在自己的32位win2003虚拟机里面装了Visual Basic 6.0的盗版；

书里有1个乘法口诀应用，源码如下

Private Sub Command1_Click()
   Dim Row As Integer '保存乘法口诀的行数
   Dim Col As Integer '保存乘法口诀的列数
   For Row = 1 To 9
      For Col = 1 To Row
         'Format函数格将Row*Col的结果格式化为3位，不够3位后边补空格
         Print Col; "#"; Row; "="; Format(Row * Col, "!@@@");
      Next Col
      Print
   Next Row
End Sub


我只是修改了输出的乘号为#，个人更喜欢#当乘号；
VB6.0源码.rar (1.21 KB, 下载次数: 6)

昨天 19:04 上传

点击文件名下载附件

乘法口诀.rar (2.57 KB, 下载次数: 6)

昨天 19:05 上传

点击文件名下载附件

目前这个应用最小化再恢复，所有的乘法表就消失了；
家里笔电装了360壁纸，壁纸自动更换后，乘法表也消失了；

感觉有点脆弱，想消除以上2个问题；
还有就是，目前每点一次按钮，就生成一遍乘法表；
想改成只生成一遍乘法表，如果不行，就关掉重新点按钮；

欢迎大家拍砖，先谢谢了。

ZMLoveLH

菜鸟不懂，帮顶坐看大牛的回复啊

忧心的启

没能力解答，期待高手教学。

gah99sw

WIN7  64位，我玩的是VS2010 C++ 、C#（VS2010 也有补丁。）, JAVA,Python,Delphi  2008,SQL SERVER,MySQL ,PHP  ,Ruby安装不上。
VB是读大学的时候，学的Quick  Basic。应当是可以生成一个EXE文件。在那个窗体上，点一下按钮，就执行一次。
输出到屏幕上。32位的。也可以跟系统一样生成64位的。我就是没有安装VB。VC6.0我也安装过，有点小错误（补丁）。
VFP6.0也学过许多（关系型数据库db  database）。因为它还是做不出软件来。
Wampserver2.4法国人搭的一个架子，高版本的WIN7受不了。
    我的目标很明确 连接SQL Server2008R2,连接mysql8.0.27。为了成功还改成mysql 5.6.12 32位的。查询mysql中的库，PHP可以将结果显示在网页上。
VS2010中的2个（C++  、C#），加Python,加eclipse的JAVA,加Delphi 2008(2010)，都成功连接上了。不过我还想用JAVA Script编写出数据库软件来。
医院发药和超市卖货，那就可以挣钱了。  python和java都能实现你的那个。它只临时显示在窗口中的屏幕上。
叫面向对象的桌面编程，所见即所得。没有.NET框架（赶时髦），DELPHI被淘汰。
   网上搜索代码，直接往里面填。新建一个项目，再建一个包，再建一个类.java。编译调试运行。输出字符串“！@@@”只是为了分隔，代空格功能。
Form 窗体Frm 需要关闭自己close，重新调用下一个窗体（初始化），你是想清屏。cls。
  百度搜索： VB6.0 窗体按钮 能清除显示的结果吗?‌
1.结果显示在文本框（TextBox）‌：把它的 Text 属性设为空字符串就行，比如 Text1.Text = ""。
‌2.结果显示在标签（Label）‌：清空 Caption 属性，比如 Label1.Caption = ""。
3.结果是用 Print 直接画在窗体上的‌：调用窗体的 Cls 方法，比如 Form1.Cls。
‌4.结果在列表框或组合框‌：调用 Clear 方法，比如 List1.Clear

qihua

666

yzydys

加2行就解决了。
Private Sub Command1_Click()
    Me.Cls
    Me.AutoRedraw = True
    Dim Row As Integer '保存乘法口诀的行数
    Dim Col As Integer '保存乘法口诀的列数
    For Row = 1 To 9
        For Col = 1 To Row
            'Format函数格将Row*Col的结果格式化为3位，不够3位后边补空格
            Print Col; "#"; Row; "="; Format(Row * Col, "!@@@");
        Next Col
        Print
    Next Row
End Sub

it323

同样期待高手解决。