违法和不良信息举报 联系客服
免费注册 登录

有如下程序： FOR j=1 TO 3 PRINT TAB（3

题目

有如下程序： FOR j=1 TO 3 PRINT TAB（3*j）；11*（2*j-1）； NEXT j 运行后输出的结果是（）

  • A、22 44 66
  • B、11 33 55
  • C、11 55 77
  • D、22 55 99
如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

（10）假设有下列程序段： For i=1 To 3 For j=5 To 1 Step -1 Print i*j Next j Next i则语句Print i*j的执行次数是，i的值为______，j的值为______。


正确答案：15,4,0
【解析】本程序是一个双重For循环，外层循环循环变量i从1到3，共循环3次；内层循环从5到1每次递减1，共循环5次，这样一共循环15次。循环结束时，j的值是0，i的值是4。

第2题：

在窗体上画—个命令按钮(其名称为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为正确答案。

第3题：

在VB程序中有以下程序段，语句Print "VB"的执行次数是( )

For i=1 To 3

For j=3 To 1 Step -1

Print "VB"

Next j

Next i

A.3

B.4

C.6

D.9


正确答案：D

第4题：

编写如下程序： Private Sub Form. Click() a$=: "4321": b$="abcd" For 3=1 To 4 Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。

A．alb2c3d4

B．b4c3d2el

C．eld2c3b4

D．la2b3c4d


正确答案：D
解析：For循环共执行了4次，每次用Mid$函数取出a$和b$的子串输出，a$是倒序，每次取一个字符，b$是顺序，每次取一个字符，连接在一起输出，输出表达式用分号结束，表示下一次接着输出，故输出结果为1a2b3c4d。

第5题：

假定有下列程序段 For i=1 TO 3 For j=5 TO 1 Step-1 Print i*j Next j Next i 则语句Print i*j的执行次数是（ ）。

A.15

B.16

C.17

D.18


正确答案：A
A。【解析】For…Next循环语句可提供一个重复执行的语句序列，遵循“先检查，后执行，，的规则，执行过程中，循环次数=Int(终值一初值)／步长+1。本题代码是一个嵌套的For循环，其中每次执行内循环时的循环次数=(Int(1-5)／-l)+1=5，外循环的循环次数为3，因此执行循环体语句：PrintI*J的次数为15次。

第6题：

有F面的程序段．其功能是按图1所示的规律输出数据

Dim a(3，5)As Integer

For i=1 To 3

For i=1 To 5

a(i，j)=i+j

Print a(i，j)；

Next

Print

Next

若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是

A．For i=i To 5 For j=1 To 3 Print a(j，i)； Next Print Next

B．For i=1 To 3 For i=1 To 5 Print a(j，i)； Next Print Next

C．For j=1 To 5 FOr i=1 TO 3 Print a(j，1)； Next Print Next

D．For i=1 To 5 For j=1 To 3 Print a(i，j)； Next Print Print Next Next


正确答案：A
解析：题目的意思是要把原矩阵倒置，可以这样理解：把原矩阵按列取出，然后重新按行排列，所以答案A)正确，答案B)、C)、D)错误。

第7题：

下列程序的运行结果为【 】。

A="1"

B="2"

A=Val (@A@+Val (@B@B=Val ("12")

If A＜＞B Then Prink A-B Else Print B-A

(11)阅读下列程序:

Option Base 1

Private Sub Form. Click()

Dim x(3,3)

For j=1 to 3

For k=1 to 3

If j=k then x(j,k)=1

If j＜＞ k then x(j,k)=3

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(a())

For j=l to 3

For k=1 to 3

Print a (j.k);

Next k

Next j

End Sub

运行程序时，输出的结果是【 】


正确答案：-9
-9 解析：本题考查Val函数的用法。Ⅷ函数是返回字符串内的数字，因此A=Val(A) +Val (B) =1+2=3，而B=Val("12")=12,A-B=-9,B-A=9，而A＞B，所以执行Print A-B，正确答案为-9。

第8题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)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 2 3 2 4 6 3 6 9

B．2 3 4 3 4 5 4 5 6

C．1 4 7 2 5 8 3 6 9

D．1 2 3 4 5 6 7 8 9


正确答案：D
解析：程序共有两层循环，每执行完一次内循环，则打印换行，当外层循环执行第一次时，a(i,j)＝(i-1)*3+j相当于a(1,j)＝j，由此判断选项A，D可能正确，当外层循环执行第二次时，a(i,j)＝(i-1)*3+j，相当于a(2,j)＝3+j，由此可判断选项D为正确答案。

第9题：

有如下程序，运行后输出s的值是______。 For j=1 To 20 x=2*j-1 If x Mod 3=0 0r x Mod 7=0 Then s=s+1 Next j Print s

A．5

B．9

C．11

D．15


正确答案：B
解析：根据x和j的关系和j的范围，可知x的取值范围是0～40之间的奇数。在H语句中，实际上是统计x中能整除3或整除7的奇数的个数，在x的范围根据这个条件进行判断可知：有9个奇数满足条件(3，7，9，15，2l，27，33，35，39)，结果为9。

第10题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Dim i As Integer,j As Integer Dim a(10，10)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j)； Nextj Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

A．1 2 3 24 6 3 6 9

B．2 3 4 3 4 5 4 5 6

C．1 4 7 2 5 8 3 6 9

D．1 2 3 4 5 6 7 8 9


正确答案：D
解析：由于有For循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j“可知输出的数值为1、2、3。此时Forj循环终止，并执行“Print”语句，即进行换行。然后再执行Fori的第二次循环，以此类推，正确答案为D。

更多相关问题
相关内容