Question

VB.net编写一个小计算器 如下图 感激不尽

Answer 1

Private Sub Command1_Click()

    Select Case Combo1.Text
    Case "+"
        Text3.Text = Val(Text1.Text) + Val(Text2.Text)
    Case "-"
        Text3.Text = Val(Text1.Text) - Val(Text2.Text)
    Case "*"
        Text3.Text = Val(Text1.Text) * Val(Text2.Text)
    Case "/"
        Text3.Text = Val(Text1.Text) / Val(Text2.Text)
    End Select

End Sub

Private Sub Command2_Click()'清空
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Form_Load()
Combo1.Text = Combo1.List(0)
End Sub

追问

下拉框里的值 怎么显示出来

追答

在Combo1 属性List中添加"+ - * /"即可，
我设置的程序中默认显示“+”，若是不想让下拉框显示默认算法，最后三行代码删掉即可。
Private Sub Form_Load()
Combo1.Text = Combo1.List(0)
End Sub