信息技术选修模块测试(一)
一、选择题
1、下列选项中，能作为vb程序变量名的是（）
A、while B、dist C、4A123 D、a%c
2、 以下程序段运行后，整型变量max1,min1的值分别是（ ）
a=3 b=5
max1=(a+b)/2+Abs(a-b)/2 min1=(a+b)/2-Abs(a-b)/2
A、3，3 B、3，5 C、5，5 D、5，3
3、以下程序段运行后，整型变量s的值是（ ）
s=1
For i=1 to 10 step 3 s=s*i Next i Print s
A、55 B、280 C、3640 D、28 4、将数学表达式
转换为vb表达式，下列选项正确的是（ ）
A、1/2gt ^2 B、1/2g*t2 C、1/2g*t^2 D、1/2*g*t^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 400=0 C、y mod 4= 0
D y mod 4= 0 and y mod 100 < >0 or y mod 400 =0 6、在 vb中，下列哪一个选项是正确的赋值语句（ ）
A、5s=80 B、s=s+5 C、 a+b=c D、2018=x 7、以下程序运行后，s的值是 （ ）
n=0 s=0
Do while s<=10 n=n+3 s=s+n Loop Print s
A、18 B、30 C、3 D、0
1
8、以下程序段运行后，x和st的值分别是（ ） Dim x as Integer Dim st as String x=123+678
st=〞123〞+〞678〞
A、123678 〞123678〞 B、801 〞123678〞
C、801 〞801〞 D、 123678 〞801〞
9、用流程图表示条件 “A>B”是否成立，要用到以下哪个图形？（ ） A、 B、 C、 D、 10、设a=2，b=5，在vb中，表达式a>b and b>3 的值是（ ） A、－1 B、True C、False D、1 11、以下程序段执行后，输出结果为（ ） m=29
If m mod 3 < >0 then
Print m & 〞不能被3整除〞 Else
Print m & 〞能被3整除〞
A、m不能被3整除 B、29能被3整除
C、29不能被3整除 D、m 能被3整除 12、下面四段程序，哪段程序运行结果如图所示：（ ） * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * *
A、for j=1 to 5 B、for i=1 to 5 for j=1 to 6 for i=1 to 6
Print 〞*〞; Print 〞*〞; Next j Next i Print Print Next j Next i
C、for i =1 to 5 D、 for i =1 to 5 for j=1 to 6 for j =1 to 6
Print 〞*〞; Print 〞*〞 ;
Next j Next i Print Print
Next i Next j 13、在VB中下列属于字符串常量的是（ ）
A、2018 B、cnt C、3.14 D、〞visual basic〞
2
14、已知赋值语句s= “Good Bye !”，则下列定义变量s正确的是（ ） A、Dim s as Long B、Dim s as Integer C、Dim s as Double D、Dim s as String 15、下列序列能采用二分查找法查找某一元素的是（ ）
A、1 4 7 15 13 B、15 14 12 7 2 3 C、6 9 12 14 23 25 D、34 25 17 9 10 3
16、在VB中，用变量code存储学生的借阅卡编码（code=〞NO20170502〞），则变量
code的数据类型应定义为（ ）
A、Double B、String C、Integer D、Single
17、在VB中，Int(x)函数的功能是返回不大于x的最大整数，设a=3，b=4，c=5，则下
列表达式的运算结果中值最大的是（ ）
A、a^2+b^2-c^2 B、Sqr( c ) C、Int(2*a-c/b) D、Abs(a-b) 18、Visual Basic程序设计语言属于（ ）
A、机器语言 B、自然语言 C、汇编语言 D、高级语言 二、分析题
19、以下是计算s=1+6+11+………101的程序代码，请完善该程序 Dim s , i as Integer s=0
For i =1 to 101 step ________ s=______________
Next i Print s
20、阅读程序，写出运行结果 Dim n as Integer n=Val(Inputbox(“n= ” ) ) Do while n mod 2 =0 N=n\\2 Loop Print n
程序运行时，输入24，输出n的值是___________________
(提示：\\ 整除运算 如17\\2=8; mod 取余数运算 如：17 mod 2 =1) 21、以下是计算s=12+22+32+……1002的程序代码，请补全程序 Dim s as long ; dim i as integer s=0
for i = 1 to 100 s= ____________ _______________ Print s
22、以下是解决s=1*2*3*4 ……*10的程序代码，请补全程序：
3