Question

用VB6.0做一个简易的小程序。当作业，要算分数的。跪求高手

Answer 1

Public x As Boolean
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

简单的计算器程序自己添加控件

Answer 2

跪着吧，这样的学生，不学无术也就罢了，连基本的常识都没有，“要算分数的”------算什么分，如何个算法？先学会语言表达再说吧。

Answer 3

msgbox "小程序"