当前位置:首页 >> 其它课程 >> 信息技术学业水平考试样题(程序设计)

信息技术学业水平考试样题(程序设计)


《算法与程序设计》机考样题
一、 单项选择题 1.判断 x 是否在区间(a, b]上,在 VB 中以下哪个逻辑表达式是正确的?( )。 A.a<x<=b B.a<x And x≤b C.x>a And x<=b D.a>x And x<=b 2.设 a=2,b=3,在 VB 中,表达式 a>b or b>=3 的值是( )。 A.false B.true C.-1 D.1 3.下列结果为 True 的逻辑表达式是( )。 A. Not(3<8) B.(3<8)And(5>10) C.(3<8)And(5<10) D.(3>8)Or(5>10) 4.表达式 abs(int(-3.4))*sqr(100)的值是( )。 A.-340 B.-34 C.30 D.40 5.在 VB 语言中,表示“a 大于 5 或 b 小于 0” 的正确表达式是( )。 A. 0 < b or a < 5 B. a > 5 And b < 0 C. a > 5 Or b < 0 D. a > 0 And b < 5 6. 在 VB 语言中,表示“x 是奇数” 的正确表达式是( )。 A.int(x/2)=x/2 B.int(x/2)<>x/2 (x 是整数) C.int(x/2)<>x/2 D.int(x/2)=x/2 (x 是整数) 二、多选题 1.下列表达式的值为 6 的有哪几项.( ) A. 7*7-43 B. ABS(6.6) C. INT(3.9)*2 D. SQR(49)-1 2. 在 VB 语言中,表示“x 是偶数” 的正确表达式是( )。 A.int(x/2)=x/2 B.x mod 2<>0 C.int(x/2)<>x/2 D.x mod 2=0 3.下面是判断变量 X 是不是能被 5 整除的偶数的程序,横线上的逻辑表达式应为( ) Dim x as Integer X=Val(Text1.text) If____________then Label1.Caption="这个数是能被 5 整除的偶数" Else Label1.Caption="这个数不是能被 5 整除的偶数" End if A. (x mod 5)=0 and (x mod 2)=0 B. x mod 10=0 C. x mod 5=0 D. x mod 2=0 E. x/2=int(x/2) and x/5 and x/5 F. x/10=int(x/10) 三、填空题 1、从键盘输入圆的半径 R,输出圆的周长 L 和面积 S。 Dim R As Single Dim L As Single Dim S As Single _____=InputBox("输入半径 R ") L=2*3.14*R S=3.14*R*R

1

Print "圆的周长 L= ";L Print "圆的面积 S= ";S 2、某航空公司行李托运收费标准是:10 公斤及其以下,不收费,超过 10 公斤则每公斤收 费 2.5 元。 Dim X As Single Dim Y As Single X=InputBox("输入行李重量") If x<=10 Then Y=0 Else Y=____________ End If Print "行李费= ";Y 3.编写程序计算表达式 a=|-3.6|+123×sin30°的值(圆周率∏的值取 3.14,计算结果用取 整函数保留整数部分,每小题 3 分,共 12 分) 。 ① |-3.6|写成 VB 表达式应为:_____________________ ② sin30°写成 VB 表达式应为:______________________ ③ 在 VB 环境下编写程序并运行: Private Sub Command1_Click() Dim a As Single a = Abs(-3.6) + 123 * Sin(30 * 3.14 / 180) a = Int(a) Print a End Sub ④ 该程序的运行结果是:____________ 4.完善下列程序段,使其能将从键盘上输入的两个不同的数中小的那个选出来。 Dim a As Single Dim b As Single Dim Min As Single a=InputBox("输入a") b= InputBox("输入b") If a<b Then _________ Else Min=b End If Print "Min=";Min 5.计算旅客的行李费,收费标准为:20 千克以下(包括 20 千克)不收费,超过 20 千克的 部分每千克收 20 元。X 表示行李重量,Y 表示行李费。 Dim X As Single Dim Y As Single X=InputBox("输入行李重量")

2

