使用VB制作选择题程序运行时,首先出现的是让用户输入想要制作的选择题的数量N（15题以内）,输入后,会出现N个可填空的（用来写题目）text之类的,并且每题后面放一个可输入正确答案的东

使用VB制作选择题程序运行时,首先出现的是让用户输入想要制作的选择题的数量N（15题以内）,输入后,会出现N个可填空的（用来写题目）text之类的,并且每题后面放一个可输入正确答案的东
使用VB制作选择题
程序运行时,首先出现的是让用户输入想要制作的选择题的数量N（15题以内）,输入后,会出现N个可填空的（用来写题目）text之类的,并且每题后面放一个可输入正确答案的东西,下面有ABCD四个选项,当点击正确答案时,会出现“回答正确,请继续努力!”点击错误答案时会出现“回答错误,请再想想!”
要有一个按钮,控制正确答案的隐藏.

使用VB制作选择题程序运行时,首先出现的是让用户输入想要制作的选择题的数量N（15题以内）,输入后,会出现N个可填空的（用来写题目）text之类的,并且每题后面放一个可输入正确答案的东
我表示我头好大,终于帮你基本完成了!我把代码给你（后面）,我先说下界面设置,
先设置一个text1(textbox) （这个是输入数量N用的）于窗体,在属性框把它的index改为0,创建数组.再从工具栏拉一个text2(textbox),同样将其index改为0,创建数组（这个text2(0) 你注意把它的visible设为false).再拉一个text3(textbox)同样将其index改为0（visible设为false),创建数组.我设置了两个按钮,一个是command1（这是你输入数量时text1（0）旁边的按钮）,另一个command2(这是隐藏答案,或先示时用的,运行时只要点它就可以自动切换）.设置一个单选框控件数祖,把它的visible设为false.再设置两个标签,第一个放在text1(0)旁边（设置caption“输入数量”).设置第二个标签,使它设置为控件数组（注意设置visible为false）这个标签你在属性栏设置它的left为0.
（（（你注意3个text的大小免得窗体放不下以及有些东西因此被覆盖,如果有覆盖你注意那几个控件在界面上是哪部分,根据自己进行处理）））
Dim i As Integer,j As Integer
Private Sub Command2_Click()
For j = Val(Text1(0).Text) + 1 To 2 * Val(Text1(0).Text)
Text1(j).Visible = Not Text1(j).Visible
Next j
End Sub
Private Sub command1_click()
For i = 1 To Val(Text1(0).Text)
Load Text1(i)
Text1(i).Width = Text1(i).Width + (Form1.Width - 3 * Text1(0).Width)
Text1(i).Top = Text1(i).Top + 1200 * (i)
Text1(i).Visible = True
Load Label2(i)
Label2(i).Top = Text1(i).Top
Label2(i).Caption = i & "."
Label2(i).Visible = True
Next i
For j = 1 To Val(Text1(0).Text)
Load Text2(j)
Text2(j).Left = Text1(j).Width + 600
Text2(j).Top = Text1(j).Top
Text2(j).Visible = True
Next j
For i = 1 To Val(Text1(0).Text)
For j = 4 * i - 3 To 4 * i
Load Option1(j)
Option1(j).Visible = True
Option1(j).Width = 500
Option1(j).Caption = Chr(64 + (j - 4 * (i - 1)))
If j = 4 * i - 3 Then
Option1(j).Left = 50
Option1(j).Top = Text1(i).Top + 600
Else
Option1(j).Left = Option1(4 * i - 3).Left + Option1(4 * i - 3).Width + 2200 * (j - 4 * (i - 1) - 1) Option1(j).Top = Text1(i).Top + 600
End If
Load Text3(j)
Text3(j).Visible = True
Text3(j).Left = Option1(j).Left + 500
Text3(j).Top = Option1(j).Top + 100
Next j
Next i
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(Index).Value = True Then
If Option1(Index).Caption = Text2(Int(Index / 4) + 1) Then
MsgBox "回答正确,请继续努力!"
Else
MsgBox "回答错误,请再想想!"
End If
End If
End Sub

YWE。我.们.不.孤.单。在.地.球.周.围.现.在.环.绕.着.许.多.外.星.朋.友，他.们.即.将.要.和.我.们.见.面，他.们.非.常.爱.我.们，很.想.帮.助.我.们，他.们.叫.银.河.联.邦。当.他.们.到.来.的.时.候.请.您.不.要.害.怕，他.们.不.会.伤.害.你。他.们.不.侵.略.他.们.爱.和.平，如.果.您.愿.意，请.把.这.条.信.息.转.发.给.其.他....

全部展开

YWE。我.们.不.孤.单。在.地.球.周.围.现.在.环.绕.着.许.多.外.星.朋.友，他.们.即.将.要.和.我.们.见.面，他.们.非.常.爱.我.们，很.想.帮.助.我.们，他.们.叫.银.河.联.邦。当.他.们.到.来.的.时.候.请.您.不.要.害.怕，他.们.不.会.伤.害.你。他.们.不.侵.略.他.们.爱.和.平，如.果.您.愿.意，请.把.这.条.信.息.转.发.给.其.他.人，您.的.善.德.一.定.会.得.到.回.报，祝.福.你，素.未.谋.面.的.朋.友，我.爱.你。请.在.百.度.贴.吧.搜.索：爱与光。tND

收起

YWE。