VB上机操作题综合 - 图文(7)

说明：设计如图所示程序，“模拟考试系统”包括选择题和判断题，选择题共1题40分，判断题共2题60分，合计100分。当使用者点击“交卷”按钮时，程序对作答情况进行判断并将结果分数显示到相应位置。

要求：

1.选择题答案为C，填空题答案为鲁迅、老舍； 2.将总分数存入变量S中；

3.当分数大于等于60分时，输出图示蓝字结果；

31 / 44

4.当分数小于60分时，输出图示红字结果。

详细内容：

程序使用控件如下：

窗体（Form）1个，框架（Frame）2个，标签（Label）4个,单选框（OptionButton）4个，文本框（TextBox）2个，按钮（CommandButton）1个。

控件属性设置：

Form1 Caption Frame1 Caption Font Frame2 Caption Font Label1 Caption Font Label2 Caption Font Label3 Caption Font Label4 Caption Font BackColor Option1 Caption Font Option3 Caption Font Text1 Text Font Command1 Caption

模拟考试系统 1.选择题（每题40分，共40分） 小三 2.填空题（每题30分，共60分） 小三 （1）“李杜文章在，光芒万丈长”中“李杜”是指： 小三 （1）小说《阿Q正传》的作者是： 小三 （2）小说《骆驼祥子》的作者是： 小三 “空白” 小三、加粗、倾斜 白色 A.李白和杜牧 小三 C.李白和杜甫 小三 “空白” 小三 交卷 32 / 44

Option2 Caption Font Option4 Caption Font Text2 Text Font B.李商隐和杜牧 小三 D.李商隐和杜甫 小三 “空白” 小三 Font 小三、隶书

参考代码：

Private Sub Command1_Click() Dim s As Integer

If Option3.Value = True Then s = s + 40 If Text1 = \鲁迅\If Text2 = \老舍\If s >= 60 Then

Label4.ForeColor = vbBlue

Label4 = \恭喜您！您的成绩是：\分。\Else

Label4.ForeColor = vbRed

Label4 = \很遗憾！您的成绩是：\分。\End If End Sub

VB程序设计—《组合计算》

出题人：胡智鹏

程序运行：

33 / 44

说明：补全程序，当单击窗体时，将组合C42的值显示到窗体上。 要求：

1.打开“试题程序”中工程文件，编写代码补全函数fact； 2.fact的功能是：计算任意数的阶乘值。

其中：

参考代码：

Dim i% fact = 1 For i = 1 To n fact = fact * i Next End Function

m!C?n!(n?m)!mnFunction fact(n%) As Long

Private Sub Form_Click() Dim m%, n%, cnm% m = 2

34 / 44

n = 4

cnm = fact(n) / fact(m) / fact(n - m) Print \组合的值是：\End Sub

VB程序设计—《菜单编辑器》

出题人：蔡国欣

程序运行界面：

说明：设计如图所示窗体界面。 详细内容：

窗体（Form）1个，标签（Label）6个，文本框（TextBox）4个，按钮（CommandButton）2个，组合框（ComboBox）2个，复选框（CheckBox）4个，列表框（List）1个。 控件属性设置：

35 / 44