题目

某地车辆限行规则：周六、周日不限号；周一到周五，每天限行两个尾号，具体如下： 周一限行1和9，周二限行2和8，周三限行3和7，周四限行4和6，周五限行5和0。尾号为车牌最后一位数字，如果最后一位是字母，则看倒数第二位，依次类推，如车牌“浙A12C4F”的尾号为4。小王编写了一个判断车辆限行的VB程序，功能如下：在文本框Text1中输入车牌，Text2中输入星期几，单击“判断”按钮Command1后，在标签Label3上显示该车当天是否限行。程序运行界面如图所示。 （1） 在设计程序界面时，要清空标签Label3上的显示内容，应修改其属性。 （2） 实现上述功能的VB程序如下，请在画线处填入合适代码。 Private sub Command1__ Click（）   Const s=“一二三四五”   Dim i As Integer   Dim cp As String，xq As String   Dim ch As String，t As String   cp=Text1. Text   xq=Text2. Text   If xq=“六”Or xq=“日”Then     Label3. Caption=“不限行！“   Else     i=Len（cp）     Do While i>=1       ch=Mid（cp，i，1）       If ch>=“0”And ch<=“9”Then exit Do ’Exit Do用于退出循环           ①         Loop     If Val（ch）=0 Then       t=Mid（s，5，1）     Else If Val（ch）<=5 Then       t=Mid（s，Val（ch），1）     Else           ②        End If     If t=xq Then       Label3. Caption=“限行！”     Else       Label3. Caption=“不限行！”   End If End Sub ① ②  （3） 运行该程序，文本框Text1中输入“浙A1B20E”，Text2中输入“五”，单击“判断”按钮，则标签Label3上显示的内容是。 答案： 【1】Caption 【1】i=i-1【2】t=Mid（s，10-Val（ch），1） 【1】限行！

查看本题答案和解析