VB答题系统制作教程

下载后可任意编辑VB 答题系统制作图文教程1、打开 Visual Basic 6.0 企业版程序，选择创建 exe 文件2、创建后，根据自己的需求设置窗口大小，窗口名称等属性值。如：3、在窗口上放置四个按钮 (commandButton1-4)控件、两个标签 (Label1-2)控件、一个(TextBox1)控件、十个[TextBox(1-10)]控件和两个(Frame1-2)控件。如图：下载后可任意编辑4、将各个控件的属性值设置如下：控件名属性值Label11Label2第 题Command1最前一题Command2上一题Command3下一题Command4最后一题Option1(1)AOption1(2)BOption1(3)COption1(4)DFrame1题目区Frame2答题区Text1MultiLine = true ; ScrollBars = 2如图下：下载后可任意编辑6、在所在工程文件目录下创建一个新文件夹，命名为 question ; 同时再创建一个文件夹，命名为 answer 。 如图：7、在 question 文件夹中创建文本文档，命名为 1-10，题目以及选项都需输入。下载后可任意编辑8、在 answer 文件中创建文本文档，命名为 1-10，所对应的答案按序号入座。9、双击窗体，输入以下代码：'______________________________________________________________________________Private Sub Form_Load()Text1.Text = "" '卸载 Text1 的文本内容Dim Lstr As String '定义数据类型Open App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1 '读取文本文档Do While Not EOF(1)下载后可任意编辑Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1For i = 1 To 10 Text2(i).Text = ""Next iCommand1.Enabled = False '第一题时前两个按钮失效Command2.Enabled = FalseEnd Sub'______________________________________________________________________________Private Sub Command1_Click()For i = 1 To 4 Option1(i).ForeColor = vbBlack Option1(i).Value = FalseNext iLabel1.Caption = 1Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = True: Command4.Enabled = TrueIf Text2(Label1.Caption).Text <> "" Then For i = 1 To 4 If Text2(Label1.Caption).Text = Option1(i).Caption Then Option1(i).ForeColor = vbRed Option1(i).Value = True End If Next iEnd IfText1.Text = ""...