（25）下面程序的执行结果是Private Sub Command 1 Click()a=10For k=1 To 5 Step-1a=a-kNext kPrint a; kEnd SubA）-5 6B）-5 -5C）10 0D）10 1

题目

（25）下面程序的执行结果是

Private Sub Command 1 Click()

a=10

For k=1 To 5 Step-1

a=a-k

Next k

Print a; k

End Sub

A）-5 6

B）-5 -5

C）10 0

D）10 1

相似考题

1.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（）。A．Private Sub Command1_Click（）Text1.Left=100End SubB．Private Sub Command1_Click（）Text1.Left= Text1.Left-100End SubC．Private Sub Command1_Click（）Text1.Move.Text.Left+100End SubD．Private Sub Command1_Click（）Text1.Move.Text.LeftEnd Sub

2.执行下面的程序段，x的值为【】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd Sub

3.有如下程序，该程序的执行结果是【】。Private Sub Command1_lick()For i= 1 To 4x= 4For j =1 To 3x =3For k=1 To 2X= K+5Next kNext jNext iPrint xEnd Sub

4.下面程序运行后，窗体中显示【】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub

更多“(25)下面程序的执行结果是Private Sub Command 1 Click()a=10For k=1 To 5 Step－1a=a－kNext kPri ”相关问题

第1题：

窗体上有两个按钮，则执行程序后按键盘Cance1键的输出结果是【7】。
Private Sub Command1_Click（）
Print "北京";
End Sub
Private Sub Command2_Click（）
Print "南京";
End Sub
Private Sub Form_Load（）
Command2.Cancel=True
Command1.Cancel=True
End Sub

正确答案：
正确答案: 1.(北京)
第2题：

（ 27 ）下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k = 1 To 10
a(k) = 11 – k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub
A ） 3
B ） 5
C ） 7
D ）9

正确答案：D
第3题：

阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【】。

正确答案：41
41 解析：本题的循环体共要执行20次，m的最终值为1+2*20=41。
第4题：

下面程序的执行结果是（）。
Private Sub Command1Click（）
a=10
For k=1 To 5 Step-I
a=a-k
Next k
Print a；k
End Sub
A.-5 6
B.-5 -5
C.10 0
D.10 1

正确答案：D
D。【解析】指定的步长为-1，但k指定从1到5，所以该for循环不会执行，a的值为10，k的值为1。
第5题：

下列程序的运行机结果是【】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub

正确答案：11
11
第6题：

下面程序的执行结果是
Private Sub Commandl_Click()
a=1O
For k=l To 5 Step一1
a=a--k
Next k
Print a；k
End Sub
A．一5 6
B．一5—5
C．10 0
D．10 1

正确答案：D
解析：本题For循环的步长为一1，但题中给出的初始值比终止值小，因此循环未执行，故a值未变，仍为lO。k值需被赋值为l后与5作比较才知道大小，故k值为1。
第7题：

执行下面的程序，消息框里显示的结果是【】。
Private Sub Form_Click()
Dim Str As String， K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str，k，1))+k)
Next k
MsgBox Str
End Sub

