• 5星
1.45MB zhangjin7422 2021-04-07 09:24:30
• 5星
5.47MB zhangjin7422 2021-01-28 10:18:50
• 5星
49KB weixin_58444518 2021-05-21 11:46:39
• 5星
93KB kejiujiu 2012-04-20 23:58:35
• ## VB制作加减乘除小计算器 VB计算器

5KB bn55ying 2018-04-14 11:34:59
• 9KB langke86 2011-11-19 15:05:26
• ## 简单计算器vb程序设计 程序设计

68KB a_r_temis 2021-05-05 19:57:47
• ## 计算器程序(VB6.0代码编写)计算器 cos tan log exp

4星
412KB gouyue 2009-06-18 17:28:11
• 科学计算器vb代码.doc (19页) 本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！14.90 积分﻿· 用VB计算器似乎有很多例子，这个代码就是其中之一，科学计算器是在基本...

科学计算器vb代码.doc
(19页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！
14.90 积分
﻿· 用VB写计算器似乎有很多例子，这个代码就是其中之一，科学计算器是在基本计算器的基础上，加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的数学计算，当然基础的加减乘除运算就更不用说了，这是在一本VB教程中摘录的代码，你可以此为基础完善扩展该计算器的功能，运行截图如下：核心代码，只有一个文件代码：VERSION 5.00Begin VB.Form Frm_Scientific Caption = "计算器" ClientHeight = 2925 ClientLeft = 165 ClientTop = 735 ClientWidth = 5595 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False ScaleHeight = 2925 ScaleWidth = 5595 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Cmd_Rnd Caption = "Rnd" Height = 390 Left = 5025 TabIndex = 39 Top = 1455 Width = 510 End Begin VB.CommandButton Cmd_PI Caption = "PI" Height = 390 Left = 1575 TabIndex = 38 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Fact Caption = "N!" Height = 390 Left = 1575 TabIndex = 37 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Log Caption = "Log" Height = 390 Left = 1575 TabIndex = 36 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Ln Caption = "Ln" Height = 390 Left = 1575 TabIndex = 35 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Square Caption = "X^2" Height = 390 Left = 840 TabIndex = 34 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Cube Caption = "X^3" Height = 390 Left = 825 TabIndex = 33 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Operator Caption = "X^Y" Height = 390 Index = 5 Left = 840 TabIndex = 32 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Exp Caption = "Exp" Height = 390 Left = 840 TabIndex = 31 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Sin Caption = "Sin" Height = 390 Left = 120 TabIndex = 30 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Cos Caption = "Cos" Height = 390 Left = 120 TabIndex = 29 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Tan Caption = "Tan" Height = 390 Left = 120 TabIndex = 28 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Atan Caption = "Atan" Height = 390 Left = 120 TabIndex = 27 Top = 2400 Width = 630 End Begin VB.Frame Frame1 Height = 510 Left = 90 TabIndex = 23 Top = 330 Width = 2625 Begin VB.OptionButton Otn_Grd Caption = "梯度" Height = 180 Left = 1695 TabIndex = 26 Top = 210 Width = 750 End Begin VB.OptionButton Otn_Rad Caption = "弧度" Height = 180 Left = 900 TabIndex = 25 Top = 210 Width = 795 End Begin VB.OptionButton Otn_Deg Caption = "角度" Height = 180 Left = 135 TabIndex = 24 Top = 210 Value = -1 'True Width = 675 End End Begin VB.CommandButton Cmd_Operator Caption = "=" Height = 390 Index = 4 Left = 5025 TabIndex = 22 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_Operator Caption = "+" Height = 390 Index = 3 Left = 4470 MaskColor = &H00808080& Style = 1 'Graphical TabIndex = 21 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "." Height = 390 Index = 11 Left = 3915 TabIndex = 20 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "+/-" Height = 390 Index = 10 Left = 3360 TabIndex = 19 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "0" Height = 390 Index = 0 Left = 2820 TabIndex = 18 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_fraction 。省略部分。t = "0." Then Exit Sub End If If (Txt_Result.Text "") Then Txt_Result.Text = Mid(Txt_Result.Text, 1, Len(Txt_Result.Text) - 1) ElseIf Txt_Result.Text = "" Then Txt_Result.Text = "0." End IfEnd SubPrivate Sub Cmd_C_Click() '清零 Txt_Result.Text = "0" prev = 0End SubPrivate Sub Cmd_CE_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Txt_Result = " 0"End SubPrivate Sub Cmd_Cos_Click() 'Cos值 Txt_Result.Text = Str(Cos(ang * Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Cube_Click() Txt_Result.Text = Val(Txt_Result.Text) ^ 3 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Exp_Click() '计算Exp的值 Txt_Result.Text = Exp(Txt_Result.Text) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Fact_Click() 'N！ Txt_Result.Text = Str(fac(Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_fraction_Click() '倒数 Dim Temp Temp = Val(Txt_Result.Text) If Temp 0 Then Txt_Result.Text = Str(1 / Temp) Else Txt_Result.Text = "除数不能为零。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Ln_Click() 'LN If Val(Txt_Result.Text) > 0 Then Txt_Result.Text = Str(Log(Val(Txt_Result.Text))) Else Txt_Result.Text = "输入有误。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Log_Click() 'Log If Val(Txt_Result.Text) > 0 Then Txt_Result.Text = Str((Log(Val(Txt_Result.Text)) / Log(10))) Else Txt_Result.Text = "输入有误。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Operator_Click(Index As Integer) ' 单击操作符按钮 If opnre = 0 Or Index = 4 Then If ind = 3 Then '加号 prev = prev + Val(Txt_Result.Text) ElseIf ind = 2 Then '减号 prev = prev - Val(Txt_Result.Text) ElseIf ind = 0 Then '除号 If Val(Txt_Result.Text) = 0 Then Txt_Result.Text = "除数不能为零。" Exit Sub Else prev = prev / Val(Txt_Result.Text) End If ElseIf ind = 5 Then 'X^Y prev = prev ^ Val(Txt_Result.Text) ElseIf ind = 1 Then '乘号 prev = prev * Val(Txt_Result.Text) End If If prev = 0 Then '如果前一个操作数为0 prev = Txt_Result.Text '将当前的值传给操作数 Else '否则 Txt_Result.Text = Str(prev) '将操作数的值传递给文本框显示 End If oflag = 0 End If opnre = 1 ind = Index dflag = 0End SubPrivate Sub Cmd_PI_Click() 'PI Txt_Result.Text = 3.141592654 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Rnd_Click() '产生一个随机数 Txt_Result.Text = Str(Rnd)End SubPrivate Sub Cmd_Sin_Click() 'Sin值 Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_sqrt_Click() '求平方根 Dim Temp As Integer Temp = Val(Txt_Result.Text) If Temp > 0 Or Temp = 0 Then Txt_Result.Text = Str(Sqr(Val(Txt_Result.Text))) Else Txt_Result.Text = "函数输入无效。" End IfEnd SubPrivate Sub Cmd_Square_Click() '求平方 Txt_Result.Text = Val(Txt_Result.Text) ^ 2 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Tan_Click() 'Tan函数 If (Cos(Val(Txt_Result.Text))) 0 Then Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text)) / Cos(ang * Val(Txt_Result.Text))) Else Txt_Result.Text = "除数不能为零。" End If prev = Txt_Result.TextEnd SubPrivate Sub Command1_Click(Index As Integer) '数字键 If ind = 4 Then prev = 0 Txt_Result.Text = " " ind = 0 End If opnre = 0 If oflag = 0 Then Txt_Result.Text = " " End If oflag = 1 If Command1(Index).Caption "." Then If Txt_Result.Text "0." Then Txt_Result.Text = Txt_Result.Text & Command1(Index).Caption Else Txt_Result.Text = " " & Command1(Index).Caption End If Else If dflag = 0 Then Txt_Result.Text = Txt_Result.Text & "." dflag = 1 Else Txt_Result.Text = "输入有误。" End If End IfEnd SubPrivate Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Clipboard.ClearEnd SubPrivate Sub Menu_All_Click() '全选 Clipboard.Clear Clipboard.SetText Txt_Result.TextEnd SubPrivate Sub Menu_Copy_Click() '复制 Clipboard.Clear Clipboard.SetText Txt_Result.TextEnd SubPrivate Sub Menu_Cut_Click() '剪切 Clipboard.Clear Clipboard.SetText Txt_Result.Text Txt_Result.Text = ""End SubPrivate Sub Menu_Exit_Click() '退出 EndEnd SubPrivate Sub Menu_HelpSubject_Click() MsgBox "未开通帮助功能。", vbCriticalEnd SubPrivate Sub Menu_Paste_Click() '粘贴 Txt_Result.Text = "" Txt_Result.Text = Clipboard.GetText()End SubPrivate Sub Otn_Deg_Click() '角度 If Otn_Deg = True Then ang = 3.141592654 / 180 End IfEnd SubPrivate Sub Otn_Grd_Click() '梯度 If Otn_Grd.Value = True Then ang = 3.141592654 / 200 End IfEnd SubPrivate Sub Otn_Rad_Click() '弧度 If Otn_Rad.Value = True Then ang = 1 End IfEnd Sub'计算阶乘'**输 入：num(Long) - 要计算阶乘的数'**输 出：(Long) - 计算结果'**功能描述：计算一个小于12的数的阶乘Function fac(num As Long) As Long Dim re If (num 12) Then Txt_Result.Text = "输入的数值过大。" fac = num Else re = 1 While (num > 0) re = re * num num = num - 1 Wend fac = re End If End IfEnd FunctionVB科学计算器代码，新建一工程后引入上述代码文件编译即可。 关 键 词： 代码 计算器 科学 vb
天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

展开全文
weixin_31320437 2021-06-18 07:30:03
• ## vb自制计算器代码 计算器

2KB u011812456 2013-08-25 11:11:06
• 我是没什么心思写计算器的。。不过要参加星火杯的话这个坎还是要过一过。。。 emmmm然后发现写个GUI真是步步艰难，先用了VS发现特么废流量，再用QT一直蜜汁错误。。然后。。然后最终还是向VB低头orz 算法上不...
我是没什么心思写计算器的。。不过要参加星火杯的话这个坎还是要过一过。。。
emmmm然后发现写个GUI真是步步艰难，先用了VS发现特么废流量，再用QT一直蜜汁错误。。然后。。然后最终还是向VB低头orz
算法上不存在什么问题啦。。只是不熟悉而且很多细节需要注意。。debug几下就好。。最重要的是学到了用程序写程序的姿势_(:з」∠)_
一个不能再简单的窗口

还有一段又臭又长的代码

Dim t, t1 As Integer
Dim x, y As Double

Public Sub com()
x = Val(l1.Caption)
Select Case t1
Case Is = 1: y = y + x
Case Is = 2: y = y - x
Case Is = 3: y = y * x
Case Is = 4: y = y / x
End Select
t1 = 0
t = 0
l1.Caption = "0"
End Sub

Private Sub Form_Load()
x = 0
y = 0
t = 0
t1 = 1
End Sub

Private Sub c0_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "0"
Else
l1.Caption = l1.Caption + "0"
End If
End Sub

Private Sub C1_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "1"
Else
l1.Caption = l1.Caption + "1"
End If

End Sub
Private Sub c10_Click(Index As Integer)
If t = 0 Then
l1.Caption = l1.Caption + "."
t = 1
End If
End Sub

Private Sub C2_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "2"
Else
l1.Caption = l1.Caption + "2"
End If

End Sub

Private Sub C3_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "3"
Else
l1.Caption = l1.Caption + "3"
End If

End Sub

Private Sub C4_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "4"
Else
l1.Caption = l1.Caption + "4"
End If

End Sub

Private Sub C5_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "5"
Else
l1.Caption = l1.Caption + "5"
End If

End Sub

Private Sub C6_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "6"
Else
l1.Caption = l1.Caption + "6"
End If

End Sub

Private Sub C7_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "7"
Else
l1.Caption = l1.Caption + "7"
End If

End Sub

Private Sub C8_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "8"
Else
l1.Caption = l1.Caption + "8"
End If

End Sub

Private Sub C9_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "9"
Else
l1.Caption = l1.Caption + "9"
End If

End Sub

Private Sub z1_Click(Index As Integer)
com
t1 = 1
End Sub

Private Sub z2_Click(Index As Integer)
com
t1 = 2
End Sub

Private Sub z3_Click(Index As Integer)
com
t1 = 3
End Sub

Private Sub z4_Click(Index As Integer)
com
t1 = 4
End Sub

Private Sub z5_Click(Index As Integer)
tmp = Mid(l1.Caption, Len(l1.Caption), 1)
If tmp = "." Then
t = 0
End If
If Len(l1.Caption) = 1 Then
l1.Caption = "0"
Else
l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)
End If
End Sub

Private Sub z6_Click(Index As Integer)
l1.Caption = "0"
Form_Load
End Sub

Private Sub z7_Click(Index As Integer)
If (l1.Caption <> "0") Then
l1.Caption = "-" + l1.Caption
End If
End Sub

Private Sub z8_Click(Index As Integer)
com
l1.Caption = Str(y)
End Sub



展开全文
qkoqhh 2017-10-03 16:12:58
• 3星
91KB tracyjk 2009-06-22 12:20:24
• 4星
3KB u012860301 2013-11-16 19:21:06
• case "/" if op2 = 0 then msgbox "除数不能为零", 48, "计算器" else op1 = cdbl(op1) / cdbl(op2) end if case "=" op1 = cdbl(op2) case "%" op1 = cdbl(op1) * cdbl(op2) end select read...

2015-11-03 回答
1、在窗体上摆一个command1,然后在窗体上复制粘贴command，直到你需要的按钮数。
2、在窗体上摆一个label1
3、按钮名和标签名按以下程序中用的名称修改。
' ------------------------------------------------------------------------
'               版权所有 (c) 1994 microsoft corporation
'
' 您可以免费以任何方式使用、修改、复制并分发您认为有用的
' 示例应用程序文件 (或任何修改过的版本)。microsoft 对任何
' 示例应用程序文件不做任何保证，不负任何责任和义务。
' ------------------------------------------------------------------------
option explicit
dim op1, op2                ' 预先输入操作数。
dim decimalflag as integer  ' 小数点存在吗？
dim numops as integer       ' 操作数个数。
dim lastinput               ' 指示上一次按键事件的类型。
dim opflag                  ' 指示未完成的操作。
dim tempreadout
' c (取消) 按钮的 click 事件过程
' 重新设置显示并初始化变量。
private sub cancel_click()
readout = format(0, "0.")
op1 = 0
op2 = 0
form_load
end sub
' ce (取消输入) 按钮的 click 事件过程。
private sub cancelentry_click()
readout = format(0, "0.")
decimalflag = false
lastinput = "ce"
end sub
' 小数点 (.) 按钮的 click 事件过程
' 如果上一次按键为运算符，初始化 readout 为 "0."；
' 否则显示时追加一个小数点。
private sub decimal_click()
if lastinput = "neg" then
readout = format(0, "-0.")
elseif lastinput <> "nums" then
readout = format(0, "0.")
end if
decimalflag = true
lastinput = "nums"
end sub
' 窗体的初始化过程
' 设置所有变量为其初始值。
private sub form_load()
decimalflag = false
numops = 0
lastinput = "none"
opflag = " "
readout = format(0, "0.")
'decimal.caption = format(0, ".")
end sub
' 数字键 (0-9) 的 click 事件过程
' 向显示中的数追加新数。
private sub number_click(index as integer)
if lastinput <> "nums" then
readout = format(0, ".")
decimalflag = false
end if
if decimalflag then
readout = readout + number(index).caption
else
readout = left(readout, instr(readout, format(0, ".")) - 1) + number(index).caption + format(0, ".")
end if
if lastinput = "neg" then readout = "-" & readout
lastinput = "nums"
end sub
' 运算符 (+, -, x, /, =) 的 click 事件过程
' 如果接下来的按键是数字键，增加 numops。
' 如果有一个操作数，则设置 op1。
' 如果有两个操作数，则将 op1 设置为 op1 与
' 当前输入字符串的运算结果，并显示结果。
private sub operator_click(index as integer)
tempreadout = readout
if lastinput = "nums" then
numops = numops + 1
end if
select case numops
case 0
if operator(index).caption = "-" and lastinput <> "neg" then
readout = "-" & readout
lastinput = "neg"
end if
case 1
op1 = readout
if operator(index).caption = "-" and lastinput <> "nums" and opflag <> "=" then
readout = "-"
lastinput = "neg"
end if
case 2
op2 = tempreadout
select case opflag
case "+"
op1 = cdbl(op1) + cdbl(op2)
case "-"
op1 = cdbl(op1) - cdbl(op2)
case "x"
op1 = cdbl(op1) * cdbl(op2)
case "/"
if op2 = 0 then
msgbox "除数不能为零", 48, "计算器"
else
op1 = cdbl(op1) / cdbl(op2)
end if
case "="
op1 = cdbl(op2)
case "%"
op1 = cdbl(op1) * cdbl(op2)
end select
readout = op1
numops = 1
end select
if lastinput <> "neg" then
lastinput = "ops"
opflag = operator(index).caption
end if
end sub
' 百分比键 (%) 的 click 事件过程
' 计算并显示第一个操作数的百分数。
private sub percent_click()
readout = readout / 100
lastinput = "ops"
opflag = "%"
numops = numops + 1
decimalflag = true
end sub

展开全文
weixin_42361929 2021-07-28 02:27:11
• ## VB.net简易计算器源代码 VB源码 计算器

5星
386KB gouyue 2011-11-04 18:55:41
• 53KB shangchen888666 2011-11-13 00:00:00
• ## 利用VB设计简易计算器.vbp VB程序设计

567B m0_51529857 2021-07-24 15:02:14
• ## VB 计算器程序 源码 完整 VB程序

6KB saishing 2009-01-09 10:04:01
• 5星
2.67MB yunfriends 2010-08-26 03:46:49
• 今天小编来带大家用VB做一个简易计算器 废话不多说，下面就是具体步骤了 1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴...
今天小编来带大家用VB做一个简易计算器
废话不多说，下面就是具体步骤了
1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：

设置效果如下图所示：

将Text1中的Text中设置为0，Alignment设置为1-Right Justfiy，Enabled设置为False

二、编写代码
Dim s1 As Single, s2 As Single, ysf As String ‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符 Private Sub Command1_Click(Index As Integer) If Text1.Text = “0” Then Text1.Text = Command1(Index).Caption Else Text1.Text = Text1.Text & Command1(Index).Caption '将command1的单击事件与文本框显示的内容连接 End If End Sub
Private Sub Command2_Click() Text1.Text = Text1.Text + “.” If (InStr(Text1.Text, “.”) = 1) Then '第一位不能为小数 Text1.Text = “” End If If InStr(Text1.Text, “.”) < Len(Text1.Text) Then '防止出现两个小数点 Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If End Sub
Private Sub Command3_Click(Index As Integer) s2 = Val(Text1.Text) '开始加减乘除运算 Select Case ysf Case “+” Text1.Text = s1 + s2 Case “-” Text1.Text = s1 - s2 Case “*” Text1.Text = s1 * s2 Case “/” If s2 = 0 Then MsgBox “分母不能为零！” Text1.Text = " "
Else Text1.Text = s1 / s2 End If End Select Text1 = IIf(Left(Text1.Text, 1) = “.”, 0 & Text1.Text, Text1.Text) '这个很关键，如果没有这个的话，得出小于1的小数前面没有0 End Sub
Private Sub Command4_Click(Index As Integer) If Text1.Text = " " Then '文本为空就结束 Text1.Text = “0”
ElseIf Len(Text1.Text) = “1” Then Text1.Text = “0” Else Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) '文本退一格 End If End Sub
Private Sub Command5_Click(Index As Integer) Text1.Text = " " End Sub
Private Sub Command6_Click(Index As Integer) s1 = Val(Text1.Text) '将s1隐藏起来 ysf = Command6(Index).Caption Text1.Text = “” End Sub
Private Sub Command7_Click() If Left(Text1.Text, 1) <> “-” Then '判断作为负数 Text1.Text = “-” & Text1.Text Else Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) End If End Sub
Private Sub Command8_Click(Index As Integer) Text1.Text = Text1.Text * Text1.Text End Sub
输完上述代码后的程序图片如下：

