作者biku (be your Miss Special)
看板LAND98-NCCU
標題電概考前猜猜猜
時間Tue Jun 8 23:00:38 1999
交換排序
Private Sub Form_Load()
Randomize
Dim aa(6) As Integer '宣告陣列為一維陣列，可內含7筆資料
Dim a As Integer
For i = 1 To 5 '輸入資料
aa(i) = Int(Rnd * 100) + 1
Next i
For m = 1 To 4 '前次上課所教的排序法
For n = m + 1 To 5
If aa(m) > aa(n) Then a = aa(m): aa(m) = aa(n): aa(n) = a
Next n
Next m
Text1.Text = aa(1) '輸出
Text2.Text = aa(2)
Text3.Text = aa(3)
Text4.Text = aa(4)
Text5.Text = aa(5)
End Sub
泡沫排序
Private Sub Form_Load()
Randomize
Dim aa(6) As Integer
Dim a As Integer
For i = 1 To 5 '為輸入資料到陣列中
aa(i) = Int(Rnd * 100) + 1
Next i
For m = 1 To 4 '為前後交換之泡沫排序
flag = 0 'flag作為旗幟，一旦等於０就直接跳出
For n = 4 To m Step -1
If aa(n) > aa(n + 1) Then
a = aa(m): aa(m) = aa(n): aa(n) = a
flag = 1
Next n
If flag = 0 Then Exit For
Next m
Text1.Text = aa(1)
Text2.Text = aa(2)
Text3.Text = aa(3)
Text4.Text = aa(4)
Text5.Text = aa(5)
End Sub
猜數字(幾A幾B)
Private Sub Command1_Click()
Cls
Dim a, b, c, m, n, a1, b1, c1 As Integer
Randomize
Do '由電腦亂數形成三個不同數字
a = Int(Rnd * 9 + 1)
b = Int(Rnd * 9 + 1)
c = Int(Rnd * 9 + 1)
Loop Until a <> b And b <> c And a <> c
Do '未達3A或六次，可繼續執行
Do '由鍵盤輸入，直至三數不同為止
p = "請輸入三個1-9的不同數字" & vbCrLf & "你只有六次機會哦!"
x = Int(InputBox(p, 猜數字))
a1 = Val(Mid(x, 1, 1)): b1 = Val(Mid(x, 2, 1)): c1 = Val(Mid(x, 3, 1))
'由輸入的字串中擷取單一字串並數值化
If a1 = b1 Or b1 = c1 Or a1 = c1 Then
MsgBox "請重新輸入三個1-9的不同數字", 64, "猜數字"
Else
Exit Do
End If
Loop
If a1 = a And b1 = b And c1 = c Then
MsgBox "你好棒唷~~~一猜就對了!!", 64, "猜數字"
End
Else
m = 0: n = 0 '每次的AB均由0起始
If a1 = a Then
m = m + 1
ElseIf a1 = b Or a1 = c Then
n = n + 1
End If
If b1 = b Then
m = m + 1
ElseIf b1 = a Or b1 = c Then
n = n + 1
End If
If c1 = c Then
m = m + 1
ElseIf c1 = a Or c1 = b Then
n = n + 1
End If
MsgBox Val(m) & "A" & Val(n) & "B", 64, "猜數字"
t = t + 1
End If
Loop Until m = 3 Or t > 5
If m = 3 Then '將不同的結果輸出不同訊息
MsgBox "不錯喔！您只猜了" & Val(c) & "次"
ElseIf t > 5 Then
MsgBox "再來一次吧"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True '啟動計時器
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer() '將系統時間輸出
Label5.Caption = Format(Time, "AM/PM hh:mm:ss")
End Sub
Private Sub Timer2_Timer() '藉由timer2倒數計時
'timer2的interval須設為15000，讓他每15秒作用一次，代替倒數計時
MsgBox "time out, once again"
End Sub
anyway....
明天考完若大家有空到計中一起討論討論....
沒收到我寄的信的人
把這篇的程式碼給copy下來吧.....
--
胡思亂想又過了一夜 思念的疑問並沒有解決
我又胡亂想過了一夜 情感的東西 是否需要感覺
也許我不知道 我是真不明瞭
人對情感的苛求 是否那麼重要
也許我不知道 你哪兒最好 讓我情牽忘也忘不了
也許我不知道 你真的那麼好 我的思念你又明瞭多少 我胡思亂想