[利用VBA设计课堂练习题]

[利用VBA设计课堂练习题]
由于利用多媒体课件教学有诸多优越性，所以在提高教学质量方面，多媒体课件不失为一种很好的辅助工具。

制作多媒体课件的软件也很多，如Flash，Authorware，PPT等，在实际使用时要根据教学需求和对这些软件的熟悉程度加以选用。

PPT的易用性和强大功能得到了广大教师的青睐，如果结合使用VBA，PPT的灵活性、功能性、交互性、可扩展性等都会大大增强。

一、VBA简介
VBA是Visual Basic for Application的简写，它以VB，它们各有优缺点，使用幻灯片的不足之处是程序执行结果会保留在幻灯片上(重新播放时，上次结果会保留在幻灯片上，使用不太方便)，要除去这些内容，还得多写代码；使用用户窗体不足之处是幻灯片启动时看不见。

因此在这里把它们结合起来使用。

使用一张幻灯片，作为导航界面；使用若干个用户窗体作为答题界面。

执行//命令，打开控件工具箱，单击控件工具箱上的命令按钮，在幻灯片的合适位置画出4个按钮，右击第一个命令按钮，在弹出的快捷菜单中单击，在打开的属性对话框中，将Caption属性改为“选择题”。

用同样的
方法将另外三个命令按钮的Caption属性分别改为“判断题”“填空题”“匹配题”。

然后使用Alt+F11组合键(或执行//命令)打开Visual Basic编辑器窗口，在此窗口中，执行/就可插入用户窗体。

在第一个用户窗体的合适位置添加两个命令按钮CommandButton1和CommandButton2，Caption属性分别为“开始”“下一题”，Enabled属性分别为真(True)、假(False)；然后在适合的位置添加一个标签(Label1)，用于显示题目；在适合处添加4个单选按钮(OptionButton1，OptionButton2，OptionButton3，OptionButton4)，将Caption属性值分别设置为“A”“B”“C”“D”，(字母大小写一定要和数据库中“答案”中的一致)，并在每个单选按钮的后边加一个标签(Label2，Label3，Label4，Label5)，用于显示备选择答案。

另外在不影响操作的位置加一个文本框(TextBox1)，把其可见性(Visible)设置为假(False)，用于暂存已经做的题目数量。

第一个用户窗体作为选择题答题界面，一般一种题型用一个窗体，按需要仿窗体一设计即可。

另外，界面的设计要符合界面设计原则。

2.应用实例
(1)链接数据库
①执行／／命令，打开“Visual Basic编辑器”窗口。

②引用VBA工程(VBAProject)。

单击／，打开“引
用―VBAProject”窗口，在“可使用的引用(A)”窗口中找到“Microsoft ActiveX Data Object2.6”并选中，单击。

③单击／，就新建了一个模块，默认名称是“模块1”。

④双击“模块1”并添加以下代码：
Public adocon As ADODB.Connection
Public adorst As ADODB.recordset "在模块中建立公共数据对象
Sub MAIN()
Set adocon = New ADODB.Connection
If adocon.State= adStateOpen And Not
IsEmpty(adStateOpen) Then adocon.Close
adocon.Provider ="microsoft.jet.oledb.4.0"
adocon.ConnectionString ="test.mdb"
adocon.Open
"建立记录集
Set adorst = New ADODB.Recordset
adorst.ActiveConnection = adocon
adorst.CursorLocation = adUseClient
adorst.CursorType = adOpenDynamic
adorst.LockType = adLockOptimistic
End Sub
(2)利用VBA设计选择题
①单击第一个用户窗体中的“开始”按钮
Private Sub CommandButton1_Click() "开始按钮CommandButton1.EnabledFalse CommandButton2.EnabledTrue
TextBox1.Text = 1 "初始化题目量
Call MAIN
adorst.Source = "xzt"
adorst.Open , , , , adCmdTable
Label1.Caption = adorst.Fields(0)
Label2.Caption = adorst.Fields(1)
Label3.Caption = adorst.Fields(2)
Label4.Caption = adorst.Fields(3)
Label5.Caption = adorst.Fields(4)
End Sub
②单击第一个用户窗体中的“下一题”按钮Private Sub CommandButton2_Click()
Dim i As Integer
CommandButton3.Enabled = True
TextBox1.Text = TextBox1.Text + 1
i = TextBox1.Text Call MAIN
adorst.Source ="xzt"
adorst.Open , , , , adCmdTable If i。