设有如下通用过程：
Public Sub Fun(a(),   x   As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）

A．10

B．15

C．25

D．24

小明用VB程序编写了一个密码生成器，单击“生成密码”按钮生成一个8位数的密码，该密码必须同时包含数字、大写字母和小写字母，并在文本框Text1中显示。程序界面如下图所示。

（1）在设计程序界面时，要将文本框Text1中的内容清空，应修改该文本框的   属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Const n = 8
Dim s As String
Dim a As Integer, i As Integer
Dim x As Boolean, y As Boolean, z As Boolean
x = False
y = False
z = False
Randomize
Do While ①  
s = ""
For i = 1 To n
a = Int(Rnd() * 62) + 1
If a <= 10 Then
x = True
s = s + Chr(a + Asc("0") - 1)
ElseIf a <= 36 Then
y = True
s = s + Chr(a + Asc("A") - 11)
Else
z = True
②
End If
Next i
Loop
Text1.Text = ③   
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。

（1）在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的_____________________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim y As Integer, r As Integer
Dim s As String, t As String
t = "0123456789ABCDEF"
s = ""
y = ①_________
Do While  y>0
r = y Mod 16
s = ②__________
y = ③_________
Loop
Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)
End Sub

有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2  Step -1 
s = s*j 
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是(    )

A．1

B．4

C．5

D．6

有如下 VB 程序段：
For i = 1 To 9 Step 2

 b(a(i) Mod 10) = b(a(i) Mod 10) + 1

Next i
s = 0
For i = 0 To 9 Step 3

 s =s + b(i)

Next i
数组 b 各元素初始值为 0, 数组元素 a(1)到 a(9)的值依次为“29，74，12，38，16，45，21，57，33”，则执行该程序段后，s 的值为（   ）

A．5

B．4

C．3

D．2