【文件属性】:
文件名称:VB6.0 打印九九乘法表.rar
文件大小:2KB
文件格式:RAR
更新时间:2022-07-30 13:25:31
VB源码-其它源码
VB 6.0 打印九九乘法表,主要是使用For循环来生成九九乘法表,实际上是一个数学的范畴,有兴趣的可了解下源码:
Private Sub Command1_Click()
Dim i, j As Integer ' 定义两个整形变量
Picture1.Print " 九九乘法表"
For i = 1 To 9 '变量i做行号
For j = 1 To i '变量j 做列号
Picture1.Print j; "*"; i; "="; j * i; '在图片框上输出相应行号列号和表达式的值
Next j
Picture1.Print '换行
Next i
End Sub
Private Sub Form_Resize()
Picture1.Width = Form1.Width - 100 '图片框与窗体的相对位置不变
Picture1.Height = Form1.Height - 1000
Command1.Left = Form1.Width - Command1.Width - 200 '命令按钮与窗体的相位位置不变
Command1.Top = Form1.Height - Command1.Height - 500
End Sub
【文件预览】:
srcfans.com
----九九乘法表()
--------E110.vbp(684B)
--------MSSCCPRJ.SCC(189B)
--------E110.vbw(50B)
--------Form1.frm(2KB)