小王所在公司从2019年1月1日起，每工作3天休息2天。为此小王编写程序，用户判断2019年的某一天是上班还是休息。具体功能如下：在文本框Text1和Text2中分别输入月和日，点击“上班还是休息”按钮Cmd1，在标签Label2中输出结果，设计界面及运行界面如下图所示。
（1）鼠标单击按钮Cmd1执行的事件处理过程名是______________ 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码

Private Sub Cmd1_Click()
Dim mdays As String, days As Integer
Dim i As Integer, m As Integer, d As Integer
m =①_________________ 'm是当前月份信息
d = Val(Text2.Text) 'd是天的信息
mdays = "312831303130313130313031"   '2019年各个月份对应的天数
days = 0
For i = 1 To m - 1 ’前几个月份的总天数
days = days +②__________________ 
Next i
days = days + d
If days Mod 5 = 4 Or ③______________  Then
Label2.Caption = "休息"
Else
Label2.Caption = "上班"
End If
End Sub
（3）若文本框text1中输入的内容是4，文本框Text2中输入的内容为“3”,点按钮后，标签label2中显示的内容是__________。

清除标签LABEL1中内容的语句是（_______________________）

如果要改变窗体的标题，需要设置窗体对象的属性（  ）

A．Name

B．Caption

C．BackColor

D．BorderStyle

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。
(字母A和字母a的ASCII码值分别为65、97)

(1)该程序除窗体外使用了________（填数字）个对象。
(2)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Timer1.Enabled = _________________________'①
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim a As Integer, e As Integer, h As Integer
Randomize
s = ""
For a = 1 To 30
e = Int(Rnd() * 52 + 1)
If e <= 26 Then
h = e + 64
Else
h = _________________________'②
End If
c = _________________________'③
s = s + c
Next a
List1.AddItem s
End Sub
(3)为了减缓字符串的出现速度，可将Timer1的Interval属性值________（选填，填字母：

A．调大、

B．调小）。

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

（1）要使程序运行时，按钮Command1上显示的标题为“删数”，可在Form_Load事件处理过程中添加语句________（单选,填字母：

A．Caption.Command1 ="删数" /

B．Command1.Caption ="删数" /

C．Caption ="删数"/）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, n As Integer
Dim max1 As Integer, max2 As Integer
s = Text1.Text: n = Len(Text1.Text)
If Mid(s, 1, 1) > Mid(s, 2, 1) Then
max1 = 1: max2 = 2
Else
max1 = 2: max2 = 1
End If
For i = 3 To n
ch = Mid(s, i, 1)
If ch > Mid(s, max1, 1) Then
①_______
max1 = i
ElseIf ch >= Mid(s, max2, 1) Then
max2 = i
End If
Next i
For i = 1 To n
If ②_________ Then Text2.Text = Text2.Text & Mid(s, i, 1)
Next i
End Sub
（3）若在文本框Text1中输入的内容为“82176736”，单击按钮Command1,文本框Text2中显示的内容是________。