[单选题]

编写如下事件过程和函数过程: 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

B.0

C.103

D.190

参考答案与解析:

相关试题

(26)编写下列事件过程和函数过程Private Sub Command1_Cl

[单选题](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 Command1_Clic

    [单选题]下列事件过程运行后输出结果是Private Sub Command1_Click()Print Format$(123,456, "###,##%")E.nd SubA.123.46%B.123.45%C.123.456%D.12345.6%

  • 查看答案
  • 编写如下事件过程和函数过程:Private Sub Form_Chck()Dim

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

  • 查看答案
  • (35)某人编写了下面的程序 Private Sub Command1_Clic

    [单选题](35)某人编写了下面的程序Private Sub Command1_Click( )D.im a As Integer, b As Integera=InputBox("请输入整数")b=InputBox("请输入整数")pro apro bC.all pro(a+b)E.nd SubPrivate Sub pro(n As Integer)While (n>0)Print n Mod 10;n=n/10WendPrintE.nd Sub此程序功能是:输入 2 个正整数,反序输出

  • 查看答案
  • 若在某窗体模块中有如下事件过程:Privam Sub Command1_Clic

    [单选题]若在某窗体模块中有如下事件过程: Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。A.此事件过程与不带参数的事件过程没有区别B.有—个名称为Command1的窗体,单击此窗体则执行此事件过程C.有一个名称为Command1的控件数组,数组中有多个不同类型控件D.有—今名称为Command1的控件数组,数组中有多个相同类型控件

  • 查看答案
  • 编写下列事件过程和函数过程:Private Sub Commandl Click

    [单选题]编写下列事件过程和函数过程:Private Sub Commandl Click()D.im num(1 To 6)As Singlenum(1)=103:num(2)=190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num())E.nd SubPrivate Function p2(ByVal n As Integer,number()As Single)As Integerp2=number(1)F.or j=2 To n

  • 查看答案
  • 执行下面的程序段,x的值为 。private Sub Command1_Clic

    [单选题]执行下面的程序段,x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA.5 B.6 C.7 D.8

  • 查看答案
  • 窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub

    [单选题]窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()Sum = 0F.or m = 1 To 3Select Case mC.ase 1a = 1C.ase 2a = 2C.ase 3a = 3E.nd SelectPrint a,Sum = Sum + aNext mPrint SumE.nd Sub运行时,单击按钮,输出结果是( )。A. 3 3 3 9B. 3 2 1 6C. 1 1 1 3D. 1 2 3 6

  • 查看答案
  • 窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub

    [单选题]窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()a = 80: b = 50: c = 30If ac Then b = cIf b = c And ac Then c = a + bPrint a, b, cE.nd Sub运行时,单击按钮,窗体输出的结果是( )。A. 80 50 30B. 80 30 30C. 50 30 80D. 50 30 30

  • 查看答案
  • 窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub

    [单选题]窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()x = InputBox("x=")y = InputBox("y=")Print x + yE.nd Sub运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是( )。A. 444B. 123321C. 123+321D. 出错信息

  • 查看答案
  • 编写如下事件过程和函数过程: Private Sub Command1_Clic