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
扩展资料
语言缺点
Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点 , 使其有所局限性(此些缺点皆已在 vb .net 获得改进) 。
不支持继承
VB 5.0 和 VB 6.0 都是基于对象vb.net写计算器程序的编程语言,但是不包含继承特性 。VB 中提供vb.net写计算器程序了特殊的类的功能 , 但是还是不能满足程序员的需求 。
无原生支持多线程
Visual Basic 对于多线程无原生支持,只能通过Windows API的调用实现,且极其的不稳定 。因为在API创建的线程中,并没有自动初始化运行时库 , 导致部分的函数无法使用 。一般的,在VB6等早期的VB开发环境下 , 使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算 。
异常处理不完善
Visual Basic 中内置异常处理,即使未写异常处理代码 , 一旦用户出错也会弹出一个明确写出出错原因对话框,接着程序终止 。
Visual Basic 中可以使用 Err.Raise抛出异常 。对系统及用户抛出的异常的处理常用两种模式:一是使用 On Error Resume Next 处理错误;另一种是使用 On Error Goto 将运行引入错误处理代码 。但相对 C++ 等语言而言,这样的异常处理破坏了代码的结构 。
参考资料:百度百科-VB
关于vb.net写计算器程序和vb编写计算器程序代码的介绍到此就结束了 , 不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- 区块链冬眠原理,区块链动态
- 身高差拍摄的花絮叫什么,身高差的照片
- mysql数据库添加数据图片,mysql怎么添加图片
- 移动硬盘怎么改电源,移动硬盘怎么改电源接口
- vb.net画线程序 vb编写简单的画图程序
- w电脑型号是什么,电脑型号是什么样子的
- postgresql查看运行状态的简单介绍
- linux上下文命令 LInux命令设置参数
- asp.netcore当前url,aspnet core authentication