阅读程序，写出运行结果

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

For i=1  To  3

x=Val(InputBox(“x=”))

If  y< x   Then

y=x

End If

Next  i

Print  y

程序运行后，依次输入：36  87  51

运行后输出结果是_________________。

下面这个程序实现了把一个十进制数转换成八进制数。

(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click(   )

Dim n, m As Integer

Dim ch, s As String

s = "01234567"

____________________

ch = ""

Do While n > 0

m = n Mod 8

__________________

n = n \ 8

Loop

Text2.Text = ch

End Sub

设计算法，求个位不小于十位的两位数的和，请将如下VB代码填写完整。
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________  then
s = s+n
end if
n = n + 1
loop
print  s

编写“因子分解”程序，实现如下功能：在文本框 Text1 中输入一个大于 1 的正整数，单击“求因子” 按钮 Command1，在列表框 List1 中显示该数的所有因子，以及所有因子之和。程序运行界面如图所示。

（1）代码“Private  Sub Command1Click()”中的 Command1Click 是________。
（单选，填字母：

A．对象名

B．事件名

C．事件处理过程名）

（2）实现上述功能的 VB程序如下，请在划线处填入合适的代码。
Private Sub Command1Click()
Dim sum As Integer
Dim n As Integer, i As Integer
n = Val(Text1.Text)
List1.Clear
sum = 1
List1.AddItem Str(sum)
For i = 2 To Int(Sqr(n))
If ①________Then
sum = sum + i
List1.AddItem Str(i)
If i <> n / i Then
sum = ②_____ 
List1.AddItem Str(n / i)
End If
End If
Next i
List1.AddItem Str(n) + "的所有因子之和是" + Str(sum)
End Sub
（3）运行该程序，在文本框中输入 9，单击“求因子”按钮后，所有因子之和是________。

在VB程序中，如果要在一行内写多条语句时，语句之间应该用 分隔。