23次笔试题(VB)05年10月.doc

二级VB笔试试卷（2005.10.15）软件技术基础（共15分）一、是非判断题（每小题1分，共10分）(判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B)1数据在计算机内存中的表示是指数据的存储结构。（1）2能影响中断响应次序的技术是中断优先级和中断屏蔽。（2）3链表可以随机访问任意一个节点，而顺序表不能。（3）4作业与进程的主要区别是前者是由用户提交，后者是由系统自动生成。（4）5Windows、OS/2、Linux微机操作系统都是多用户多任务操作系统。（5）6数据的逻辑结构是从逻辑关系上描述数据，它与数据的存储结构无关，是独立于计算机的。（6）7流式文件和记录式文件都是以字符为基本单位进行存取。（7）8不定长文件是指字段的长度不固定。（8）9软件工程三要素包括方法、工具和环境。（9）10软件结构是以指令为基础而组成的一种控制层次结构。（10）二、选择题（每小题1分，共5分）1若进栈序列为1，2，3，4，且进栈过程中可以出栈，则不可能出栈的序列是（11）A）1，4，3，2 B）2，3，4，1 C）3，1，4，2 D）3，4，2，12任何两个并发进程之间（12）。A）一定存在互斥关系 B）一定存在同步关系 C）一定彼此独立无关 D）可能存在同步或互斥关系3以下的那个特征不是分时操作系统的主要特征（13 ）。A）中断管理 B）独立性 C）交互性 D）多路性4以下的准则中哪个不是面向对象软件设计应遵循的（14）。A）抽象准则 B）独立性准则 C）信息屏蔽准则 D）模块化准则5需求分析中开发人员主要从用户那里了解（15）A）软件做什么 B）软件的结构 C）输入的信息 D）软件的测试VB程序设计（共85分）一、单项选择题（1分小题，共10分）1在下列字符串中，不能用作VB变量名的是（16）。A）8_num B）instr6 C）xy_int D）f82X是一个正实数，如果要四舍五入并保留两位小数，则正确的表达式为（17）。A）0.01*Int(x+0.005) B）0.01*Int(100*x+0.5)C）0.01*Int(100*x+0.05) D）0.01*Int(x+0.05)3正确表达命题“x和y都大于z”的表达式是（18）。A）xz B) yz C) xz and yz D) xz or yz4若字符串stra$和atrb$的取值为stra$=”I love my mother”，strb$=Mid(stra,7,3)+Right(stra,6)，则InStr(3,strb,”m”)的函数值为（19）。A）4 B）2 C）0 D）1 5如果暂时关闭某个定时器，则必须通过设置其（20）属性为False来实现。A）Timer B）InterVal C）Enabled D）Visible6在下列控件中，不接受焦点的是（20）。A）Label B）Command C）Text D）Listbox7在VB中，要将一个窗口从内存中释放，应使用的语句是（23）。A）Show B）Hide C）Load D）Unload8建立弹出式菜单的方法是（23）。A）PopupMenu B）ShowMenu C）LoadMenu D）ABC都可以9以下关于Click事件描述中，错误说法是（24）。A）此事件是在一个对象上按下并释放一个鼠标按钮时发生。B）如果在Click事件中有代码，则DlbClick事件将永远不会被触发。C）此事件也会发生在一个控件值改变时。D）对Form对象来说，该事件是在单击一个空白区或无效控件时发生。10下面子过程语句合法的是（25）。A）Function Fun%(fun%) B）Sub Fun(m%) As IntegerC）Function Fun(By Val M%) D）Sub Fun(Fun)二、程序阅读（每个选择3分，共45分）1程序如下Private Sub Form_Click() Dim x As Integer, sx As Integer, n As Integer Randomize Timer x = Int(Rnd * 5) + 11 For i = 2 To x n = Int(Sqr(i) For j = 2 To n If i Mod j = 0 Then Exit For Next j If j n Then sx = sx + i Next i Print sxEnd Sub（1）程序运行时，该程序中整数x的值的范围是（26）A）1116之间 B）1115之间 C）516之间 D）515之间（2）变量sx中存放的数是（27）A）2x之间的所有素数之和 B）2x之间的所有奇数之和C）2x之间的所有偶数之和 D）2x之间的所有数值之和（3）假设x的值为14，则程序运行结果是（27）A）41 B）48 C）56 D）1042程序如下Private Sub Command1_Click() Dim n As Integer Dim r As Long n = Val(InputBox(请输入一个数) r = fun(n) Picture1.Print r, nEnd SubFunction fun(ByVal num As Integer) As Long Dim k As Integer k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num 10 Loop fun = kEnd Function（1）当程序运行时，如输入74，则输出结果为（29）A）28 74 B）28 0 C）47 74 D）47 0（2）如果将程序中的语句Function fun(ByVal num As Integer) As Long改为Function fun(num As Integer) As Long后，再输入74，则输出结果为（30）A）28 74 B）28 0 C）47 74 D）47 0（3）该程序在窗体上至少设置了几个控件？（31）A）一个 B）两个 C）三个 D）四个3程序如下Option Base 1Private Sub Command1_Click() Dim n As Integer n = 12 ReDim a(n) a = Array(45, 2, 7, 1, 13, 42, 98, 0, 65, 33, 0, 0) Call fun(a(), n) Print a(11), a(12)End SubSub fun(b(), m As Integer) mx = 1 mn = 1 Print UBound(b) For k = 2 To m - 2 If b(k) b(mx) Then mx = k If b(k) j Then Else End If Print Tab(6 * j); a(i, j); Next j Print Next i PrintEnd Sub3程序界面如下。该程序的功能是单击“查找”按钮后，寻找11999之间满足条件的数n，它满足n，n2均为回文数（逆序排列后数值不变），并将n、n2分别在List1、List2中对应输出。请完善程序。Private Sub Command1_Click() Dim i#, j#, k#, n% For i = 11 To 999 j = i 2 If Then List1.AddItem i List2.AddItem j End If Next iEnd SubFunction IsHui(i#) As Boolean Dim lenN%, j%, s$, flag As Boolean s = Trim(Str(i) lenN = Len(s) For j = 1 To lenN 2 If Then flag = False Exit Function End If Next j IsHui = flagEnd Function4程序界面如下。程序功能是：单击“统计”按钮后，统计文本文件“data.txt” 中各种字母（不区分大小写）出现的次数，将统计结果存放在数组intCount中（字母“A” 出现的次数存入intCount(1)，字母“A” 出现的次数存入intCount(1)依此类推），并将出现次数大于1 的字母及次数显示在Picture1中。要求按照每行6个的格式输出。 Option Base 1Private Sub Command1_Click() Cls Dim num%, intCount%(26), c As String * 1 Open data.txt For Input As #1 Do Until EOF(1) c = UCase(c) If c = A And c =0.000001 n=n*j Loop2. a(i, j) = a(i - 1, j - 1) + a(i - 1, j)a(i, j) = a(i, j - 1) + 1 或 a(I,j)=j-I+13. IsHu