江苏省2011年二级计算机考试VB笔试试题.doc

2011春省计算机等级考试第二部分 Visual Basic 程序设计一选择题21.以下说法中，正确的是_。A. 属性是对象的特征，所有的对象都有相同的属性B属性值只能在属性窗口中设置C在程序中可以用赋值语句给对象的任何一个属性赋值D.对象的运行时属性不出现在对象属性窗口中22.下面4个语句中，错误的是_。AN=InputBox（“输入N： ”，5）； B .InputBox（“输入N： ”，5）C. MsgBox“请回答” D. K = MsgBox(“请回答”)23.若设X = 1，Y = 2，则不能在窗口上显示“A = 3”的语句的是_A . Print A = X+Y B . Print “ A =”; X+YC . Print “ A =” + Str(X+Y) D . Print “ A =” & X+Y24.表达式InStr（4,”abcabca”,”c”）+Int（2.5）的值是_A. 7 B . 8 C . 5 D . 925 .以下有关数组的说法中，错误的是_A . 用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量B . 用ReDim语句重新定义动态数组时，不能改变已经说明过的数组的数据类型C. 使用ReDim语句一定可以改变动态数组的上下界D. 定义数组时，数组维界值可以不是整数26.以下有关过程的说法中，错误的是_A . 不论在Function过程中是否给函数名赋过值，都会返回一个值B不能在Function与Sub过程内部，再定义Function或Sub过程C Function过程与Sub过程，都可以是无参过程D过程名可以和主调过程的局部变量同名27.下列关于菜单的说法中，错误的是_A除了Click事件之外，菜单项不能响应其他事件B菜单的名称项（Name属性）不可缺省C只有当代码窗口为当前活动窗口时，才能打开菜单编辑器D菜单项的快捷键不能任意设置28.设a=1,b=2,c=3，逻辑表达式ab Xor c 10 b = b/2 Do Until b 10 a = (a+b)2+b b = b+5 Print a,b Loop a = a-3 LoopEnd Sub2. 执行下面程序，当单击Cmd1时，在窗体上显示的第一行内容是_,第二行的内容是_,第四行是_ Option Explicit Private Sub Cmd1_Click() Dim a As Integer , b As Integera= 1b = 2Print fun(2*b, fun(a,(b)Print a;b End Sub Private Function fun(x As Integer , y As Integer) As Integer x= x+2 y = x-y+3 fun = x+y Print fun End Function3.执行下面的程序，单击CmdRun后，数组元素a（1,2）的值是_a(2,1)的值是_a(3,2)的值是_Option ExplicitOption Base 1Private Sub CmdRun_Click() Dim A(3,3)As Integer , I As Integer ,j As Integer ,k As Integer ,n As Integer n = 3 i = 1:j = n A(i,j) = 1 For k = 2 To n*n If i+1n Then i=n-j+2:j=1 ElseIf i+1n Then J=j-i:i=1 Else I=i+1:j=j+1 End If A(i,j)=kNext kFor i=1 To n For j=1 To n PrintA(i,j); Next j PrintNext i End Sub4.运行程序，二进制在文本Text1中输入用空格分隔的4位1001，0101和0110。单击“处理”按钮，在多行文本框Text2中的第一行显示_,第二行显示_,第三行显示_。Option ExplicitPrivate Sub Cmd1_Click()Dim S(3) As String , n As IntegerDim i As Integer, k As IntegerK=1For i=1 To 3S(i)=Mid(Text1,k,4)K=k+5Call Transform(n,S(i)Text2=Text2 & n & vbCrlfNext iEnd SubPrivate Sub Transform(n As Integer,S As String) Dim k As Integer, i As Integer, L As IntegerL=Len(S)If Val(Mid(S,1,1)=1 ThenN=(2 (L-1)Elsen=0End IfFor i=2 To LK=Mid(S,i,1)N=n+k * 2 (L-i)Next iEnd Sub5.执行下列程序，单击CmdRun按钮，则窗体上显示的第一行是_（13）_，第二行是_（14）_，最后一行是_(15)_。Option ExplicitPrivate Sub CmdRun_Click()Dim n As IntegerFor n=4 To 7If Fun1(n,Sqr(n) ThenPrint n;”SS”ElsePrint n;”HS”End IfNext nEnd SubPrivate Function Fun1(n As Integer,i As Integer) As BooleanIf i=1 ThenFun1=TrueElseIf n Mod i0 ThenFun1=Fun1(n,i-1)ElseFun1=FalseEnd IfEnd Function6.下面程序的功能是求S的值。计算到第k项的值小于等于10-6为止。请完善本程序。Option ExplicitPrivate Sub Command1_Click() Dim s As Single, x As Single, k As Integer, t As Single x = CSng(Text1.Text) Do t = pt(x, k) s = s + t k = k + 1 Loop Until t 0 Then If yzh(a, st) Then List1.AddItem i & : & st End If Erase a Next iEnd SubPrivate Function yzh(a() As Integer, st As String) As Boolean Dim i As Integer, j As Integer Dim sum1 As Long, sum2 As Long, st1 As String, st2 As String For i = 1 To UBound(a) For j = 2 To Sqr(a(i) If a(i) Mod j = 0 Then Exit For Next j If Then sum1 = sum1 + a(i) st1 = st1 & a(i) & + Else sum2 = sum2 + a(i) st2 = st2 & a(i) & + End If Next i If sum1 * 2 = sum2 Then st = ( & Left(st1, Len(st1) - 1) & )*2= & Left(st2, Len(st2) - 1) End IfEnd Function8.本程序的功能是求-128+127之间整数n的8位2进制补码。采用的算法是：若n=0，则直接将其转换为相应的7位2进制数，前面的符号位设定为“0”；若n= 0 Then bm = 0 & d2b(n) Else n = n + 128 bm = End IfEnd FunctionPrivate Function d2b(n As Integer) As String Dim p As Integer Do p = n Mod 2 d2b = CStr(p) & d2b n = n 2 Loop Until d2b = Right(000000 & d2b, 7)End Function9.本程序的功能是，按从大到小的次序给一组正整数标记序次。程序的算法是：先找出原数组中所有的最大数，假如有n个最大数，它们序次均标记为1，已处理的数据值改为-99；再找出所有的次大数，它们的序次标记为n+1直到所有的数据处理完毕。请完善本程序。（说明：数组sn用于存放数组a中相应的各个元素的序次，数组b用来保留原始数据）Option ExplicitOption Base 1Private Sub Cmd1_Click() Dim a(10) As Integer, sn(10) As Integer, b(10) As Integer, i As Integer For i = 1 To 10 a(i) = Int(Rnd * 61) + 40 b(i) = Text1 = Text1 & Str(a(i) Next i Call order(a, sn) For i = 1 To 10 List1.AddItem b(i) & - & sn(i) Next i End Sub Private Sub order(a() As Integer, sn() As Integer) Dim i As Integer, j As Integer Dim n As Integer,