人人网 - 抱歉，出错了
抱歉，内部错误。&或者
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字
文化部监督电子邮箱：wlwh@··
文明办网文明上网举报电话： 举报邮箱：&&&&&&&&&&&&扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
VB计算器程序《用VB实现简易计算器》 一．内容要求：1.
加、减、乘、除，清零等一定要有；2.
乘方、开方等可自选；3.
最好能考虑“0不能做除数”的问题。（提示：当除数为0时，弹出一个消息框）。
和平分手〃Koy
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
Option ExplicitDim counta As Double, countb As Double, sum As String, bl As BooleanPrivate Sub Command1_Click(Index As Integer)If bl = True ThenText1.Text = ""bl = FalseEnd IfText1.Text = Text1.Text + Command1(Index).CaptionEnd SubPrivate Sub Command2_Click(Index As Integer)If Text1.Text = "" ThenMsgBox "请输入数值后再点击此符号！谢谢！", , "提示"Exit SubElsecounta = Val(Text1.Text)sum = Command2(Index).CaptionText1.Text = ""End If End SubPrivate Sub Command3_Click()bl = TrueIf Text1.Text = "" ThenMsgBox "请输入数值再点击！谢谢！", , "提示"Exit SubElsecountb = Val(Text1.Text)Select Case sum
Text1.Text = Str(counta + countb)
Text1.Text = Str(counta - countb)
Text1.Text = Str(counta * countb)
If Text1.Text = "0" Then
MsgBox "除数不能为零", vbCritical, "出错提示"
Text1.Text = ""
Text1.SetFocus
Text1.Text = Str(counta / countb)
End IfEnd Select
End SubPrivate Sub Command4_Click()Text1.Text = ""End SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Form_Unload(Cancel As Integer) '卸载窗体事件MsgBox "程序中内容均有自己完成，现在才发现编程是那么的不容易！此程序还不完善！但也算一个半成品吧！邮箱： QQ: 谢谢！", , "提示"End Sub Private Sub mnuban_Click()MsgBox "版本v1.2", , "提示"End SubPrivate Sub mnubule_Click()Form1.BackColor = vbBlueEnd SubPrivate Sub mnuexit_Click()EndEnd SubPrivate Sub mnuhelp_Click()MsgBox "对不起！程序简单没有帮助！", , "提示"End SubPrivate Sub mnured_Click()Form1.BackColor = vbRedEnd SubPrivate Sub mnuzhe_Click()MsgBox "地狱黑雪！QQ:", , "提示"End SubPrivate Sub Timer1_Timer()
If Label2.Left + Label2.Width <= 0 Then
Label2.Left = Label2.Width
Label2.Left = Label2.Left - 1
End IfEnd SubPrivate Sub Form_load()Label2.ForeColor = vbRedTimer1.Interval = 1bl = FalseEnd Sub
为您推荐：
扫描下载二维码《错误》教案
教学反思 _百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
《错误》教案
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢}