（ 23 ）在窗体上画 1 个命令按钮，并编写如下事件过程：Private Sub Command1_Click()For i=5 to 1 step -0.8Print Int(i);Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为A ） 5 4 3 2 1 1B ） 5 4 3 2 1C ） 4 3 2 1 1D ） 4 4 3 2 1 1
题目
（ 23 ）在窗体上画 1 个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
For i=5 to 1 step -0.8
Print Int(i);
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A ） 5 4 3 2 1 1
B ） 5 4 3 2 1
C ） 4 3 2 1 1
D ） 4 4 3 2 1 1
相似考题
更多“( 23 )在窗体上画 1 个命令按钮,并编写如下事件过程:Private Sub Command1_Click()For i=5 to 1 ”相关问题
-
第1题：
在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程
Private Sub Command1 Click()
Dim a As String
a=______
For i = 1 To 5
Print Space(6-i)；Mid$(a， 6-i， 2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
正确答案：123456789
123456789 解析：本题主要考查对Mid$函数的理解。根据已给的显示效果，考生可以反推出答案。由于a为字符串。故a只有可能是123456789，而不能是2345678及其他，这是由 Mid$这一函数的剪辑功能所决定的。同时考生也可以把123456789代入For循环语句中加以验算。 -
第2题：
在窗体上画1个命令按钮，并编写如下事件过程： private Sub Command1_Click（ ） For i=5 To 1 Step-0．8 Print Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。
A.5 4 3 2 1 1
B.5 4 3 2 1
C.4 3 2 1 1
D.4 4 3 2 1 1
正确答案：A
A。【解析】step可以设置For循环的步长，所以程序执行6次，Int(i)是求不大于自变量i的最大整数。 -
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a (1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
正确答案：33
33 解析：观察程序，通过第一个以i为循环变量的循环，给数组a()进行赋值，数组a()中的各个元素的值就是其下标值。
通过第二个以i为循环变量的循环，给数组p()进行赋值：
i=1,(i)=a(i*i),p(1)=a(1)=1
i=2,p(i)=a(i*i),p(2)=a(4)=4
i=3,p(i)=a(i*i),p(3)=a(9)=9
通过第三个以i为循环变量的循环，得到变量k的值；
i=1,k=k+p(i)*2=5+p(i)*2=7
i=2,k=k+p(i)*2=7+p(2)*2=15
i=3,k=k+p(i)*2=15+p(3)*2=33
最终输出结果是：33。 -
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
正确答案：A
-
第5题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。
A．ABCDE
B．1 2 3 4 5
C．abode
D．出错信息
正确答案：A
解析：本程序段首先定义了一维数组a，然后用For循环为其赋值，Asc()函数的作用是返回字符的ASCII码，字符“A”的ASCII码为65，Chr()函数的作用是将ASCII码值变为相应的字符，而“a(i)=Chr(Asc("A")+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a，所以a的元素是A、B、C、D、E。For Each-In用于输出a中元素的值。