vb中picture的print 方法 关于如何分行的问题

Question

如题所述

Answer 1

在窗体和图片框上显示文本

为了在窗体或图片框上显示文本，应使用 Print 方法，将该窗体或图片框的名称加在它的前面即可。为了把输出文本发送到打印机上，应使用 Printer 对象上的 Print 方法。

使用 Print 方法
Print 方法的语法是：

[object.]Print [outputlist] []

object 参数是可选项；如果被省略，则 Print 方法将应用于当前窗体。

例如，以下语句将把消息打印到：

名为 MyForm 的窗体：
MyForm.Print "This is a form."

名为 picMiniMsg 的图片框：
picMiniMsg.Print "This is a picture box."

当前窗体：
Print "This is the current form."

Printer 对象：
Printer.Print "This text is going to the printer."

outputlist 参数是显示在窗体或图片框上的文本。如果 outputlist 参数有多个项，它们必须用逗号或分号，或逗号和分号同时使用来进行分隔，参见本章稍后“在单行上显示不同的项”一节中的说明。

文本的截断
如果窗体或图片框太小，以至不能显示所有的文本，则文本将被切断。在什么地方截断文本，取决于文本打印开始点的位置坐标。被截断的文本不能通过滚动窗体或图片框来显示。

在指定位置显示 Print 输出

用以下的一种或两种方法，指定绘图坐标，就可以控制 Print 输出的位置：

使用 Cls（清屏）方法来清除窗体和或图片框，同时把绘图坐标恢复到原点（0，0）。

使用 CurrentX 和 CurrentY 属性，设置绘图坐标。
Cls 方法
对象中用 Print 和图形方法创建出的所有文本和图形，都可以用 Cls 方法来删除。同时，Cls 方法还把绘图坐标恢复到原点（0，0），按照缺省规定，原点是左上角。例如，这些语句将清除：

名为 Picture1 的图片框：
Picture1.Cls

当前窗体：
Cls

Answer 2

试下这个
（你的for循环不知是放在哪里的）
-------
调试了下你的程序 发现不少问题
改成这样了 应该没什么Bug了
使用数据时 可用b(60)数组
a(60)只为测试是否符合要求
其中调整处你体会下：

Private Sub Command1_Click()
Dim a(60) As String
Dim b(60) As Double
For i = 1 To 60
ff:

a(i) = InputBox("请录数据！", "", " ")
If a(i) = "" Then Exit Sub
If a(i) = " " Then MsgBox "还没输入！": GoTo ff

If Not IsNumeric(a(i)) Then MsgBox "请录入数字！": GoTo ff
If CDbl(a(i)) > 100 Then a34003 = MsgBox("数据为空或越界，请重新输入", vbOKOnly): GoTo ff

Picture1.Print a(i) + "\";

If i Mod 10 = 0 Then '每行显示十个数后 ，换行
Picture1.Print
End If '

Next i

For i = 1 To 60
b(i) = CDbl(a(i))
Next
End Sub