试下这个
（你的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
