作者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)