关键词不能为空

当前您在: 主页 > 高中公式大全 >

信号衰减公式2019山东省信息技术合格考复习题算法模块(历年真题)

作者:高考题库网
来源:https://www.bjmy2z.cn/gaokao
2020-09-12 12:31
tags:海伦公式

北外外交学-qs世界排名



信息技术合格考复习题 算法(一)
一、 选择题
表达式 68 mod 10 的结果是( )
A.4 B.0 C. 8 D.16
2.在VB语言中,下列合法的变量名是( )
A.2x B.x2 C.x2 D. x*2
3.执行下列程序段后,输出的“*”的个数为( )
For i=2 to 10
Print “*”
Next i
A.8 B.2 C.9 D. 10
4.下列流程中,能正确表示选择结构的是( )

A.(1)(2)(3) B.(2)(3)(4) C.(2)(4) D.(1)(3)
5.
二、操作题
1.阅读下列程序,写出运行结果
Dim I as integer
Dim s as integer
Dim n as integer
n=30
s=0
For I =2 To n-1
If n MOD i =0 Then s = s+i
Next i
Print s
程序运行后输出s的值是___________________
2. 算法设计与程序实现
假设银行的年存储利率为3%,如果现在存储10000元钱,问 多少年后连本带息超过
..
12000元。
年数
设定:连本带息=本金*(1+利率)
【算法分析】
n
假设n年后连本带息 超过12000,根据题意得出:10000*(1+3%)>12000。
求最小的n。


【参考程序】
Dim s As Single
Dim r As Single
Dim n As Integer
s = 10000
r = 0.03
n = 0
Do While _____________
n = n +1
s = s*(1+r)
Loop
Print n “年后”;”连本带息超过”; s
根据上述回答如下问题:(共8分,每题4分)
(1)本题采用的算法是 (填:解析法枚举法排序法递归法)
(2)写出程序中空白处表达式
3. 算法设计与程序实现
学校举行校园歌手大赛,评委由6人组成,评分方法:去掉一个最 高分,去掉一
个最低分,计算其余4位评委的平均分,作为选手的最终得分。

【算法设计】
max 记录最高分
min 记录最低分
s 记录六位评委的总分
aver 记录最终得分
第1步:从文本框中分别读入6位评委的打分并依次存入到a(1)到a(6)中;
第2步:将第一位评委的打分a(1)分别赋给最高分max,最低分min和总分s;
第3 步:利用循环结构把另外5位评委的打分累加给s从而求出6位评委的总分s,
同时把5位评委的打分与 max与min进行比较,得出6位评委中的最高分max和最低
分min;
第4步:从总分 s中去掉最高分max和最低分min,求出其他四位评委的平均分
aver作为选手的最终得分。
根据上述回答下列问题:(共8分,第一题2分,第二题3分,第三题3分。)


(1)在设计界面过程中,窗体中录入评委打分的对象是下图中哪个控件生成的?
______ _(填写编号:1234)

(2)上述算法描述采用的方法是: (填:自然语言伪代码流程图)
(3)下列程序代码片段对应于算法描述中的第2步至第4步。
max = a(1)
min = a(1)
s = a(1)
For I = 2 to 6
s = s + a(i) ’求6位选手的总分
if a(i) > max then max = a(i)
if a(i) < min then min = a(i)
Next i
aver = (_________________)4 ’计算出选手的最终得分aver
请写出片段中括号内空白处的表达式 。
信息技术合格考复习题 算法(二)
一、选择题
1.已知s=1+2+3 +……+N,找出一个最大的N,使得s<30000,编写程序解决此问题,最
适合的程序主体结构是 ( )
A.顺序结构 B.选择结构 C.循环结构 D. 分支结构
2.下列变量名合法的是( )
A. abc*123 B.123abc _123
3.执行下列语句后,y的值是( )
x=16
if x<0 then
y=abs(x)
else
y=sqr(x)
end if
A.4 B.0 C. 16 D. 都不是
4. 已知n是一个两位数,下列VB表达式中能正确求出n的个位数( )
A. n10 B. n10 C. int(n10) D. n mod10
5.下列关于算法说法正确的是( )
二、操作题
1. 阅读下列程序,写出运行结果


