有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的运行结果是：（）A、5B、10C、20D、-10

题目

有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的运行结果是：（）

A、5
B、10
C、20
D、-10

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

阅读程序

Option Base 1

Private Sub Form_Click（）

Dim arr,Sum

Sum = 0

arr = Array（1,3,5,7,9,11,13,15,17,19）

For i=1 To 10

If arr（i）/3 = arr（i）\3 Then

Sum = Sum + arr（i）

End If

Next i

Print Sum

End Sub

程序运行后，单击窗体，输出结果为（）。

A．13

B．14

C．27

D．15

正确答案：C

第2题：

有以下程序 include define N 5 define M N＋1

有以下程序 #include ＜stdio.h＞ #define N 5 #define M N＋1 #define f(x) (x*M) main() { int i1,i2; i1=f(2) i2=f(1＋1); printf("%d %d\n",i1,i2); } 程序的运行结果是______。

A．12 12

B．11 7

C．11 11

D．12 7

正确答案：B
解析：在编译时预处理程序用“替换文本”来替换宏，并用对应的实参来替换“替换文本”。此题中的替换文本分别为： N＋1、(x*M)。引用带参的宏名i1=f(2)，在经过宏替换后i1=2'N＋1=2'5＋1=11(注：因为对宏M的替换中N＋1没有加括号，所以对宏f(x)的替换文本展开后就变为：x*N＋1形式)；与上相同i2在引用带参的宏名并替换展开后变为：
i2=1＋1*N＋1=1＋1*5＋1=7，所以答案选B。

第3题：

有以下程序

#include <stdio.h>

main()

{ int i,j,m=55;

for(i=1;i<=3;i++)

for(j=3;j<=i;j++) m=m%j;

printf("%d\n",m);

}

程序的运行结果是

A ) 0

B ) 1

C ) 2

D ) 3

正确答案：B

第4题：

20m≤L<50m船舶的拖带灯最小能见距离为()。

A.5 n mile

B 3 n mile

C 2 n mile

D.I n mile

参考答案：C

第5题：

有如下程序：

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

第6题：

有以下程序

#include <stdio.h>

main()

{ int i,j,m=55;

for(i=1;i<=3;i++)

for(j=3;j<=i;j++)m=m%j;

printf("%d\n",m);

}

程序的运行结果是

A．0

B．1

C．2

D．3

正确答案：B
解析：本题考查循环语句的嵌套以及条件的判断问题。在程序中,内层循环判断条件为"j<=i",而j的初值为3,故当i的值为1和2时,内层循环体都不会被执行。只有当i和j都等于3时才会执行一次。m的值为55对3取模,计算结果为1。

第7题：

有如下程序：

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

EndIf

Print Sum

End Sub

程序运行后，单击窗体，输出结果为

A．12

B．30

C．24

D．18

正确答案：A
解析：本题考查的是For循环语句和If条件语句的应用。从本题可以看出，本题程序段的作用是将从2～10中不是2的倍数但是3的倍数的数相加然后输出。在2～10中满足条件的数字是3和9，所以和是12。

第8题：

( 20 )有以下程序 include < s 七 dio . h >main (){ in i , j , m=1 ;for ( i=1 ; i < 3 ; i＋＋

（ 20 ）有以下程序

＃ include ＜ s 七 dio . h ＞

main （）

｛ in i , j , m=1 ;

for （ i=1 ; i ＜ 3 ; i++ ）

｛ for （ j=3 ; j ＞ O ; j-- ）

{if （ i*j ）＞ 3 ） break ;

m=i*j ;

}

printf （ " m=%d ＼ n ", m ） ;

｝

程序运行后的输出结果是

A ） m=6

B ） m=2

C ） m=4

D ） m=5

正确答案：A

第9题：

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为( )。

正确答案：27
27

第10题：

下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。

Dim a(1 To 10)AS Integer

Private Sub Form. _Click()

Randomize

p=“”

For i = 1 To 10

x = Int (Rnd * 90) + 10

yes = 0

For j = 1 To【】

If x = a(j) Then yes = 1: Exit For

Loop While yes = 1

a(i) = x

Next i

For i = 1 To 9

For【】To 10

If a(i) ＞ a(j) Then

t = a(i)

【】

a(j) = t

End If

Next j

Next i

p = Str(a(1))

For i = 2 To 10

p = p & “,” & Str(a(i))

Print p

Next i

End Sub

正确答案：i-1 j=1 a(i)=a(j)
i-1 , j=1, a(i)=a(j)

有程序：I=5J=10K=20M=-10IF（I．GT．M）M=

题目

相似问题和答案

更多相关问题

相关内容