Question

还想麻烦你，你说在Combobox控件的Click事件中写入代码，实现选择一个配件，你能不能写个样板代码给我？

还有就是怎样求和的代码，我也不懂，能不能也写一个？谢谢

Answer 1

简单举个例子。在窗体中放一个combombox控件，一个text1文本框。combombox中的list属性中，输入几个配件名称。
然后开始了，代码如下：
Dim peijian(4) //定义配件价格数组

Private Sub Combo1_Click()
Text1.Text = peijian(Combo1.ListIndex) //当选择一个配件后，text1文本框的内容显示对应peijian数组的值。
End Sub

Private Sub Form_Load()
peijian(0) = 90
peijian(1) = 100
peijian(2) = 110
peijian(3) = 120 //初始化各个配件对应的价格
Combo1.ListIndex = 0 //程序执行后，默认配件选择为第一个
End Sub

不知道以上代码，你看懂了没有？

追问

呵呵，看明白了，效果也出来了，还想麻烦你指导一下，怎么实现几个combombox的数值求和？

追答

数值求和，直接把那些个文本框里的价格求和即可。

另外还有一种办法，可以不用文本框。就是比较麻烦，直接在combombox中显示价格。这样即可实现combo求和。

比如某个combo中的列表项为
CPU1 90
CPU2 100
…………
在combo的click事件中，这样写：
temp=combo1.text //如果选择第1个，那么temp的值就是“CPU1 90”
jiage(0)=val(right(temp,3)) //right函数取temp右三个字符串，并转换成数值，jiage(0)的结果就是90。

然后其他配件的combo也这样写，价格分别为jiage(1)、jiage(2)、……等等

最后把jiage数组中的所有数求和

追问

如果按照你说的一个方法，我现在用了一个CommandButton和一个text文本框，怎么写代码就可以求和，因为不懂所以还得求教！就差这一步了，谢谢！

追答

text文本框应该是一个配件，对应一个文本框
如果7个配件就是7个文本框

然后把这7个文本框中的数值求和
文本框也可以用数组。
sum=val（text1.text）+val（text2.text）+………………

追问

我的意思是说，当我点击那个CommandButton之后，另一个text文本框会显示求和之后的总价格。这段代码怎么写？补充说明：前面我用来3个combombox控件和3个text文本框来实现选择12种配件和显示每个配件的单价。