在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:程序运行后,单击命令按钮,输出结果是（）

Private Sub Command1_Click（）

Dim a As String

A="123456789"

For i=1 To 5

Print Space（6-i）;Mid $ （a,______ ,2*i-1）

Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。

Private Function f（m As Integer）

If m Mod 2=0 Then

f=m

Else

f=1

End If

End Function

Private Sub Command1_Click（）

Dim i As Integer

s=0

For i=1 To 5

s=s+f（i）

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示的是（ ）。

A．11

B．10

C．9

D．8

Private Sub Command1_Click()

Dim a As String

a = "123456789"

For i = 1 To 5

Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)

Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。

Private Sub Command1_Click（）

Move 500,500

End Sub

程序运行后，单击命令按钮，执行的操作为（ ）。

A．命令按钮移动到距窗体左边界、上边界各500的位置

B．窗体移动到距屏幕左边界、上边界各500的位置

C．命令按钮向左、上方向各移动500

D．窗体向左、上方向各移动500

Private Sub Command1_Click（ ）

Move 500，500

End Sub

程序运行后，单击命令按钮，执行的操作为（ ）。

A．命令按钮移动到距窗体左边界、上边界各500的位置

B．窗体移动到距屏幕左边界、上边界各500的位置

C．命令按钮向左、上方向各移动500

D．窗体向左、上方向各移动500

Private Sub Command1_Click（）

a$="VisualBasic"

Print String（3,a$）

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。

A．VVV

B．Vis

C．sic

D．11

A． 命令按钮移动到距窗体左边界、上边界各500的位置

B．窗体移动到距屏幕左边界、上边界各500的位置

C．命令按钮向左、上方向各移动500

D．窗体向左、上方向各移动500

Sub Command1_Click()

num As Integer

= 1

Until num >6

num;

= num + 2.4

Sub

程序运行后,单击命令按钮,则窗体上显示的内容是( )

A、1 3.4 5.8

B、1 3 5

C、1 4 7

D、无数据输出

Private Sub Command1_Click（）

x=InputBox（"Input"）

Select Case x

Case 1,3

Print "分支 1"

Case Is >4

Print "分支 2"

Case Else

Print "Else 分支 "

End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。

A．分支1

B．分支2

C．Else分支

D．程序出错

Private Sub Command1_Click（）

n = 5

f = 1

s = 0

For i = 1 To n

f = f _______

s = s + f

Next

Print s

End Sub

该事件过程的功能是计算的值。请填空。