喷墨打印机打印有条纹:哪位比较熟悉VB编程的啊?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 13:51:01
我在自学编程呢~有时候按照书上,电脑提示做了,程序还是运行不了。所以希望找个在线的老师。我会很乖的,不会经常打扰您,只是想问问题而已。谁愿意的话就加280510132吧~谢谢了!!!

可借助Picture控件和VscrollBar控件达到将所有的数字都显示出来,代码如下:
Option Explicit
Dim n As Integer
Dim a As Integer

Private Sub Form_Load()
For n = Int(Sqr(1000)) + 1 To 100 Step 1
a = n ^ 2
Picture2.Print a
Next n
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1 * 1
End Sub

工程文件上传.
附件:xianshi.rar