《程序设计基础(VB)》课程A卷.doc

西北农林科技大学本科课程考试试卷20062007年第1学期程序设计基础（VB）课程A卷命题教师：_ 审题教师：_题目一二三四总分得分阅卷人得分一、单项选择题（每题2分，共40分，从四个选项中选出最佳答案填在括号内）1VB中，窗体文件的扩展名是（ ）。A、.basB、.frmC、.vbpD、.jpg2要想改变一个标签的标题文本，应该设置以下（ ）属性的值。A、NameB、TitleC、CaptionD、Text3命令按钮可以用图片代替文字标题，这时除设置其Picture属性外，还应该对其（ ）进行设置。A、EnabledB、CaptionC、StyleD、MouseIcon4文本框焦点顺序由以下（ ）属性决定。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、VB应用程序只能以解释方式执行D、窗体文件包含该窗体及其控件的属性及所有事件代码8Kill语句在VB语言中的作用是（ ）。A、清内存B、删除磁盘上文件C、清病毒D、清屏幕9为建立一个随机文件，其中每条记录由多个不同数据类型的数据项组成，应使用（ ）。A、用户自定义数据类型B、数组C、字符串类型D、变体类型10在窗体上添加一个文本框（Text1）和一个标签（Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，可以实现上述操作的事件过程是（ ）。A、Private Sub Label1_Change()Label1.Caption = Text1.TextEnd 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过程和Function过程中参数传递都可以采用传值或传地址D、Sub过程名和Function过程名都可以返回一个处理结果12设有如下语句（ ）。Dim a, b As Integerc = 西北农林科技大学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 + y)14在窗体上添加一个命令按钮（Command1）和一个文本框（Text1），事件过程代码如下：Private Sub Command1_Click()x = Val(Text1.Text)If x = 1 Or x = 3 Theny = x * xElseIf x = 10 Or x -10 And x 10 Theny = -xEnd IfEnd Sub运行程序后，在文本框中输入3，再单击命令按钮，以下关于程序执行叙述正确的是（ ）。A、执行y = x * xB、执行y = -xC、先执行y = x * x，再执行y = -xD、程序出错15以下关于文件的叙述中错误的是（ ）。A、使用Append方式打开文件时，文件指针被定位于文件尾B、当以Input方式打开文件时，如果文件不存在，则建立一个新文件C、顺序文件各记录的长度可以不同D、随机文件打开后，既可以进行读操作，也可以进行写操作16下面程序段的执行结果为（ ）.Dim a(1 To 6) As IntegerFor i = 1 To 6a(i) = iNext iPrint a(i)A、输出数组a的全部元素值B、输出数组a的某一元素值C、输出不确定D、程序出错17一个VB工程中有两个窗体(Form1和Form2)，当前启动窗体为Form1，如果要将Form2设置为启动窗体，应该进行的操作是（ ）。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 Stringa = Split(资环,水建,农学,机电,人文,植保, ,)Print a(2)End SubA、水建B、农学C、机电D、出错得分二、写出程序运行结果（每小题4分，共16分。答案写在指定位置）1. Private Sub Command1_Click()Dim a(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = i * j + iNext jNext iSum = 0For i = 1 To 3Sum = Sum + a(i, 4 - i)Next iPrint SumEnd Sub运行结果是：_2. Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd FunctionPrivate Sub Command1_Click()Print fun(10)End Sub运行结果是：_3Private Type newtypea As Integerb As IntegerEnd TypePrivate Function fun(ByVal m As Integer, ByVal n As Integer) As newtypeDim r As Integer, mn As Integer, p As newtypemn = m * nDor = m Mod nIf r = 0 Then Exit Dom = n: n = rLoopfun.a = nfun.b = mn / nEnd FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As newtypex = 6: y = 15z = fun(x, y)Print z.a, z.bEnd Sub运行结果是：_4Private Sub Command1_Click()Dim a(1 To 4, 1 To 4) As IntegerFor i = 1 To 4For j = 1 To 4a(i, j) = IIf(i + j) Mod 2 = 0, 1, 0)Next jNext iFor i = 1 To 4For j = 1 To 4Print a(i, j);Next jPrintNext iEnd Sub运行结果是：_得分三、完善程序（每空2分，共12分。）一个自然数倒过来读仍是这个数，就叫回文数，有些回文数还是素数，就叫回文式素数，如93239。以下程序用于求出10000到99999范围内的回文式素数。其中判断回文数及素数的模块均被定义为函数并在主程序中调用，请补充完善程序。Function hw(m As Long) As BooleanDim a As Integer, b As Integer, c As Integer, d As Integera = 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 BooleanDim k As Long, i As Long, f As Booleanf=Truek = Sqr(m)For i = 2 To kIf _ Thenf = FalseExit ForEnd IfNext i_End FunctionPrivate Sub Command1_Click()Dim m As Long, n As IntegerFor m = 10000 To 99999If _ ThenPrint Tab(n Mod 10) * 8 + 1); m;n = n + 1End IfNext mEnd Sub得分四、按要求完成以下程序（共32分，答案按题号