编写下列事件过程和函数过程：

Private Sub Commandl Click()

D．im num(1 To 6)As Single

num(1)=103:num(2)=190:num(3)=0

num(4)=32:num(5)=-56:num(6)=100

Print

Print p2(6,num())

E．nd Sub

Private Function p2(ByVal n As Integer,number()As Single)As Integer

p2=number(1)

F．or j=2 To n

If number(j)＜p2 Then p2=number(j)

Next j

E．nd Function

程序运行后，在窗体上输出( )。

A．-56

B．0

C．103

D．190

[单选题]（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As 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 Integer,number()As Single)As Integer P2=number(1) For

[单选题]编写如下事件过程和函数过程： 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．-56B．0C．103D．190

[单选题]编写如下事件过程和函数过程： 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

[单选题]有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(A) b=InputBox(“请输入b的值”) b=Val(B) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为( )。A．6000B．-10C．200D．-6000

[单选题]编写如下事件过程： Private Sub Form. Click() Dim Char As String，i As Integer Const ch$="#" msg$= "Enter a String：" char=InputBox$(msg$) n=Len(Char) For i=1 To n If Mid$(char，i，1)=ch$ Then Exit For End If Next i Print i - 1 End Sub 其中InputBox函数的功能是弹出一个输入对话

[单选题]某个窗体己编写以下事件过程：Private Sub Form_Click( )D．im k as Integer，n as Integer，m as Integern=5m=1k=1D．o While k＜=nm=m*2k=k+1LoopMsgBox m,vbYesNo+vblnformation,"Result"E．nd Sub打开窗体运行后，单击窗体，弹出的信息框外观样式是______。A．B．C．D．

[单选题]下列事件过程：Private Sub Command1_ Click() MsgBox Str (123+123)End Sub运行时，信息框中出现的结果是______。A．123+123B．123C．246D．显示出错信息

[单选题]某人编写了下面的程序Private Sub Commandl_click()D．im a As Integer，b As Integera=InputBox(“请输入整数”)b=InputBox(“请输入整数”)pro apro bC．allpro(a+B)E．nd SubPrivate Sub pro(n As Integer)While(n>0)Print n Mod 10；n=n＼10WendPrintE．nd Sub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序

[单选题]Private Sub Commandl Click（）D．im i As Integer, j As IntegerD．im a （10,10）As IntegerF．or i=1 To 3F．or j= i To 3a（i,j）=（i-1）*3+jPrint a （i,j）;Next jPrintNext iE．nd Sub程序运行后，单击命令按钮，窗体上显示的是（ ）。

[主观题]（14）窗体中有一个命令按钮，然后编写下列事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第二个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8，-1，