0607第1学期vb考试题及标准答案

1、西北农林科技大学本科课程考试试卷20062007年第1学期程序设计基础（vb）课程a卷命题教师：_ 审题教师：_题目一二三四总分得分阅卷人得分一、单项选择题（每题2分，共40分，从四个选项中选出最佳答案填在括号内）1vb中，窗体文件的扩展名是（ ）。a、.basb、.frmc、.vbpd、.jpg2要想改变一个标签的标题文本，应该设置以下（ ）属性的值。a、nameb、titlec、captiond、text3命令按钮可以用图片代替文字标题，这时除设置其picture属性外，还应该对其（ ）进行设置。a、enabledb、captionc、styled、mouseicon4文本框焦点顺序由以下

2、（ ）属性决定。a、tabindexb、indexc、tabstopd、setfocus5能够获得一个文本框中光标位置的属性是（ ）。a、textb、sellengthc、selstartd、seltext6以下叙述中正确的是（ ）。a、label的name属性指定label的名称，用来标识一个labelb、label的name属性用于设置在label标题中的文本c、label的name属性值可以在程序运行期间被改变d、label的name属性值可以为空7以下叙述中错误的是（ ）。a、打开一个工程文件时，系统能自动装入与该工程有关的窗体文件b、保存vb程序时，应分别保存窗体文件及工程文件c、v

3、b应用程序只能以解释方式执行d、窗体文件包含该窗体及其控件的属性及所有事件代码8kill语句在vb语言中的作用是（ ）。a、清内存b、删除磁盘上文件c、清病毒d、清屏幕9为建立一个随机文件，其中每条记录由多个不同数据类型的数据项组成，应使用（ ）。a、用户自定义数据类型b、数组c、字符串类型d、变体类型10在窗体上添加一个文本框（text1）和一个标签（label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，可以实现上述操作的事件过程是（ ）。a、private sub label1_change() label1.caption = text1.textend

4、 subb、private sub label1_click() label1.caption = text1.textend subc、private sub text1_change() label1.caption = text1.textend subd、private sub text1_click() label1.caption = text1.textend sub11以下关于sub过程和function过程叙述错误的是（ ）。a、凡是用sub过程能实现的功能都可以用function过程实现b、凡是用function过程能实现的功能都可以用sub过程实现c、sub过程和func

5、tion过程中参数传递都可以采用传值或传地址d、sub过程名和function过程名都可以返回一个处理结果12设有如下语句（ ）。 dim a, b as integer c = 西北农林科技大学 d = #1/20/2007#以下关于这段代码的叙述中错误的是（ ）。a、a被定义为integer类型变量b、b被定义为integer类型变量c、c中的数据是字符串d、d中的数据是日期类型13设x=10,y=20，以下不能在窗体上显示出“a=30”的语句是（ ）。a、print a=x+yb、print a=; x + yc、print a= & x + yd、print a= + str(x +

6、y)14在窗体上添加一个命令按钮（command1）和一个文本框（text1），事件过程代码如下：private sub command1_click() x = val(text1.text) if x = 1 or x = 3 then y = x * x elseif x = 10 or x -10 and x 10 then y = -x end ifend sub运行程序后，在文本框中输入3，再单击命令按钮，以下关于程序执行叙述正确的是（ ）。a、执行y = x * xb、执行y = -xc、先执行y = x * x，再执行y = -xd、程序出错15以下关于文件的叙述中错误的是（

7、）。a、使用append方式打开文件时，文件指针被定位于文件尾b、当以input方式打开文件时，如果文件不存在，则建立一个新文件c、顺序文件各记录的长度可以不同d、随机文件打开后，既可以进行读操作，也可以进行写操作16下面程序段的执行结果为（ ）. dim a(1 to 6) as integer for i = 1 to 6 a(i) = i next i print a(i)a、输出数组a的全部元素值b、输出数组a的某一元素值c、输出不确定d、程序出错17一个vb工程中有两个窗体(form1和form2)，当前启动窗体为form1，如果要将form2设置为启动窗体，应该进行的操作是（ ）。