Dim n as integer
Dim i as integer
s=0
For i=1 to 6
s=s+i
Next i
上述程序运行后,变量s的值是
2.阅读下方流程图,写出结果



开始



输入x,y



x=x+y



y=x-y




x=x-y



输出x,y





结束

当输入x=8,y=10时,输出结果为:x= ,y=
3.算法设计与程序实现
已知a、b、c分别为三角形的三条边长,利用海伦公式求三角形面积
p = s =
编程实现:输入边长a ,b ,c,如果能构成三角形,输出面积,否则输出“No Answer!”
【参考程序】
Dim a As Single
Dim b As Single
Dim c As Single
Dim p As Single
Dim s As Single
a = Val ( )
b = Val ( )
c = Val ( )
If Then


p = ( a+b+c ) 2
s = Sqr(p*(p-a)*(p-b)*(p-c))
= format(s,”0.00”) ‘结果保留两位小数
Else
= “No Answer!”
End If
根据上述回答下列问题:(8分,每空4分)
(1)利用海伦公式求三角形面积的算法是 (填:解析法枚举法排序
法查找法)
(2)填写处参考程序中空白处的表达式 (填写字母:ABCD)。
A. a+b>c or a+c>b and b+c>a
B. a+b>c or a+c>b or b+c>a
C. a+b>c and a+c>b or b+c>a
D. a+b>c and a+c>b and b+c>a
信息技术合格考复习题 算法(三)
一、选择题
1.下列表达式能判断正整数x是偶数的是( )。
A. x mod 2 = 1 B. x2 = 0 C. x mod 2 <> 0 D. x mod 2 = 0
2.下列程序段运行后,s的值是( )
S=0
For i=2 to 10
s=s+i
Next i
A.53 B.54 C.10 D.55
3.下列语句属于三种结构中的哪一种( )
x=100
if x < 0 then
y= abs(x)
else
y= sqr( x)
end if
它属于 ( )
A.顺序结构 B. 选择结构 C. 循环结构 D.其他三项都是
333
4.水仙花是三位整数,其各位数字立方和等于该数本身,如153=1+5+3,如果 要求出
所有的水仙花,下列算法最合适的是( )
A.解析法 B.枚举法 C.查找法 D.排序法
5.下列变量正确的是( )
A. dim for as double B. dim abc as integer
C. dim 4ac as Boolean D. dim a*c as string
二、操作题
1.阅读下列程序,写出运行结果
Dim a(10) As Integer
Dim i As Integer


Dim S As Integer
For i = 1 To 5
a( I ) = i * i
Next i
S = a(3) + a(4)
Print s
上述程序运行后,变量s的值是
2.算法设计与程序实现
假设我国目前人口数为13亿,如果每年增长率为1.2&。
编写程序,计算多少年后我国人口数超过20亿。
【算法分析】
n
设n年 后,我国人口数超过20亿。根据题意得出数学关系式:13*(1+1.2%)>20。
求最小的n。
【参考程序】
Dim p as single
Dim r as single
Dim n as integer
p=13
r=0.012
n=0
Do while _________
n = n+1
p = p*(1+r)
Loop
Print n “年后” “人口超过” p
根据上述回答下列问题:(8分,每空4分)
(1)本题采用的算法是 ____ ______(填写:解析法枚举法排序法递归法)。
(2)写出参考程序中空白处表达式 ___ _______________。
3.算法设计与程序实现(8分)求 s=3+6+9+…+300的值.

解决该问题,可以采用如下两种不同的方法:
方法1:
Dim s As Integer
Dim i As Integer
s=0
For I = 3 to 300 step 3
s = s + ①
Next i
Print s
方法2:
Dim s As Integer
Dim i As Integer
s=0
For I = 1 to 100
s = s + ②
Next i
Print s
请补充完成上述程序:①_______;②____________



