☆宣 ︴說 變 就 『變』

關於部落格
沒 有 原 因
一 切 都 是 緣 分 阿
  • 6801

    累積人氣

  • 0

    今日人氣

    0

    訂閱人氣

電腦課真好玩!








Dim x As Integer
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
If a = "wang" And "40" Then
Unload Form1
Load Form2
Form2.Show
ElseIf a = "kuo" And b = "12" Then
Unload Form1
Load Form2
Form2.Show
Else
x = x + 1
MsgBox ("輸入錯誤"), 48, "警告"
End If
If x > 3 Then
End
End If
End Sub

Private Sub Form_Load()
Form1.Caption = "login"
Label1.Caption = "username"
Label2.Caption = "password"
Text1.Text = ""
Text2.Text = ""
Text2.PasswordChar = "*"
Command1.Caption = "login"
x = 0
End Sub
   







電腦課的時候
老師說要做登入的視窗
他在前一節課就已經先公佈了
所以我們班"非常團結"
先叫會的人先寫在紙上
在由我!寫在黑板上…
跟全班一起"對答案"


想不到那個語言竟然有錯誤
所以阿~
只好再青蛙留言板在重發一個
如此一來真是方便許多
ctrl+c是複製 ctrl+v是貼上
哈哈
用這招就可以交差啦!





   


相簿設定
標籤設定
相簿狀態