四川省第23次等级考试题带答案.docx

1、四川省第23次等级考试题带答案第二部分Visual Basic语言程序设计(共85分)一、单项选择题(每小题1分，共10分)1在下列字符串中，不能用作VB变量名的是( A )。 16 (A)8_num (B)instr6 (C)xy_int (D)f82x是一个正实数，如果要四舍五入并保留两位小数，则正确的表达式为( B )。 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”的表达式是（ C ） 18 (A)x z (B)

2、 y z (C) x z And y z (D) x z Or y z4若字符串stra$和strb$的取值为stra$=I love my motherstrb$=Mid(stra,7,3)+Right(stra,6)则InStr(3,strb, m)的函数值为( A )。19(A)4 (B)2 (C)0 (D)15如果要暂时关闭某个定时器，则必须通过设置其(C)属性为False来实现。 20(A)Timer （B）InterVal （C）Enabled （D）Visible6在下列控件中，不接受焦点的是 ( A ) 21(A)Lable (B)Command (C)Text (D)List

3、box。 7在VB中，要将一个窗体从内存中释放，应使用的语句是( D )。 22(A)Show (B)Hide (C)Load (D)Unload 8建立弹出式菜单的方法是( A )。 23(A)PopupMenu (B)ShowMenu(C)LoadMenu (D)A、B、C都可以 VB程序设计试卷 共12页 第2页 9以下关于Click事件描述中，错误的说法是( B ) 24(A)此事件是在一个对象上按下然后释放一个鼠标按钮时发生 (B)如果在Click事件中有代码，则DlbClick事件将永远不会被触发 (C)此事件也会发生在一个控件的值改变时 (D)对Form对象来说，该事件是在单击一

4、个空白区或无效控件时发生 10下面子过程语句合法的是( A )。 25(A)Function Fun% (Fun%) (B)Sub Fun(m%) As Integer(C) 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 IntegerRandomize Timerx = Int (Rnd * 5 ) + 11For i = 2 To x n = Int(Sqr(i) For j

5、 =2 To nIf i Mod j = 0 Then Exit ForNext jIf j n Then sx = sx + i Next i Print sxEnd Sub (1)程序运行时，该程序中整数x的值的范围是 ( B )。 26(A)1116之间 (B)1115之间(C)516之间 (D)515之间(2)变量sx中存放的数是（ A ） 27(A)2x之间的所有素数之和 (B) 2x之间的所有奇数之和 (C) 2x之间的所有偶数之和 (D) 2x之间的所有数值之和(3)假设x的值为14，则程序的运行结果是( A )。 28(A)41 (B)48 (C)56 (D)104VB程序设计

6、试卷 共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(ByVal 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）当程序运行时

7、，如输入74，则输出结果为（ A ）。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，则输出结果为（ B ）30(A)28 74 (B)28 0 (C)47 74 (D)47 0（3）该程序在窗体上至少设置了几个控件？（ B ）31(A)一个 (B)二个 (C)三个 (D)四个3程序如下Option Base 1Private Sub Command1_Click()

8、 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)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) 0.000001 e = e + t i = i + 1 n = 1 For j = 1 To i n = n *

9、j Next j t = 1 / n loop Print e End Sub2下列程序的功能是：单击窗体，在窗体上输出如下结果，请填空。Private Sub Form_Click() Dim a(6,6) As Integer Dim i As Integer, j As Integer For i = 1 To 6 For j = 1 To 6 If i = j Or j = 1 Then a(i, j) = 1 ElseIf i j Then a(i,j) = a(i-1,j-1) + a(i-1,j) Else a(i,j) = a(i,j-1) + a(i+1,j-1) End I

10、f Print Tab(6 * j); a(i, j); Next j PrintVB程序设计试卷 共12页 第9页Next iPrintEnd 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 IsHui(i) Then List1.AddItem i List2.AddItem j En

11、d If Next iEnd SubFunction IsHui(i#) As Boolean Dim lenN%, j%, s$, flag As Boolean s = Trim(Str(i) lenN = Len(s) flag = True For j = 1 To lenN 2 If mid(s , j , 1) mid(s , lenN+1-i) Then flag = FalseVB程序设计试卷 共12页 第10页 Exit Function End If Next j IsHui = flagEnd Function4程序界面如下，程序的功能是：单击“统计”按钮后，统计文本文件

12、“data.txt”中各种字母（不区分大小写）出现的次数，将统计结果存放在数组intCount中（字母“A”的次数存入intCount1，字母“B”的次数存入intCount2，依此类推），并将出现次数大于1的字母及次数显示在picture1中。要求按照每行6个的格式输出。Option Base 1Private Sub Form_Click() Cls Dim num%, intCount%(26), c As String * 1 Open data.txt For Input As #1 Do Until EOF(1) Input #1 , c c = UCase(c) If c = A

13、 And c 1 Then Picture1.Print Chr$(j + 64); =; intCount(j); num = num + 1 if num =6 then print End If Next j End Sub5以下程序的功能是：建立名为“test.txt”的顺序文件。文件内容来自文本框Text1，每当按下回车键（Enter）写入一条记录，然后清除文本框的内容；当单击命令按钮Command1时程序结束。 Private Sub Form_Load() Open “test.txt” for output as #1 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Print #1, Text1.Text Text1.text = “ ” End If End Sub Private Sub Command1_Click() Close #1 Unload me 或 end End Sub