阅读以下应用说明和Visual Basic程序,根据要求回答问题1问题2。 【说明】 某机动车驾驶员模拟考试系统的“交通禁令标志识别”窗体中,共有1个按钮(CmdTest)、6个标签、 1个包含10个单选按钮的控件数组(OptPicture),如

admin2009-02-15  48

问题 阅读以下应用说明和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

选项

答案(1)False (2)False (3)0-9

解析 根据图2-15和图2-16的显示效果可知,窗体(Frm001)中只保留了关闭按钮(),隐藏了最小化按钮()和最大化按钮()。因此,窗体的MaxButton和MinButton属性值均应设置为“False”,即(1)、(2)空缺处的属性值均为“False”。
   控件数组是指类型相同且名称属性相同的一组控件。它通过Index属性区分各个控件。根据图2-15 (或图2-16)交通禁令标志图的个数,以及【Visual Basic程序】中语句“For i=0To9 optPicture(i).Value= False”、“tname(0)="禁止向左向右转弯"、tname(1)="禁止直行和向右转弯道"……rname(9)="禁止车辆临时或长时停放"”等信息可知,单选按钮控件数组(optPicture)对象的Index属性值应设置为“0~9”,即(3)空缺处的属性值均为“0~9”。
转载请注明原文地址:https://kaotiyun.com/show/XojZ777K
0

最新回复(0)