vb 四则运算代码
跪求一个有关Vb的问题
要求text1.text输入四则运算公式 有+，-，*,/，（，）。
输出结果为 text2.text
用一个command1单击命令链接
如1+1+4*(1*(3*(2+1+1)+1+1)+29*(1*(3+1))
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本回答被提问者采纳
就把op的值提出来放个变量里
然后做select
case根据选择把text值提出来做下运算就ok啊
vb.net 四则运算代码
Dim flag As Boolean 'flag它是过程及的变量，在通用里必须声明 '在数字按钮控件单击数组单击事件中获取操作数（没有区分是哪一个操作数）Private Sub Command1_Click(Index As Integer)x = Text1.Text If flag = True Or x = "0" Then '查看数字是否输入完毕或者是否清零了 Text1.Text ...
如何用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 简单四则运算 怎么把0到9的数赋值的时候
添加一个按钮控件，然后复制粘贴，会提示你是否创建为数组，选择是，然后双击按钮写代码（注，先将你的原来按钮的代码删去），然后开始添加如下代码 注意：index表示数组的，在属性页可修改，以下代码中bBt1(0)表示按钮0，bBtn1(1)表示按钮1，后同 Private Sub bBt1_Click(Index As Integer)If nflag...
VB分数加减乘除代码
1、6个textbox，分别是text1直到text6 2、3根line，分别是line1到line3 3、4个optionbutton，分别是option1到option4 4、2个command，分别是command1和command2 代码如下：Option Explicit Const 标题 = "分数四则运算"Dim a As Long, b As Long, c As Long, d As Long Dim 分母 As Long,...
求大神帮做一个vb四则运算测试的程序,是计算机大作业
在Form1中添加代码：'Private Type OPER i As Integer k As Integer a As Integer b As Integer p As String c As SingleEnd Type Dim OP() As OPER, n As Integer, r As Integer Private Sub Command1_Click()Text1.Text = ""If n < 9 Thenn = n + 1Label3....
VB设计“加减乘除计算器”谢谢大家,计算器最好是带负数和小数的...
第四章 按钮（二）下面会复杂一些，我们先跳过等号，而来处理四则运算：先在General里声明新变量：Dim Runsign As Integer '储存运算符号 Dim SignFlag As Boolean '判断是否已有运算符号 然后在Form_Load中进行初赋值：Runsign = 0 SignFlag = False 在接下的Command1_Click中继续输入代码：Case 12...
如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
下面会复杂一些,我们先跳过等号,而来处理四则运算:先在General里声明新变量:Dim Runsign As Integer '储存运算符号Dim SignFlag As Boolean '判断是否已有运算符号然后在Form_Load中进行初赋值:Runsign = 0SignFlag = False在接下的Command1_Click中继续输入代码:Case 12 To 15FirstNum = True’使下一次可以...
急急急,求大神用vb教做一个简易计算器,加减乘除就可以。能用加分_百...
'四则运算 Private Sub cmdArithmetic_Click(Index As Integer)Select Case Index Case 0 '输入加法 cmdEqual_Click strCalculateType = "+"dblNum1 = Val(lblScreen)Case 1 '输入减法 cmdEqual_Click strCalculateType = "-"dblNum1 = Val(lblScreen)Case 2 '输入乘法 cmdEqual_Click str...
谁能帮我翻译下这段VB程序代码,就是讲下这段语句怎么编写的每句都什么...
（3设置的乘法） prev = prev * Val(Text1.Text) prev乘以text1.text End If Text1.Text = Str(prev) '把上述四则运算的结果转成字符串放到text1里 oflag = 0 End If opnre = 1 ind = index dflag = 0 End Sub
vb初学者求指导,拜托啦,我好困啊,已经做了几个小时啦!真的麻烦啦_百度...
Me.Caption = "四则运算练习"Me.Show Call ChuTi Text1.SetFocus End Sub Private Sub ChuTi()Randomize f = Int((4 - 1 + 1) * Rnd + 1)Randomize a = Int((10 - 1 + 1) * Rnd + 1)Randomize b = Int((10 - 1 + 1) * Rnd + 1)Select Case f Case 1 Label1.Caption...
