锐客网

  1. 首页 > 睿知 > it技术 > >

用vb.net写计算器 用vb编写计算器( 二 )

IT技术click


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 中提供了特殊的类的功能，但是还是不能满足程序员的需求 。
无原生支持多线程
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怎么编模拟袖珍计算器的完整程序？Public C护激篙刻蕻灸戈熏恭抹lass Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Char
c = Trim(TextBox3.Text)
Select Case c
Case "+"
TextBox4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Case "-"
TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
Case "*"
TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
Case "\"
If Val(TextBox2.Text) = 0 Then
MsgBox("分母为0")
Else
TextBox4.Text = Val(TextBox1.Text) \ Val(TextBox2.Text)
End If
Case "/"
If Val(TextBox2.Text) = 0 Then
MsgBox("分母为0")
Else
TextBox4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End If
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
【用vb.net写计算器 用vb编写计算器】用vb.net写计算器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb编写计算器、用vb.net写计算器的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：c语言函数形参是省略号，c语言函数的形参只是形式上的存在不占用具体存储单元

下一篇：mysql数据库的数据文件，mysql数据库数据文件直接复制