怎么做加减计算机程序vb,用VB做一个计算100内加减乘的运算程序，谁能帮帮忙啊...

'如图,Command1的Caption设为 "计算"

'添加一个ComboBox 什么都不设置

Option Explicit

Private Sub Command1_Click()

'如果一定要100以内,取消下一行的注释

'If Val(Text1.Text) > 100 Or Val(Text2.Text) > 100 Then Exit Sub

Select Case Combo1.ListIndex

Case 0

Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text))

Case 1

Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text))

Case 2

Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text))

Case 3

If Val(Text2.Text) = 0 Then

MsgBox "除数不能为零,Oh No!"

Exit Sub

End If

Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text))

End Select

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Combo1.AddItem "加上" '这里写"+"也行,不要点到顺序

Combo1.AddItem "减去"

Combo1.AddItem "乘以"

Combo1.AddItem "除以"

Combo1.ListIndex = 0

End Sub

'这新手真新