Question

VB编写一个自动运算的小程序

vb编写一个小程序。combo1内 text为公司名称，list 为四个公司名称A，B，C，D；combo2内 text为运输方式，list为海运，陆运；text1中为运算结果。。运算过程是：其中A=1块钱 B=2块钱 C=3块钱 D=5块钱 海运=10块钱 陆运为100块钱。。选择相应的ABCD公司和海运陆运能在text1中显示出相应的数值。。求源码。。谢谢

Answer 1

combo的style选2,然后输入以下代码:

Dim Money As Integer

Private Sub Combo1_Click()

C

End Sub

Private Sub Combo2_Click()

C

End Sub

Private Sub Form_Load()

With Combo1

.AddItem "A"

.AddItem "B"

.AddItem "C"

.AddItem "D"

.Text = "A"

End With

With Combo2

.AddItem "海运"

.AddItem "陆运"

.Text = "海运"

End With

C

End Sub

Private Sub C()

Select Case Combo1.Text

Case "A"

Money = 1

Case "B"

Money = 2

Case "C"

Money = 3

Case "D"

Money = 5

End Select

If Combo2.Text = "海运" Then

Money = Money + 10

Else

Money = Money + 100

End If

Text1.Text = Money & "块钱"

End Sub

Answer 2

Dim Gs As Single, Ys As Single

Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
Combo1.Text = Combo1.List(0)

Combo2.AddItem "海运"
Combo2.AddItem "陆运"
Combo2.Text = Combo2.List(0)

Gs = 1
Ys = 10
Text1 = Gs * Ys
End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Gs = 1
Case 1
Gs = 2
Case 2
Gs = 3
Case 3
Gs = 5
End Select
Text1 = Gs * Ys

End Sub

Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0
Ys = 10
Case 1
Ys = 100
End Select

Text1 = Gs * Ys

End Sub