VB答题系统制作教程VIP免费

VB 答题系统制作图文教程 1、打开 Visu al Basic 6.0 企业版程序，选择创建 ex e 文件 2、创建后，根据自己的需求设置窗口大小，窗口名称等属性值。如： 3、在窗口上放置四个按钮(commandBu tton1-4)控件、两个标签(Label1-2)控件、一个(Tex tBox 1)控件、十个[Tex tBox (1-10)]控件和两个(Frame1-2)控件。如图： 4、将各个控件的属性值设置如下： 控件名 属性值 Label1 1 Label2 第 题 Command1 最前一题 Command2 上一题 Command3 下一题 Command4 最后一题 Option1(1) A Option1(2) B Option1(3) C Option1(4) D Frame1 题目区 Frame2 答题区 Tex t1 Mu ltiLine = tru e ; ScrollBars = 2 如图下： 6、在所在工程文件目录下创建一个新文件夹，命名为 question ; 同时再创建一个文件夹，命名为 answ er 。 如图： 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 Inpu t #1, Lstr If Lstr <> "" Then Tex t1.Tex t = Tex t1.Tex t & Lstr & v bCrLf End If Loop Close #1 For i = 1 To 10 Tex t2(i).Tex t = "" Nex t i Command1.Enabled = False '第一题时前两个按钮失效 Command2.Enabled = False End Su b '______________________________________________________________________________ Priv ate Su b Command1_Click() For i = 1 To 4 Option1(i).ForeColor = v bBlack Option1(i).Valu e = False Nex t i Label1.Caption = 1 Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = Tru e: Command4.Enabled = Tru e If Tex t2(Label1.Caption).Tex t <> "" Then For i = 1 To 4 If Tex t2(Label1.Caption).Tex t = Option1(i).Caption The...