作者qwea (找尋音樂)
看板Visual_Basic
標題[VB6 ] 請問...
時間Wed Dec 14 23:41:05 2005
請問用ＶＢ寫出,在一個英文線上測驗時
題目不會重複出現
有1~40題!!(讓資料庫裡面的資料隨機~但是不重複)
程式碼:
Private Sub Command1_Click()
K = K + 1
A = 100 / M
If Text1.Text + ".mp3" = FileName.Text Then
B = B + 1
S = A * B
Label4.Caption = Data1.Recordset.Fields("中文").Value
Else
MsgBox "有問題喔!!!", vbExclamation, "提示"
Label4.Caption = Data1.Recordset.Fields("中文").Value
End If
Randomize
I = Rnd() * 40
Data1.Recordset.MoveFirst
Data1.Recordset.Move I
If K >= M Then
Form3.Label1.Caption = S
Form3.Show
Unload Me
End If
End Sub
我朋友的問題 對vb不是很了解 所以來請教各位大大!!
感謝!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.141.147.68
※ 編輯: qwea 來自: 220.141.137.189 (12/15 18:30)