Question

做一个简单的vb计算器，两个输入数字的分别为text1.text2运算符号为label1

做一个简单的vb计算器，两个输入数字的分别为text1.text2运算符号为label1等号为label2，输出lable3 +-×÷分别是command1 2 3 4 退出command5

Answer 1

Private Sub Command1_Click()
    Label1.Caption = "+"
    Label3.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
    Label1.Caption = "-"漏肆
    Label3.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
    Label1.Caption = "×"
    Label3.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
    Label1.Caption = "÷"返颂轿
    Label3.Caption = Val(Text1.Text) 樱坦/ Val(Text2.Text)
End Sub

Private Sub Command5_Click()
    End
End Sub

追问

通过do while 语句编写程序求值。由公式x＝（x+2）(x+3),x初值为0，当x大于50时结束程序，输入最终x值，怎么做

需要知道怎么做图

追答

Dim x As Integer
    x = 0
    Do
        x = (x + 2) * (x + 3)
    Loop Until (x + 2) * (x + 3) > 50
    Print x

追问

用什么做呀

就是怎么做图形

追答

你可以使用text做显示x的结果