Question

求VB大神回答= = 明天就要考试了自学无能啊啊啊！！

题目要求在窗体上用组合框1选择商品套餐种类，组合框2中联动显示其单价，在文本框1中舒服订购数量并单击“确定”按钮，可将本项订单添加到文本框2中，格式按【套餐B 2 23.40 46.8】并按【“套餐B”，2，3.4，46.8】的格式将订购情况一追加方式写入文本文件C:\KS\DATA.TXT中。

主要问题是：
1、combobox2的联动怎么实现？
2、怎么以追加方式写入文本文件C:\KS\DATA.TXT中？要用哪些语句？？

求解答！！！谢谢！！！！

Answer 1

Option Explicit
Dim a$
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "套A"
Combo2.Text = Combo2.List(0)
Case "套B"
Combo2.Text = Combo2.List(1)
Case "套c"
Combo2.Text = Combo2.List(2)
End Select
End Sub
Private Sub Command1_Click()
a = a & Chr(13) & Chr(10) & Combo1.Text & Space(5) & Combo2.Text & Space(10) & Text1.Text
Text2.Text = a
End Sub
Private Sub Form_Load()
Combo1.AddItem "套A"
Combo1.AddItem "套B"
Combo1.AddItem "套c"
Combo2.AddItem "130"
Combo2.AddItem "12.5"
Combo2.AddItem "1万"
Combo1.ListIndex = 0
Combo2.ListIndex = 0
End Sub
存盘：
Dim x As Byte, i%, fname$
fname = app.path & "\123.txt"
If Dir(fname) = "" Then
MsgBox "文件不存在!"
Exit Sub
End If
Open fname For Binary As #1 '以二进制访问模式打开待加密文件
For i = 1 To LOF(1) 'LOF函数是求文件长度的内部函数
Get #1, i, x '取出第i个字节
x = Bintobyte(reverse(bytetobin(x))) '这里调用了三个自定义函数
Put #1, i, x '将加密后的这个字节写回到文件原位置
Next i
Close
End Sub