信息技术合格考复习题 算法(四)
一、选择题
1.在VB语言中,下列合法的变量名是( )
A. x*y B. xy C. xy
2. 已知在VB 语言中,Int(x)函数的功能是返回不大于 x的最大整数,Fix(x)函数的
功能是返回x的整数部分,则表达式int(2.88)+fix( -3.89)的值是( )。
A.1 B.01 C.-1 D.都不是
3.下列问题适合用解析法求解的是( )
A.一个小球从100米高的楼顶坐自由落体运动,求落地时的速度V
B.输出1000以内所有的完全平方数
C.在一组彩球中寻找出所有的红球
D.将全班同学根据身高从高到矮排队
2
4.一元二次方程判别式b-4ac的VB表达式正确的是( )
2
A. b*b-4*a*c B. b*b-4ac C. b-4ac D.b^2-4*ac
5.下列程序段运行后,s的值是( )
s=0
For i=2 to 10
s=s+i
Next i
A.53 B.54 C.10 D.55
二、操作题
1.算法设计与程序实现
以下是计算s=1-2+3-4+5……+99-100程序代码,请补全程序。(8分)
Dim S as integer
Dim i as integer
s=0
For i =1 to 100
If i mod 2 = 1 then
s=____________
Else
s=_____________
End if
Next i
Print “S=”;S
2.算法设计与程序实现
一张单据上有一个4位数的号 码8□□0,其中百位和十位上的数字已看不清楚了,
但知道该4位数既能被23整除,也能被37整除 。
请编写程序求出该单据号码。
【算法设计】
设百位数为x,十位数字为y:x 和 y的范围都是0到9


4位数:8xy0=8*1000+x*100+y*10
列举□□里的两个数字的所有可能的情况:
00,01,02,03,04,05,06,07,08,09,
10,11,12,13,14,15,16,17,18,19
……
90,91,92,93,94,95,96,97,98,99
逐一判断找出符合条件的数字。
【参考程序】
Dim x As Long
Dim y As Long
Dim n As Long
For x=0 to 9
For y=0 to 9
n=8*1000+x*100+y*10
If _____________ then
Print n
End If
Next y
Next x
根据上述回答下列问题:(共8分:第一题3分;第二题2分;第三题3分)
(1)解决该问题采用的算法是_ __(填写:解析法枚举法排序法递归法)。
(2)根据题意,程序中空白处应填写:______(填写字母:ABCD)。
A. n mod 23 = 0 or n mod 37 =
开始
B. n 23 = 0 and n 37 = 0
C. n 23 = 0 or n 37 = 0
输入x
D. n mod 23 = 0 and n mod 37 = 0
(3)根据算法设计,参考程序中循环体
中的语句“n=8*1000+x*100+y*10”,
n=0
一共重复了多少次?________________。

3.阅读右侧流程图,写出结果(4分)
N
X
2
-4x+3≤0
当输入x=1时,输出n的值=_______
Y

x=x+1



n=n+1



输出n


结束


信息技术合格考复习题 算法(五)

一、选择题
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. n10 B. n10 C. n100 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,23,35,…,2447,2549。
问题1:写出该数列的通项公式f(n)=____ __ __(3分)
问题2:以下是计算S=1+23+35+……+2447+2549的程序,请补全代码:
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钱。现用1 00钱来买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+z3=100 B. x+y+z=100 or 5x+3y+z3=100
C. x+y+z=100 and 5*x+3*y+z3=100 D. x+y+z=100 or 5*x+3*y+z3=100
信息技术合格考复习题 算法(六)
一、选择题
1.下列选项中,关于算法的描述正确的是( )。
A.算法只能用自然语言描述
B.算法必须在有限步骤内实现
C.算法就是一种高级程序设计语言
D.算法可以有0个或多个输入,但只能有一个输出
2.下列选项中,能作为VB程序变量名的是( )。
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) (3)”123+45” (4) Sqr(x) (5) n
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=n2
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. 程序代码中空白处应填写的条件是____________(填写字母:ABCD).
A. 33 And s<=6 D. s>3 Or s<=6
信息技术合格考复习题 算法(七)
一、选择题
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”




