本文目录
- VB编写一个能够完成加、减、乘、除和进制转换(10、2、8、16)的简易计算器
- 用vb设计一个计算器,里面的加减乘除按键的代码怎么写
- 如何用VB进行加减乘除运算
- VB做加减乘除的代码是什么
- 急急急,求大神用vb教做一个简易计算器,加减乘除就可以能用加分
- 用VB编写计算器的代码如何写
VB编写一个能够完成加、减、乘、除和进制转换(10、2、8、16)的简易计算器
Private Sub Command1_Click()Label1 = "+"Text3 = Val(Text1) + Val(Text2)End SubPrivate Sub Command2_Click()Label1 = "-"Text3 = Val(Text1) - Val(Text2)End SubPrivate Sub Command3_Click()Label1 = "×"Text3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command4_Click()Label1 = "÷"If Val(Text2) 《 0 Then MsgBox "除数不能为0!", 16 Exit SubEnd IfText3 = Val(Text1) / Val(Text2)End SubPrivate Sub Command5_Click()n = Val(Text1.Text)Do While n 《》 0k = n Mod 2n = n \ 2nk = CStr(k) & nkLoopText3 = nkEnd SubPrivate Sub Command6_Click()Text2 = ""Label1 = 10Label2 = 8Text3 = Oct(Val(Text1))End SubPrivate Sub Command7_Click()Text2 = ""Label1 = 10Label2 = 16Text3 = Hex(Val(Text1))End SubPrivate Sub Form_Load()Command1.Caption = "求和"Command2.Caption = "求差"Command3.Caption = "求积"Command4.Caption = "求商"Command5.Caption = "十转二"Command6.Caption = "十转八"Command7.Caption = "十转十六"End Sub’想用函数可用下面代码’添加一个OptionButton数组Opt(1)-Opt(7)和一个按钮,三个文本框,二个标签Private Function C1()Label1 = "+"Text3 = Val(Text1) + Val(Text2)End FunctionPrivate Function C2()Label1 = "-"Text3 = Val(Text1) - Val(Text2)End FunctionPrivate Function C3()Label1 = "×"Text3 = Val(Text1) * Val(Text2)End FunctionPrivate Function C4()Label1 = "÷"If Val(Text2) 《 0 Then MsgBox "除数不能为0!", 16 Exit FunctionEnd IfText3 = Val(Text1) / Val(Text2)End FunctionPrivate Function C5()n = Val(Text1.Text)Do While n 《》 0k = n Mod 2n = n \ 2nk = CStr(k) & nkLoopText3 = nkEnd FunctionPrivate Function C6()Text2 = ""Label1 = 10Label2 = 8Text3 = Oct(Val(Text1))End FunctionPrivate Function C7()Text2 = ""Label1 = 10Label2 = 16Text3 = Hex(Val(Text1))End FunctionPrivate Sub Command1_Click() If Opt(1).Value = True Then x = C1() ElseIf Opt(2).Value = True Then x = C2() ElseIf Opt(3).Value = True Then x = C3() ElseIf Opt(4).Value = True Then x = C4() ElseIf Opt(5).Value = True Then x = C5() ElseIf Opt(6).Value = True Then x = C6() ElseIf Opt(7).Value = True Then x = C7() End IfEnd SubPrivate Sub Form_Load()Opt(1).Caption = "求和"Opt(2).Caption = "求差"Opt(3).Caption = "求积"Opt(4).Caption = "求商"Opt(5).Caption = "十转二"Opt(6).Caption = "十转八"Opt(7).Caption = "十转十六"End Sub
用vb设计一个计算器,里面的加减乘除按键的代码怎么写
简单点的:dim 上一个数 as doubledim 下一个数 as doubledim 结果 as doubledim 操作 as stringprivate sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click 上一个数 = cdbl(输入框.text) ’ 存储当前输入的数值 输入框.text = "" ’ 等待下一个数值 select case sender.text ’ 根据按下的按钮的文本属性确定你要做什么,这里可以用加减乘除号代替 case "加" 操作 = "加" case "减" 操作 = "减" case "乘" 操作 = "乘" case "除" 操作 = "除" end selectend subprivate sub 计算(byval sender as object, byval e as eventargs) handles 等号.click 下一个数 = 输入框.text 输入框.text = ”“ select case 操作 case "加" 结果 = 上一个数 + 下一个数 case "减" 结果 = 上一个数 - 下一个数 case "乘" 结果 = 上一个数 * 下一个数 case "除" 结果 = 上一个数 / 下一个数 end select 输入框.text = cstr(结果) 上一个数 = 结果end sub.NET 的哈,我没有 .NET 现在,不知道行不行
如何用VB进行加减乘除运算
1、在电脑桌面打开软件“Visual Basic”,新建一个文件
2、放置3个“Text”部件和4个“Command”部件,调整好位置;
3、对这7个小部件进行修饰,更改command部件的名称为“+、-、*、/”方便识别,清除“Test”部件里的内容;
4、双击“Command”部件进入页面,输入图中所示的命令;
5、命令输完以后,关闭页面,运转程序,在前两个方框上输出数字,只要点击下方的“+、-、*、/、”四个部件,第三个方框就会表现成果,实现加减乘数运算。
VB做加减乘除的代码是什么
代码如下 \x0d\x0a’已增加操作数正确性验证及 除数不能为0验证 \x0d\x0a\x0d\x0aPrivate Sub Command1_Click() \x0d\x0aIf IsNumeric(Text1.Text) And Text1.Text 《》 "" And IsNumeric(Text2.Text) And Text2.Text 《》 "" Then \x0d\x0aSelect Case Combo1.ListIndex \x0d\x0aCase 0 \x0d\x0aText3.Text = Val(Text1.Text) + Val(Text2.Text) \x0d\x0aCase 1 \x0d\x0aText3.Text = Val(Text1.Text) - Val(Text2.Text) \x0d\x0aCase 2 \x0d\x0aText3.Text = Val(Text1.Text) * Val(Text2.Text) \x0d\x0aCase 3 \x0d\x0aIf Val(Text1.Text) 《》 0 Then \x0d\x0aText3.Text = Val(Text1.Text) / Val(Text2.Text) \x0d\x0aElse \x0d\x0aMsgBox "除数不能为0", , "错误" \x0d\x0aEnd If \x0d\x0aEnd Select \x0d\x0aElse \x0d\x0aMsgBox "请输入操作数", , "错误" \x0d\x0aEnd If \x0d\x0aEnd Sub \x0d\x0a\x0d\x0aPrivate Sub Form_Load() \x0d\x0aCombo1.AddItem "+" \x0d\x0aCombo1.AddItem "-" \x0d\x0aCombo1.AddItem "*" \x0d\x0aCombo1.AddItem "/" \x0d\x0aCombo1.ListIndex = 0 \x0d\x0aText1.Text = "" \x0d\x0aText2.Text = "" \x0d\x0aText3.Text = "" \x0d\x0aCommand1.Caption = "计算" \x0d\x0a\x0d\x0aEnd Sub
急急急,求大神用vb教做一个简易计算器,加减乘除就可以能用加分
按你的要求做的代码如下:
在1个新窗体上编排以下控件:
添加1个Label1控件用作显示数据,name=lblScreen
添加1个Command控件数组(10个数字)用作输入数据的按钮0~9,name=cmdNumber,index=0~9
添加1个Command控件用作小数点按钮“.”,name=cmdPoint
添加1个Command控件等号按钮“=”,name=cmdEqual
添加1个Command控件数组(4个符号)用作加减乘除按钮,name=cmdArithmetic,index=0~3
好了,然后复制以下代码运行即可成功啦:
’***************************************************************************************
Private strCalculateType As String ’存放运算类型
Private blnCalFlag As Boolean ’标记是否已经输入加数、或减数、或乘数、或除数等
Private dblNum1 As Double ’存放被加数、或被减数、或被乘数、或被除数等
Private dblNum2 As Double ’存放加数、或减数、或乘数、或除数等
Private dblMemo As Double ’内存中的数
Private Sub Form_Load()
Dim i As Integer
lblScreen = "0" ’初始化显示屏和关闭按钮
lblScreen.BackColor = vbBlack
strCalculateType = "" ’初始化运算符类型和标记变量
blnCalFlag = False
dblMemo = 0 ’初始化内存变量
End Sub
’四则运算
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
strCalculateType = "*"
dblNum1 = Val(lblScreen)
Case 3 ’输入初法
cmdEqual_Click
strCalculateType = "/"
dblNum1 = Val(lblScreen)
End Select
End Sub
’求结果(即等于)
Private Sub cmdEqual_Click()
dblNum2 = Val(lblScreen)
If strCalculateType = "/" Then
lblScreen = dblNum1 / dblNum2
ElseIf strCalculateType = "*" Then
lblScreen = dblNum1 * dblNum2
ElseIf strCalculateType = "-" Then
lblScreen = dblNum1 - dblNum2
ElseIf strCalculateType = "+" Then
lblScreen = dblNum1 + dblNum2
ElseIf strCalculateType = "x^y" Then
lblScreen = dblNum1 ^ dblNum2
End If
’ If Left(lblScreen.Caption, 1) = "." Then lblScreen.Caption = "0" & lblScreen.Caption
’ If Len(lblScreen.Caption) 》 15 Then lblScreen.Caption = Left(lblScreen.Caption, 15)
strCalculateType = ""
blnCalFlag = False
End Sub
’使用控件数组输入数据
Private Sub cmdNumber_Click(Index As Integer)
If lblScreen = "0" Then
lblScreen = ""
End If
If blnCalFlag = False Then
lblScreen = CStr(Index)
blnCalFlag = True
Else
lblScreen = lblScreen + CStr(Index)
End If
End Sub
’输入小数点
Private Sub cmdPoint_Click()
If blnCalFlag = True Then
If InStr(1, lblScreen, ".") = 0 Then
If lblScreen 《》 "" Then
lblScreen = lblScreen + "."
Else
lblScreen = "0."
End If
End If
Else
If blnCalFlag = False Then
lblScreen = "0."
blnCalFlag = True
End If
End If
End Sub
’***************************************************************************************
怎么样?给你的代码非常详细了吧,包括给你的解说哦!
用VB编写计算器的代码如何写
在窗体上放置以下控件:1、lblResultLabel控件设置lblResult.Caption=02、btnNum(0)~btnNum(9)按钮控件数组,下标对应齐数字(如:btnNum(0).Caption=0,依次类推)3、添加btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv(除法)、btnEnter(等于号)、btnReset(清除键)六个按钮。在窗体代码中输入以下内容:DimbyteOperationAsByte’操作符DimbyteTmpAsByte’临时操作符DimintNumAsDouble’输入的数字SubCalc()SelectCasebyteOperationCase1’AddlblResult.Caption=CDbl(lblResult.Caption)+intNumCase2’SublblResult.Caption=intNum-CDbl(lblResult.Caption)Case3’MullblResult.Caption=CDbl(lblResult.Caption)*intNumCase4’DivlblResult.Caption=intNum/CDbl(lblResult.Caption)CaseElseEndSelectEndSubPrivateSubbtnNum_Click(IndexAsInteger)IfbyteTmp《》0ThenintNum=lblResult.CaptionlblResult.Caption=0byteTmp=0EndIfIflblResult.Caption=0ThenlblResult.Caption=IndexElseIfLen(lblResult.Caption)《9ThenlblResult.Caption=lblResult.Caption&IndexEndIfEndIfEndSubPrivateSubbtnAdd_Click()IfbyteOperation《》0ThenCallCalcEndIfbyteOperation=1byteTmp=1EndSubPrivateSubbtnReset_Click()byteTmp=0byteOperation=0intNum=0lblResult.Caption=0EndSubPrivateSubbtnSub_Click()IfbyteOperation《》0ThenCallCalcEndIfbyteOperation=2byteTmp=2EndSubPrivateSubbtnMul_Click()IfbyteOperation《》0ThenCallCalcEndIfbyteOperation=3byteTmp=3EndSubPrivateSubbtnDiv_Click()IfbyteOperation《》0ThenCallCalcEndIfbyteOperation=4byteTmp=4EndSubPrivateSubbtnEnter_Click()CallCalcbyteTmp=0EndSub