高中信息技术《算法与程序设计》练习

高中信息技术《算法与程序设计》练习

-CAL-FENGHAI-(2020YEAR-YICAI)_JINGBIAN

《算法与程序设计》练习

（满分：100分）

说明：本卷分为第一卷和第二卷两部分。第一卷为客观题，含单选题和判断题，其中单选题30小题，共45分；判断题20小题，共20分。第二卷为操作题，共3题，第1题15分，第2题10分，第3题10分，共35分。

一、单选题

1、(1.5分)下面是4位同学为解决问题编写的程序，完全正确的是( )。

同学1：某同学从17岁开始栽了1棵树，以后每年都比前一年多栽1棵，他要栽够100棵树，最小得多少岁？程序如下：

Private Sub Command1_Click( )

Dim Age As Integer,Tree As Integer

Do

Age=17

Age=Age+1

Tree=Tree+Age（Tree应该是树的累加数，这样合适吗）

Loop Until Tree=100

Print Age & “岁”

End Sub

同学2：计算S=1×2×3×4×5×6×7×8×9的值。程序如下：Private Sub Command1_Click( )

Dim S As Integer

（S没有初始值，默认为0）

For a = 1 To 10（终值设置错误）

S = S * a

Next a

Print “S=” & S

End Sub

同学3：求解方程ax+b=0。程序如下：

Private Sub Command1_Click( )

Dim A As Single,B As Single

InputBox("A=")（从键盘得到的数据赋给谁了）

InputBox("B=")

X=-B/A

Print X

End Sub

同学4：计算S=1+(1+2)+(1+2+3)+…+(1+2+3+…+100)的值。程序如下: Private Sub Command1_Click()

Dim i As Integer,T As Long,S As Long

S=0:T=0

For i=1 to 100

T=T+i（T的值为：1＋2＋3＋……n）

S=S+T

Next I

Print "S="; S

End Sub

A、同学1

B、同学2

C、同学

2、(1.5分)

下面的4个VB程序段能使变量a、b、c的值全部相同的是( )。程序一：

a=1:b=2:c=3

a=b

b=c

c=a

程序二：

a=1:b=2:c=3

c=a

c=b

c=c

程序三：

a=1:b=2:c=3

c=a

b=c

程序四：

a=1:b=2:c=3

c=a=b

A、程序一

B、程序二、程序四

3、(1.5分)

如果要改变窗体的标题，则需要设置的属性是( )

、名称 C、Font D、Visible 4、(1.5分)

已知数组D的1到N号元素已经赋入常数值，下面4个程序段都把这N个常数值输出，其中不能保证输出的数据是由小到大的程序段是哪个( )。

程序一：

for i=1 to n-1

Min=D（i）:M=i

for j=i+1 to n

if D(j)＜Min then Min=D(j):M=j

Next j

k=D(i):D(i)=Min:D(M)=k

Next I

for i=1 to N

print D（i）;

Next i

程序二：

For i = 1 To n - 1

For j = n To i + 1 Step -1

If d(j) ＜ d(j - 1) Then M = d(j): d(j) = d(j - 1): d(j - 1) = M

Next j

Next i

for i=1 to N

print D(i);

Next i

程序三：

for i=1 to n-1

for j=i+1 to n

if D(j)＜D(i) then M=D(j):D(j)=D(i):D(i)=M

Next j

Next i

for i=1 to N

print D(i);

Next i

程序四：

For i = 1 To n - 1

For j = i+1 To n

If d(j) ＜ d(j - 1) Then M = d(j): d(j) = d(j - 1): d(j - 1) = M Next j

Next i

for i=1 to N

print D(i);

Next i

A、程序一

B、程序二

C、程序三

（调试程序时请将下列代码加在源代码的前面

Dim d(5) As Integer

For i = 1 To 5

d(i) = InputBox("D(" & i & ")=")

Next

N = 5）

5、(1.5分)

以下程序运行后输出的结果是( )。

Private Sub Command1_Click( )

a = 71 * 72

P = 10000 \ a + 1（“\”为取整运算）

For i = P * a To 11111 Step a

c = i \ 100 Mo

d 10

If c = 2 Then Print I;

Next i

End Sub

、1022456232 C、56232 D、15336

6、(1.5分)

下面的4个程序在运行时都会出错，其中不属于语法错误的是( )。