K1VB基础数据类型、常量、变量与数组 变量表示 输入月份 换行

小王编写VB程序，功能如下：在文本框Text1中输入月份m（1≤m≤12），点击“查询”按钮Command1，在列表框List1中按一定格式输出2017年第m月份的日历。2017年1月1日是周日。程序运行界面如图所示。
为实现上述功能程序如下，请在加框处修改合适代码，使程序整除运行。
Private Sub Command1_Click ()
Dim month (1 To 12) As Integer ‘数组month存放每个月份的天数
Dim i As Integer, m As Integer ‘变量m存放输入月份
Dim s As Integer    ‘变量s表示当前日期是2017年第几天
Dim line As String    ‘变量line表示按行输出一周的日期
List1. Clear
month (1) = 31: month (2) = 28: month (3) = 31: month (4) = 30
month (5) = 31: month (6) = 28: month (7) = 31: month (4) = 31
month (9) = 30: month (10) = 31: month (11) = 30: month (12) = 31

m = Val(Text1. Text)
If m > 12 Or m < 1 Then
Text1. Text = “  “
Exit Sub
End If
List1. AddItem “日  一  二  三  四  五  六”
For i = 1 To m - 1
s = s + i
Next i
line = “  “
For i = 1 To s Mod 7
line = line + “  “
Next i
line = line + “1”
For i = 2 To month (m)
s = s + 1
If s Mod 7 = 0 Then
If i > 9 Then
line = line + Str(i)
Else
line = line + “ “ + Str(i)
End If
Else
List1. AddItem line
If i > 9 Then
line = CStr(i)  ‘Str在转换成的字符串前空一格，而CStr没有
Else
line = Str(i)
End If
End If
Next i
List1. AddItem line
End Sub


（1）s＋month（i）（1分）
（2）s Mod 7＜＞0（2分）


本题考查VB数组应用问题。（1）根据题意结合程序代码，变量s表示当前日期是2017年第几天，变量i表示月份，而数组month存放每个月份的天数，所以根据定义，s＝s＋month（i）。（2）本题主要涉及换行控制，s Mod 7＝0表示换行，结合代码含义，本处答案是s Mod 7＜＞0。