加一个按钮后试试这一段,看没有用
Private Sub Command1_Click()
Dim A As Long
Picture1.AutoRedraw = True
Picture1.Cls
Picture1.ForeColor = RGB(255, 0, 0)
Picture1.FontName = "宋体"
Picture1.FontSize = "48"
Randomize
A = Int(10 * Rnd)
Picture1.Print Tab(5); Str(A);
Randomize
A = Int(10 * Rnd)
Picture1.Print Tab(7); Str(A);
Randomize
A = Int(10 * Rnd)
Picture1.Print Tab(9); Str(A);
Randomize
A = Int(10 * Rnd)
Picture1.Print Tab(11); Str(A);
End Sub
picturebox1.print "1234556"
楼上说的对，picturebox1.print
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024