阅读程序：
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print F(

单项选择题在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() Dim MaxSize，NextChar，MyChar Open D: temp female.txt For Input As # 1 Max Size=LOF(1) For Next Char=1 To MaxSize Seek # 1，NextChar MyChar=Input(1，# 1) Next NextChar Print EOF(1) Close # 1 End Sub 程序运行后，单击命令按钮，其输出结果为 ______。

单项选择题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编 写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer x=5 y=7 z=0 Text1.Text= Call P1(x，y，z) Text1.Text；Str(z) End Sub Sub P1(ByVal a As Integer，ByVal b As Integer，c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是 ______。