[c++实现计算器的方法和代码]中缀表达式转后缀表达式,考试大现在就用这个方式再实现计算器..表达式一旦转换成后缀表达式再进行计算就简单的不得了.Examda遇到一个符号就弹出离他最近的两个操作数然后...+阅读
Private Sub Command1_Click() Label1.Caption = ＂+＂ End Sub
Private Sub Command2_Click() Label1.Caption = ＂-＂ End Sub
Private Sub Command3_Click() Label1.Caption = ＂*＂ End Sub
Private Sub Command4_Click() Label1.Caption = ＂/＂ End Sub
Private Sub Command5_Click() Select Case Label1.Caption 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 Form_Load() Text1.Text = ＂＂ Text2.Text = ＂＂ Text3.Text = ＂＂ End Sub
vb简单计算器的代码是什么
需要3个文本框 第一文本框保存第一个数字 第二个文本框保存第二个数字
第三个文本框保存结果
然后四个命令按钮 作用是 加减乘除
所以代码如下
private sub command1_click()
text3.text=val(text1.text)+val(text2.text)
end sub
一次类推
private sub command2_click()
text3.text=val(text1.text)-val(text2.text)
end sub
private sub command3_click()
text3.text=val(text1.text)*val(text2.text)
end sub
private sub command4_click()
注意除数不能为0 所以
if text2.text=o then
msgbox ＂除数不能为0＂
text1.text=＂＂（清除所有内容）
text2.text=＂＂
text3.text=＂＂
else
text3.text=val(text1.text)/val(text2.text)
end if
end sub
这是最简单的 没有比这个简单的
vb计算器源代码
我刚写的一个，可以做加减乘除，用的是按钮的控件数组 通用部分写： Public h As Integer Public a As Single Public k As Integer 下面是0到9和加减乘除号的代码，以按钮控件数组的索引作出选择，判断按下的数字和运算符号 Private Sub Command1_Click(Index As Integer) x = Index Select Case x Case 0 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂0＂ Case 1 If h = 1 Then Text1.Text = ＂＂ h = 0 h = 0 Text1.Text = Text1.Text + ＂1＂ Case 2 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂2＂ Case 3 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂3＂ Case 4 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂4＂ Case 5 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂5＂ Case 6 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂6＂ Case 7 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂7＂ Case 8 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂8＂ Case 9 If h = 1 Then Text1.Text = ＂＂ h = 0 Text1.Text = Text1.Text + ＂9＂ Case 14 j = 1 Case 10 a = Val(Text1.Text) Text1.Text = ＂＂ k = 1 Case 11 a = Val(Text1.Text) Text1.Text = ＂＂ k = 2 Case 12 a = Val(Text1.Text) Text1.Text = ＂＂ k = 3 Case 13 a = Val(Text1.Text) Text1.Text = ＂＂ k = 4 End Select End Sub 下面是等于号按钮的代码 Private Sub Command2_Click() If k = 1 Then Text1.Text = Str(a + Val(Text1.Text)) If k = 2 Then Text1.Text = Str(a - Val(Text1.Text)) If k = 3 Then Text1.Text = Str(a * Val(Text1.Text)) If k = 4 And Val(Text1.Text)0 Then Text1.Text = Str(a / Val(Text1.Text)) If Val(Text1.Text) = 0 Then Text1.Text = ＂除数不可以是零＂ h = 1
VB高手进求一个简单计算器的VB代码
这是刚看VB的时候写的一个简易计算器，可以看看Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判断是否是数字开头Dim PointFlag As Boolean '判断是否已有小数点Dim Runsign As Integer '储存运算符号Dim SignFlag As Boolean '判断是否已有运算符号 Sub ClearData()Num1 = 0Num2 = 0StrNum1 = ＂＂StrNum2 = ＂＂FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = FalseText1.Text = ＂0.＂End Sub Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1equal = Num1 + Num2Case 2equal = Num1 - Num2Case 3equal = Num1 * Num2Case 4equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2Text1.Text = StrNum2End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)FirstNum = FalseElseStrNum1 = StrNum1 + Str(Index)End IfText1.Text = StrNum1Case 10If Not PointFlag ThenIf FirstNum ThenStrNum1 = ＂0.＂FirstNum = FalseElseStrNum1 = StrNum1 + ＂.＂End IfElseExit SubEnd IfPointFlag = TrueText1.Text = StrNum1Case 12 To 15FirstNum = TruePointFlag = False'还原标记值If SignFlag ThenCall RunElseSignFlag = TrueStrNum2 = StrNum1StrNum1 = ＂＂End IfRunsign = Index - 11Case 11If Not SignFlag ThenText1.Text = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd If Case ElseCall ClearData End SelectEnd Sub Private Sub Form_Load()Call ClearDataEnd Sub
以下为关联文档：
vb编程主要是如何判断闰年的代码Private Sub Command1_Click() dim y as integer y = int(val(text1.text)) if y mod 4 = 0 then if y mod 100=0 then if y mod 400=0 then text2.text=text1.text + ＂是闰...
判断是否闰年的vb代码1 2 3 4 5 6 7 8 9 10 11 12 Subs() y = Val(InputBox（＂请输入年份：＂）） Ify Mod4 Then GoTo100 ElseIf(y Mod100) = 0 Then Ify Mod400 ThenGoTo100 EndIf MsgBox y & ＂年是闰年！＂ Ex...
请教html计算器代码作为初学者，必须养成模块化思想和错误处理习惯。简单的代码写在下面。 _________ <html> <head> <title>；简单的计算器代码</title> </head> <body> <h1>；计算器</h1> 输入...
VB输入年份得到星期代码Private Sub Cmd1_Click()Dim c As IntegerDim y As Integer, m As Integer, d As IntegerDim w As Integerc = CInt(Text1.Text) \ 100y = CInt(Text1.Text) Mod 100m = CI...
VB程序代码时钟指针的相关代码求指教Const y0& = 1110, x0& = 1100, radius& = 750 【这一句看不懂】 'Const 是自定义常量的修饰符，Const y0& = 1110 等价于 Const y0 as long = 1110， &是long类型的简易表达 '...
vb中如何通过代码创建控件Option Explicit Private WithEvents NewButton As CommandButton '通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click() If NewButton...
vb如何在代码中实现添加控件新建一个项目 在窗体上添加一个command1， 再添加一个command2， 将command2的index属性改为0. Dim i As Long Private Sub Command1_Click() Load Command2(i) With Command2(i...
excel vb代码根据变量选中指定区域定义变量 a = Worksheets(＂Sheet1＂).Range(＂a65535＂).End(xlUp).Row b = Worksheets(＂Sheet1＂).Range(＂a1＂).End(xlToRight).Column 那么用以下语句，即可选中A2到行为a，列为b的区域 Ra...
急！如何用VB代码创建一个名为用代码创建数据库，表，字段Option ExplicitPrivate db As DatabasePrivate td As TableDefPrivate f As FieldPrivate Sub Command1_Click()Set db = DBEngine.CreateDatabase(...
