要用VB设计20道选择题，但是不能开20个窗口，应该怎么解决？！

作业？

把旧的擦掉重新写新的，第一题做完，你可以把FRAME1visuable(貌似拼错了)设置为不可见，就行了，不过在窗体设计的时候可能比较坑爹，还有一种办法是在运行的时候自动添加Label标签，我忘记代码了！虽然不明白你在说什渣渣水平只能帮你到这了

你会读写文本吧！如果会，用for语句实现就很简单，如果不会，那么就用selset case 语句来实现

去看我的贴子

练练手可以吗？别笑话。。。
Dim a$(10), b$
Private Sub Form_Load()
'题 A B C D 答案
a(1) = "25+20=?,45,44,87,102,45"
a(2) = "23+28=?,56,44,51,102,51"
a(3) = "19+21=?,56,44,187,40,40"
a(4) = "45+21=?,56,66,87,102,66"
a(5) = "56+21=?,56,44,77,102,77"
a(6) = "2+210=?,56,5,87,212,212"
a(7) = "12+12=?,24,44,87,102,24"
a(8) = "33+33=?,66,44,87,102,66"
a(9) = "20+21=?,56,44,41,102,41"
a(10) = "昆明是哪省的省会？,云南,江西,浙江,广东,云南"
For j = 0 To 3
Option1(j).Value = 0
Option1(j).Visible = 0
Next
Label1 = "单选题：按Next按钮开始答题"
End Sub
Private Sub Command1_Click()
Static i%
i = i + 1
If i = 10 Then Command1.Enabled = 0
Label1 = Split(a(i), ",")(0)
For j = 0 To 3
Option1(j).Value = 0
Option1(j).Visible = 1
Option1(j).Caption = Split(a(i), ",")(j + 1)
Next
b = Split(a(i), ",")(5)
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(Index).Caption = b Then MsgBox "正确！" Else MsgBox "错误！"
End Sub