问题：
[单选题]编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As 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 As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。
A、-56
C、103
D、190
参考答案：
A
相关内容
- ● 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()Dim x A Integerx = Val(InputBox("请输入一个整数"))Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
- ● 在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()For i=5 to 1 tep -08Print Int(i);Next iEnd Sub运行程序,单击命令按钮,窗体上显示的内容为________。
- ● 在代码窗口中,有如下事件过程,以下叙述正确的是______。Private Sub Option1_Click(Index A Integer)……End Sub
- ● 在窗体上画一个文本框，然后编写如下事件过程：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表示（）。 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() Dim a(10)A Integer Dim p(3)A Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。
