引用 | 编辑
三仙
2009-05-16 20:18 |
楼主
▼ |
||
x1
简易分析: 1.从资料库取出题目与答案 2.随机取出(防止重覆处理暂时不写) 3.答对时给予讯息(计分方式暂时不写) 4.放弃题目,重新取出一组 Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim ssql As String, ans As String Dim i As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 ref Case 2 If ans = rs.Fields(6).Value Then MsgBox "答对了!!" For i .. 访客只能看到部份内容,免费 加入会员 x2
|