【分析解答题】
从下列3道试题(试题5至试题7)中任选1道解答。如果解答的试题数超过1道,则题号小的1道解答有效。
阅读以下应用说明和visuAlBAsiC程序,根据要求回答问题1问题2。
【说明】
某机动车驾驶员模拟考试系统的“交通禁令标志识别”窗体中,共有1个按钮CmDtEst)、6个标签、 1个包含10个单选按钮的控件数组(optpiCturE),如图2-15所示。其中,标签(lBlprompt1)“禁令标志”与标签(lBltEst)相对应,标签(lBlprompt2)“图片答案”与标签(lBlAnswEr)相对应,标签(lBlEvAluAtE)为结果提示。
![]()
窗体(Frm001)对象和单选按钮控件数组(optpiCturE)对象的部分属性及属性值如表2-15所示。
{{B}}表2-15 窗体、单选按钮控件数组的部分属性及属性值{{/B}}
{{B}}对 象{{/B}}
| {{B}}属 性{{/B}}
| {{B}}属性值{{/B}}
|
窗体
| (名称)
| Frm001
|
iCon
| 变通标识
|
mAxButton
| (1)
|
minButton
| (2)
|
单选按钮 控件数组
| (名称)
| optpiCturE
|
inDEx
| (3)
|
stylE
| 1-grAghiCs
|
piCturE
| (装入相应图片)
|
该程序运行时,单击【测试】按钮CmDtEst),在标签(lBltEst)中随机显示一个交通禁令标志名称,用户单击控件数组(optpiCturE)相应单选按钮后,程序在标签(lBlAnswEr)给出用户所击单选按钮对应的交通禁令标志名称,在标签(lBlEvAluAtE)给出正确或错误的提示结果,如图2-15和图2-16所示。
![]()
【visuAlBAsiC 程序】
Dim{{u}} (4) {{/u}}As string
privAtE suB CmDtEst_CliCk()
Dim iAs intEgEr
For i = 0 to 9
{{u}} (5) {{/u}}
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 iAs intEgEr
For i = 0 to 9
optpiCturE(i).vAluE = FAlsE
{{u}} (6) {{/u}}
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(inDExAs intEgEr)
lBlprompt2.visiBlE = truE
lBlAnswEr.visiBlE ={{u}} (7) {{/u}}
lBlEvAluAtE.visiBlE = truE
lBlAnswEr.CAption={{u}} (8) {{/u}}
iF{{u}} (9) {{/u}}thEn
lBlEvAluAtE.ForEColor = vBrED
lBlEvAluAtE.CAption = " 恭喜你!回答正确!"
ElsE
lBlEvAluAtE.ForEColor = vBBluE
lBlEvAluAtE.CAption= "很遗憾,回答错误。"
EnD iF
EnD suB
【问题1】 请根据图2-15和图2-16的显示效果和【visuAlBAsiC程序】,将表2-15中窗体对象、单选按钮控件数组对象的(1)~(3)空缺处的属性值填写完整。 |