5分太少.?
看在妳還是壹線的情況下.我幫妳吧..設計界面看圖.
數據庫用ACCESS2003,名為dbase.mdb?,建立壹張表,名為?tiku
建立以下字段
ID?數字?tihao?數字?tumu文本daan數字
請手動加記錄,記錄必須大於240行....
代碼如下:
Option?Explicit
Public?th?As?Integer
Public?cws?As?Integer
Public?zth?As?Integer
Public?sl?As?Integer
Public?da?As?Integer
Public?cn?As?ADODB.Connection
Public?rs?As?ADODB.Recordset
Public?sql?As?String
Private?Sub?qjl()
rs.Close
cn.Close
Set?rs?=?Nothing
Set?cn?=?Nothing
End?Sub
'聲明數據庫連接相關的.
Public?Function?constr()?As?String
constr?=?"provider=microsoft.jet.oledb.4.0;data?source="?&?App.Path?&?"\dbase.mdb;"
End?Function
'數據庫路經
Public?Function?seta()?As?String
Set?cn?=?New?ADODB.Connection
Set?rs?=?New?ADODB.Recordset
cn?=?constr
cn.Open
End?Function
Private?Sub?tongji()
If?opt1.Value?=?False?And?opt2.Value?=?False?Then
zth?=?zth?+?1
cws?=?cws?+?1
l6.Caption?=?Str(zth)
Else
If?da?=?CInt(sl)?Then
zth?=?zth?+?1
l6.Caption?=?Str(zth)
Else
zth?=?zth?+?1
cws?=?cws?+?1
l6.Caption?=?Str(zth)
End?If
End?If
End?Sub
Private?Sub?qkz()
t1.Enabled?=?False
t2.Enabled?=?False
opt1.Enabled?=?False
opt2.Enabled?=?False
l4.Caption?=?"0"
l2.Caption?=?"0"
l3.Caption?=?"0"
l5.Caption?=?""
l6.Caption?=?"0"
End?Sub
Private?Sub?cmdr_Click()
Call?qkz
If?zth?=?0?Then
Call?qkz
MsgBox?"壹個題也沒有回答,沒有結果!",?vbInformation,?"-提?示-"
Else
Call?qkz
If?MsgBox("妳本次的考試成績如下:"?&?vbCrLf?&?"妳的總題數為:?"?&?zth?&?"?妳的錯題數為:?"?&?cws?&?"?妳的正確率為:?"?&?Format(((zth?-?cws)?/?zth)?*?100,?"0.00")?&?"%?."?&?vbCrLf?&?"是否要重新答題?",?vbInformation?+?vbYesNo?+?vbDefaultButton2,?"-提?示-")?=?vbYes?Then
Call?qkz
MsgBox?"請點?<開始答題>?按鈕開始答案!",?vbInformation,?"-提?示-"
Else
Call?qkz
th?=?"1"
zth?=?0
cws?=?0
da?=?2
sl?=?2
End?If
End?If
End?Sub
Private?Sub?cmds_Click()
l2.Caption?=?"120"
l3.Caption?=?"10"
t1.Enabled?=?True
t2.Enabled?=?True
th?=?"1"
cmdn.Enabled?=?True
opt1.Enabled?=?True
opt2.Enabled?=?True
zth?=?0
cws?=?0
Call?chuti
End?Sub
Private?Sub?chuti()
opt1.Value?=?0
opt2.Value?=?0
seta
sql?=?"select?*?from?[tiku]?where?[tihao]="?&?th?&?""
rs.Open?sql,?cn,?adOpenKeyset,?adLockOptimistic
If?rs.Fields("tihao")?=?""?Then
Call?qjl
MsgBox?"題庫中沒有題目!",?vbInformation,?"-提?示-"
Else
th?=?CInt(rs.Fields("tihao"))?+?1
l4.Caption?=?Str(rs.Fields("tihao"))
l5.Caption?=?rs.Fields("timu")
da?=?CInt(rs.Fields("daan"))
Call?qjl
End?If
End?Sub
Private?Sub?Form_Load()
t1.Enabled?=?False
t2.Enabled?=?False
opt1.Enabled?=?False
opt2.Enabled?=?False
End?Sub
Private?Sub?opt1_Click()
sl?=?"1"
End?Sub
Private?Sub?opt2_Click()
sl?=?"0"
End?Sub
Private?Sub?t1_Timer()
If?CInt(l2.Caption)?=?0?Then
t2.Enabled?=?False
t1.Enabled?=?False
If?MsgBox("總時間已到,不能再作答題!"?&?vbCrLf?&?"是否要查看結果?",?vbInformation?+?vbYesNo,?"-提?示-")?=?vbYes?Then
Call?cmdr_Click
Else
Exit?Sub
End?If
Else
l2.Caption?=?CInt(l2.Caption)?-?1
End?If
End?Sub
Private?Sub?t2_Timer()
If?CInt(l3.Caption)?=?0?Then
Call?tongji
Call?chuti
l3.Caption?=?"10"
Else
l3.Caption?=?CInt(l3.Caption)?-?1
End?If
End?Sub