窗体上有一个名为Commandl的命令按钮，并有下面的程序：

Private Sub Command1_Click()

D．im art(5)As Integer

F．or k=1 TO 5

arr(k)=k

Next k

prog art()

F．or k=1 To 5

Print alT(k)；

Next k

E．nd sub

Sub prog(a()As Integer)

n=UBound(a)

F．or i=n To 2 step-1

F．or j=1 To n-1

if a(j)<a(j+1)Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

E．nd If

Next j

Next i

E．nd sub

程序运行时，单击命令按钮后显示的是

A．1 2 3 4 5

B．5 4 3 2 1

C．0 1 2 3 4

D．4 3 2 1 0

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Commandl_Click()D．im a(1 0)，x％a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Print xE．nd Sub程序运行后．单击命令按钮，输出结果是A．10个数中奇数的个数B．l0个数中偶数的个教C．10个数中奇数的累加和D．10个数中偶数的累加和

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command_Click()D．im a As Integer，b As Integera=8b=12Print Fun(a，b)；a；bE．nd SubPrivate Function Fun(ByVal a As Integer，b As Integer)As Integera=a Mod 5b=b＼5F．un=aE．nd Function程序运行时，单击命令按钮，则输出结果是A．3 3 2B．3 8 2C．

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command 1_Click()D．im a As Integer, b As Integera=8b=12Print Fun(a, b);a; bE．nd SubPrivate Function Fun(ByVal a As Integer, b As Integer)As Integera=a Mod 5b=b、5F．un＝aE．nd Function程序运行时，单击命令按钮，则输出结果是A．）3 3 2B．

[单选题]（ 34 ）窗体上有一个名为 Command1 的命令按钮，并有下面的程序：Private Sub Comand1_Click （）D．im arr （ 5 ） As IntegerF．or k=1 To 5arr （ k ） =kNext kprog arr （）F．or k=1 To 5Print arr （ k ）Next kE．nd SubSub prog （ a （） As Integer ）n=U b ound （ a ）F．or i=n To 2 step -1F．or j=1 T

[单选题]（25）在窗体上有一个命令按钮Commandl，编写下列程序： Private Sub Command1_Click() Print ppl(3,7) End Sub Public Funcion ppl(x As Single,n As Integer)As Single If n=0 Then ppl=1 Else If n Mod 2=1 Then ppl=x*x+n Else ppl=x*x-n End If End If End Funcion 程序运行后，单击该命令按钮，屏幕上显示的

[单选题]在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl—Click()D．im M(10)As IntegerF．or k=1 TO 10M(k)=12一kNext kx=8PrintM(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是A．6B．5C．7D．8

[单选题]在窗体上一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl一Click()D．im a(10)As IntegerF．or k=10 To 1 Step-1a(k)=20—2*kNext kk=k+7Print a(k—a(k))运行程序．单击命令按钮，输出结果是A．1 8B．12C．BD．6

[单选题]窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：Private Sub Commandl_Click()Timerl．Enabled=TrueE．nd SubPrivate Sub Form_Load()Timerl．Interval=10Timerl．Enabled—FalsePrivate Sub Timerl _Timer()C．ommandl．Left=Commandl．Left+10E．nd Sub程序运行时，单击命令按钮，则产生的结果是A

[单选题]在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i＝1 To 10 num＝InputBox(“请输入数据：”，“输入”，1)A．&:",b＝"& Str(B．) End Sub 运行以上事件所完成的功能是( )。C．对输入的10个数据求累加和D．对输入的10个

[单选题]设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：Private Sub Commandl一Click()x!==Val(Textl．Text)Select Case xC．asc Is<-10，Is>=20Print“输入错误”C．ase Is<0Print 20 xC．ase ls<10Print 20C．ase Is=20Print x+10E．nd SelectE．nd Sub程序运行时，如果存文本框中输入一5，则单击命令按