For i=3 To 6
a(1)=a(i-1)+a(i-2)
Next i
Print a(6)
上述程序运行后,输出a(6)的值是_________________________。(6分)
2.分析并完善程序
以下是计算s=1*2*3*…*10的程序代码,请补全程序。(6)
Dim s As Long
Dim i As Integer
s=__________
For i=1 To 10
s=__________
Next i
Print s
3.算法设计与程序实现
勾股数
求出100以内满足a【参考程序】
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a=1 To 100
For b=1 To 100
For c=1 To 100
If ________Then
Print a;b;c
End If
Next c
Next b
Next a
1.本题采用的算法是__________(填写:解析法 枚举法排序法递归法)。
2.程序代码中空白处应填写的条件是________(填写字母:ABCD).
A.aC .a
信息技术合格考复习题 算法(八)


一、选择题
1.下列选项中,能作为VB程序变量名的是( )。
A. s+1 B.3stu D.s1
2.下列哪个程序段的运行结果如图所示?( )
******
******
******
******
for i=1 to5
for j=1 to 6
Print” *”
next j
print
next i
B . for i=1 to5
for i=1 to 6
print” *”
next i
print
next i
C. for i=1 to5
For j=1 to 6
Print” *”
next j
print
next j
D. for i=1 to5
For j=1 to 6
Print” *”
next j
print
next i
3.在VB中,Int(x) 函数的功能是返回不大于x的最大整数,设a=3 ,b=4,c=5,
则下列表达式的运算结果中值最大的是( )。
A. Sqr(c) (a-b) (2*a-cb) D.a^2+b^2-c^2
4.在VB中,用变量c ode存储学生的借阅卡编码(code=”N020170502”),则变量
code 的数据类型应定义为( )。


r
Basic程序设计语言属于( )。
A.汇编语言 B.自然语言 C.高级语言 D.机器语言
二、操作题
1.阅读程序,写出运行结果
Dim i As Integer
Dim x As Integer
Dim y As Integer
y=30
For i=1 To 3
x=Val(InputBox(“x=”))
If y< x Then
y=x
End If
Next i
Print y
程序运行后,依次输入:36 87 51
运行后输出结果是_________________。(6分)
2.算法设计与程序实现
(拖动滚动条浏览全部试题内容,点击右侧图标可切换输入法)
GDP增长问题: 某省20 16年的GDP是6.7万亿元,如果每年按7%的比例增长,问多
少年以后此省的GDP超过15万亿 ?
【算法分析】
假设n 年后此省的GDP超过15万亿元,根据题意得出数学关系式?求最小的n。
【参考程序】
Dim p As Single ’p用于记录GDP的值
Dim r As Single ’r用于记录GDP的年增长比例
Dim n As Integer ’n用于统计年数
p=6.7
r=0.07
n=0
Do While_________
p=p*(1+r)
n=n+1
Loop
Print n & ”年后,GDP的值超过15万亿元。”
根据上述回答下列问题:(共6分,每空3分)


(1)本题采用的算法是______________(填写:解析法枚举法排序法递归法)。
(2)写出程序中空白处表达式_______________________________。
3.算法设计与程序实现
判断车牌的单双号
【背景知识】
为了 保障空气质量,减少雾霾,某市决定当空气污染严重时,实行汽车单双号限
行,违反规定的车辆将予以处 罚。如何让高清摄像头自动判断车牌的单双号,交警犯
了愁,他需要编程高手的你帮忙,完善下面的程序 。(提示:(1)所有车牌号中都含有
数字,并且车牌号的长度都是6;(2)以车牌中最后一位阿拉伯 数字的奇、偶来决定单
双号。)
(1)输入:AD2367
输出:单号
自然语言
(2)输入:A8888A
输出:双号
(3)输入:A8963C
输出:单号
流程图
第1步:输入车牌号 开始
第2步:取车牌号的最后一位x;
第3步:判断x是否为数字,如果是,转第

