在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是( )。

Private Sub p1(n As Integer)

F．or i=n To 1 Step-1

x=String(i,"*")

Print x

Next i

E．nd Sub

Private Sub Command1_Click()

p1(3)

E．nd SubA)

*B)C)D)

A．*** ** *

B．* ** ****

C．* * *

D．******

[单选题]在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为( )。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i，"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End SubA．*** ** *B．* ** ***C．* * *D．******

[单选题]在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（）Private Sub Command1_Click（）x=InputBox（"请输入整数"）a=F1（Val（x））Print aEnd SubFunction F1（ByRef b As Integer）If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd Fu

[单选题]在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是( )。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(byRef b As Integer

[主观题]在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A．=InputBox("被除数")B．=InputBox("除数")Print A；"÷"；B；"="；A / BE．nd Sub则窗体中显示的内容是______。

[试题]在窗体上画一个命令按钮，其名称为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，然后编写如下程序： 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=";

[单选题]在窗体上画一个命令按钮，其名称为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,然后编写如下程序： 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

[单选题]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是( )。A．hardwareB．softwareC．hardwareD．1

[单选题]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox aS，b$，c$，1 End Sub 则在弹出的信息框的标题栏中显示的信息是A．software and hardwareB．softwareC．hardwareD．1