If x<=20 Then Y=0 Else Y=______________ End If Print "行李费= ";Y 6.有如下VB程序段,写出该程序段的运行结果。 Dim a As Integer Dim b As Integer Dim t As Integer a=22 b=33 t=a a=b b=t Print b 运行结果:________ 7.有如下 VB 程序段,写出该程序段的运行结果。 Dim a As Single, b As Single a=-43.25 b=Int(a) Print b 运行结果:________ 8.某房租收费标准如下:若住房面积在100平方米及其以下,每平米收费2.6元;若在100 平米以上,则其超过部分每平米收费增至3.5元。 Dim X As Single Dim Y As Single X=input(“请输入住房面积x=”;”输入”) If x<=100 then Y=x*2.6 Else Y=______________________ Endif Print “此房租费为:”;y 9. 求 s=2+4+6+??+100 之和。 Dim i As Integer Dim s As Integer s=0 For i=2 To 100 Step 2 s=_________ Next i Print s 10.求 s=1*2*3*4*5 Dim i As Integer

3

Dim s As Integer s=______ For i=1 To 5 s=_________ Next i Print s 11. 输出 100 以内(包含 100)能被 3 整除的数。 Dim I As Integer I=1 Do If I Mod 3=0 Then Print I End If I=I+1 Loop Until _________ 12.编程求一元二次方程 x +3x+2=0 的求解程序,要求能够判断方程是否有根,若有则求出 二根,若没有则给出相应的提示信息。 A=1:b=3 C=2:d=b*b-4*a*c If d>=0 then X1=(-b+sqr(d))/(2*a) X2=__________________ Else Print ”此方程无实根” Endif 13.有一张单据上有一个 5 位数的号码 67 Dim a as integer,b as integer Dim m as long For a=0 to ____ For b=0 to 9 N=67008+___*100+b*10 If n mod 78=0 and Print ______ Endif Next b Next a n mod 67=0 then 8, 其中百位和十位上的数字看不清了, 但知道 该数能够被 78 整除,也能被 67 整除,下面是用穷举法求出该号码的程序段。
2

4


更多相关文档:

2015年辽宁省学业水平考试信息技术真题多媒体VB程序设计

2015年辽宁省学业水平考试信息技术真题多媒体VB程序设计_其它课程_高中教育_教育专区。2015年辽宁省学业水平考试信息技术考试真题,选考部分为多媒体和VB程序设计部分 ...

2016年高中学业水平考试信息技术学科模拟题一(带答案)

2016信息技术模拟试题 2016 年高中学业水平考试信息技术学科模拟题一 卷 I 选择...时间超过 3 分钟时的电话费 End If End Sub 这段程序属于 ⑥ 结构程序设计...

2015年6月广西信息技术学业水平考试+答案

2015年广西信息技术学业水平考试真题+答案 2015 年 6 月广西壮族自治区普通高中...四、程序设计题(本大题共 3 空,每空 2 分,共 6 分。温馨提示:请在答题...

初中信息技术学业水平考试样题及答案

初中信息技术学业水平考试样题及答案_政史地_初中教育_教育专区。初中信息技术学业...A、传感器 B、程序 C、细胞 D、按钮 19.我们要用 VB 为班级设计一个统计...

学业水平测试训练信息技术试题(附答案)

学业水平测试训练信息技术试题(附答案)_其它课程_高中教育_教育专区。2016信息...时间超过 3 分钟时的电话费 End If End Sub 这段程序属于 ⑥ 结构程序设计...

广西学业水平考试信息技术样卷及参考答案

广西学业水平考试信息技术样卷及参考答案_其它课程_高中教育_教育专区。、样卷及...①右 ②重命名 ③回车或 Enter 四、程序设计题(6 分) 70.① X <= 20 ...

高中信息技术学业水平考试试题汇总(含答案)

高中信息技术学业水平考试试题汇总(含答案)_其它课程_高中教育_教育专区。高中...A、三维动画 B、木偶动画 C.黑白动画 D.彩色动画 43、利用 VB 程序设计语言...

2016新疆信息技术学业水平考题汇总

2016 新疆信息技术学业水平考试真题【第 1 题】制作一个电子小报应该优先选择...( ) A 编写程序 B 调试运行 C 设计算法 D 分析问题 【第 12 题】全文...

信息技术学业水平测试模拟试题2015

普通高中学业水平考试 信息技术(样卷)(全卷满分 100 分,考试时间 90 分钟) ...在名称框中输入“temp” ,然后按 四、程序设计题(6 分) 70.将以下程序段...

2014年初中信息技术学业水平考试样题

2014年初中信息技术学业水平考试样题_学科竞赛_初中教育_教育专区。2014 年初中...C、细胞 D、按钮 19.我们要用 VB 为班级设计一个统计平均身高与体重的程序,...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com