一、选择题
1.已知赋值语句s=”Good Bye!”,则下列定义变量s正确的是（ ） A. Dim s As String B. Dim s As Long C. Dim s As Integer D. Dim s As Double
2.仪仗队队员对身高H的选拔要求是：高于1.85米，不超过1.90，下列表达式能正确表达的是 （ ）
A. H>=1.85 and H<=1.90 B. H>1.85 or H<=1.90 C. H>=1.85 and H<=1.90 D. H>1.85 and H<=1.90 3.程序有三种基本结构，下面哪个不属于三种基本结构（ ） A. 顺序结构 B.树形结构 C.选择结构 D.循环结构 4.下列序列能采用二分查找法查找某一元素的是（ ） A.34,25,17,9,10,3 B.15，14，12，7，2，3 C.6，9，12，14，23，25 D.1，4，7，15，13
5.已知n是一个两位数，下列VB表达式中能正确求出n的个位数（ ） A. n\\10 B. n/10 C. n\\100 D. n mod10 二、操作题
1.阅读下列程序，写出运行结果
Dim i as integer ，j as integer s=0
For i=1 to 3 For j=1 to 5 S=s+1 Next j Next i Print s
程序运行后，程序的结果是 2. 算法设计与程序实现
已知包含25项的数列：1，2/3，3/5，…，24/47，25/49。 问题1：写出该数列的通项公式f(n)=____ __ __(3分)
问题2：以下是计算S=1+2/3+3/5+……+24/47+25/49的程序，请补全代码： Dim i As integer Dim s As single s=0
For i= 1 To 25
s=s+______(3分) Next i
Print “s=”;s
3. 算法设计与程序实现（百钱买百鸡）
假设1只公鸡值5钱，1只母鸡值3钱，3只小鸡值1钱。现用100钱来买100只鸡。问：公鸡.母鸡.小鸡各买多少只？（要求公鸡.母鸡.小鸡，每种最少买一只）
设计算法并编写程序输出所有的买鸡方案。
公鸡 母鸡 小鸡 界面及运行结果
4 18 78
8 11 81 【程序设计】
12 4 84 计算 For x=1 to 20
For y=1 to 33
For z=1 to 99 step 3
If ____________________then Print “公鸡：”& x,”母鸡：”&y,”
小鸡”&z
Next z Next y Next x
根据上述回答如下问题：
（1）解决此问题采用的算法是______ ____(填写：解析法/枚举法/排序法/递归法)。 （2）程序代码中空白处应填写的条件是________
A. x+y+z=100 and 5x+3y+z/3=100 B. x+y+z=100 or 5x+3y+z/3=100 C. x+y+z=100 and 5*x+3*y+z/3=100 D. x+y+z=100 or 5*x+3*y+z/3=100
信息技术合格考复习题 算法（六）
一、选择题
1．下列选项中，关于算法的描述正确的是（ ）。
A．算法只能用自然语言描述 B．算法必须在有限步骤内实现 C．算法就是一种高级程序设计语言
D．算法可以有0个或多个输入，但只能有一个输出 2．下列选项中，能作为VB程序变量名的是（ ）。 A.while B.4A123 C. a%c D. dist 3．以下程序段执行后，输出结果为（ ）。 m=29
If m Mod 3 <> 0 Then
Print m & “不能被3整除” Else
Print m & “能被3整除” End If
A. n能被3整除 B. n不能被3整除 C. 29不能被3整除 D. 29能被3整除 4．下列VB表达式中，值为字符串类型的是（ ）。
(1) Abs(x) (2) Text1.Text (3)”123+45” (4) Sqr(x) (5) Labell.Caption A. (1)(3)(5) B. (2)(3)(5) C. (2)(4)(5) D. (1)(2)(3) 5.在VB中，下列哪个选项是正确的赋值语句？（ ）
A. 2018=x B. 5s=80 C. a+b=c D. s=s+5 二、操作题
1、阅读程序，写出运行结果 Dim n As Integer
n=Val(InputBox(“n=”)) Do While n Mod 2=0 n=n\\2 Loop Print n
程序运行时，输入24，输出n的值是：______ 2、分析并完善程序
以下是计算s=1+6+11+…+101的程序代码，请完善程序。 Dim s As Integer Dim i As Integer s=0
For i=1 To 101 Step__________ s=____________ Next i Print s
3、算法设计与程序实现
某市出租车收费标准如下： （1）3公里内（含3公里），收费8元；
（2）超过3公里但未超过6公里部分，按1.5元/公里收费； （3）超过6公里部分，按2.25元/公里收费。
根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？ 【参考代码】
Dim s As Single Dim p As Single
s=Val(InputBox(“s=”)) If s<=3 Then p=8 End If
If ______________Then p=1.5*(s-3)+8 End If
If s>6 Then
p=2.25*(s-6)+1.5*3+8
End If Print p
根据上述回答下列问题：
1. 本题采用的算法是__________（填写：解析法/查找法/枚举法/排序法）。 2. 程序代码中空白处应填写的条件是____________（填写字母：A/B/C/D）.
A. 3
信息技术合格考复习题 算法（七）
一、选择题
1.设a=2，b=5，在VB中，表达式a>b And b>3的值是（ ）。 A.1 B.1 C .False D. True
2.以下程序段运行后，x和st的值分别是（ ）。 Dim x As Integer Dim st As String x=123+678
st=”123”+”678” A .123678 “123678” B. 801 “C .123678 “801”D. 801 “801”
3.用流程图表示条件“A>B”是否成立，要用到以下哪个图形？（ ）A.平行四边形 B. 菱形 C. 圆角矩形 D.直角矩形 4.下列选项中，能作为VB程序变量名的是（ ）。
A. dim B. 3ab C. a*b D. xy 5.以下程序段运行后， s的值是（ ）。 n=0 s=0
Do While s<=10 n=n+3 s=s+n loop
A. 30 B. 18 C. 0 D. 3 二、操作题
1.阅读程序，写出运行结果 Dim a(10) As Integer Dim I As Integer a(1)=1 a(2)=1
123678”