4步;如果不是,则依次取得倒数第二、
三……位判断,知道找到数字为止;
第4步:判断x 是奇数还是偶数,然后输
出相应的结果。

【算法描述】
请根据上述算法描述补全代码
Dim n As Integer
Dim s As String ’定义s 为字符串类型
Dim x As String
s=InputBox(“s=”,s) ‘将输入的车牌号赋值给s
n=6
‘车牌号的长度为6
x=Mid(s,n,1) ‘取车牌号s的第n位
Do While x<”0” Or x>”9” ‘x不是数字字符,则取x的前一位
_______①_______
x=Mid(s,n,1) ‘取车牌号s的第n位
Loop
If _______②_______then


Print“双号”
Else
Print“单号”
End If
(提示:Mid(s,m,n)的功能:从字符创S的第m位开始,截取长度为n的子串 。例如:
Mid(“A8963C”,5,1)的返回值是“3”。)
请完善上述程序:(共8分,每空4分)
(1) 根据题意,程序中空白①处应填写:_______________________________ 。
(2) 根据题意,程序中空白②处应填写:______(填写字母:ABCD)。
(x) 2= 0 (x)Mod 2 = 1
(x) Mod 2=0 (x) Mod 2 <> 0

一、选择题
1.一下程序段运行后,y的值是( )。
x=3
If x>3 Then
y=2*x
Else
y=3*x+1
end if
A .25 B. 26 C. 10 D. 5
2.某晚会的猜数字游戏中,有 100张写有1~100之间整数的卡片,主持人随机抽取一
张卡片,让大家竞猜。有一种方案是:第一 次猜50,若提示低了,则第二次猜75,若
提示还是低了,则第三次猜87,依次类推;若第一次猜5 0,提示高了,则第二次猜25,
若提示还是高了,则第三次猜12,依次类推;……。这种每次缩小一 半查找范围而达
到迅速确定目标的算法称为( )。
A. 顺序查找法 B. 排序法 C. 解析法 D. 二分查找法
3.在平面直角坐标系中,设点A(x1,y1)、点B(x2,y2),则AB两点之间的距离为:
VB表达式是( )。
A . Sqr((x1-x2^2+(y1-y2)^2) B . Sqr[(x1-x2)^2+(y1-y2)^2]
C. Sqr((x1-x2)2+(y1-y2)2) D . Sqr[(x1-x2)2+(y1-y2)2]
信息技术合格考复习题 算法(九)


4.下列语句正确定义了一个单精度实型变量x 的是( )。
x As Single B. 其它三项都不对 x As Integer x As
String
5.在VB中表示“x 属于区间[a,b)”的正确表达式是( )。
A.a<=x And x二、操作题
1.阅读程序,写出运行结果
Dim s As Integer
Dim i As Integer
s=0
For i=1 To 10 Step 4
Print “#”;
s=s+i
Next i
Print s
上述程序运行后,输出“#”的个数是__________;输出s的值是________。
2.阅读程序,写出运行结果
Dim a As Integer
Dim b As Integer
Dim r As Integer
a=98
b=63
r=a Mod b
Do While r <>0
a=b
b=r
r=a Mod b
Loop
Print b
程序运行后,输出结果为:___________________。(6分)


3.算法设计与程序实现
换钱问题
要将一张100元的钞票,换成等值的5元、2元、1元一张的钞票共50
张。其中一种换法如下:
5元:3张
2元:38张
1元: 9张
求出所有的换钱方案。
【算法设计】
x表示5元的张数:1≦x≦20;
y表示2元的张数:1≦y≦50;
z表示1元的张数:1≦z≦100.
【参考程序】
Dim x AsInteger
Dim y AsInteger
Dim z As Integer
For x=1 To20
For y=1To 50
Forz=1 To 100
If ______________Then
Print
x;y;z ’x y z 之间以分号分隔
End If
Nextz
Next y
Next x
根据上述回答下列问题:(8分,每空4分)
(1)本题采用的算法是 _____________(填:解析法枚举法排序法递归法)。
(2)程序代码中空白处应填写的条件是 _______________(填写字母:ABCD)。
A . 5x + 2y + z=100 Or x+ y + z = 50 B . 5x + 2y + z=100 And


x + y + z = 50
C . 5*x + 2*y + z=100 Or x + y + z = 50 D . 5*x + 2*y + z=100 And x
+ y + z = 5
信息技术合格考复习题 算法(十)

一、选择题
1.在VB中,下列属于字符串常量的是( )。
A.cnt B.3.14 C.2018 D. “Visual Basic”
2.将数学表达式转化为VB表达式,下列选项正确的是( )。

3.以10下程序段运行后,整型变量s的值是( )。
s=1
For i=1 To 10 Step 3
s=s*i
Next i
Print s
A. 55 B . 3640 C . 28 D. 280
4. 以下程序段运行后,整型变量max1,min1的值分别是( )。
a=3
b=5
max1=(a+b)2+Abs(a-b)2
min1=(a+b)2-Abs(a-b)2
5.给定一个四位数的年份,判断它是否为闰年:四年 一闰、百年不闰;四百年又闰(年
份能被4整除但不能被100整除是闰年,或者年份能被400整除也 是闰年。例如2004
年和2000年都是闰年,2100年不是闰年)。下列判断年份。下列判断年份 y是闰年的
表达式正确的是( )。
A. y Mod 4=0 Or y Mod 100<>0 And y Mod 400=0
B .y Mod 4=0
C .y Mod 4=0 And y Mod 100 <>0 Or y Mod 400=0
D .y Mod 400=0
二、操作题
1.分析并完善流程图




执行流程图,当输入x的值为4时,输出y的值为2,则菱形判断框中的条件可能 为
________(填写字母:ABCD 6分)。
A .x>3 B. x>4 C. x<=4 D . x<=5
2.分析并完善程序
以下是计算s=12+22+32+…+1002的程序代码,请补全程序。(共6分,每空3分)
Dim s As Long
Dim i As Integer
s=0
For i=1 To 100
s=s+_____________
___________
Print s
3.算法设计与程序实现
拖动滚动条浏览全部试题内容,点击右侧图标可切换输入法
十进制整数转换为二进制整数采用“除2取余”法。
算法描述
第1步:输入一个十进制正整数n;
第2步:将n除以2,记录余数r;
第3步:将r追加到字符串s的左边(s 用于记录转换后的二进制数,初值为空);
第4步:将n 除以2的商赋给n ;
第5步:若n 为0,则转到第6步;若n不为0,转到第2步;
第6步:输出s (即逆序输出每一次的余数)。

举例说明
将一个十进制数13转换为二进制。

界面设计




【参考程序】
Dim s As String ‘记录转换后的二进制数
Dim n As Integer ‘记录十进制正整数n
Dim r As Integer ‘记录n除以2的余数
s=“ ” ‘s 记录转换后的二进制数,初
值为空
n=Val()
Do While n>0
r=______①________
s=r & s
n=______②________
Loop
=s

1、 上述算法描述采用的方法是:______________(填:自然语言伪代码流程图)。
(2分)
2、 在参考程序①处应填入____________(填写字母:ABCD)。(3分)
A .nMod 2 B. n 2 C. 2 Mod n D. n2
3、在参考程序②处应填入____________(填写字母:ABCD)。(3分)
A. n Mod 2 B. n 2 C. 2 Mod n D. n2


1对1掌门怎么样-英语被动语态


大专的学费一年多少钱-30岁的女人


寓言的成语有哪些-为什么要学习英语


高考作文题目大全集-正割函数


上海对外经贸大学几本-写心情的句子经典心情说说


沈阳化工大学怎么样-雷雨简介


圆的一般方程-高考志愿填报网


图书情报与档案管理-星探



本文更新与2020-09-12 12:31,由作者提供,不代表本网站立场,转载请注明出处:https://www.bjmy2z.cn/gaokao/392873.html

2019山东省信息技术合格考复习题算法模块(历年真题)的相关文章

2019山东省信息技术合格考复习题算法模块(历年真题)随机文章