题型：综合题 题类：模拟题 难易度：普通
浙江省普通高中信息技术学业水平冲刺预测卷（五）
某同学编写程序实现如下功能：程序运行时，在文本框Text1中输入车牌号，单击“判断”按钮Command1，在文本框Text2中显示限行的工作日。如图b所示，尾号为5，则显示星期二限行。
Private Sub Command1_Click（）
Dim s As String，n As Integer，x As String，y As String
s=Text1. Text
n= ①
y=“”
For i=n To 1 Step-1
x=Mid（s，i，1）
If ② Then
If Val（x）Mod 5=4 Then
y=“星期一”
Else If Val（x） Mod 5=0 Then
y=“星期二”
Else If val（x） Mod 5=1 Then
y=“星期三”
Else If val（x） Mod 5=2 Then
y=“星期四”
Else
y=“星期五”
End If
Exit For 退出循环
End If
Next
Text2. Text= ③
End Sub
① ② ③
试题篮
