小明编写了一个字符重组程序，在文本框 Text1 中输入偶数个字符，单击“重组”按钮 Command1 后，将输入的内容从头、尾至中间依次取字符，组成一个新的字符串 Str2，并在文本框 Text2 中输出。例如在文本框 Text1 中输入字符 "12345678"，程序运行后在文本框 Text2 中显示字符 "18273645"。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = Text1.Text
Str2 = "" : m = 0
Do while _______________ 
Str2 = Str2 + ___________ 
Str2 = Str2 + ___________
m = m + 1
Loop
Text2.text=str2
End Sub

A\B的结果和以下哪个表达式的结果一样_____。

A．ABS（A/B）

B．A mod B

C．INT（A/B）

D．B/A

在数组a中按顺序找出一组升序子序列，可以不连续，但要求长度最长。例如：数组a的值分别为2，11，4，13，5，7。升序子序列分别有2，11、2，4、2，11，13、2，4，13、2，4，5、
2，4，5，7、11，13、4，13、4，5、4，5，7、5，7，其中最长升序子序列的数据是2，4，5，7。

算法思路如下：

（1）求以a(i)为结尾元素的最长升序子序列时，找到所有序号j(j=1，2……i-1)，且a(j)<a(i)。

如果这样的元素存在，且d(j)>=d(i)（d(i)记录i位置的最长升序子序列长度），那么就增加i位置的最长升序子序列长度，并记录该升序子序列倒数第二个位置。

（2）在d数组中找出最大值，即最长升序子序列长度。

（3）例如，2、11、4、13、5、7，d(1)=1，d(2)=2，d(3)=2，d(4)=3，d(5)=3，d(6)=4，所以最长升序子序列长度为4，是以a(6)为结尾元素。

现设计了如下VB程序，界面如图所示，请回答下列问题：

（1）观察上图，最长升序子序列的数据是____________________________。
（2）请在划线处填入合适的代码。
Const n = 9
Dim a(1 To n) As Integer
Private Sub Form_Load()

‘生成n个1，10范围的随机数，存储在a数组，并显示在列表框List1。代码略

End Sub
Private Sub Command1_Click()
Dim d(1 To n) As Integer ‘记录i位置的最长升序子序列长度
Dim pre(1 To n) As Integer ‘记录i结尾的最长升序子序列前一数据的位置
Dim st As String，i As Integer，k As Integer，maxlen As Integer
For i = 1 To n

d(i) = 1

Next i
For i = 2 To n

For j = 1 To i-1

If a(j) < a(i) And d(j) >= d(i) Then
d(i) = ___________ 
pre(i) = j
End If

Next j

Next i
maxlen = 0：k = 0
For i = 1 To n

If ___________ Then maxlen = d(i)：k = i

Next i
Do While k <> 0

st = a(k) & "，" & st

_____________

Loop
Text1. Text = Mid(st，1，Len(st)-1)
End Sub

下列流程图描述的是计算地铁站售票问题的算法：
1~4站，2元/位 5~9站，3元/位 9站以上，4元/位
用N表示人数，用X表示站数，用Y表示应付的钱。

请按此算法功能，把流程图填写完整。位置①选择的正确答案▁▁▁

A．(X > 9) OR (Y < 5)

B．X >= 9

C．X > 5

D．X <= 9

小王所在公司从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中显示的内容是__________。