
2个回答
2013-08-04
展开全部
我这有一个简单的计算机代码结构如下:代码:Dim index
Private Sub Command1_Click()
index = "+"
End SubPrivate Sub Command2_Click()
index = "-"
End SubPrivate Sub Command3_Click()
index = "*"
End SubPrivate Sub Command4_Click()
index = "/"
End SubPrivate Sub Command5_Click()
Select Case index
Case "+"
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End SubPrivate Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub 楼主给分哦!
Private Sub Command1_Click()
index = "+"
End SubPrivate Sub Command2_Click()
index = "-"
End SubPrivate Sub Command3_Click()
index = "*"
End SubPrivate Sub Command4_Click()
index = "/"
End SubPrivate Sub Command5_Click()
Select Case index
Case "+"
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End SubPrivate Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub 楼主给分哦!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-08-04
展开全部
Windows附件里面自带就有,楼主你选屏幕左下角的开始菜单,选“所有程序”再选“附件”看见了吗?画图和计算器都有的。 我没有啊,不好意思。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询