8.計算機程式---表單視窗(點餐程式)

Private Sub Command1_Click()
    Rem 班級:              學號:               姓名:
    Rem ***** 點餐系統之計算程式 *****
    Dim  sum  As  Single
    sum = 0
    sum = sum + (Label8.Caption * Val(Text1.Text)) + (Label9 * Val(Text2)) + (Label10 * Val(Text3)) + (Label11 * Val(Text4))
    Label12.Caption = sum
  
    If  Option1.Value = True  Then
         Label16.Caption = sum
    ElseIf  Option2.Value = True  Then
         Label16.Caption = sum * (1 + 0.05)
    Else
         Label16.Caption = sum * 0.9
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Command3_Click()
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Label12.Caption = " "
    Label16.Caption = " "
End Sub

全部共 2則留言 12-13 13:50: +1推一個 12-21 14:27: 簡單!!好玩!!好用!! 讚
留言...
登入帳號密碼代表遵守學術網路規範