正确答案：abdb
abdb 解析：本题考查VBA程序设计。题目较难，综合性强，要求考生对常用函数以及控制结构有一定的了解。考生应该了解Len()函数是字符串长度检测函数，返回字符串所含字符数。 Chr()函数是字符代码转换字符函数，将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数，返回字符串首字符的ASCII值。 Mid(字符串表达式＞,N1＞,N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str0=2，Mid(Str，k，1)=Mid(ab,2,1)=b，则Chr(Asc(B) +2)=d，所以循环第1次结束后 Str="abd"，同样的第2次循环结束后， Str="abdb"，MsSBox用来将Str输出。正确答案为abdb。
第8题：

执行下面的程序，消息框的输出结果是【】。
Option Base1
Private Sub Command1_Click( )
Dim a(10)，P(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
MsgBox k
End sub

正确答案：33
33 解析：本题考查VBA中的数组与循环结构。题目中有3个循环，但相互之间并没有嵌套。第一个For循环实现向数组a赋初值，第二个For循环实现对数组a进行相关运算，然后赋给数组p，p(1)=a(1)=1，p(2)=a(4)=4， p(3)=a(9)=9。第三个For循环进行相关计算，然后把结果交给k，i=1时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。
第9题：

执行下面的程序，消息框里显示的结果是( )。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
S=Str
For k=Len(Str) To 1 Step -1
S=S & (Mid(Str,k,1)
Next k
End Sub

正确答案：abccba
abccba
第10题：

在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是
A．Basic
B．Visual
C．Cancel
D．True

正确答案：B
解析：窗体中只能有一个CommandButton控件为取消按钮。当一个CommandButton控件的Cancel属性被设置为Tree时，窗体中其他CommandButton控件的Cancel属性自动地被设置为False。当CommandButton控件的Cancel属性被设置为True，而且当前窗体处于活动状态时，按Cancel键可以触发该按钮Click事件，而不管该控件是否获得焦点。本题开始时Command2的Cancel属性为，True，但随后由于Command1的该属性变为True，Command2的Cancel属性变为False，因此按Cancel键后执行Command1_Click过程。
第11题：

下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub

正确答案：9
9 解析：本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程为1!+2!+3!=1+2+6=9
第12题：

单选题
下面程序执行时在窗体上显示的是（）。 Private Sub Command1_Click（） Dim a（10） For k=1 to 10 a（k）=11-k Next k Print a（a（3）/a（7）Mod a（5）） End Sub
A
3
B
5
C
7
D
9

正确答案： B
解析：暂无解析
第13题：

在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮—次，文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。
A．Private Sub Command1_Click() Text1.Left=100 End Sub
B．Private Sub Command1_Click() Text1.Left=Text1.Left-100 End Sub
C．Private Sub Command1_Click() Text1.Move Text1.Left+100 End Sub
D．Private Sub Command1_Click() Text1.Move Text1.Left End Sub

正确答案：C
解析：Left属性是用来指定控件左边缘的位置。选项A是设置Text1的左边距是100，选项B是每单击命令按钮一次，文本框向左移动一定距离。Move是用来移动窗体或控件，并可改变其大小。形式为：[对象].Move左边距离[,上边距离[,宽度[,高度]]]。左边距离、上边距离、宽度、高度：如果对象是窗体，则“左边距离”和“上边距离”以屏幕左边界和上边界为准，否则以窗体的左边界和上边界为准，宽度和高度表示可改变大小。选项C是每单击命令按钮一次，文本框向右移动一定距离。选项D是每单击命令按钮一次，文本框不会移动。
第14题：

（ 30 ）下面程序的输出结果是
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ） ABCDEF
B ） FEDCBA
C ） A
D ） F

正确答案：B
第15题：

在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10)，P(3) As Integer
k=5
For i=1 To 10
For i=1 To 3
For i=1 To 3
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。

正确答案：201
201 解析：本题考查的是VBA编程基础。经过第一个for循环，a(i)中a(1)～a(10)存的分别是1～10的平方。第二个循环后，p(i)中的p(1)存的是a(1)的值，p(2)中存的是a(4)的值，p(3)中存的是a(9)的值，经过最后一个循环之后，k的值应该为201。
第16题：

有如下程序：
Private Sub Command1_Click()
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环【】次，程序执行完毕后j的值是【】。

正确答案：7 17
7, 17
第17题：

阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是
A．3
B．9
C．14
D．21

正确答案：C
解析：本题应用了三重嵌套循环：①i=1时，j=1，k执行3次循环得到x的值为3：②i=2，j=1时，k执行3次循环得到x的值加3并覆盖原值，j=2时，k执行两次循环值加2；③依次，i=3时，j执行3次，其中k分别执行为3，2，1次，x的值分别加3，2，1；④最后得到x的值为14。
第18题：

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

正确答案：A
第19题：

有如下程序，该程序的执行结果是【】。
Private Sub Command1 Click()
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub

正确答案：13
13
第20题：

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

正确答案：C
第21题：

阅读下列程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。
A．2 3 4
B．3 4 5
C．5 6 7
D．3 5 6

正确答案：B
解析：函数H中定义了一个静态变量b，被Static修饰的变量，其生命周期为程序的整个执行过程，所以它能够累计记录3次调用函数H的变化。第1次调用H函数后，b值为1，函数的返回值3；第 2次b值为2，函数的返回值4；第3次b值为3，函数的返回值5。
第22题：

下面程序的执行结果是（）。 Private Sub Command1Click（） a=10 For k=1 To 5 Step-I a=a-k Next k Print a；k End Sub
A.-5 6
B.-5 -5
C.10 0
D.10 1

正确答案：D
D。【解析】指定的步长为-1，但k指定从1到5，所以该for循环不会执行，a的值为10，k的值为1。
第23题：

(29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：
Private Sub Commandl_lick()
Dim a(10) As Integer
For k＝10 To 1 Step-1
a(k)＝20-2*k
Next k
k＝k＋7
Print a(k-a(k))
End Sub
运行程序，单击命令按钮，输出结果是
A）18
B）12
C）8
D）6

正确答案：A

（25）下面程序的执行结果是Private Sub Command 1 Click()a=10For k=1 To 5 Step-1a=a-kNext kPrint a; kEnd SubA）-5 6B）-5 -5C）10 0D）10 1

题目

相似考题

更多“(25)下面程序的执行结果是Private Sub Command 1 Click()a=10For k=1 To 5 Step－1a=a－kNext kPri ”相关问题

相关内容