熱心網友

Private Sub Command1_Click()Dim x As Single, y As Singlex = Text1。Texty = Text2。TextText1。Text = Val(Text1。Text)Text2。Text = Val(Text2。Text)If Option1。Value = True ThenText3。Text = x + yText3。Text = Str(Text1。Text) + "+" + Str(Text2。Text) + "=" + Text3。TextEnd IfIf Option2。Value = True ThenText3。Text = x - yText3。Text = Str(Text1。Text) + "-" + Str(Text2。Text) + "=" + Text3。TextEnd IfIf Option3。Value = True ThenText3。Text = x * yText3。Text = Str(Text1。Text) + "×" + Str(Text2。Text) + "=" + Text3。TextEnd IfIf Option4。Value = True ThenText3。Text = x / yText3。Text = Str(Text1。Text) + "÷" + Str(Text2。Text) + "=" + Text3。TextEnd IfEnd SubPrivate Sub Command2_Click()Text1。Text = ""Text2。Text = ""Text3。Text = ""Option1。Value = FalseOption2。Value = FalseOption3。Value = FalseOption4。Value = FalseEnd SubPrivate Sub Command3_Click()EndEnd Sub。

熱心網友

Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判斷是否是數字開頭Dim PointFlag As Boolean '判斷是否已有小數點Dim Runsign As Integer '儲存運算符號Dim SignFlag As Boolean '判斷是否已有運算符號　Sub ClearData()Num1 = 0Num2 = 0StrNum1 = ""StrNum2 = ""FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = FalseText1。Text = "0。"End Sub　Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1equal = Num1 + Num2Case 2equal = Num1 - Num2Case 3equal = Num1 * Num2Case 4equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2Text1。Text = StrNum2End Sub　Private Sub about_Click()MsgBox "Create by 周曉陽。1998/7/27", vbDefaultButton1, "VB教程第四章范例"End Sub　Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)FirstNum = FalseElseStrNum1 = StrNum1 + Str(Index)End IfText1。Text = StrNum1Case 10If Not PointFlag ThenIf FirstNum ThenStrNum1 = "0。"FirstNum = FalseElseStrNum1 = StrNum1 + "。"End IfElseExit SubEnd IfPointFlag = TrueText1。Text = StrNum1Case 12 To 15FirstNum = TruePointFlag = False'還原標記值If SignFlag ThenCall RunElseSignFlag = TrueStrNum2 = StrNum1StrNum1 = ""End IfRunsign = Index - 11Case 11If Not SignFlag ThenText1。Text = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd If　Case ElseCall ClearData　End SelectEnd Sub　Private Sub Form_Load()Call ClearDataEnd Sub。

熱心網友

這還用說嗎？ 需要學習basic語言~~~

熱心網友

需要學習basic語言