niusouti.com
运行下列过程，当输入一组数据：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 Su
题目
运行下列过程，当输入一组数据：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.原输入数列
相似考题
更多“运行下列过程,当输入一组数据:l0,20,50,80,40,30,90,100,60,70,输出的结果应该是( )。Sub plDim ”相关问题
-
第1题：
如下事件过程：
Function Feed（x）
If x < 10 Then
Feed=x
Else
Feed=10 + x
End If
End Function
Private Sub Command1_Click（）
x=Val（InputBox（ "", , 0） ）
pay=Feed（x）
Print pay
End Sub
运行时在输入框内输入变量x的值为15，输出结果为（ ）。
A．0
B．15
C．25
D．30
正确答案：C
-
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
a= Val(InputBox(“请输入一个整数”))
b=Val(InputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
正确答案：46
46 解析：考查InputBox函数的使用。InputBox函数返回的数据类型默认位字符串类型。Val(x)函数表示把变量x转换为数值。本题要求通过InputBox函数分别输入两个数据，并同时被转换为数值，再相加得到结果，其中a值为12，b值为34，结果为a+b=46。 -
第3题：
运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字：")) PrInt a+b End Sub
A．123
B．456
C．123123
D．579
正确答案：D
解析：InputBox函数的默认返回值是字符类型。当输入“123”后，a的值是字符串“123”。当在第二个弹出的对话框内输入456后，经过Val函数的转换，b值为数值456，按照出具类型的自动结合原则，a自动转换为数值型数据后与b进行相加，最终输出结果为579。 -
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
X=0
Do While X＜＞-1
X=Val(InputBox("请输入数据X:"))
Y=Val(InputBox("请输入数据Y:"))
If X*Y＜X+Y Then Print X，Y
Loop
End Sub
程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
正确答案：-3 8 18 -15
-3 8 18 -15 解析：本题程序运行后，共输入5组数据，x依次取值为7、-3、-5、18、-1，Y依次取值为 2、8、-10、-15、-1。只有满足X * YX+Y时，才输出X、Y的值。循环的结束条件是“X= -1，Y=-1”。 -
第5题：
有以下程序：
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＜回车＞，程序的输出结果是【 】。
正确答案：10
10 解析：y=sub(sub(sub(x)))=sub(sub(127))=sub(19)=10。 -
第6题：
有如下函致： 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．120
B．60
C．80
D．100
正确答案：A
解析：本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。 -
第7题：
有下列事件过程：
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．6000
B．-10
C．200
D．-6000
正确答案：B
解析：本段程序的执行过程如下：第1次输入30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环：第3次输入10，给a赋值为10；第4次输入-1并赋值给变量b，再执行语句a=a*b=-10；然后判断循环条件，b=-1条件为真，所以退出循环。 -
第8题：
有过程如下：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．100
B．120
C．200
D．50
正确答案：B
解析：本题难点是实、虚参数传递的问题。tot按ByRef参数传递。子过程的功能是计算n!，“5!=120”。 -
第9题：
下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是
A．7
B．34
C．3+4
D．出错
正确答案：B
解析：InputBox函数的函数值是字符串类型，由于变量a和b没有说明，故是变体类型，当把函数值赋给变量a和b后，a和b是变体字符串，方法Print输出的是两个字符串的连接结果34。 -
第10题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a=Val(1nputBox(“请输入一个整数”))
b=Val(1nputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为【 】
正确答案：46
46 解析：InputBox函数返回的数据类型默认为字符串类型。Val(x)函数表示把变量x转换为数值。本题要求通过InputBox函数分别输入两个数据，并同时被转换为数值，再相 -
第11题：
有如下事件过程： 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．6000
B．-10
C．200
D．-6000
正确答案：B
解析：DoUntil-Loop循环执行的规则是：先判本程序执行时，先判断条件“b=-1”是否为真，此时b为10，“b=-1”不成立，执行循环体。a和b分别取得InputBox函数接收到的值为30和20，做乘法后a的值为600。执行Loop后，返回Do语句再判断“b=-1”是否为真，此时b为20，“b=-1不成立，继续执行循环体，a和b再次取得InputBox函数接收到的值为10和-1，做乘法后a的值为-10。执行Loop后，返回到Do语句判断“b=-1是否为真，此时b=-1，“b=-1条件成立，结束循环，把a的值打印出来。断Do语句中的<条件>若为真，则结束循环；若<条件>为假，则执行循环体。 -
第12题：
有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【 】。
Private Sub Command1_Click()
Ind 2
End Sub
正确答案：6
6 -
第13题：
下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123，456，"###，##%") End Sub
A．123.46%
B．123.45%
C．1.23456
D．123.456
正确答案：A
解析：Format$(数值表达式，格式字符串)功能是按“格式字符串”指定的格式输出数值表达式的值多余位数将被舍去。 -
第14题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Do Until b a＝In put Box("输入a的值")
a＝Val(a)
b＝Input Box("输入b的值")
b=Val(b)
a=a＋b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是【 】。
正确答案：-3
-3 解析：本题程序运行后，共输入4组数据， a依次取值为5、3、1、-1，b依次取值为4、2、 0、-2。注意到循环条件是“bO”，所以当“a＝1，b＝0”时，还要再输入第4组数据，这时“a＝-1,b＝-2”，然后结束循环。还要注意到， a=a＋b从形式上看是将b累加到变量a中，但实际上并不会起到累加的作用，因为a不断的被赋新值。这样，不管输入多少组数据，a的值仅仅是最后一组输入的数据之和。由此可见，输出的结果是-3。 -
第15题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入37和18，输出结果为
A．3718
B．55
C．0
D．a+b
正确答案：A
解析：InputBox函数能产生一个对话框，并显示提示，等待用户输入内容或按下按钮，并返回包含文本框内容的字符串。在此题中，变量a和b都是变体型变量，InputBox函数返回的分别是“37”和“18”。“+”运算符除了计算数值的和以外，在对字符串操作时，也可以用来做字符串的连接操作。输出的结果为“3718”。 -
第16题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Do Whileb＞=0
c=a+b
Loop
End Sub
程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是( )。
正确答案：-3
-3 解析： 本题考查VBA中，循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次：由于在每次循环中均会重新对a、b、c进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中c等于最后两次输入的值之和也就是-3。 -
第17题：
有如下事件过程： 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．6000
B．-10
C．200
D．-6000
正确答案：B
-
第18题：
有以下程序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<回车>，程序的输出结果是
正确答案：5
在本题中，程序首先定义了一个返回类型为整型的sub函数，该函数带有一个整型变量的形参，函数体中只有一条返回语句，用来返回表达式n%10+n/10的结果。n%10部分的作用是求一个多位整数的个位数，而n/10是用来求一个多位整数的除个位数以外各位组成的新整数，如234，经过n/10处理后得到结果23。
在主函数中，定义两个整型变量x和y，如果通过scanf语句从键盘给变量x输入一个初值248，然后嵌套调用sub函数，首先运行sub(248)，返回的结果为8+24=32，然后运行sub(32)，返回结果为2+3=5，并将该结果保存到变量y中，程序最后运行输出语句输出变量y的值，因此，程序最后的输出结果为5。 -
第19题：
运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60．70，输出的结果应该是
sub pl( )
Dim i, j, arr(11)As Integer
k=1
While k<=10
arr(k)=Val(InputBox("请输入第" & k & "个数：", "输入窗口" ))
k=k+1
Wend
For i=1 T0 9
j=i+1
If arr(i) >arr(j) Then
temp=arr (i)
arr(i)=arr (j)
arr(j)=temp
End If
Debug Print arr(i)
Next i
End Sub
A)升序数列
B)降序数列
C)无序数列
D)原输入数列
正确答案：A
【答案】：A
【知识点】：VBA编程
【解析】：本题中的For循环是一个单循环，i从1开始，每次递增1，循环9次，之后判断前一个数是否大于后一个数，如果大于则两者交换，之后输出。当i=1时，j=2，arr(1)小于arr(2)不交换，输出arr(1)为10。以此类推，输出arr(2)为20，arr(3)为50。当i=4时，j=5，arr(4)大于arr(5)，两者交换，输出arr(4)为交换后的40，由此可以看出结果是无序数列。故本题答案为A。 -
第20题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Do Until b ＜ 0
a = InputBox( "输入a的值" )
a = Val(@A@b = InputBox( "输入b的值" )
b =VM(@B@a=a+b
Loop
Print a
End Sub
程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。
正确答案：-3
-3 解析：本题程序运行后，共输入4组数据，a依次取值为5、3、1、-1，b依次取值为4、2、0、 -2。循环条件是“b0”，当“a=1，b=0”时，还要再输入第4组数据，这时“a=-1，b=-2”，然后结束循环。 -
第21题：
某个窗体己编写下列事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 ______。
Pfivate Sub Form_Click()
a＝1
i＝1
Do Until i>10
a＝a+2
i＝i+3
Loop
MsgBox a
End Sub
正确答案：9
9 解析： 本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环：在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中先判断条件后执行循环体，通过观察看出，i每次自加3，则每次循环中i的值分别为1、4、7、10，当i为13时由于满足Until条件而退出循环，所以循环共 -
第22题：
如下事件过程： 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．0
B．15
C．25
D．30
正确答案：C
解析：在此题中，考查了函数的使用方法，功能如下：当输入的x小于10时，将x的值赋给Feed输出，如果x的值大于10，将x的值加10赋给Feed输出。主调函数用一个InputBox对话框来接收输入的信息，将输入的数字赋给x，然后调用Feed函数，输出结果。因为x=15＞10，所以返回值为25。 -
第23题：
有如下事件过程： 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．6000
B．-10
C．200
D．-6000
正确答案：B
解析：本段程序的执行过程如下：第1次输,N 30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环；第3次输入10，给a赋值为10；第4次输入-1并赋值给变量b，再执行语句a=a*b=-10然后判断循环条件，b=-1条件为真，所以退出循环。