单项选择题在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open d: temp female.txt For Input As #1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 MyChar=Input(1, #1) Next NextChar Print EOF(1) Close #1End Sub运行程序,单击命令按钮,其输出结果为( )。
单项选择题在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Function Fun(x) y=0 If x<10 Then y=x Else y=y+10 End If Fun=yEnd FunctionPrivate Sub Command1_Click() n=InputBox( 请输入一个数 ) n=Val(n) P=Fun(n) Print PEnd Sub运行程序,单击命令按钮,将显示输入对话框,如果在对话框中输入100,并单击 确定 按钮,则输出结果为( )。