作者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下来吧.....
--
胡思乱想又过了一夜 思念的疑问并没有解决
我又胡乱想过了一夜 情感的东西 是否需要感觉
也许我不知道 我是真不明了
人对情感的苛求 是否那麽重要
也许我不知道 你哪儿最好 让我情牵忘也忘不了
也许我不知道 你真的那麽好 我的思念你又明了多少 我胡思乱想