Question

vb的计算结果如何输出？

在text里输入值，按command循环计算，循环计算所得的结果用print h
输出得到一列数值，每次循环的结果都有。但为什么用label1.caption=h得到的在label里显示的不是一列数呢？而是一个数，最后一个，前面循环计算的结果都没有显示？需要先把循环所得的结果存入数组吗？能把print出来的结果直接显示在label里吗？或者把print出来的结果弄到excel里？

Private Sub Command2_Click()
Dim i As Integer
Dim newxls As New Excel.Application
Dim newbook As New Excel.Workbook
Dim newsheet As New Excel.Worksheet
Set newbook = newxls.Workbooks.Add
Set newsheet = newbook.Worksheets(1)

newsheet.Cells.Columns(7).ColumnWidth = 20
newsheet.Cells(1, 1) = "h"
newsheet.Cells(1, 2) = "ch"
newsheet.Cells(1, 3) = "c"
newsheet.Cells(1, 4) = "m"
newsheet.Cells(1, 5) = "l"
newsheet.Cells(1, 6) = "v"
newsheet.Cells(1, 7) = "q"

For i = 2 To y + 1
newsheet.Cells(i, 1) = h
newsheet.Cells(i, 2) = ch
newsheet.Cells(i, 3) = c
newsheet.Cells(i, 4) = m
newsheet.Cells(i, 5) = l
newsheet.Cells(i, 6) = v
newsheet.Cells(i, 7) = q
Next i

End Sub
这是我把结果输出到excel里的代码，但是结果却是一样的，就是每列的值都是一个，应该是每列都是递增的才对。怎么回事呢？大侠们能否帮我？还有怎么样得到积分呢？我想给大家积分，可是没有了。

Answer 1

label1.caption = label1.caption & h & vbcrlf

Answer 2

使用Print语句可以输出
语法格式：[对象名.]Print[表达式列表]
功能：在指定的对象上输出文本。对象可以是窗体、图片框等。

Answer 3

label.caption = 这里写你的结果变量

不是用print