4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在编辑区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。

　　这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。

　　三、添加代码

　　1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2) as integer”。

　　2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入

　　If ti2.Value = True Then
　　fen(0) = 2
　　Else
　　fen(0) = 0
　　End If
　　With SlideShowWindows(1).View
　　.GotoSlide (2)
　　End With

　　3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入

　　If ti3.Value = True Then
　　fen(1) = 2
　　Else
　　fen(1) = 0
　　End If
　　Dim i, s
　　s = 0
　　For i = 0 To 2
　　s = s + fen(i)
　　Next
　　sum = s

　　好了，退出“Microsoft visual basic”编辑器，按F5试一下效果吧，怎么样，是不是和原来设计的一样呢。