VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于10且小于100随机的VB表达式是（   ）

A．Int(Rnd*100)	B．Int(Rnd*90+10)
C．Int(Rnd*99+1)	D．Int(Rnd*99+10)

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m = ①  ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s, ② , max)
End Sub
（1） 程序中①处填入的代码是：  
（2） 程序中②处填入的代码是下列哪个选项（ ）

A．t

B．t-max

C．t-max+1

D．t-max-1

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text   
If ____ then 
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)  
ch = ___ 
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为________。

（加试题）某同学编写一个VB程序模拟音乐播放器的“随机排序”功能。单击“随机排序”按钮Command1，随机生成15个“歌曲名”（歌曲名由3-6个大写英文字母组成），在列表框list1输出原播放顺序，在列表框list2输出随机排序后的顺序。运行界面如下：

实现上述功能的VB代码如下，其中加框处代码有错，请改正。
(1)________________________;
(2)________________________;
Private Sub Command1_Click()
Dim a(1 To 15) As String, b(1 To 15) As Boolean, c(1 To 15) As String
'数组a和数组c分别代表排序前后的文件名
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 15    ‘生成各文件名，存放在数组a
k =Int(Rnd*5)+2 （1）
a(i) = ""
For j = 1 To k
a(i) = a(i) + Chr(65 + Int(Rnd() * 26))
Next j
List1.AddItem Str(i) + " " + a(i)
Next i
For i = 1 To 15
b(i) = False
Next i
For i = 1 To 15
k = Int(Rnd() * 15) + 1
Do While b(k) = True
k = Int(Rnd() * 15) + 1
Loop
b(k) = True
c(i) = a(k) + " " + "原位置" + Str(k)
Next i
For i = 1 To 15
List2.AddItem Str(i) + "  " +str(a(i)) （2）
Next i
End Sub

一个六位数n，它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等。编写VB程序，统计所有符合条件的六位数的个数。
Dim n As Long    '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______

Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环