VB脚本编写的小题库程序
2016-02-07 18:54
501 查看
二、主要思想
就是把Excel也当成一个数据库,只不过这个数据库只支持文本。程序可以改变和增加Excel里面的题目内容,题库也会相应增大,注意总题数也要改成和实际题目数目相应的数字。
本程序的Excel结构如下:
三、脚本内容
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.c
4000
sdn.net/detail/ciel_arc/9428962
相关文章推荐
- VB6.0中提示:该部件的许可证信息没有找到,在设计环境中,没有合适的许可证使用该功能”的解决办法
- VB程序使用管理员权限
- VB SendKeys 语句
- VB 获取系统内存信息
- VB6中ByRef 参数类型不正确的处理方法
- [Excel VBA]如何拷贝数组?
- [Excel VBA]快捷键如何设置?
- [Excel VBA]状态栏如何显示文字 ?
- [Excel VBA]文件夹的选择画面如何打开?
- [Excel VBA]如何自动关闭MsgBox?
- vba操作word删除某些页面
- 防止对 Visual Basic .NET 或 C# 代码进行反相工程 已经相关原理介绍
- VBA宏 合并EXCEL
- VB.NET中类对象
- VB.net学习
- VB.NET入门了解
- VB中的常用控件
- 【程序开发小记】VB.NET音乐播放器
- vb.net获取系统特殊文件夹路径方法
- VB6 加载水晶报表例子