以下程序运行后，Text1的输出结果是___________ 。 Dim a%（5), i% For i = 0 To 5 a（i) = 2 * i + 1 Text1.Text = a（i) Next iA．程序出错B．1 3 5 7 9 11C．11D．9E．1

题目

以下程序运行后，Text1的输出结果是___________ 。 Dim a%（5), i% For i = 0 To 5 a（i) = 2 * i + 1 Text1.Text = a（i) Next i

A．程序出错

B．1 3 5 7 9 11

C．11

D．9

E．1

相似考题

1.以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)A．14B．0C．6D．值不确定

2.以下程序段运行的结果是： ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print jA．20B．7C．35D．8

3.以下程序运行后的输出结果是【】。 include void main() { char a[]="abcdabcabfgacd";以下程序运行后的输出结果是【】。include＜iostream.h＞void main(){char a[]="abcdabcabfgacd";int i 1＝0,i2=0,i=0;while (a[i]){if (a[i]=='a')il++;if (a[i]=='b')i2++;i++;}cout＜＜il＜＜' '＜＜i2＜＜endl;}

4.以下程序的输出结果是D)9 12 Option Base 1 Private Sub Command1_Click() Dim s(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 Print k End subA．33B．28C．35D．37

参考答案和解析

更多“以下程序运行后，Text1的输出结果是___________ 。 Dim a%（5), i% For i = 0 To 5 a（i) = 2 * i + 1 Text1.Text = a（i) Next i”相关问题

第1题：

下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A．33
B．28
C．35
D．37

正确答案：A
解析：此题中共定义了两个数组：a(i)，p(i)，共用到三次For循环：
第一个For语句是对数组a(i)赋值，a(1)到a(10)的值分别为1到10；
第二个For语句是对数组p(i)赋值，p(1)=a(1)=1，p(2)=a(4)=4，p(3)=a(9)=9；
第三个For语句是对k的值循环相加，三次循环的结果分别为：7，15，33。
第2题：

在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_CIick()
Dim a(1 To 10)
Dim p(1 To 3)
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
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【】。

正确答案：33
33
第3题：

