对口高考VB试题

1、 姓名_ 班级_ 考号_ 座号_-密-封-线-高中部第二次月考计算机类VB试题题号一二三四五总分得分座号一、 填空题。（每空2分，共40分）1、 预定义符号常量VBred代表_、 VBgreen代表_ 、vbblue代表_。2、 “abc”>”abcd”结果为_；“ABC”>“abc”结果为_；“ABCD”>“ABC”结果为_。3、 Dim x as Boolean :x=iif(3>_2,10,20)， 问变量X的值是_;4、 a=9 : b= ”结果是:” : x=a & b & “正确的” 问变量X的值是_;5、 判断变量A的值能否被2整除的表达式

2、为_;6、 表达式：Not true and not false 的结果为_.7、 判断2009年是否为闰年的表达式为_;8、 表达式：5 mod 2 的结果为_;-5 mod 2 的结果为_；5 mod -2的结果为_; -5 mod -2 的结果为_;9、 While 循环中循环条件为真时_;循环条件为假时_;10、 Print语句有_和_两种输出方式。11、 在模块声明部分用dim语句声名的变量是_变量（局部、全局、模块级）。二、 判断题。（每小题2分，共20分）1、 一般情况下，提倡使用运算符+来进行字符串的连接运算。2、 标识符必须以字母开头，最大长度为255.3、 用户自定义的符号

3、常量，可以用const语句来声名。4、 赋值语句中，let是可以省略的。5、 For 循环中步长默认为1。6、 在 do循环语句中，如果要结束循环，可以用exit for 语句。7、 注释语句可以独占一行，也可以放在其他语句的行尾。8、 在do循环中，如果用until<循环条件> 则条件为真时退出循环。9、 如果希望在程序中必须显式声明变量，可以在模块的声明段中加入option explicit语句。10、 整除运算符是/，除法运算符是。三、 选择题。1、 下面不能作为select case语句中表达式列表的是：_。A、 表达式1 to 表达式 2 （如1，2，3） B、

4、表达式1 to 表达式2(如1 to 5)C、is 关系运算符表达式(如is<3) D、以上三种都不行。2、for i=1 to _5 : p=p+1: next i上段程序运行结束后，变量P的值为_A、5 B、0 C、5 D、以上都不对3、for i=1 to 6 : next i上段程序运行结束后 i 的值为_A、6 B、7 C、5 D、14、for i= 5 to 9 step 2 ：p=p+1 : next i上段程序运行结束后，变量P的值是_.A、9 B、8 C、14 D、155、dim i=5 Private sub form_click()i=i+1end sub上段程序中

5、变量i属于_。A、 局部变量 B、全局变量 C、静态变量 D、模块变量四、 填程题。（每空5分，共20分）1、 设有一个阶梯，每步跨2阶，最后余1阶；每步跨3阶最后余2阶；每步跨5阶最后余4阶；每步跨6阶最后余5阶，只有每步跨7阶，正好达到阶梯顶，问共有多少阶梯。Private sub form_click()Dim jieti as integerJeiti=7While _ Jieti=jieti+7WendPrint “jieti=” & jietiEnd sub2、 如果题1中把whilewend 循环换成do until loop 循环则:Do until _Jieti=ji

6、eti+7Loop3、 在棋盘上的第1个格子上放1粒麦子，第2个格子上放2粒，第3个格子上放4粒，即后面格子的麦粒数是它前一个格子的倍数，直到64格放满为止。请问一个棋盘上总共能放多粒麦。Private sub form_click()Dim i as integer,sum as double, x as doubleI=0:x=0:sum=0For i=0 to 63X=_Sum=_Next iClsPrint tab(6);”棋盘上共计”; sum ; “麦粒”End sub五、 写出下面程序运行结果。（每小题各10分，共30分）1、 private sub form_click()di

7、m i as integer,p as integerfor i=20 to _5 step _2 s=s+1 if i<10 then exit for endifnext iprint send sub程序运行结果为:_2、 private sub form_click()dim n as integer,i as integern=20:i=0do while n>0n=n_(n/2+2)i=i+1loopprint iend sub程序运行结果为:_3、 private sub form_click()dim n as integer : clsn=inputbox(“请输入17”,”值班查询”)while n<>_100select case ncase is <1 print “日历上没有这一天！” case 1 print “李老师值班” case is <=4 print “王老师值班” case 4 to 7 print “张老师值班” case e