有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
题目
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A．148
B．40
C．-40
D．3.7
相似考题
更多“有下列程序段,单击命令按钮执行程序后,输出结果为()。Option Base 1Private Sub Command1_Click() ”相关问题
-
第1题：
（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345
正确答案：C
【解析】本题考查使用Array函数给数组元素赋值的应用。分析程序可知，通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Arr(5)=5，S=5；当i=4时，Arr(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，Arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句Print S。因此，最后输出的值为“12345”。 -
第2题：
有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序运行后，单击窗体，消息框的输出结果为( )。
正确答案：27
27 -
第3题：
在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是
A．4321
B．1234
C．34
D．12
正确答案：A
解析：数组名a为变体型变量，用Array函数对其进行初始化，得到a(1)=4、a(2)=3、a(3)=2和a(4)=1。变量j在循环中每次计算后扩大10倍，变量s的计算过程为s=1×1+2×10+3×100+4×1000=4321。 -
第4题：
在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量)
Dim x As Integer
Sub inc(a AS Integer)
X=K+a
End Sub
Private Sub Command1_Click()
inc2
inc3
inc4
Prmt x；
Ead Sub
程序执行后，单击Command1命令按钮，输出的结果是【 】。
正确答案：9
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=9。 -
第5题：
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。
A．54321
B．123
C．12345
D．345
正确答案：C
解析：本题考查使用Array函数给数组元素赋值的应用。分析程序可知，是通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Arr(5)=5，S=5；当i=4时，Arr(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，Arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句Print S。因此，最后输出的值为“12345”。 -
第6题：
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base1
Private Sub Command1_Click()
Dim c As Integer,d As Integer
d=0
c=6
X=Array(2,4,6,8,10,12)
For i=1 To 6
If X(i)＞c Then
d=d+X(i)
c=X(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输出的内容为( )。
A．10
B．12
C．16
D．20
正确答案：B
解析：程序首先使用Army函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：
①当i=1时，X(i)=2;d=d-c=-6;②当i=2时，X(i)=4；d=d-c=-12；⑧当i=3时，X(i)=6；d=d-c=-18；④当i=4时，X(i)=8；d=d+X(i)=-10；c=8；⑤当i=5时，X(i)=10；d=d+X(i)=0；c=10；⑧当i=6时，X(i)=12； d=d+X(i)=12；c=12。
-
第7题：
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s=0:j=1
a=Array(1,2,3,4)
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
运行上面的程序并单击命令按钮,其输出结果是
A．4221
B．1234
C．34
D．12
正确答案：B
解析：数组名a为变体型变量,用Array函数对其进行初始化,得到a(1)=1,a(2)=2,a(3)=3和a(4)=4。变量j在循环中每次计算后扩大10倍,变量s的计算过程为s=4*1+3*10+2*100+1*1000=1234。 -
第8题：
在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是______ 。
A．4321
B．12
C．34
D．1234
正确答案：D
解析：本题的难点是数组在循环中的调用。变量s的计算过程为“s=4+3×10+2×100+1×1000=1234”。 -
第9题：
有下列程序段，单击命令按钮执行程序后，输出结果是( )。
Option Base 1
Private Sub Command1 Click()
Dim x
x=Array(23,-5,17,38,-31,46,11,8,5,-4)
31=0
s2=0
For k=1 To 10
If(x(k)>0)Then
S1=S1+x(k)
Else
s2=s2+x(k)
End If
Next k
Y=s1/Abs(s2)
Print Y
End Sub
A．148
B．40
C．40
D．3.7
正确答案：D
解析：For循环中，通过两个条件语句，计算数组中大于零的元素的和s1，小于零的元素的和s2，然后计算sL和s2的绝对值之商，正确结果为3.7。 -
第10题：
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2，4，6，8，10，12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果为( )。
A．10
B．12
C．16
D．20
正确答案：B
解析：程序首先使用Array函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：①当i=1时，X(i)=2，d=d-c=-6：②当i=2时，X(i)=4，d=d-c＝12；③当i=3时，X(i)-6，d=d-c=-18；④当i=4时，X(i)=8，d=d+X(i)=-10，c=8；⑤当i=5时，X(i)=10，d=d+X(i)=0，c=10；⑥当i=6时，X(i)=12，d=d+X(i)=12，c=12。 -
第11题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为
A．4321
B．12
C．34
D．1234
正确答案：D
解析：4次执行语句s=s+a(i)×j，执行完第1次s=4，执行完第2次s=34，执行完第3次s=234，执行完第4次s=1234，正确答案应为选项D。 -
第12题：
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程
Option Base 1
Private Sub，Command1 Click（ ）
Dim a(5，5)ks Integer
For i=1 To j
For j=1 To 5
a(i，j)=(i+j)*5＼10
Next j
Next i
S=0
For i=1 To j
s=s+a(i，i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A.15
B.13
C.11
D.9
正确答案：A
A。【解析】程序首先是利用两层For循环给数组进行赋值，其规律是：第一行，a(1，1)=1，a(1，2)=1，a(1，3)=2，a(1，4)=2，a(1，5)=3；第二行，a(2，1)=1，a(2，2)=2，a(2，3)=2，a(2，4)=3，a(2，5)=3；第三行，a(3，1)=2，a(3，2)=2，a(3，3)=3，a(3，4)=3，a(3，5)=4；……第五行，a(5，1)=3，a(5，2)=3，a(5，3)=4，a(5，4)=4，a(5，5)=5。可知正对角线上的是1、2、3、4、5。题中的S就是计算正对角线上的和。故应选择A。 -
第13题：
（26）在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果是 。A.10 B.12 C.16 D.20
正确答案：B
【解析】程序首先使用Array函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：
①当i=1时，X(i)=2，d=d-c=-6；②当i=2时，X(i)=4，d=d-c=-12；③当i=3时，X(i)=6，d=d-c=-18；④当i=4时，X(i)=8，d==d+X(i)=-10，c=8；⑤当i=5时，X(i)=10，d=d+X(i)=0，c=10；⑥当i=6时，X(i)=12，d=d+X(i)=12，c=12。 -
第14题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
正确答案：20
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。 -
第15题：
有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是
A．Microson
B．错误提示
C．Visual
D．Basic
正确答案：A
解析：使用Array函数创建的数组下界是由OphonBase语句指定的下界而确定的，在本题中，下界被OptionBase语句指定为0，所以x(0)的值为“Visual”，x(1)的值为“Basic”，x(2)的值为“Microsoit”，x(3)的值为“Programming”。 -
第16题：
在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是______。
A．4321
B．1234
C．34
D．12
正确答案：B
解析：利用Array函数可以把一个数据集赋值给一个Variant变量，再将该Variant变量创建成一个一维数组。Array函数的一般使用形式为：变体变量名＞=Array([数据列表])。注意：Array函数只能给Variant类型的变量赋值数据列表＞是用逗号分割的赋给数组各元素的值。
本题中运行程序，执行语句“a=Array(1，2，3，4)”，Array函数就创建了一维数组a，数组元素类型为Integer。该数组的下标从1开始，共有a(1)、a(2)、a(3)、a(4)等4个元素，值分别为1，2，3，4。然后执行For循环语句，程序的运行过程为：
i=4时，s-0+a(4)*1=4，j=10；
i=3时，s=4+a(3)*10=34，j=100；
i=2时，s=34+a(2)*100=234，j=1000；
i=1时，s=234+a(1)*1000=1234，j=10000，此时循环结束。
最终s的值为：1234。 -
第17题：
在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A．ABCD
B．abcd
C．出错信息
D．1 2 3 4
正确答案：A
解析：语句Chr(Asc("A")+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此ASCII码对应的字符。将计算出的字符赋值给数组arr的第i个元素。循环结束后，arr的4个元素分别为字符A、B、C、D。Print方法输出项的最后用分号结束，使得输出不换行。 -
第18题：
现有如下一段程序：
Option base 1
Private Sub Command1_Click()
Dim a
a=Array(3,5,7,9)
X=1
For i=4 to 1 step -1
s=s+a(i)*x
X=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是
A)9753
B)3579
C)35
D)79
正确答案：B
【答案】：B
【知识点】：循环语句及数组的使用方法
【解析】：option base 1表示数组下标从1开始，则a数组元素a(1)=3, a(2)=5, a(3)=7, a(4)=9。第一次循环：x=1,s=0+a(4)*1=9, 第二次循环：x=10,s=9+a(3)*10=79, 第三次循环：x=100,s=79+a(2)*100=579, 第四次循环：x=1000,s=579+a(1)*1000=3579, 故本题选B。 -
第19题：
在窗体上画一个名为Command1的命令按钮，然后编写下列程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(1,2,3,4,5)
j=1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A．54321
B．123
C．12345
D．345
正确答案：C
解析：本题考查使用Array函数给数组元素赋值的应用。分析程序可知，通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Art(5)=5，S=5；当i=4时，Art(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句PrintS。因此，最后输出的值为“12345"。 -
第20题：
现有如下一段程序： Option Base 1 Privalc Sub Command1 Click（ ） Dim a a=Array(3，5，7，9‘) x=1 For i=4，10 j Step-1 s=s+a(i)*X x=x*10 Next i Print s End Sub 执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。
A.9753
B.3579
C.35
D.79
正确答案：B
B。【解析】在此程序中定义了一个数组，此时对数组中的数进行循环，s=s+a(4)*x；此时x=1，a(4)=9，S=0，所以S=0+9*1=9，此时x=X*10，所以x=10，再次循环，s=s+a(3)*x，此时a(3)=7，x=10，S=9，所以s=9+7*10=79，依次类推，所以得出的结果为3579。 -
第21题：
下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 "Welcome Home"中的字符全部大写输出，其后字符"Wel Back"全部小写输出。请填空。
Private Sub Command1_Click()
a = "Welcome Home";
b = "Wel Back"
c = 【 】+ LCase(B) Print c
End Sub
正确答案：UCase
UCase 解析：字符串转换函数UCase的作用是字符串中所有小写字母改成大写。字符串转换函数LCase的作用是字符串中所有大写字母改成小写。 -
第22题：
窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。
Option Base 1
Private Sub Command1_Click()
Dim city As Variant
city=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)
For i=_______ To UBound(city)
Combol．AddItem_______
Next
End Sub
正确答案：Array l city(i)
Array l city(i) 解析：根据题意欲创建名为city的数组所以第一空填Array，然后利用for循环遍历数组city的元素，由OptionBase 1语句知数组的下界限定为1，所以第二空填1，Combo1．Addltemcity(i)的作用是将数组中的第i项的字符串添加到Combol中构成组合框中下拉列表的第i项。所以第三空填city(i)。 -
第23题：
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1Private Sub Commandl_Click0Dim C As Integer, d As Integer d=0 c=6 X = Array(2, 4, 6, 8, 10, 12) For i= 1 To 6 If X(i) ＞ c Then d = d + X(i) c = X(i) Else d=d-c End If Next i Print dEnd Sub程序运行后，单击命令按钮，则在窗体上输出的内容为( )。
A．10
B．12
C．16
D．20
正确答案：B
解析：程序首先使用Array函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：①当i=1时，X(i)=2; d=d-c=6；②当i=2时，X(i)=4；d=d- c=-12；③当i=3时，X(i)=6；d=d-c=-18；④当i=4时，X(i)=8；d= d+X(i)=-10；c=8；⑤当i=5时，X(i)=10；d=d+X(i)=0；c=10：⑥当i=6时，X(i)=12；d=d+X(i)=12；c=12。