开发工具:
文件大小: 303kb
下载次数: 0
上传时间: 2011-08-28
详细说明： Public sum As Double Public k As String Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Text1.Text = Text1.Text & 1 Case 2 Text1.Text = Text1.Text & 2 Case 3 Text1.Text = Text1.Text & 3 Case 4 Text1.Text = Text1.Text & 4 Case 5 Text1.Text = Text1.Text & 5 Case 6 Text1.Text = Text1.Text & 6 Case 7 Text1.Text = Text1.Text & 7 Case 8 Text1.Text = Text1.Text & 8 Case 9 Text1.Text = Text1.Text & 9 Case 0 Text1.Text = Text1.Text & 0 Case 10 Text1.Text = Text1.Text & &q uot;." End Select End Sub Private Sub Command2_Click() sum = Text1.Text Text1.Text = "" k = "+" End Sub Private Sub Command3_Click() sum = Text1.Text Text1.Text = "" k = "-" End Sub Private Sub Command4_Click() sum = Text1.Text Text1.Text = "" k = "*" End Sub Private Sub Command5_Click() sum = Text1.Text Text1.Text = "" k = "/" End Sub Private Sub Command6_Click() Dim a As Double a = Text1.Text If k = "+" Then sum = sum + a Text1.Text = sum ElseIf k = "-" Then sum = sum - a Text1.Text = sum ElseIf k = "*" Then sum = sum * a Text1.Text = sum ElseIf k = "/" Then sum = sum / a Text1.Text = sum End If End Sub Private Sub Command7_Click() Unload Form2 End Sub Private Sub Command8_Click() Text1.Text = "" End Sub Private Sub Command9_Click() Load Form1 '加载第二个窗体 Form1.Show '显示form1 Unload Me '卸载本窗体 End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
