在Form的Load中打
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "×"
Combo1.AddItem "÷"
Command1.Caption = "计算"
在Command1的Click中打
a = Val(Text1.Text)
b = Val(Text2.Text)
Select Case Combo1.Text
Case "+"
c = a + b
Case "-"
c = a - b
Case "×"
c = a * b
Case "÷"
c = a / b
End Select
MsgBox c
希望能帮到你～有什其他要求或问题可以追问我。
做一个输出到哪。
运算就可以了。
如果有需要我有偿给你编一个，一则一块钱，四则四块。
有需要的话，给我留言。
在vb怎样实现四个数四则任意运算
2个 文本框 text1 输入 4则运算 方程式 text2 显示结果 部件里 添加一个 Microsoft Script Control 1.0 并画在 窗体上 代码如下 Dim x As Single, y As Single Private Sub Command1_Click()ScriptControl1.Language = "VBScript"ScriptControl1.ExecuteStatement "x = " & x y = ScriptContro...
如何用VB做两位数四则运算器?
很简单的：窗口放入四个command控件（caption属性分别为+、－、x、÷），三个text控件，再放入三个label控件（caption属性分别为：操作数1、操作数2和计算结果），窗口的caption属性改为“四则运算”代码如下：private sub command1_click()if val(text1.text)+ val(text2.text)<> int(val(text1....
vb选择结构,四则运算
vb写的四则运算如下：Private Sub Command1_Click()On Error GoTo err Dim s As Object Dim Bds As String '表达式 Set s = CreateObject("MSScriptControl.ScriptControl")s.Language = "VBScript"Bds = Text1 Text2 = s.Eval(Bds)Exit Sub err:Text2 = err.Description End Sub ...
可以用vbs制作四则运算计算器吗
VBS计算器，代码如下：dim x,y,dDo Until d = vbnox=inputbox("输入算式","算式计算器",y)y=eval(x)d=msgbox (x & "=" & y & chr(10) & "继续吗？" ,vbYesNo, "算式计算器")loop满意请采纳，谢谢
求大神帮做一个vb四则运算测试的程序,是计算机大作业
Form1最上方添加一个Label1 然后在下方添加一个Label2,标题为："请输入结果："后面添加一个Text1(TextBox)Label1下方添加一个Label3 Label3下方添加一个Label4 Label2下方添加两个按钮 Command1标题为 "下一题"Command2标题为 "重来"如图：在Form1中添加代码：'Private Type OPER i As Integer ...
用VB制作任意多个多位数的四则运算,求高手
Dim X As Single, Y As Single, FH As String Private Sub Command1_Click(Index As Integer)Dim K As Integer K = Command1(Index).Index If K <> 10 Then If Right(Text1.Text, 1) = "." Then Text1.Text = Text1.Text & K ElseIf Int(Val(Text1.Text)) = Val(Text1.Text...
如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
下面会复杂一些,我们先跳过等号,而来处理四则运算:先在General里声明新变量:Dim Runsign As Integer '储存运算符号Dim SignFlag As Boolean '判断是否已有运算符号然后在Form_Load中进行初赋值:Runsign = 0SignFlag = False在接下的Command1_Click中继续输入代码:Case 12 To 15FirstNum = True’使下一次可以...
vb.net 四则运算代码
Text1.Text = Text1.Text + CStr(Index) '"+"在这里这个是对字符串的操作的叠加，CStr(Index)是接的数据 End If flag = False '时刻准备数字的输入 End Sub '2.单击运算符，确定s1，并且要选定运算 Private Sub Command2_Click(Index As Integer)flag = True s1 = Val(Text1.Text)Select ...
小学生VB四折运算,急需,谢谢,可加赏
Dim z As Double Private Sub Command2_Click()Text2 = Val(Text2) + 1 If Val(Text1) = z Then List1.AddItem Label1.Caption & Text1 & Space(4) & "√"Text3 = Val(Text3) + 1 Else List1.AddItem Label1.Caption & Text1 & Space(4) & "×"Text4 = Val(Text4) + 1...
用vb编写一个测试算术的小程序
'***加减乘除四则运算 Dim a As Integer, b As Integer, OP As String, m As String OP = "＋－×÷"Randomize a = Int(Rnd * 101)b = Int(Rnd * 101)For i = 1 To 1 m = Mid(OP, Int(Rnd * 2) + 1, 1) '在调试时，这里的4改成3，2，1等表示去掉对应的运算符 If ...
