小弟我只有在專科有碰過,也跟老闆說過VB我已經都忘光光了
但是我門老闆認為你只要有碰過在回頭去想應該很容易上手
他說他寧願給有碰過的人去碰也不希望重新培養一個新人
因為他說給碰過的人重新回去學會比一個新手培養的時間還要短
我就跟老闆說:我快像新手了
我老闆回我說:你就先做出1A1B,下禮拜一給我
我也跟我老闆說:應該很困難
我老闆回我說:自己想辦法吧~~呵呵
個人積分：30分
文章編號：3697296
個人積分：72分
文章編號：3697339
個人積分：35分
文章編號：3697433
maxtt660 wrote:
各位大大
小弟我只有在專科有碰過,也跟老闆說過VB我已經都忘光光了
但是我門老闆認為你只要有碰過在回頭去想應該很容易上手
他說他寧願給有碰過的人去碰也不希望重新培養一個新人
因為他說給碰過的人重新回去學會比一個新手培養的時間還要短
我就跟老闆說:我快像新手了
我老闆回我說:你就先做出1A1B,下禮拜一給我
我也跟我老闆說:應該很困難
我老闆回我說:自己想辦法吧~~呵呵
我覺得你老闆說得很好啊！他在驗證你寫程式的能力，
如果你可以寫得出來，那他就可以放心交給你一些更有挑戰性的問題，
你都已經已經回他說很困難了，那就看你有沒有心學囉！
沒有心學，就擺爛下去，沒有辦法就是沒有辦法，老闆就會放棄了，
看要對你做甚麼安排。
個人積分：8分
文章編號：3697486
寫完了，不知道這樣可不可以..好久沒有寫這種程式了..
現在都在完硬體比較多，哈哈
請笑納，不過建議你要自己寫
A:位置對數字對
B:位置錯數字對
------------------------我是分隔線寶寶------------------------
'以下程式由Zx@F.B.S~Taiwan所寫
'可當參考之用，請勿以交差了事解決
'有問題請mail給kis87988@gmail.com
'MSN:kis87988@pchome.com.tw
Dim set_num As String
Dim check_num As String
Dim ctime As Integer
Private Function check(text As String) As String
Dim snum( 4 ) As String
Dim cnum( 4 ) As String
Dim A, B As Integer
A = 0
B = 0
For i = 1 To 4
snum( i ) = Left(Right(set_num, i ), 1)
cnum( i ) = Left(Right(text, i ), 1)
If snum( i ) = cnum( i ) Then A = A + 1
Next
If cnum( 1 ) = snum( 2 ) Then B = B + 1
If cnum( 1 ) = snum( 3 ) Then B = B + 1
If cnum( 1 ) = snum( 4 ) Then B = B + 1
If cnum( 2 ) = snum( 1 ) Then B = B + 1
If cnum( 2 ) = snum( 3 ) Then B = B + 1
If cnum( 2 ) = snum( 4 ) Then B = B + 1
If cnum( 3 ) = snum( 1 ) Then B = B + 1
If cnum( 3 ) = snum( 2 ) Then B = B + 1
If cnum( 3 ) = snum( 4 ) Then B = B + 1
If cnum( 4 ) = snum( 1 ) Then B = B + 1
If cnum( 4 ) = snum( 2 ) Then B = B + 1
If cnum( 4 ) = snum( 3 ) Then B = B + 1
A = Str( A )
B = Str( B )
check = A & "A" & B & "B"
End Function
Private Sub ans_Click()
MsgBox "答案是" & set_num, vbOKOnly, "訊息"
Call clean_Click
End Sub
Private Sub auto_set_Click()
Dim snum( 4 ) As String
A:
set_num = (9999 * Rnd)
If set_num <> "" Then
For i = 1 To 4
snum( i ) = Left(Right(set_num, i ), 1)
If snum( i ) = "0" Or snum( i ) = "1" Or snum( i ) = "2" Or snum( i ) = "3" Or _
snum( i ) = "4" Or snum( i ) = "5" Or snum( i ) = "6" Or snum( i ) = "7" Or _
snum( i ) = "8" Or snum( i ) = "9" Then
Else
GoTo A
End If
Next
If Len(set_num) <> 4 Or _
snum( 1 ) = snum(2) Or _
snum( 1 ) = snum(3) Or _
snum( 1 ) = snum(4) Or _
snum( 2 ) = snum(3) Or _
snum( 2 ) = snum(4) Or _
snum( 3 ) = snum(4) Then GoTo A
End If
End Sub
Private Sub clean_Click()
List.Clear
Text1.text = ""
ctime = 0
check_num = ""
set_num = ""
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Form_Load()
Call clean_Click
End Sub
Private Sub Ocheck_Click()
check_num = Text1.text
Dim cnum( 4 ) As String
If set_num = "" Then
MsgBox "請輸入正確設定數字", vbOKOnly, "注意"
Exit Sub
End If
For i = 1 To 4
cnum( i ) = Left(Right(check_num, i ), 1)
If cnum( i ) = "0" Or cnum( i ) = "1" Or cnum( i ) = "2" Or cnum( i ) = "3" Or _
cnum( i ) = "4" Or cnum( i ) = "5" Or cnum( i ) = "6" Or cnum( i ) = "7" Or _
cnum( i ) = "8" Or cnum( i ) = "9" Then
Else
MsgBox "請輸入正確數字", vbOKOnly, "注意"
Text1.text = ""
Exit Sub
End If
Next
If Len(set_num) <> 4 Or _
cnum( 1 ) = cnum( 2 ) Or _
cnum( 1 ) = cnum( 3 ) Or _
cnum( 1 ) = cnum( 4 ) Or _
cnum( 2 ) = cnum( 3 ) Or _
cnum( 2 ) = cnum( 4 ) Or _
cnum( 3 ) = cnum( 4 ) Then
MsgBox "請輸入正確數字", vbOKOnly, "注意"
Text1.text = ""
Exit Sub
End If
If set_num = check_num Then
MsgBox "你猜對了答案是" & set_num, vbOKOnly, "訊息"
Else
ctime = ctime + 1
If ctime < 20 Then
List.AddItem (check_num & " " & check(check_num))
Else
ctime = 0
MsgBox "你輸了答案是" & set_num, vbOKOnly, "訊息"
Call clean_Click
End If
End If
End Sub
Private Sub set_com_Click()
set_num = InputBox("請輸入數字", "設定數字")
Dim snum( 4 ) As String
If set_num <> "" Then
For i = 1 To 4
snum( i ) = Left(Right(set_num, i ), 1)
If snum( i ) = "0" Or snum( i ) = "1" Or snum( i ) = "2" Or snum( i ) = "3" Or _
snum( i ) = "4" Or snum( i ) = "5" Or snum( i ) = "6" Or snum( i ) = "7" Or _
snum( i ) = "8" Or snum( i ) = "9" Then
Else
MsgBox "請輸入正確設定數字", vbOKOnly, "注意"
Exit Sub
End If
Next
If Len(set_num) <> 4 Or _
snum( 1 ) = snum( 2 ) Or _
snum( 1 ) = snum( 3 ) Or _
snum( 1 ) = snum( 4 ) Or _
snum( 2 ) = snum( 3 ) Or _
snum( 2 ) = snum( 4 ) Or _
snum( 3 ) = snum( 4 ) Then MsgBox "請輸入正確設定數字", vbOKOnly, "注意"
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Call Ocheck_Click
End Sub
------------------------我是分隔線寶寶------------------------
附上整個檔案，還有編譯出來的exe檔給你
不過你一定要自己寫一次喔
有問題可上msn討論
kis87988@pchome.com
附加壓縮檔: 200709/mobile01-f477e31316e5d53a58c2f2841b2b5494.zip
個人積分：1058分
文章編號：3697511
個人積分：188分
文章編號：3697966
個人積分：6分
文章編號：3698046
個人積分：66分
文章編號：3698082
個人積分：0分
文章編號：3698122
個人積分：376分
文章編號：3698203
