Question

vb编程问题！如何在textbox中多行显示计算出来的问题？

题目要求在窗体上用组合框1选择商品套餐种类，组合框2中联动显示其单价，在文本框1中舒服订购数量并单击“确定”按钮，可将本项订单添加到文本框2中，格式按【套餐B 2 23.40 46.8】并按【“套餐B”，2，3.4，46.8】的格式将订购情况一追加方式写入文本文件C:\KS\DATA.TXT中。
我编程的东西如下：
Private Sub Combo1_Click()
Dim i As Single
For i = 0 To 3
If Combo1.ListIndex = i Then
Combo2.ListIndex = i
End If
Next i
End Sub

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim i As Single
For i = 1 To 3
a = Val(Text1.Text)
b = a * Val(Combo2.Text)
Text2.Text = Combo1.Text & Space(2) & a & Space(2) & Combo2.Text & Space(2) & b & vbCrLf * i
Next i
End Sub

Private Sub Form_Load()
Combo1.AddItem "taobanA"
Combo1.AddItem "taobanB"
Combo1.AddItem "taobanC"
Combo2.AddItem "12.30"
Combo2.AddItem "23.40"
Combo2.AddItem "34.50"
End Sub

主要纠结在第二段，完全弄不懂啊~~！！自学好累！求大神指导T T
图片是题目的要求，自己编程的第二段无法做到像图1的text2一样，我只能显示一行来着。感觉是要用循环结构来控制，但是无能为力啊Orz

Answer 1

你把text1、text2的multline属性设置成true就可以显示多行文本了。系统默认的是单行显示。

Answer 2

第二段自己编程怎么会不懂呢？不懂什么呢？需要懂什么？
一些变量最好重新定义一下。

追问

我的第二段对于text2的内容编程是有问题的。。。无法像题目中要求的 一样显示出三行的内容来

追答

Text2.Text = Combo1.Text & Space(2) & a & Space(2) & Combo2.Text & Space(2) & b & vbCrLf * i
Text2 =Text2 & Combo1.Text & Space(2) & a & Space(2) & Combo2.Text & Space(2) & b & vbCrLf * i
搞不懂你为什么要循环。觉得应该是点击一次累加一次结果。

追问

原来的语句无法做到累加结果

Dim a As Single
Dim b As Single
a = Val(Text1.Text)
b = a * Val(Combo2.Text)
Text2.Text = Combo1.Text & Space(2) & a & Space(2) & Combo2.Text & Space(2) & b

追答

？？？？？不是给你加了句Text2 & 吗？没看见？

追问

昂。。我理解你的意思了= - =|||之前我加的循环阻碍了你的正确回答= =|会显示过程错误。。。