题型：综合题 题类：模拟题 难易度：普通
浙江省名校信息技术仿真训练卷（三）
Private Sub Command1_Click()
Dim x As String，xq As String，num As Integer
Dim i As Integer，h As Integer，f As Boolean
x=”一二三四五六日”
xq=Text1．Text
num= ①
f=False：i=1
Do While i<=7 And f=False
If xq=Mid(x，i，1)Then
h=i：f=True
End If
i=i+1
Loop
r=(h+num) Mod 7
If r=0 Then
Label1．Caption=“星期日”
Else
Label1．Caption=“星期”+ ②
End If
End Sub
① ②
试题篮
