标题: 简单VB问题！ [打印本页]

---

作者: abmark    时间: 2004-9-25 23:43     标题: 简单VB问题！

想用VB编一个简单的计算器，现需要最关键的那部分原代码，能否帮助提供一下！或说一下自己的思路~      谢谢各位兄台！

---

作者: gaoyanqiang    时间: 2004-10-13 17:19     标题: 简单VB问题！


Dim x, y As Integer
Private Sub exit_Click()
End
End Sub
Private Sub Command1_Click()
If password.Text = "1234" Then
'产生两个加数
Randomize Timer
x = CInt(Rnd * 100)
y = CInt(Rnd * 100)
add1.Caption = x
add2.Caption = y
Else
MsgBox "对不起，密码有误!", 1, "提醒"
End If
End Sub
Private Sub Command2_Click()
If char.Caption = "+" Then
result.Text = Val(add1.Caption) + Val(add2.Caption)
End If
If char.Caption = "-" Then
result.Text = Val(add1.Caption) - Val(add2.Caption)
End If
If char.Caption = "*" Then
result.Text = Val(add1.Caption) * Val(add2.Caption)
End If
If char.Caption = "/" Then
result.Text = Val(add1.Caption) / Val(add2.Caption)
End If
End Sub


Private Sub Option1_Click()
char.Caption = Option1.Caption
End Sub
Private Sub Option2_Click()
char.Caption = Option2.Caption
End Sub
Private Sub Option3_Click()
char.Caption = Option3.Caption
End Sub
Private Sub Option4_Click()
char.Caption = Option4.Caption
End Sub

---

作者: li899    时间: 2004-10-19 11:09     标题: 简单VB问题！

不错。。

---

作者: kunmuc    时间: 2004-10-21 13:45     标题: 简单VB问题！

他只不过是想有一个计时器吗？！！
代码有这么多吗？！~~~~~~~~~

---

欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/)

Powered by Discuz! 7.2