2.將下列代碼放到代碼窗口中即可
Private WithEvents Command1 As CommandButton
Private WithEvents Command2 As CommandButton
Private Sub Command1_Click()
If MsgBox("請確認妳屬於優惠對象。(中國現役軍人、殘疾人士、兒童、學生、老年人)", 4, "提示信息") = 6 Then
m = InputBox("請輸入妳準備買幾次票?", "優惠票")
Print "買票類型:優惠票 購票金額:"; 160 * m & "元"
End If
End Sub
Private Sub Command2_Click()
n = InputBox("請輸入妳準備買幾次票?", "普通票")
d = MsgBox("請問妳想買指定日票嗎?", 4, "提示信息")
If d = 6 Then
Print "買票類型:普通票 購票金額:"; 200 * n & "元"
ElseIf d = 7 Then
Print "買票類型:普通票 購票金額:"; 900 * (n \ 7) + 400 * ((n - 7 * (n \ 7)) \ 3) + 160 * (n - 7 * (n \ 7) - 3 * ((n - 7 * (n \ 7)) \ 3)) & "元"
End If
End Sub
Private Sub Form_Load()
With Me
.Left = 7000
.Top = 3000
.Width = 5500
.Height = 4000
.Caption = ""
End With
Set Command1 = Controls.Add("VB.commandbutton", "command1")
Set Command2 = Controls.Add("VB.commandbutton", "command2")
With Command1
.Visible = 1
.Left = 1700
.Top = 1000
.Width = 2000
.Caption = "買優惠票"
End With
With Command2
.Visible = 1
.Left = 1700
.Top = 1000 + Command1.Height + 100
.Width = 2000
.Caption = "買普通票"
End With
End Sub
妳也可以下載我做好的 下載地址(全部復制)
/ftn_handler/180eddb235a853e922f7c5c444d4bf196f16edf90ed92521396b9c226ff330e57ecc047952978910c02a9596a47dd987330b682d895d02e7207a67a9ff5e28f6/piao.rar?k=0c303639b5d69d9a58cb751c1630504a54560f01520450001c000f0a091d565106531b5b530654480100570e0307575c5455530130386215585159174251106574&fr=01&&txf_fid=f9eba20741c200568d6713d1f379475c6b27f718