我写了一个程序但是不知道怎么才能在text中 一个个的打印出来，要求每一个数 都是一行一行的打印在text中。请求帮助！
Private Sub Command1_Click()
Dim i, j, k, f As Integer
Dim a(7), b(7, 7), c(14, 7) As Integer
a(1) = 1
a(2) = 2
a(3) = 5
a(4) = 10
a(5) = 20
a(6) = 50
f = a(1) + a(2) + a(3) + a(4) + a(5) + a(6)
Picture1.Print f
For i = 1 To 6
Picture1.Print a(i)
Picture1.Print f - a(i)
For j = i + 1 To 6
b(i, j) = a(i) + a(j)
Picture1.Print b(i, j)
Picture1.Print f - b(i, j)
For k = j + 1 To 6
c(i + j, k) = b(i, j) + a(k)
Picture1.Print c(i + j, k)
Next k
Next j
Next i
End Sub

你变量定义的就不对,还有我觉得你这个程序写的就不对,你直接把问题发出来,然后一起探讨吧

好啊！ 这是个称重组合问题
问题描述：设有1克、2克、5克、10克、20克、50克的砝码各一枚，问使用这些砝码在天平上可称出多少种不同的重量？
要求：1）输出可以称出的所有重量数；
2）对每种可以称出的重量数给出如何称出的方法解释。
那个程序能运行出来啊！能打印！
能否设计一个有界面的程序！

你可以用sendkey (string)可以一个一个显示
可用mid(string,x+1,1)来一个一个的获得值