问答题

阅读以下应用说明和Visual Basic程序,根据要求回答问题1问题2。
【说明】
某机动车驾驶员模拟考试系统的“交通禁令标志识别”窗体中,共有1个按钮(CmdTest)、6个标签、 1个包含10个单选按钮的控件数组(OptPicture),如图2-15所示。其中,标签(LblPrompt1)“禁令标志”与标签(LblTest)相对应,标签(LblPrompt2)“图片答案”与标签(LblAnswer)相对应,标签(LblEvaluate)为结果提示。

窗体(Frm001)对象和单选按钮控件数组(OptPicture)对象的部分属性及属性值如表2-15所示。

该程序运行时,单击【测试】按钮(CmdTest),在标签(LblTest)中随机显示一个交通禁令标志名称,用户单击控件数组(OptPicture)相应单选按钮后,程序在标签(LblAnswer)给出用户所击单选按钮对应的交通禁令标志名称,在标签(LblEvaluate)给出正确或错误的提示结果,如图2-15和图2-16所示。

【Visual Basic 程序】
Dim (4) As String
Private Sub cmdTest_Click()
Dim i As Integer
For i = 0 To 9
(5)
Next i
lblPrompt2.Visible = False
lblAnswer.Visible = False
lblEvaluate.Visible = False
i = Int(Rnd * 10)
lblTest.Caption = tname(i)
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
optPicture(i).Value = False
(6)
lblPrompt2.Visible = False
lblAnswer.Visible = False
lblEvaluate.Visible = False
tname(0)= '禁止向左向右转弯'
tname(1)= '禁止直行和向右转弯道'
tname(2)= '禁止直行和向左转弯'
tname(3)= '禁止驶入'
tname(4)= '禁止掉头'
tname(5)= '禁止车辆长时停放'
tname(6)= '禁止机动车通行'
tname(7)= '禁止非机动车通行'
tname(8)= '禁止超车'
tname(9)= '禁止车辆临时或长时停放'
End Sub
Private Sub optPicture_Click(Index As Integer)
lblPrompt2.Visible = True
lblAnswer.Visible =(7)
lblEvaluate.Visible = True
lblAnswer. Caption=(8)
If (9) Then
lblEvaluate.ForeColor = vbRed
lblEvaluate.Caption = ' 恭喜你!回答正确!'
Else
lblEvaluate.ForeColor = vbBlue
lblEvaluate.Caption= '很遗憾,回答错误。'
End If
End Sub
请根据图2-15和图2-16的显示效果和【Visual Basic程序】,将表2-15中窗体对象、单选按钮控件数组对象的(1)~(3)空缺处的属性值填写完整。

A.shangxueba.cn/images/ct_crppxm_crppxprogxvb1_00217(20096).jpg'
B.shangxueba.cn/images/ct_crppxm_crppxprogxvb2_00217(20096).jpg'
C.shangxueba.cn/images/ct_crppxm_crppxprogxvb3_00217(20096).jpg'
D.Visible
E.Visible
F.Visible
G.Caption
H.Value
I.Visible
J.Visible
K.Visible
L.Visible
M.Visible
N.Visible
O.ForeColor
P.Caption
Q.ForeColor
R.Caption=
题目列表

你可能感兴趣的试题

微信扫码免费搜题