VB腳本編寫的小題庫程序 -开发者知识库

VB腳本編寫的小題庫程序 -开发者知识库,第1张


一、程序運行截圖

   VB腳本編寫的小題庫程序 -开发者知识库,第2张

二、主要思想

  就是把Excel也當成一個數據庫,只不過這個數據庫只支持文本。程序可以改變和增加Excel里面的題目內容,題庫也會相應增大,注意總題數也要改成和實際題目數目相應的數字。

 本程序的Excel結構如下:

VB腳本編寫的小題庫程序 -开发者知识库,第3张

三、腳本內容

Option Explicit

Public currentNum, questionNum, totalNum As Integer

Public optionValue, correctAnswer As String

 

 

Private Sub CommandButtonAnswer_Click()

 

 

correctAnswer = Worksheets("Sheet1").Cells(questionNum, 6)

 

 If OptionButtonAnswerA Then

   optionValue = "A"

 

ElseIf OptionButtonB Then

   optionValue = "B"

 

ElseIf OptionButtonC Then

   optionValue = "C"

ElseIf OptionButtonD Then

   optionValue = "D"

   

End If

   

If (StrComp(optionValue, correctAnswer) = 0) Then

LabelHint.Caption = "回答正確"

Else

LabelHint.Caption = "回答錯誤,正確答案是"   correctAnswer

End If

 

End Sub

 

Private Sub CommandButtonNext_Click()

If CheckBoxRnd Then

currentNum = Int((totalNum * Rnd)   1)

questionNum = currentNum   1

Else

currentNum = (currentNum   1) Mod totalNum

If currentNum <> 0 Then

questionNum = currentNum   1

Else

questionNum = totalNum   1

End If

 

End If

LabelTitle.Caption = Worksheets("Sheet1").Cells(questionNum, 1)

 OptionButtonAnswerA.Caption = "A."   Worksheets("Sheet1").Cells(questionNum, 2)

 OptionButtonB.Caption = "B."   Worksheets("Sheet1").Cells(questionNum, 3)

 OptionButtonC.Caption = "C."   Worksheets("Sheet1").Cells(questionNum, 4)

 OptionButtonD.Caption = "D."   Worksheets("Sheet1").Cells(questionNum, 5)

 

 

LabelHint.Caption = ""

 

 OptionButtonAnswerA = False

 OptionButtonB = False

 OptionButtonC = False

 OptionButtonD = False

End Sub

 

Private Sub UserForm_Activate()

 

End Sub

 

Private Sub UserForm_Click()

 

End Sub

Private Sub UserForm_Initialize()

currentNum = 1

questionNum = currentNum   1

 

totalNum = CInt(Worksheets("Sheet1").Cells(2, 7))

 

optionValue = ""

correctAnswer = ""

LabelHint = ""

 

 LabelTitle.Caption = Worksheets("Sheet1").Cells(questionNum, 1)

 OptionButtonAnswerA.Caption = "A."   Worksheets("Sheet1").Cells(questionNum, 2)

 OptionButtonB.Caption = "B."   Worksheets("Sheet1").Cells(questionNum, 3)

 OptionButtonC.Caption = "C."   Worksheets("Sheet1").Cells(questionNum, 4)

 OptionButtonD.Caption = "D."   Worksheets("Sheet1").Cells(questionNum, 5)

 

 

End Sub

 


附:腳本下載地址 http://download.csdn.net/detail/ciel_arc/9428962

最佳答案:

本文经用户投稿或网站收集转载,如有侵权请联系本站。

发表评论

0条回复