下列程序段能实现在Form窗体上按指定格式分多行输出数据，问每行能输出（）个数据。 Dim i% For i = 1 To 30 Print Tab（（（i - 1) Mod 5) * 6); i; Next iA．6B．5C．4D．3
题目
下列程序段能实现在Form窗体上按指定格式分多行输出数据，问每行能输出（）个数据。 Dim i% For i = 1 To 30 Print Tab（（（i - 1) Mod 5) * 6); i; Next i
A．6
B．5
C．4
D．3
相似考题
更多“下列程序段能实现在Form窗体上按指定格式分多行输出数据，问每行能输出（）个数据。 Dim i% For i = 1 To 30 Print Tab（（（i - 1) Mod 5) * 6); i; Next i”相关问题
-
第1题：
下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum ＋ i End If Next i Print sum End SubA. 12
B. 18
C. 24
D. 30
参考答案：A
-
第2题：
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。
A.32
B.33
C.34
D.35
正确答案：B
B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。 -
第3题：
设有如下程序： Private Sub Form. Click（ ） Dim i As Integer，x As String，y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（ ）。
A.ABCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
正确答案：A
A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。 -
第4题：
有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18
正确答案：C
解析：纵观题目可以看出，本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2，4，8，10，所以和是24，故本题的正确答案是选项C。 -
第5题：
下列程序段的输出结果为( )。 Dim M(5,5), S(5) For i = 1 To 5 S(i) = 0 For j = 1 To 5 M(i, j) = i + j S(i) = S(i) + M(i, j) Next j Next i For Each x In S Print x; Next x
A．2023 24 3540
B．2025 30 3540
C．2023 25 35 40
D．2025 354045
正确答案：B
解析：程序的执行过程如下。
当i=1，初始S(1)=0
j=1时, M(1,1)=i+j=2, S(1)=S(1)+M(1,1)=2
j=2时, M(1,2)=i+j=3, S(1)=S(1)+M(1,1)=5
j=3时, M(1,3)=i+j=4, S(1)=S(1)+M(1,1)=9
j=4时, M(1,4)=i+j=5, S(1)=S(1)+M(1,1)=14
j=5时, M(1,5)=i+j=6, S(1)=S(1)+M(1,1)=20
当i=2, 初始S(2)=0
j=1时, M(2,1)=i+j=2, S(2)=S(2)+M(2,1)=3
j=2时, M(2,2)=i+j=4, S(2)=S(2)+M(2,2)=7
j=3时, M(2,3)=i+j=5, S(2)=S(2)+M(2,3)=12
j=4时, M(2,4)=i+j=6, S(2)=S(2)+M(2,4)=18
j=5时, M(2,5)=i+j=6, S(2)=S(2)+M(2,5)=25
当i=3, 初始S(3)=0 ……
依次类推，计算得到S数组元素的值为：S(1)=20，S(2)=25，S(3)=30，S(4)=35，S(5)=40。 -
第6题：
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
正确答案：A
解析：本题程序的功能是：将从2到10中既是奇数(i Mod 2＞0)又是3的倍数(i Mod 3=0)的数求和，在2到10中满足条件的数字是3，9，其和是12。 -
第7题：
有下面的程序段，其功能是按图1所示的规律输出数据：
Dim a(3，5)As Integer For i=1 To 3
For j=1 To 5
a(i，j)=i+j
Print a(i，j)；
Next
Print
Next
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（ ）。
A.For i=1 To 5
For j=1 To 3
Print a(j，i)；
Next
Print
Next
B.For i=1 T0 3
For j=1 To 5
Print a(j，i)；
Next
Print Next
C.For j=l To 5
For i=1 To 3
Print a(j，i)；
Next
Print
Next
D.For i=1 To 5
For=1 To 3
Print a(i，j)：
Next
Print
Next
正确答案：A
A。【解析】本题是要得出矩阵的倒置，首先本题定义了一个3行5列的矩阵，转换完成后要变成5行3列，把原来的行元素变成后来的列元素，所以先输出j，再输出i。故本题答案为A选项。 -
第8题：
阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（ ）。
A.35
B.31
C.33
D.37
正确答案：C
C。【解析】本题考查的是函数的调用，Function函数的意义是某个数的阶乘，所以通过计算结果为4！+3！+2!+1！=33 -
第9题：
设有如下程序： Option Base 1 Private Sub Form. Click（ ） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（ ）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（ ）。
A.程序有错，因为在过程f的定义中数组参数格式不正确
B.程序可正常运行，输出内容的第一行是一个字母“A”
C.程序可正常运行，输出内容的第一行是一个字母“B”
D.程序可正常运行，输出内容的第一行是数字65
正确答案：C
C。【解析】Chr是Ascii码转成字符，Asc是讲字符转成Ascii码。i是1到5的循环，仍然是一个数。a数组就是B、C、D、E、F这5行字符。第一行是B，程序运行后，5行分别是B，BC，BCD，BCDE，BCDEF。 -
第10题：
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A．6
B．12
C．24
D．47
正确答案：D
解析：在主过程中，数组x1的下标最大值为3，赋初值分别为2、3、4，通过实参和形参的调用，数组x1的值传给了数组n。在子过程中，数组n的下标最大值被重新定义为5，下标3～5的值计算的结果分别为6、12、24。在主过程中，将数组x1的各值相加得：2+3+6+12+24=47。 -
第11题：
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。
A.15
B.16
C.20
D.25
正确答案：C
C。【解析】本题中因为i是从l～5递增，当i=1时，ary(1)=1+i=2，sum=sum+2----2，当i=2时，ary(2)=1+i=2+1=3，sum=sum+3=2+3=5，同理当i=3时，ary(3)=4，sum=9，当i=4时，ary(4)=5，sum=14，当i=5时，ary(5)=6，sum=20，所以答案选择C。 -
第12题：
当发生Form_Click事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i＜=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End Sub
A．1 3 5 7 9
B．2 1 3 5 7
C．2 2 2 1 3
D．2 2 1 3 5
正确答案：D
解析：本题首先通过一个两层循环给5行5列的二维数组a的各个元素赋值，通过计算，不难得出二维数组各行的值。第一行的值为：13579：第二行的值为：21357；第三行的值为：22135；第四行的值为：22213；第五行的值为：22221。然后再通过一个双层循环按行输出该数组，所以输出的第三行为：22135。 -
第13题：
在窗体上画—个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是：_______。
A．1 4 7 2 5 8 3 6 9
B．1 2 3 4 5 6 7 8 9
C．1 2 3 4 5 6 7 8 9
D．没有输出
正确答案：B
解析：程序共有两层循环，每执行完一次内循环，则打印换行，由此判断选项A，B可能正确，当外层循环执行第一次时，a(i,j)=(i-1)*3+j相当于a(1,j)=j，由此可判断选项B为正确答案。 -
第14题：
在窗体上画一个名称为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循环语句中加以验算。 -
第15题：
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End Sub
A．1 2 3 4 5
B．1 1 2 3 4
C．1 1 1 2 3
D．1 1 1 1 2
正确答案：C
解析：本题首先定义了一个5行5列的数组，然后通过一个二重For循环给它的每个元素赋初值，赋值规律是左上右下对角线下面的元素值为1，该对角线上元素的值为1，该对角线上面的元素值在前一元素值的基础上增加1。接着通过一个两层For循环按行输出二维数组a，故输出的第三行为“11123”。 -
第16题：
有下面的程序段，其功能是按图1所示的规律输出数据： Dim a(3，5)As Integer For i=1 To 3 For j=1 To 5 a(i，j)=i+j Print a(i，j)； Next Print Next
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（ ）。
A.For i=1 To 5 For j=1 To 3 Print a(j，i)； Next Print Next
B.For i=1 T0 3 For j=1 To 5 Print a(j，i)； Next Print Next
C.For j=l To 5 For i=1 To 3 Print a(j，i)； Next Print Next
D.For i=1 To 5 For=1 To 3 Print a(i，j)： Next Print Next
正确答案：A
A。【解析】本题是要得出矩阵的倒置，首先本题定义了一个3行5列的矩阵，转换完成后要变成5行3列，把原来的行元素变成后来的列元素，所以先输出j，再输出i。故本题答案为A选项。 -
第17题：
有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A． 12
B．30
C．24
D．18
正确答案：A
解析：i Mod2＞0，就是i不能被2整除，而i Mod 3=0，就是i要能被3整除。所以本题就是求2～10之间，能被3整除但不能被2整除的数之和。而2～10之间符合条件的数为3和9，它们的和为12。 -
第18题：
（ 23 ）有下面的程序段，其功能是按图 1 所示的规律输出数据
Dim a ( 3 , 5 ) As Integer
For i=1 To 3
For j=1 To 5
A ( i,j ) =i+j
Print a ( i,j ) ;
Next
Print
Next
若要按图 2 所示的规律继续输出数据，则接在上述程序段后面的程序段应该是
A ）
For i=1 To 5
For j=1 To 3
Print a （ j,i ） ;
Next
Print
Next
B ）
For i=1 To 3
For j=1 To 5
Print a （ j,i ） ;
Next
Print
Next
C ）
For j=1 To 5
For i=1 To 3
Print a （ j,i ） ;
Next
Print
Next
D ）
For i=1 To 5
For j=1 To 3
Print a （ i,j ） ;
Next
Print
Next
正确答案：A
-
第19题：
阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为
A．5 7 6 8
B．6 8 7 9
C．7 9 8 10
D．8 10 8 11
正确答案：C
解析：本题主要测试二维数组的输入输出操作。由于程序的开头有OptionBase1的语句，因此所定义的Arr是一个4行4列的二维数组。在第1个二重For循环中，根据内层和外层循环变量的变化对数组的每个元素赋值，其计算公式为：(i-1)*2+j，其中i和j分别为外层和内层循环变量。用这个公式计算的数组Arr各元素的值如下：Arr(1，1)=1Arr(1，2)=2Arr(1，3)=3Arr(1，4)=4Arr(2，1)=3Arr(2，2)=4Arr(2，3)=5Arr(2，4)=6Arr(3，1)=5Arr(3，2)=6Arr(3，3)=7Arr(3，4)=8Arr(4，1)=7Arr(4，2)=8Arr(4，3)=9Arr(4，4)=10在第2个二重循环中，用Print方法输出Arr数组4个元素的值，即Arr(3，3)、Arr(4，3)、Arr(3，4)和Arr(4，4)，从上面的赋值情况可以看出，这4个元素的值分别是7、9、8、10。 -
第20题：
当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub
A．22135
B．21357
C．22213
D．13579
正确答案：A
解析：程序首先通过一个双重循环二维数组x的各个元素赋值，通过计算不难得出二维数组各行的值：第一行：13579第二行：21357第三行：22135第四行：22213第五行：22221第三行的值为22135，因此本题选A。 -
第21题：
程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A．32
B．28
C．30
D．36
正确答案：A
解析：当发生Command1_click事件时，将定义一个4行4列的数组aa(数组下标从0开始)，然后通过一个两层For循环给它的各个元素赋值，赋值规律是给每一个元素赋它的行下标值乘以4，再加上列下标值再加1。然后通过一个For循环把数组元素aa(0，1)、aa(1，1)、aa(2，1)和aa(3，1)的值2、6、10、14加到s中，s的值为32。 -
第22题：
阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是
A．3 5 7 9 30
B．1 3 5 7 9
C．2 4 6 8 20
D．11 15 17 19 20
正确答案：A
解析：本题For循环的循环变量初值为2，终值为10，步长为1。在循环体内，判断循环变量的值是否为偶数，如果是，则将该值累加给变量sum，否则输出循环变量的值。不难看出，运行该程序后，在循环体内输出的是奇数，而累加的是偶数。在循环体外，输出偶数的累加之和。 -
第23题：
在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为
A．16
B．24
C．32
D．36
正确答案：A
解析：本题中定义了两个一维数组，分别为Arr1和Arr2，由于使用了OptionBase1语句，因此其大小分别为10和3，接着执行3个For循环。在第1个循环中，对Arr1数组赋初值，每个元素的值与其下标相同，即Arrl(1)=1，Arrl(2)=2……。在第2个循环中，为Arr2数组的3个元素赋值，这3个值分别为Arrl数组第1、3、9个元素的值，即Art2(1)=1、Arr2(2)=4、Arr2(3)=9。在第3个循环中，计算数组Arr2中各元素的和，并将它赋给变量Sum。各元素的和为1+4+9=14，但由于变量Sum的初值为2，因此最后的输出结果为16。 -
第24题：
阅读程序：
Function fac(ByVal As Integer)As Integer
Dim temp As Integer
temp=1
For i％=1 To n
temp=temp*i％
Next i％
fac=temp
End Function
Private Sub Form. Click（ ）
Dim nsum As Integer
nsum=1
For i％=2 T0 4
nsum=nsum+fac(i％)
Next i％
Print nsum
End Sub
程序运行后，单击窗体，输出结果是（ ）。
A.35
B.31
C.33
D.37
正确答案：C
C。【解析】本题考查的是函数的调用，Function函数的意义是某个数的阶乘，所以通过计算结果为4！+3！+2!+1！=33