Dim a As Integer, b As String Private Sub Command1_Click() Select Case a Case 1 Label4.Caption...
Private Sub Command1_Click() Select Case a Case 1 Label4.Caption = "電腦出剪刀" Case 2 Label4.C...
http://www.wretch.cc/album/ealleneee91
Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Imag...
Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Image1...
Private Sub Command1_Click() If Text1.Text Mod 2 = 0 Then Label2.Caption = "此數是一個偶數" Else ...
http://ccst.ckgsh.tn.edu.tw/~hsiehliy/
Private Sub Command1_Click() Dim a(5) As Integer a(0) = 0 a(1) = 30 a(2) = 80 a(3) = 190 a(4) ...
Private Sub Command1_Click() Label2.Caption = Combo1.Text & ”有塊田地” & ”,” & ”他在田裡養” &...
Private Sub Command1_Click() Label5.Caption = ”你點ㄉ前菜是” & List1.Text & ”,” & ”主餐是” & ...
Dim a As Integer Private Sub Option1_Click(Index As Integer) Text2.Text = 0 Dim a As Single If...
Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold ...
Private Sub Image1_Click() End Sub Private Sub Option1_Click(Index As Integer) Select Case In...
今天考完試.... 考ㄉㄆ怎ㄇ好... 心情也ㄆ怎ㄇ好... 在某一天... "那ㄍ人"上線ㄌ... 開心的...