神马品牌网死侍用刀挡子弹:跪求高手们指点我这个初学者！谢！关于VB基础，大家都来看看~
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 15:39:46
怎么能在一个窗体里建立多个单选题？我用单选控件不管设多少，一个窗体只能选一个啊！（无奈）
正确建立完这些单选题怎么加和答对的题显示最后总分？比如有两道题（我想做的更多），每道题有四个选项，选其中一个完全对的加得50分，有一个较对的选它得30，剩下两个选项不得分。两道题这么下来总分是100，还能得到80，60，30，0。怎么表示出来？能在一个新窗体里表示么？（我想得不同分显示评价的窗体也不一样，如果在同一个窗体中显示，那怎么把前面那堆题和控件清除再把得分和评价打上去？）
谢谢各位高手们，麻烦你们解答了！
正确建立完这些单选题怎么加和答对的题显示最后总分？比如有两道题（我想做的更多），每道题有四个选项，选其中一个完全对的加得50分，有一个较对的选它得30，剩下两个选项不得分。两道题这么下来总分是100，还能得到80，60，30，0。怎么表示出来？能在一个新窗体里表示么？（我想得不同分显示评价的窗体也不一样，如果在同一个窗体中显示，那怎么把前面那堆题和控件清除再把得分和评价打上去？）
谢谢各位高手们，麻烦你们解答了！
其实这个问题可以这样的解决：
1：
比如你有3道选择题，那么你就要在同一个窗体上面添加3个Frame控件，
每一个控件里面就是你那道选择题的所有选项，比如Option1，Option2，
Option3，Option4等等，这样你就可以进行多项选择了。
2：打分的实例代码：
Option Explicit
Dim aa As Integer
Private Sub Command1_Click()
aa = 0
If Option1.Value = True Then
aa = aa + 50
'Debug.Print aa
End If
If Option2.Value = True Then
aa = aa + 30
'Debug.Print aa
End If
End Sub
3：把控件清除的代码：简单的例子，希望你可以看明白！
Private Sub Command2_Click()
Option1.Value = False
End Sub
一个单选题一组控件，有几个题弄几组控件就行了。
得分的，加两个if判断就可以了。
把没用的.visible = false就行了。