至此，我们完成了编程，调试一下以检验程序的正确性。一种可以右键“文件”，再点击“调试”，另一种是直接点击调试按钮。

工程完成后，点击文件，再点击该菜单下的生成“计算器.exe”（不同人的该选项大不相同，但是都有生成“xxx.exe”这个选项），如图

这样子就算生成成功啦
展开全文
weixin_44509155 2020-02-22 20:47:46
• Crazydoubao 2021-12-07 16:19:09
• 104KB qq_38292541 2017-09-09 11:14:19
• weixin_39637260 2021-07-27 06:58:22
• 5KB weixin_39841882 2019-07-10 09:21:50
• ## VB统计计算器1/2 vb6

peter_young1990 2021-04-08 21:41:33
• 9KB u010911845 2013-05-31 23:35:02
• 4星
39KB xingheXINGXING 2010-02-03 12:47:46
• weixin_42347925 2021-07-16 07:24:05
• ## 使用VB.NET控制台应用程序实现一个简单的计算器 vb.net

qq_33628127 2020-04-09 16:44:29
• ## vb语言简单的计算器程序设计 vb 计算器

7KB xiayizhandexingfu 2010-07-14 18:59:37
• weixin_39762856 2021-07-29 02:04:08
• 4KB fendou8 2010-06-24 17:32:05
• 4星
10.28MB ahstyle 2017-10-10 15:19:51

...