vb中如何将一个四则运算的符号赋值给变量

如题所述

不能直接赋值,是通过间接地。将运算符赋值给一个字符串变量,通过条件语句进行转化成相应的四则运算操作。例如
sub form_click()
dim f as string
dim a as integer ,b as integer
a = 3
b = 5
f = InputBox("请输入运算符")
select case f
case "+"
c = a+b
case "-"
c = a-b
case "*"
c = a*b
case "/"
c = a/b
end select
print c
end sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-10-17
就用字符串是什么的随便取个名字(如名字1,名字2,名字3等),然后再用if then 当名字1时,谁乘以谁,当名字2时谁加上谁,就可以了
第2个回答  2011-10-17
可以赋值给字符串变量:
dim a as string,b as integer
a="2+3"
b=2+3
print a; "="; b

vb中如何将一个四则运算的符号赋值给变量
不能直接赋值,是通过间接地。将运算符赋值给一个字符串变量,通过条件语句进行转化成相应的四则运算操作。例如 sub form_click()dim f as string dim a as integer ,b as integer a = 3 b = 5 f = InputBox("请输入运算符")select case f case "+"c = a+b case "-"c = a-...

vb 简单四则运算 怎么把0到9的数赋值的时候
添加一个按钮控件,然后复制粘贴,会提示你是否创建为数组,选择是,然后双击按钮写代码(注,先将你的原来按钮的代码删去),然后开始添加如下代码 注意:index表示数组的,在属性页可修改,以下代码中bBt1(0)表示按钮0,bBtn1(1)表示按钮1,后同 Private Sub bBt1_Click(Index As Integer)If nflag...

怎么用VB做一个四则运算的程序
Dim m As Integer, n As Integer, Operator As String Private Sub Command1_Click()Static Counter As Integer, Right_num As Integer, Error_num As Integer If Val(Text5.Text) = Operation(m, n) Then Right_num = Right_num + 1 List1.AddItem m & Operator & n & "=" & Text5...

关于vb中数据的溢出问题
VB进行加减乘除四则运算时,会根据第一步运算时的位数来决定最终结果的存储位数。这个跟最终赋值的那个变量是什么类型是无关的,因为这是发生在运算过程中(也就是赋值之前)的。所以 16384 * 4 * 0.5 由于16384是Integer,所以VB会先假定运算结果也是Integer,因此它就分配两个字节的内存空间来存储运...

求助:很简单的关于long型VB溢出的问题。。。
是这样的:VB在进行四则运算前,会先根据参与运算的各个数值的类型来预先决定用什么类型的数值来保存运算结果(注意这跟运算结果赋值给什么类型的变量是没有关系的,因为上述过程发生在赋值前),而4000和10都是整型数(Integer),所以VB就自作聪明地按整型运算的方式来处理运算结果,但是实际运算结果...

求大神帮做一个vb四则运算测试的程序,是计算机大作业
Label1下方添加一个Label3 Label3下方添加一个Label4 Label2下方添加两个按钮 Command1标题为 "下一题"Command2标题为 "重来"如图:在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...

VB中文本内公式的计算问题
如果公式是1+2=形式,则:Dim a As Integer Private Sub Command1_Click()a = Val(Left(Text1.Text, 1)) + Val(Right(Text1.Text, 2))Text2.Text = a End Sub如果公式是1+2形式,则:Dim a As Integer Private Sub Command1_Click()a = Val(Left(Text1.Text, 1)) + Val(Right...

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 ...

vb.net 四则运算代码
Text1.Text = "0"s1 = 0 s2 = 0 a = ""flag = False End Sub '5.删除最后输入的一个字符,换句话说,将本文框中的字符串取字符(从左往右取left(string,length)),将最后一个字符不取就先行 Private Sub Command5_Click()If Text1.Text = "" Then Else Command5.Enabled = True T...

如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
下面会复杂一些,我们先跳过等号,而来处理四则运算:先在General里声明新变量:Dim Runsign As Integer '储存运算符号Dim SignFlag As Boolean '判断是否已有运算符号然后在Form_Load中进行初赋值:Runsign = 0SignFlag = False在接下的Command1_Click中继续输入代码:Case 12 To 15FirstNum = True’使下一次可以...

相似回答