用VB6.0做一个简易的小程序。当作业，要算分数的。跪求高手
最新回答
地球另一端的梦
2025-03-28 03:03:44
Public oper As Integer
Public z As String
Public result As String
Private Sub Command1_Click(Index As Integer)
If x Then
Text1.Text = ""
x = False
Text1.Text = Text1.Text + CStr(Index + 1)
Else
Text1.Text = Text1.Text + CStr(Index + 1)
End If
End Sub
Private Sub Command2_Click()
x = True
oper = Int(Text1.Text)
z = "/"
End Sub
Private Sub Command3_Click()
x = True
oper = Int(Text1.Text)
z = "-"
End Sub
Private Sub Command4_Click()
x = True
oper = Int(Text1.Text)
z = "+"
End Sub
Private Sub Command5_Click()
x = True
oper = Int(Text1.Text)
z = "*"
End Sub
Private Sub Command7_Click()
Select Case z
Case "/"
result = CStr(oper / Int(Text1.Text))
Case "-"
result = CStr(oper - Int(Text1.Text))
Case "*"
result = CStr(oper * Int(Text1.Text))
Case "+"
result = CStr(oper + Int(Text1.Text))
End Select
Text1.Text = result
End Sub
Private Sub Command8_Click()
Text1.Text = ""
End Sub
简单的计算器程序自己添加控件
醉挽清风
2025-03-28 07:27:25
徒孤鸣
2025-03-28 05:21:59
热门标签
