20次笔试题(VB)04年4月.doc

第一部分 软件技术基础（共15分）一、是非判断题（每小题上分，共10分）（判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B1数据元素是数据的基本单位，数据项是数据的最小单位。 （1）2.栈是特殊的线性表，须用一组地址连续的存储单元来存储其元素。 （2）3.引人虚拟存储技术后。逻辑内存总容量是由地址总线的位数确定的。 （3）4编译程序是一种常用应用软件。 （4）5顺序文件和链接文件的长度都可以动态变化。 （5）6在文件系统中采用目录管理文件。 （6）7.允许多用户在其终端上同时交互地使用计算机的操作系统称为实时系统。 （7）8程序、数据、和进程控制块是构成一个进程的三要素。 （8）9黑盒测试时，既要考虑程序的内部逻辑结构又要考虑其外部特性。 （9）10软件的总体设计和详细设计都要用PAD图形工具。 （10）二、选择题（每小题1分，共5分）1允许用户把若干作业提交计算机系统集中处理的操作系统称为 （11 ） 11（A）分时操作系统 （B）实时操作系统 （C）网络操作系统 （D）批处理操作系统2分配到必要资源并获得了处理机时的进程的状态称为 （12）。 12（A）就绪状态 （B）执行状态 （C）等待状态 （D）阻塞状态3利用通道技术可以在（13）之间直接交换数据。 13（A）内存与CPU。 （B）CPU与外设 （C）内存与外设 （D）内存、 CPU和外设三者4以下的准则中哪个不是软件设计的准则（ ） 14（A）编程语言选择准则 （B）信息屏蔽准则 （C）结构化和模块化准则 （D）抽象准则5有一数列：97 65 76 13 29 49 58经过一趟排序后得到：65 97 13 76 29 49 58请问使用的是何种排序方法（ 15） 15（A）简单插入排序 （B）冒泡排序（C） 2路归并排序问 （D）快速排序ABABBABABBDACDC第二部分 VisuaI BASIC语言程序设计（共85分）一、单项选择题（每小题l分，共10分）1.在 Visual Basic中，工程文件的扩展名为（ 16）。 16（A）EXE （B）BAS （C）FRM （D）VBP2用于声明全局变量的关键字是（17）. 17（A）Dim （B）Private （C）Public （D）Static3表达式 sgn(4)5 67 mod 5 int（rnd）的值是（ 18）。 18（A）4 （B）5 （C）3 （D）74假设变量 X的值为1000，则表达式 10= X Or 100=sgn(-100)的值为(19). 19（A）1000 （B）100 （C）False （D）True5使 X赋值为1到100间（含l，含10 0）的一个随机整数；正确的语句是：（20）。 20（A） XINT（100*RND） （B） X 101*RND。（C） XINT（99*RND） （D）XINT（100*RNDl）6在窗体上有一个称为cmdCommand1的命令按钮。当点击该按钮时。应该显示窗体frmNext。则在cmdCOmmand1的点击事件程序中应该写入下列哪条语句：(21)21（A）Show（frmNext） （B）frmNeXtShow。（C）frmNext.show=true （D）frmNext.show=vbVisible7在VB窗体中，如果要求在窗体中的所有变量必须先声名后使用，则应该（22）。 22（A）在 gernal中使用语句：Option explicit（B）在 gernal中使用语句： Option base 1（C）在 FormLoad（）中使用语句： option explicit （D）在 FormLoad（）中使用语句： Option base 18.在加载窗体时，下面或件中会被激发的事件为（23）。 23（A）Click （B）DblClick （C）Load （D）KeyPress9在文本框中，当用户键人一个字符时，能同时引发的事件是（24）。 24（A）KeyPyes和Click （B）KeyPress和LOStFocus。 （C）KeyPress和Change （D）Change和LOStFocus。10下拉式列表框的Clear方法的作用是（25）。 25（A）清除当前选定项 （B）清除当前文本（C）清除一个制定项 （D）清除所有项二、阅读分析程序（每个选择3分，共45分）Option Base 1Private Sub Form_Click()Dim N,A,B(),J,IDo N=InputBox (“输入数组下标界值，要求：下标上界值4Redim B(N,N)A=Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)For I= 1 to N For j=1 To N B(I,J)=A(I*J) If (J=I) Then Print Tab(j*3);Formmat(B(I,J),”#”); Next J PrintNext IEnd Sub（l）“单击”窗体后，在输入框中输入数组下标上界值为3，则窗体显示为（ 26）。 26 （A） 1 2 3 （B）1 （C）1 2 3 （D）1 4 74 5 6 2 4 4 6 2 4 67 8 9 3 6 9 9 7 8 9（2）将语句If (J=I Then Print Tab(j*3);Format(B(I,J),”#”;改为：if (J=J) Then Print Tab(j*3) Format(B(I,J),”#”然后“单击”窗体，在输入框中输入数组下标上界值为4，则窗体显示为（27）。27 (A) 1 2 3 4 (B)15 6 7 8 2 49 10 11 12 3 6 913 14 15 16 4 8 12 16(C) 1 2 3 4 (D)1 4 7 10 4 6 8 2 4 6 8 9 12 3 7 11 15 16 4 8 12 16（3）“单击”窗体后，在输入对话框中输人数组下标上界值为5，则显示结果为: 28（A）程序出错 （B）可在对话框中点击“取消”按钮退出(C)1 2 3 4 (D)不能关闭对话框，程序等待输入新下标上界 5 6 7 8 9 10 11 1213 14 15 16 2 阅读下面程序： Option Explict Option Base 1Private Sub Command1_Click()Dim intArray(n)N=InputBox (“请输入数组上界”,”Input”，10)ReDim intArray(n)For I=1 to n IntArray(i)=Int(Rnd*50)+25Next INum =InputBox(“请输入一个数”)k =InputBox(“请输入位置”) L1： ReDim Preserve intArray(n+1)If k=n+1 Then IntArray(k)=num Else For I=k to n IntArray(n+k+1-i)=intArray(n+k-I)Next IIntArray(k)=num End ifEnd Sub这段程序的功能是（29）。 29（A）按顺序将num插入到数组intArray时中第一个位置 （B）将num插入到数组初intArray中的第k个位置 （C）将num插入到数组intArray中的最后个位置 （D）在数组intArray中从第k个元素开始查找num的位置（2）下列有关Redim的描述，正确的是（30 ）。 30 （A）在LI行，有无Preserve对程序运行结果没有影响 （B）Redim语句用来定义一个动态数组，且只能定义一次（C）可用Redim语句多次重新定义动态数组（D）Preserve的作用是限制动态数组大小的改变（ 3）语句 option explicit的作用为（31）31（A）表明此模块没有通用过程（B）表明此模块的通用过程不能被其他模块调用（C）表明此模块变量不声明可以直接使用（D）表明此模块内变量必须先声明后使用3 阅读下面程序: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim a% If KeyAscii 57 thenA= MegBox (“error data”,vbRetryCancel,”Error”)If a=vbRetry Then Text1=” Text1.SetFocus Else End End ifEnd IfEnd SubPrivate Sub Text1_Click()Dim I%,j%,n%N=val(text1)For I=1 to nPrint tab(5); chr(65);If I1 and Ia(j) then k=j Next j If ki then T=a(k)A(k)=a(i)A(i)=tEnd if Next For I=1 to 10Print a(i); Next IEnd sub（l）语句”open app.path+”file1.dat” for input as #1”表示（37 ）.37（A）以读的方式打开顺序文件 （B）以追加方式打开顺序文件 （C）以读的方式打开随机文件 （D）以随机读写的方式打开随机文件（2）语句 “X=val(inputbox(“data：”)” 中函数的功能是（38）。38（A）输入字符申 （B）输入数值（C）将字符率转换为数字数值（D）将数字数值转换为字符串(3)程序使用的何种排序方式排序（39）；。 39（A）冒泡法（B）插入法（C）选作法 (D)其他（ 4）如果将 If a(k) a(j) Then k=j 改为 If a（k） a(j) Then k=j，程序功能变化吗（40 ）。 40（ A）不发生变化 （B）排序结果从大到小 （C）排序结果从小到大（D）不能排序了三、程序填空（每空2分，共则分）l、有一个分数序列如下所示：2/1, 3/2, 5/3, 13/8, 21/13,请编写程序，计算这个序列前20项之和。Option ExplicitPrivate Sub Form_Click()Dim m As Integer ,n As Integer ,temp As IntegerDim t As Double,sum As DoubleDim I As IntegerM=1N= 2 For I=1 To 20 T=n/m Sum =sum+1 Temp=_m+n_ M=n N=temp_next i_Print sumEnd Sub2、下面程序实现给字符串数组a(5,5)赋值（如图所示），并输出数组的内容。ABBBCCCCCDDDDDEPrivate Sub Command1_Click()Dim a(5,5) As StringDim b As IntegerB=_65_For I=1 to 5 If I_ A(intI)_ Then IntMinP=intI EleseIf intMaxA(intI) Then IntMaxP=intI_ intMax=A(intI)_ End If Next intIA(intMaxP)=intMinFor intI=1 To 10 Print A(intI);Next intIPrintPrint “Max=”;intMax,”Min=”;intMinEnd Sub4、下述程序中，函数search的功能是寻找在Text1内输入的任一自然数n的最大因子（除本身外），而且如果TEXT1内输入数据有误，给出错误提示。例如：35的最大因子为7，36的最大因子为18等等。Private Sub Command1_Click()Dim n%,m%N=Val(Text1)M=_ search(m)_If m=-1 Then MsgBox “inset error”,vbinformation Text1=” Else Print n;”的最大因子为”；m End ifEnd SubPrivate Function search(Byval n) as IntegerDim I%,middle%If n=0 Then _m=-1_else middle=n2 For I=middle To _1 _step -1_ If Mod I=0 Then Search=I Exit For End if Nex