运行下列过程,当输入一组数据:l0,20,50,80,40,30,90,100,60,70,输出的结果应该是( )。Sub plDim i,j,arr(11)AsIntegerx=1Whilek=10arr(k)=VaI(InputBox(”请输入第”k”个数:”,”输入窗口”))k=k+1WendFor i=1T09J=i+1Ifarr(i)arr(j)Thentemp=arr(i)arr(i)=art(j)arr(j)=tempEndIfDebu9.Printarr(i)NextiEnd SubA.无序数列B.升序数列C.降序数列D.原输入数列

运行下列过程,当输入一组数据:l0,20,50,80,40,30,90,100,60,70,输出的结果应该是( )。Sub plDim i,j,arr(11)AsInteger

x=1

Whilek<=10

arr(k)=VaI(InputBox(”请输入第”&k&”个数:”,”输入窗口”))k=k+1

Wend

For i=1T09J=i+1

Ifarr(i)>arr(j)Thentemp=arr(i)

arr(i)=art(j)

arr(j)=temp

EndIfDebu9.Printarr(i)

NextiEnd Sub

A.无序数列

B.升序数列

C.降序数列

D.原输入数列


相关考题:

有以下程序:int sub(int n) { return(n/10+n%10); }void main(){ int x,y; scanf("%d",x); y=sub(sub(sub(x))); printf("%d\n",y);}若运行时输入:4321回车,程序的输出结果是。

有下列事件过程: Private Sub Command1_Click() b = 10 Do Until b = -1 a = InputBox("请输入a的值") a = Val(a) b = InputBox("请输入b的值") b = Val(b) a = a * b Loop Print End Sub程序运行后,依次输入数值30,20,10,-1后,输出结果是。A. 6000 B. -10 C. 200 D. -6000

( 19 )有下列命令按钮(名称为 Command1 )事件过程:Private Sub Command1_Click( )x=InputBox(" 输入 :"," 输入整数 ")MsgBox " 输入的数据是 :" ,, " 输入数据 :"+xEnd Sub程序运行后,单击命令按钮,如果从键盘上输入整数 10 ,则下列叙述中错误的是( )。A ) x 的值是数值 10B )输入对话框的标题是 “ 输入整数 ”C )消息框的标题是 “ 输入数据: 10 ”D )消息框中显示的是 “ 输入的数据是: ”

有一过程如下:Sub Sub1(m As Integer,total As Long)Dim i As Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下:Private Sub Command1_Click()Dim tot As Long,a As Integera=Val(InputBox("请输入数据"))Call Sub1(a,tot)Print totEnd Sub则输入数据5,运行结果为【 】。

如下事件过程:Function Feed(x)If x 10 ThenFeed=xElseFeed=10 + xEnd IfEnd FunctionPrivate Sub Command1_Click()x=Val(InputBox( "", , 0) )pay=Feed(x)Print payEnd Sub运行时在输入框内输入变量x的值为15,输出结果为( )。A.0B.15C.25D.30

下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123,456,"###,##%") End SubA.123.46%B.123.45%C.1.23456D.123.456

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1 Click()a= Val(InputBox(“请输入一个整数”))b=Val(InputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后,单击命令按钮,在输入对话框中分别输入12和34,输出结果为 ______。

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()Do Until b a=In put Box("输入a的值")a=Val(a)b=Input Box("输入b的值")b=Val(b)a=a+bLoopPrint aEnd Sub程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。

运行下面的程序,单击命令按钮后,当输入分别为123和456时,输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字:")) PrInt a+b End SubA.123B.456C.123123D.579

在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入37和18,输出结果为A.3718B.55C.0D.a+b

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()X=0Do While X<>-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y<X+Y Then Print X,YLoopEnd Sub程序运行后,依次输入7,2,-3,8,-5,-10,18,-1,-1,则输出结果是【 】

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Do Whileb>=0c=a+bLoopEnd Sub程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是( )。

有以下程序:int sub(int n) { return(n/10+n%10); }main(){ int x, y;scanf("% d", x);y=sub(sub(sub(x)));printf("% d\n", y);}若运行时输入:1234<回车>,程序的输出结果是【 】。

有如下事件过程: 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

有如下函致: Function fact(x As Integer)As Long Dim p As Long,i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下: Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5,则运行结果为A.120B.60C.80D.100

有以下程序int sub(int n){ return(n%10+n/10); }main(){ int x,y; scanf("%d",x); y=sub(sub(x)); printf("%d\n",y);}若运行时输入:248回车,程序的输出结果是

有下列事件过程:Private Sub Command1_Click()b=10Do Until b=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(B)a=a*bLoopPrint aEnd Sub程序运行后,依次输入数值30,20,10,-1后,输出结果是( )。A.6000B.-10C.200D.-6000

运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60.70,输出的结果应该是sub pl( )Dim i, j, arr(11)As Integerk=1While k=10arr(k)=Val(InputBox("请输入第" k "个数:", "输入窗口" ))k=k+1WendFor i=1 T0 9j=i+1If arr(i) arr(j) Thentemp=arr (i)arr(i)=arr (j)arr(j)=tempEnd IfDebug Print arr(i)Next iEnd SubA)升序数列B)降序数列C)无序数列D)原输入数列

有过程如下:Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下:Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5,运行结果为 ______。A.100B.120C.200D.50

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Do Until b < 0a = InputBox( "输入a的值" )a = Val(@A@b = InputBox( "输入b的值" )b =VM(@B@a=a+bLoopPrint aEnd Sub程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。

下列程序: Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4,输出的结果是A.7B.34C.3+4D.出错

某个窗体己编写下列事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。Pfivate Sub Form_Click()a=1i=1Do Until i10a=a+2i=i+3LoopMsgBox aEnd Sub

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )a=Val(1nputBox(“请输入一个整数”))b=Val(1nputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后,单击命令按钮,在输入对话框中分别输入12和34,输出结果为【 】

如下事件过程: Function Feed(x) If x <10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click( ) x=Val(Input Box(" ",0)) pay=Feed(x) Print pay End Sub 运行时在输入框内输入变量x的值为15,输出结果为A.0B.15C.25D.30

有如下事件过程: Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a * b Loop Print aEnd Sub程序运行后,依次输人数值30,20,10,-1,输出结果为A.6000B.-10C.200D.-6000

有如下事件过程: Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后,依次输入数值30,20,10,-1后,输出结果为( )。A.6000B.-10C.200D.-6000

有如下Sub过程:Sub ind(a As Integer)Static x As Integerx= x + aPrint x:End Sub以下是调用它的事件过程,程序运行后,单击命令按纽Command1三次,输出结果为【 】。Private Sub Command1_Click()Ind 2End Sub