1.选择题- (共63题)
3.
在VB中，下列程序段执行后，语句s=s+i重复执行的次数是 ( )
s=1
For i=1 To 10 Step 3
s=s+i
Next i
Print s
s=1
For i=1 To 10 Step 3
s=s+i
Next i
Print s
| A．3次 | B．4次 | C．5次 | D．10次 |
7.
在VB中，若a=1，b=2，要使输出结果为a+b=3（如下图所示），应使用的输出语句是( )
| A．Print “a+b=a+b” | B．Print “a+b=”;a+b |
| C．Print a+b;“=a+b” | D．Print “a+b=”;“a+b” |
18.
小陈同学编写了一个VB程序，其功能是：比较两个数a和b的大小，然后输出其中较大的数。以下是他的程序段，在划线处应填写 ( )
If Then
max=a
Else
max=b
End If
Print “较大的数是”;max
If Then
max=a
Else
max=b
End If
Print “较大的数是”;max
| A．a>b | B．a<b | C．max<a | D．max<b |
19.
有如下 VB 程序，它的输出结果是（ ）。
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
| A．S=0 | B．S=25 | C．S=30 | D．S=55 |
29.
解决“鸡兔同笼”问题的一种算法是：首先输入总头数H和总脚数B，然后计算兔数R，R＝B/2-H，最后计算鸡数C，C＝H-R。这个算法的描述方式是（ ）。
| A．伪代码 | B．流程图 | C．自然语言 | D．计算机程序 |
表示（ ）。
42.
在VB中，下列程序段执行后，变量a,b,c的值分别是（ ）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop
| A．2,2,1 | B．3,4,2 | C．4,8,4 | D．4,4,2 |
45.
一玻璃球从高空做自由落体运动，在到达地面时速度为98m/s，请问：该玻璃球从高空开始下落到地面用了多少时间？编程求此问题最佳算法是（ ）
| A．穷举法 | B．顺序查找算法 | C．递归算法 | D．解析法 |
53.
判断一个整数是否为偶数的算法是：对这个数S进行求余运算，如果S mod 2 =0，那么这个数是偶数，如果S mod 2<>0 ，则该数为奇数。 解决问题的算法基本结构是（ ）。
| A．框架结构 | B．顺序结构 | C．循环结构 | D．选择结构 |
58.
判断一个整数是否为偶数的算法是：对这个数S进行求余运算，如果S mod 2 =0，那么这个数是偶数，如果S mod 2<>0 ，则该数为奇数。这种算法的描述方式是（ ）。
| A．自然语言 | B．流程图 | C．伪代码 | D．机器语言 |
63.
在VB中，下列程序段执行后，变量a的值是( )
a=15
b=10
If a<>b Then
a=a-b
else
a=a+b
End If
Print a
a=15
b=10
If a<>b Then
a=a-b
else
a=a+b
End If
Print a
| A．25 | B．15 | C．10 | D．5 |
2.填空题- (共5题)
64.
将以下程序段补充完整。
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________
If ②__________Then
Print n & “不是素数”
End If
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________
If n Mod i = 0 then
s=s+1统计因数个数End If
Next iIf ②__________Then
Print n & “是素数”
ElsePrint n & “不是素数”
End If
66.
将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
Y=0
Else
Y= ②_______
End If
Print "行李费= "; ③___________
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
Y=0
Else
Y= ②_______
End If
Print "行李费= "; ③___________
67.
分析并完善程序。
计算1+3+5+……+99的值。
Dim i As Integer
s=0
for i=1 to ①________ step 2
s= ②__________
next i
print “s=”③_____ ;
计算1+3+5+……+99的值。
Dim i As Integer
s=0
for i=1 to ①________ step 2
s= ②__________
next i
print “s=”③_____ ;
试卷分析
-
【1】题量占比
选择题:(63道)
填空题:(5道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：68