Question

关于VB的问题

空调机基本单价为2500元，购买价格随季节而不同。冬季购买，优惠15%，春、秋季购买，优惠8%，夏季购买不优惠。编写程序，输入季节和空调机数量，计算总价。
要求：
（1）用文本框Text1输入空调机数量，用文本框Text2输出总价。
（2）用单选按钮“控件数组”实现季节的选择，用“框架”组合单选按钮控件数组。

Answer 1

假设option1,option2,option3,option4分别表示春，夏，秋，冬
option1的click事件中编写代码
if option1 then
text2.text=val(text1.text)*2500*0.92
end if
option2的click事件中
if option2 then
text2.text=val(text1.text)*2500
end if
option3的click事件中
if option3 then
text2.text=val(text1.text)*2500*0.92
end if
option4的click事件中
if option4 then
text2.text=val(text1.text)*2500*0.85
end if

Answer 2

'新建一个Option1的控件数组,Option1(0)~Option1(3) 分别命名为春;夏;秋;冬
Dim Iindex As Integer
Private Sub Option1_Click(Index As Integer)
Iindex=Index
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
dim Dazhe
on error goto ErrDo
if keyAscii=13 then '回车键被按下
if option1(Iindex).value=false then msgbox "请选折季节":exit sub
select case Iindex
case 0: Dazhe=0.92 '春天购买
case 1: Dazhe=1 '夏天购买
case 2: Dazhe=0.92 '秋天购买
case 3: Dazhe=0.85 '冬天购买
end select
text2=val(text1)*2500*Dazhe
　exit sub
ErrDO:
msgbox err.Description
end sub