If Label1.Caption = "+" Then
Text3 = Text1 + Text2
End If
If Label1.Caption = "-" Then
Text3 = Text1 - Text2
End If
[
请问为什么减号可行加号不可行
vb计算机加减法程序的问题
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
1条回答 默认 最新
hijack00 2016-08-27 11:34关注你这里的加减都是字符串加减，应该转换为数值再进行加减，可以这样写
Text3 = Str(Val(Text1) + Val(Text2))
Text3 = Str(Val(Text1) - Val(Text2))本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏举报 分享
- 2016-08-27 11:04回答 1 已采纳 你这里的加减都是字符串加减，应该转换为数值再进行加减，可以这样写 Text3 = Str(Val(Text1) + Val(Text2)) Text3 = Str(Val(Text1) - Val
- 2021-03-01 23:18回答 5 已采纳 For i = 0 To UBound(allNames) If TextBox1.Text = allNames(i) Then
- 2022-05-05 20:17回答 4 已采纳 当然不行了，每个版本的dll里的对象模型是有差别的。所以不可能一个对象库各个版本通吃。不然也没有更新版本的意义了不是。
- 2021-07-29 16:09weixin_39623271的博客 ①要求用Visual Basic对象的思想来完成程序的设计。②在设计程序的过程中，要求会使用Command 命令按钮、命令按钮控件数组、...④要求在程序中即能用鼠标单击相应的控件数组元素进行正整数的加、减、乘、除运算...
- 2021-06-21 10:50回答 1 已采纳 管理系统得有个名称吧，才知道怎么设计数据库呢。
- 2016-03-19 15:14回答 1 已采纳 调试下，n是不是为0了。你这个是rsa加密么？看着也不像啊。
- 2022-12-10 00:28回答 2 已采纳 发布的时候可以使用裁剪// x86dotnet publish -r win-x86 -c Release /p:PublishSingleFile=true /p:PublishTrimmed=tr
- 2021-07-15 21:42呓人61的博客 参考下：计算器的程序，很简单，只弄了+-法，乘除没弄，只要把代码看懂照着+-法改一下就行了,不过涉及到多级运算只用一个LastClick是不行的程序的控件就两种CommandBotton和TextBox都是最基本的先创建十一个...
- 2021-05-25 14:08回答 1 已采纳 Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer, a(1 To 10) As Integer Pr
- 2022-12-12 23:28回答 1 已采纳 Timer创建应该放在Sub Timer之外
- 2016-03-21 14:45回答 4 已采纳 最简单的是先做base64编码，然后不存在什么中文的问题了，再xor下。解密相反，先xor，然后base64解码 如果要完整代码，请先采纳下。
- 2021-07-15 21:42萧井陌的博客 '如图,Command1的Caption设为"计算"'添加一个ComboBox什么都不设置OptionExplicitPrivateSubCommand1_Click()'如果一定要100以内,取消下一行的注释'IfVal(Text1.Text)>100OrVal(Text2.Text)>...
- 2017-03-26 16:42回答 3 已采纳 http://blog.csdn.net/verybenet/article/details/558122 在vb.net里，GetSetting变成了Microsoft.VisualBasic
- 2008-07-16 16:41专门用来给小学生出加减法口算题的软件,很方便,需要.net环境,小学生入学必备
- 2021-07-23 17:43汀上飘的云的博客 '程序版本：V1.0 (Test)Function Simplify (Expr)Dim fds, SHX, Arr, i, Res, Xishu, Canshu, j, k, l, w, w2, Cans(100), Xis(100), Xi2(100), Can2(100), Xi_ON, Can_OnArr = Split(Replace(LCase(Expr), " ", "")...
- 没有解决我的问题, 去提问
悬赏问题
- ¥15 Python时间序列如何拟合疏系数模型
- ¥15 求学软件的前人们指明方向🥺
- ¥50 如何增强飞上天的树莓派的热点信号强度，以使得笔记本可以在地面实现远程桌面连接
- ¥20 双层网络上信息-疾病传播
- ¥50 paddlepaddle pinn
- ¥20 idea运行测试代码报错问题
- ¥15 网络监控：网络故障告警通知
- ¥15 django项目运行报编码错误
- ¥15 STM32驱动继电器
- ¥15 Windows server update services