8、a、修改工程属性b、修改form2窗体属性c、修改form1窗体属性d、以上均可18表达式len(vb程序设计)的值为（ ）。a、6b、12c、10d、519在默认情况下，语句dim a!(2,3)定义的数组在内存占有字节数为（ ）。a、6b、24c、12d、4820以下程序段执行结果为（ ）。option base 1private sub command1_click() dim a() as string a = split(资环,水建,农学,机电,人文,植保, ,) print a(2)end sub a、水建b、农学c、机电d、出错得分二、写出程序运行结果（每小题4分，共16分。答案

9、写在指定位置）1. private sub command1_click() dim a(3, 3) as integer for i = 1 to 3 for j = 1 to 3 a(i, j) = i * j + i next j next i sum = 0 for i = 1 to 3 sum = sum + a(i, 4 - i) next i print sumend sub运行结果是：_2. function fun(m as integer) as integer dim k as integer, sum as integer sum = 0 for k = m to 1

10、step -2 sum = sum + k next k fun = sumend functionprivate sub command1_click() print fun(10)end sub运行结果是：_3private type newtype a as integer b as integerend typeprivate function fun(byval m as integer, byval n as integer) as newtype dim r as integer, mn as integer, p as newtype mn = m * n do r = m m

11、od n if r = 0 then exit do m = n: n = r loop fun.a = n fun.b = mn / nend functionprivate sub command1_click() dim x as integer, y as integer, z as newtype x = 6: y = 15 z = fun(x, y) print z.a, z.bend sub运行结果是：_4private sub command1_click() dim a(1 to 4, 1 to 4) as integer for i = 1 to 4 for j = 1 t

12、o 4 a(i, j) = iif(i + j) mod 2 = 0, 1, 0) next j next i for i = 1 to 4 for j = 1 to 4 print a(i, j); next j print next iend sub运行结果是：_得分三、完善程序（每空2分，共12分。）一个自然数倒过来读仍是这个数，就叫回文数，有些回文数还是素数，就叫回文式素数，如93239。以下程序用于求出10000到99999范围内的回文式素数。其中判断回文数及素数的模块均被定义为函数并在主程序中调用，请补充完善程序。function hw(m as long) as boolean

13、dim a as integer, b as integer, c as integer, d as integer a = left(m, 1): b = mid(m, 2, 1) c = _ d = _ hw = iif(a = d and b = c, true, false)end functionfunction ss(m as long) as boolean dim k as long, i as long, f as boolean f=true k = sqr(m) for i = 2 to k if _ then f = false exit for end if next

14、 i _end functionprivate sub command1_click() dim m as long, n as integer for m = 10000 to 99999 if _ then print tab(n mod 10) * 8 + 1); m; n = n + 1 end if next mend sub得分四、按要求完成以下程序（共32分，答案按题号顺序写在第4小题之后及附页上）1从键盘输入一个年份，判断其是否闰年，闰年的条件是：“年份能被4整除且不能被100整除，或者能被400整除”（6分）2编程求5!+7!+10!（8分）3有一个mm矩阵，m由键盘输入，数

15、据随机产生，范围在10-99之间，求四周各元素之和。（8分）4随机产生200个4位整数，按由小到大顺序排序后存入c盘根目录下的顺序文件file.txt中。（10分）西北农林科技大学本科课程考试参考答案与评分标准考试课程：程序设计基础（vb）学年学期：20062007学年第1学期试卷类型：a卷考试时间：2007年元月23日专业年级：全校06级各专业 一、选择题（每小题2分，共40分）bccac acbac daaab daadb二、写出程序的运行结果（每题4分，共16分）71、162、303、3 30（写对一个得2分，写反不得分）4、1 0 1 0 0 1 0 1 1 0 1 0 0 1 0 1 （写在一行扣2分）三、选择完善程序（每空2分，共12分）mid(m,4,1) right(m,1) 注意：只要能取出第四、五位即可得分m mod i=0(只要能判断整除即可)ss=f ss(m) hw(m)(只写ss及hw不得分，如果写了true但写错了扣1分)四、程序设计题（共32分，语句出错扣1到3分）。1、判断闰年（6分）(1)声明变量并赋值（1分）(2)if结构正确（2分）(