电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

vb计算器简单程序(包含进制转换)VIP免费

vb计算器简单程序(包含进制转换)_第1页
1/7
vb计算器简单程序(包含进制转换)_第2页
2/7
vb计算器简单程序(包含进制转换)_第3页
3/7
Option Explicit Dim s1 As Integer, N As Single, r As Integer Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Index End Sub 'CE Private Sub Command11_Click() Text1.Text = "" End Sub Private Sub Command12_Click() Text1.Text = (Text1.Text) ^ 2 End Sub Private Sub Command17_Click() Text1.Text = " " End Sub Private Sub Command18_Click() Text1.Text = (Text1.Text) ^ 3 End Sub Private Sub Command20_Click() If Text1.Text = "" Then MsgBox ("²Ù×÷´íÎó") Else Text1.Text = Val(Text1.Text) * (-1) End If End Sub Private Sub Command21_Click() If InStr(Text1.Text, ".") Then MsgBox ("СÊýµãÒÑ´æÔÚ") Else Text1.Text = Text1 & Chr(46) End If End Sub Private Sub Command23_Click() If N = 1 Then If Text1.Text = 0 Then MsgBox "³ýÊý²»ÄÜΪÁã" Else Text1 = s1 / Text1.Text End If ElseIf N = 2 Then Text1 = s1 * Text1.Text ElseIf N = 3 Then Text1 = s1 - Text1.Text ElseIf N = 4 Then Text1 = s1 + Text1.Text End If End Sub Private Sub Command24_Click() Text1.Text = 1 / Text1.Text End Sub Private Sub Command25_Click(Index As Integer) Select Case Index Case 0 Text1.Text = Text1.Text & "A" Case 1 Text1.Text = Text1.Text & "B" Case 2 Text1.Text = Text1.Text & "C" Case 3 Text1.Text = Text1.Text & "D" Case 4 Text1.Text = Text1.Text & "E" Case 5 Text1.Text = Text1.Text & "F" End Select End Sub Private Sub Command4_Click(Index As Integer) Select Case Index Case 0 N = 1 s1 = Text1.Text Text1.Text = "" Case 1 N = 2 s1 = Text1.Text Text1.Text = "" Case 2 N = 3 s1 = Text1.Text Text1.Text = "" Case 3 N = 4 s1 = Text1.Text Text1.Text = "" End Select End Sub Private Sub Command5_Click() Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command6_Click()...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

vb计算器简单程序(包含进制转换)

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部