计算器代码Private Sub Form_Load() Private Sub Form_Load() Dim i As Integer, numwidth As Integer numwidth = (number(0).Width) For i = 1 To 9 Load number(i) If i Mod 3 = 1 Then number(i).Top = number(i - 1).Top - number(i - 1).Height - 100 number(i).Left = number(0).Left ...
Private Sub Form_Load() Private Sub Form_Load() Dim i As Integer, numwidth As Integer numwidth = (number(0).Width) For i = 1 To 9 Load number(i) If i Mod 3 = 1 Then number(i).Top = number(i - 1).Top - number(i - 1).Height - 100 number(i).Left = number(0).Left Else number(i).Top = number(i - 1).Top number(i).Left = number(i - 1).Left + number(i - 1).Width + 100 End If number(i).Caption = i number(i).Visible = -1 Next i number(0).Width = number(1).Width * 3 + 100 firstinput = True lastinput = "" End Sub Private Sub number_Click(Index As Integer) If lastinput <> "nums" Then disp = number(Index).Caption Else disp = disp + number(Index).Caption End If lastinput = "nums" End Sub Private Sub operator_Click(Index As Integer) If firstinput = True Then op1 = Val(disp) firstinput = False Else op2 = Val(disp) Select Case opflag Case "+" op1 = op1 + op2 Case "-" op1 = op1 - op2 Case "*" Print op1 Print op2 op1 = op1 * op2 Case "/" If op2 = 0 Then MsgBox "除数不能为0", 48, "计算器" Else op1 = op1 / op2 End If End Select If operator(Index).Caption = "=" Then disp = op1 End If lastinput = "oper" opflag = operator(Index).Caption End Sub Private Sub tran_Click(Index As Integer) Select Case Index Case 0 disp = Oct(Val(disp)) Case 1 disp = Hex(Val(disp)) End Select End Sub
本文档为【计算器代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483