[单选题]

在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function Func(By Val x As Integer, Y As Integer) y=x*y If y>0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=3 b=4 c=Func(a,b)Print" a="; a Print" b="; b Print" c="; c End Sub 程序运行后,单击命令按钮,其输出结果为______。

A.a=3 b=12 c=3

B.a=3 b=4 c=3

C.a=3 b=4 c=12

D.a=13 b=12 c=12

参考答案与解析:

相关试题

在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Functi

[单选题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function Func(ByVal x As Integer,y As Integer) y=x*y If y>0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=3 b=4 c=Func(a,B)Print "a=";a Print=b=";b Print

  • 查看答案
  • 在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Priva

    [试题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Private Sub Command1_Click()D.im a(10)As IntegerD.im x As IntegerF.or i=1 To 10a(i)=iNext ix=1MsgBoxa(f(x)+x)E.nd SubF.unction f(y As Integer)y=y+2f=yE.nd Function程序运行后,单击命令按钮,消息框的输出结果为______。

  • 查看答案
  • 在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Funct

    [单选题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function Func(ByVal x As Integer, y As Integer) y=x*y If y > 0 Then Func = x Else Func = y End If End Function Private Sub Command1_Click( ) Dim a As Integer, b As Integer a=3 b=4 c=Func(a,B)Print "a=";a Print "b

  • 查看答案
  • ( 23 )在窗体上画一个命令按钮,其名称为 command1, 然后编写如下代

    [单选题]( 23 )在窗体上画一个命令按钮,其名称为 command1, 然后编写如下代码:Option Base 1Private Sub Command1_Click()D.im aa = Array(1, 2, 3, 4)j = 1F.or i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sE.nd Sub程序运行后,单击命令按钮后,其输出结果是A. ) 4321B. ) 1234C. ) 34D. ) 12

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_Click()F.or I=1 To 2F.or J=1 To IPrint String(I,"Hello");Next JPrintNext IE.nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.H HH HHB.H HHHHC.HHHHHD.H HH HHHH

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后,窗体上显示的结果是______。A.101B.6C.5D.4

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerdo while b <100 b=b+5 a=a+ b if b >20 then exit doLoopPrint a, bEnd Sub程序运行后,如果甲击命令按钮,则在窗体上显示的内容是______。A.50 20B.75 25C.50 25D.75 20

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click() for i = 1 To 4 for j= 0 To i Print Chr$(65 +i) Next j Print Next iEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。A.BB CCC DDDD EEEEEB.B CC DDD EEEEC.AA AA CCCC DDDDDD.A BB CCC DDDD

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b<>0 Then End If End If If c<>0 Then x=3 Else x=4 End If Print x End Sub 程序运行后,单击命令按钮,其输出结果为 ______。A.34B.4C.35D.3

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_Click() For i=1 To 2 For j=1 To i Print String(i,"Hello") Next j Print Next i End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.H HH HHB.H HHHHC.HHHHH HH HHHHD.H

  • 查看答案
  • 在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Functi