以下程序的输出结果是【】。 include void main(){ int i,a[5]; i=0; while(i<5){ a[i]

以下程序的输出结果是【】。
include＜iostrean.h＞
void main(){
int i，a[5]；
i=0；
while(i＜5){
a[i]=8*(i-2+4*(i＞2))%5；
i++；
}
for(i=4；i＞=0；i--) cout＜＜a[i]；
}

正确答案：3 0 0 -3 -1
3 0 0 -3 -1
第4题：

有以下程序
inculde <stdio.h>
main()
{ int a[3][3]={(1,2,3),(4,5,6),(7,8,9)};
int B[3]={0},i;
For(i=0;i<3;i ++) B[i]=a[i][2]+a[2][i];
For(i=0;1<3;i ++) printF(“%d”,B[i]);
printF(“\n”);
}
程序运行后的输出结果是【1】。

正确答案：101418
101418 解析：当i=0时，b［0］=a［0］［2］+a［2］［0］=3+7=10；当i=1时，b［1］=a［1］［2］+a［2］［1］=6+8=14；当i=2时，b［2］=a［2］［2］+a［2］［2］=9+9=18,则打印结果为101418。
第5题：

以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A．33
B．28
C．35
D．37

正确答案：A
解析：此题中共定义了两个数组：a(0，p(0，共用到了3次For循环。第1个For语句对数组a(i)赋值，a(1)…a(10)=1...10：第2个For语句，对p(1)：1，p(2)：4，p(3)：9；第3个For语句，计算k的值，3次循环分别得到：5，15， 33。答案为A。
第6题：

下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer，y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
A．3 7 11 45 19
B．19 15 11 7 3
C．1 3 5 7 9
D．不确定的值

正确答案：B
第7题：

执行以下程序段后，x的值为______。
Dim x As Integer,i As Integer
x＝0
For i＝20 To 1 Step -2
x＝x+i\5
Next i

正确答案：18
18 解析：本题考查VBA中循环和整除的知识。显然循环会执行10次，所以这个问题主要需要搞清楚每次循环累加的是什么数值。注意到每次累加的是i整除5的结果，i＝20时累加一个4，i＝18、16时累加两个3，i＝14、12、10时累加三个2，i＝8、6时累加两个1。
第8题：

单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub
A．3 4 7 5 6
B．3 5 7 4 5
C．1 2 3 4 5
D．1 2 3 5 7

正确答案：B
第9题：

在窗体上面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。
第10题：

有以下程序 main() { int a[3][3]，*p，i； p=&a[0][0]； for(i=O；i＜9；i++)p[i]=i； for(i=O；i＜3；i++)printf("%d",a[1][i])； } 程序运行后的输出结果是______。
A．0 1 2
B．1 2 3
C．2 3 4
D．3 4 5

正确答案：D
第11题：

在窗体上画一个命令按钮，然后编写如下事件过程： 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中元素的值。
第12题：

在窗体上画一个命令按钮，然后编写如下事件过程：
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。
第13题：

以下程序的输出结果为 Dim i，c(10)，p(3) k=5 For i=0 To 10 c(i) =i Next i For i=0 To 2 p(i) = c(i * (i + 1)) Next i For i=0 To 2 k=k+p(i) * 2 Next i Print k
A．20
B．21
C．56
D．32

正确答案：B
解析：第一个循环对数组c()进行赋值，第二个循环对数组p()进行赋值，第三个循环对k进行累加，k的初值等于5，第一次循环k=k+p(0)*2=5……，第三次循环k=k+p(2)*2=21并输出。
第14题：

有以下程序： main() { int a[3][3], *p, i; p=&a[0][0]; for(i=0; i＜9; 1++)p[i]=i; for (i=0; i＜3; i++)printf("% d", a[1][i]); 程序运行后的输出结果是______。
A．0 1 2
B．1 2 3
C．2 3 4
D．3 4 5

正确答案：D
解析：p指向的a的首地址，由于C语言是行优先存储的，一维数组p就依次存放了a中从第0行到第2行的所有元素，因此a[1][i]就对应了p[3]～p[5]。
第15题：

以下程序运行后的输出结果是。
include
main()
{int i，n[5]={0}；
for(i=l；i<=4；i++)
{n[i]=n[i-1]*2+1；printf(“%d”,n[i])}
printf(“＼n”)：
}

正确答案：137l5
137l5
第16题：

有以下程序： main() { int a[3][3],*p,i； p=&a[0][0]； for(i=0;i＜9;i++)p[i]=i； for(i=0;i＜3;i++)printf("%d",a[1][i])； } 程序运行后的输出结果是 ______。
A．0 1 2
B．1 2 3
C．2 3 4
D．3 4 5

正确答案：D
解析：p指向的a的首地址，由于C语言是行优先存储的，一维数组p就依次存放了a中从第0行到第2行的所有元素，因此a[1][i]就对应了p[3]～p[5]。
第17题：

当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End Sub
A．2 5 8
B．7 4 1
C．8 5 2
D．3 6 9

正确答案：C
解析：本题主要考查对循环语句的理解。i＝2时，执行语句a(i)＝10-i得a(2)＝10-2即a(2)为8。同理i＝5时，执行语句a(i)＝10-i得a(5)＝10-5即a(5)为5。i=8时，执行语句a(i)＝10-i得a(8)=10-8即a(8)为2。故选项C正确。
第18题：

设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。
A．0 0
B．-5 0
C．-5 6
D．0 6

正确答案：C
解析：ReDima(nTom)指明动态数组9的下标和上标为-5和6；则LBound(a，1)=-5、UBound(a，1)=6。故Printa(LBound(a，1))；a(UBound(a，1))输出a(-5)、a(6)的值。
第19题：

执行下面的程序，消息框的输出结果是( )。
Dim a(1 To 10),b(1 To 5)As Integer
sum=0
For i=1 To 10
Next i
For i=1 To 5
Next i
For i=1 To 5
Next i
MsgBox sum

正确答案：220
220 解析：本题考查数组和循环的知识。在本题中出现了两个数组，要注意两个数组的值和下标的对应关系。第一个循环为数组a赋值，每个数组元素值等于其下标值；第二个循环为数组b赋值，分别使b(1)=a(2)=2，b(2)=a(4)=4，b(3)=a(6)=6，b(4)=a(8)=8，b(5)=a(10)=10；第三个循环把b数组的每一个元素平方以后累加起来，最后结果为220。
第20题：

有以下程序,程序执行后,输出结果是【】include void fun(int*A) {a[0]=a[1];} main() {i

有以下程序，程序执行后，输出结果是【】
include＜stdio.h＞
void fun(int*A)
{ a[0]=a[1];}
main()
{ int a[10]={10,9,8,7,6,5,4,3,2,1,},i;
for(i=2;i＞1=0;i-) fun(&a[i]);
for(i=0;i＜10;i++) printf("%d,a[i]);
printf("\n");
}

正确答案：7777654321
7777654321 解析：本题主要考查函数的调用，第—次调用把数组元素a[2]的地址赋给a，此时a[1]即是原数组的a[3]等于7，再执行赋值语句a[0]=a[1]，则a[0]和a[1]中的值都是7，然后再把这个值返回给a[2]同样地第二次调用的时候函数返回值也是7，第三次调用返回值也是7，因此数组的前4个元素，即对a[0]、a[1]、a[2]和a[3]的值都为7，当执行第二个for循环时输出数组中所有元素的值7777654321。
第21题：

运行以下程序后，显示的结果为 ______。 Dim x(5) x(0) =1 For i=1 To 5 x(i)=x(i-1)*i Print x(i) Next i End
A．1 2 3 4 5
B．1 2 6 24 120
C．1 2 6 12 20
D．1 1 2 3 4

正确答案：B
解析：在For循环中，数组元素x(1)的值等于前一个数组元素的值乘以i的值，而x(0)的值是1，所以正确答案是选项B。
第22题：

以下程序的输出结果是( )。 Option Base 1 Private Sub Command1 Click() Dim a(10)，p(3)as Integer k=5 For I=1 to 10 a(i)=I Next I For j=1 to 3 p(i)=a(I*j) Next j For I=1 to 3 k=k+p(I)*2 Next I Print k End Sub
A．33
B．28
C．35
D．37

正确答案：A
解析：此题中共定义了两个数组：a(i)，p(i)，共用到了3次For循环。第1个For语句对数组a(i)赋值，a(1)…a(10)=1…10；第2个For语句，对p(1)=1，p(2)=4，p(3)=9；第3个For语句，计算k的值，3次循环分别得到：5,15, 33。答案为A。
第23题：

以下程序运行后，消息框的输出结果是( )。 OPTION BASE 1 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
A．33
B．28
C．35
D．37

正确答案：A
解析：本题有三个循环结构，第一个用于给数组A赋值，第二个用于给数组P赋值，数组P与A的对应关系是：P(1)=A(1)=1、P(2)=A(4)=4、P(3)=A(9)=9，第三个用于计算变量K=5+1*2+4*2+9*2=33。
第24题：

（13）以下程序运行后的输出结果是【13】。
#include <stdio.h>
main()
{ int i,n[5]={0};
for(i=1;i<=4;i++)
{ n[i]==n[i-1]*2+1; printf("%d",n[i]); }
printf("\n");
}

正确答案：
（13）13715

niusouti.com

以下程序运行后，Text1的输出结果是___________ 。 Dim a%（5), i% For i = 0 To 5 a（i) = 2 * i + 1 Text1.Text = a（i) Next iA．程序出错B．1 3 5 7 9 11C．11D．9E．1

题目

相似考题

参考答案和解析

更多“以下程序运行后，Text1的输出结果是___________ 。 Dim a%（5), i% For i = 0 To 5 a（i) = 2 * i + 1 Text1.Text = a（i) Next i”相关问题

相关内容