1、 4、以下的准则中哪个不是面向对象软件设计应遵循的(14)。 14(A)抽象准则 (B)独立性准则 (C)信息屏蔽准则 (D)模块化准则 5、需求分析中开发人员主要从用户那里了解(15)。 15(A)软件做什么 (B软件的结构(c)输入的信息 (D)软件的测试 VB程序设计试卷 共12页 第1页 第二部分Visual Basic语言程序设计(共85分)一、单项选择题(每小题1分,共10分)1在下列字符串中,不能用作VB变量名的是( 16 )。 16 (A)8_num (B)instr6 (C)xy_int (D)f82x是一个正实数,如果要四舍五入并保留两位小数,则正确的表达式为( 17 )。
2、 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 ) 18 (A)x z (B) y z (C) x z And y z (D) x z Or y 4若字符串stra$和strb$的取值为stra$=I love my motherstrb$=Mid(stra,7,3)+Right(stra,6)则InStr(3,strb, m)的函数值为( 19 )。19(A)4 (B)2 (C)0 (D)15如果要
3、暂时关闭某个定时器,则必须通过设置其(20)属性为False来实现。 20(A)Timer (B)InterVal (C)Enabled (D)Visible6在下列控件中,不接受焦点的是 ( 21 ) 21(A)Lable (B)Command (C)Text (D)Listbox。 7在VB中,要将一个窗体从内存中释放,应使用的语句是( 22 )。 22(A)Show (B)Hide (C)Load (D)Unload 8建立弹出式菜单的方法是( 23 )。 23(A)PopupMenu (B)ShowMenu(C)LoadMenu (D)A、B、C都可以 VB程序设计试卷 共12页 第2
4、页 9以下关于Click事件描述中,错误的说法是( 24 ) 24(A)此事件是在一个对象上按下然后释放一个鼠标按钮时发生 (B)如果在Click事件中有代码,则DlbClick事件将永远不会被触发 (C)此事件也会发生在一个控件的值改变时 (D)对Form对象来说,该事件是在单击一个空白区或无效控件时发生 10下面子过程语句合法的是( 25 )。 25(A)Function Fun% (Fun%) (B)Sub Fun(m%) As Integer(C) Function Fun(By Val m%) (D) Sub Fun(Fun)二 . 阅读分析程序(每个选择3分,共45分)1. 程序如
5、下Private Sub Form_Click()Dim x As Integer, sx As Integer, n As IntegerRandomize Timerx = Int (Rnd * 5 ) + 11For i = 2 To x n = Int(Sqr(i) For j =2 To nIf i Mod j = 0 Then Exit ForNext jIf j n Then sx = sx + i Next i Print sxEnd Sub (1)程序运行时,该程序中整数x的值的范围是 ( 26 )。 26(A)1116之间 (B)1115之间(C)516之间 (D)515之
6、间(2)变量sx中存放的数是( 27 ) 27(A)2x之间的所有素数之和 (B) 2x之间的所有奇数之和 (C) 2x之间的所有偶数之和 (D) 2x之间的所有数值之和(3)假设x的值为14,则程序的运行结果是( 28 )。 28(A)41 (B)48 (C)56 (D)104VB程序设计试卷 共12页 第3页2程序如下 Private Sub Command1_Click() Dim n As Integer Dim r As Long n = Val(InputBox(请输入一个数) r = fun(n) Picture1.Print r,n End Sub Function fun(B
7、yVal num As Integer) As Long Dim k As Integer k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num10 Loop fun = kEnd Function(1)当程序运行时,如输入74,则输出结果为( 29 )。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”后,再
8、输入74,则输出结果为( 30 )30(A)28 74 (B)28 0 (3)该程序在窗体上至少设置了几个控件?( 31 )31(A)一个 (B)二个 (C)三个 (D)四个3程序如下Option Base 1Private Sub Command1_Click() Dim n As IntegerVB程序设计试卷 共12页 第4页 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)Sub fun(b(),m As Integer) mx = 1 mn = 1
9、 Print UBound(b) For k = 2 To m-2 If b(k) b(mx) Then mx = k If b(k) j Then Else Print Tab(6 * j); a(i, j); Next j PrintVB程序设计试卷 共12页 第9页Next iPrint3程序界面如下,该程序的功能是单击“查找”按钮后,寻找11999之间满足条件的数n,它满足n、n2均为回文数(逆序排列后数值不变),并且将数n、n2分别在List1、List2中对应输出。请完善程序。Dim i#, j#, k#, n% For i = 11 To 999 j = i 2 If Then
10、List1.AddItem i List2.AddItem j End If Next iFunction 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 = FalseVB程序设计试卷 共12页 第10页 Exit Function End If Next j IsHui = flag4程序界面如下,程序的功能是:单击“统计”按钮后,统计文本文件“data.txt”中各种字母(不区分大小写)出现的次数,将
11、统计结果存放在数组intCount中(字母“A”的次数存入intCount1,字母“B”的次数存入intCount2,依此类推),并将出现次数大于1的字母及次数显示在picture1中。要求按照每行6个的格式输出。 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 Z Then intCount(j) = intCount(j) + 1 EndIfVB程序设计试卷 共12页 第11页 Loop For j =
12、 1 to26 If Then Picture1.Print Chr$(j + 64); =; intCount(j); num = num + 1 5以下程序的功能是:建立名为“test.txt”的顺序文件。文件内容来自文本框Text1,每当按下回车键(Enter)写入一条记录,然后清除文本框的内容;当单击命令按钮Command1时程序结束。 Private Sub Form_Load() Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Print #1, Text1.Text Close #1 VB程序设计试卷 共12页 第12页
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2