问题：
[单选题]编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=
A、-56
C、103
D、190
参考答案：
A
相关内容
- ● 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() Dim x A Integer x = Val(InputBox("请输入一个整数")) Print x + Text1TextEnd Sub程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。
- ● 有如下一个Sub过程： Sub mlt(ParamArray number()) n=1 For Each x In number n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a A Integer Dim b A Integer Dim c A Integer Dim d A Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。
- ● 有如下一个Sub过程： Sub mlt (ParamArray number()) n=1 For Each x In number n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a A Integer Dim b A Integer Dim c A Integer Dim d A Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。
- ● 编写如下程序： Private Sub Form_Click() a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。
- ● 如果在定义Sub过程时没有使用Private、Public和Static关键字，则所定义的过程是（）.
- ● 在事件过程中，Private表示______ 。
- ● 在以下事件过程中，Private表示（）。 Private Sub txtName_Change（） EndSub
- ● 编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6)A Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:num(5)=-56：num(6)=100 Print Print p2(6，num()) End Sub Private Function p2(By Val n A Integer, number() A Single) A Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。
- ● 编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) A Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n A Integer, number() A Single) A Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。
- ● 编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)A Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n A Integer,number()A Single)A Integer p2=
- ● 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do =( + 1) * ( +2) Number=Number+1 Loop Until S＞=30 Print Number，S End Sub 程序运行后，输出的结果是
- ● 在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S＞=6 Print Number，S End Sub 程序运行后，输出的结果是
