江苏省二级vb试卷2004(秋)(笔试).doc

第二部分Visual Basic程序设计一、选择题21设S是字符型变量，以下语句正确的是。As=List1.Caption Bs=Timer1.CaptionCs=Text1.Caption Ds=Label1.Caption22扩展名为VBP的工程文件中包含有。A工程中所有模块的有关信息B每个窗体模块中的所有控件的有关信息C每个模块中所有变量的有关信息D每个模块中所有过程的有关信息23在窗体的通用说明部分有以下说明语句，其中正确的是。A Private Const A As Integer=235/2 BConst B As Integer=cint(2.53)Cdim const C as integer=3579 Dpublic const s as Boolean =true24以下控件对象中具有Picture属性的是。PictureBox Frame OptionButton CommandButton ListBox CheckBox LabelABCD25在过程中已说明a、b、c均为Integer型变量，且均已被赋值，其中a=30、b=40、c=50，如再执行下面的语句，可正常执行的是。APrint a*b*c BPrint a*b*c*1&CPrint 1&*a*b*c DPrint a*b*c*1!26表达式X Mod YZ5 and A+B+C=36 中最先被执行的运算是。ABANDCMODD27下列有关事件过程的说法错误的是。A 标准模块中不能包含事件过程B 事件过程都是无参（没有形式参数）的过程C 事件过程也可以通过Call语句调用执行D 在事件过程中不能声明全局变量28以下有关Redim语句用法的说明错误的是。ARedim 可用于定义一个新数组BRedim语句既可以在过程中使用，也可以在模块的通用声明处使用C无Perserve 关键字的Redim语句，可重新定义动态数组的维数D在Redim语句中，可使用变量说明动态数组的大小29下列有关文件的说法正确的是。A打开随机文件时，参数Len的值可任意设置B若以Output、Append、Random或Binary方式打开一个不存在的文件，系统会出错C在Input方式下，不能使用不同文件号同时打开同一个文件D在一个过程中，一个文件号有可能被用于打开不同的文件30下面语句中，可以在窗体上绘制正方形的语句是。 Shape1.Shape=1 Line(500,1500)-(1200,2000) Shape1.Shape=0 Line(500,1500)-(1000,2000)ABCD二、填空题1执行下面程序，单击按钮Command1，窗体上第一行显示的内容是，第二行显示的内容是。Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 6: y = 12: z = 20 Print fun1(x, y) Print fun1(fun1(x, y), z)End SubPrivate Function fun1(a As Integer, b As Integer) As Long Dim y As Integer y = a Do If y Mod b = 0 Then fun1 = y Exit Function Else y = y + a End If LoopEnd Function2执行下面程序，单击按钮Command1，窗体上第一行显示的内容是，第二行显示的内容是。Option ExplicitDim a As SinglePrivate Sub Command1_Click() Dim a As Single, b As Integer a = 1.2: b = 3 Print fun1(a, b) Print aEnd SubPrivate Function fun1(x As Single, y As Integer) As Integer Dim i As Integer For i = 1 To y x = x * 2 a = a + 1 Next i fun1 = aEnd Function3执行下面程序，单击按钮Command1，在图片框Pic2中第一行显示的内容是，第二行显示的内容是，第三行显示的内容是。Option explicitOption base 1Private Sub Command1_Click()Dim sa(3, 3) As String * 1, i As Integer, j As Integer Dim s As String, k As Integer s = JPLETAXBD k = 1 For i = 1 To 3 For j = 1 To 3 sa(i, j) = Mid(s, k, 1) Pic1.Print sa(i, j); ; k = k + 1 Next j Pic1.Print Next i For i = 1 To 3 For j = 1 To 3 k = (Asc(sa(i, j) - Asc(A) + i + j) Mod 26 sa(i, j) = Chr(k + Asc(A) Pic2.Print sa(i, j); ; Next j Pic2.Print Next iEnd Sub4执行下面程序，单击按钮Command1，窗体上第一行显示的内容是，第二行显示的内容是，第三行显示的内容是，事件过程Command1_Click()中的For循环共执行了次。Private Sub Command1_Click() Dim x As Integer, y As Integer, m As Integer y = 2 For x = 1 To 8 Step y m = x + y Call sub1(m, x) Print m, x Next xEnd SubPrivate Sub sub1(ByVal a As Integer, b As Integer) a = a + b b = b + 1End Sub5执行下面程序，单击按钮Commnad1，窗体上第一行显示的内容是，第二行显示的内容是，第三行显示的内容是。Private Sub Command1_Click() Dim x As Integer, y As Integer, s As Integer x = 12: y = 18 If x y Then s = recur(x, y, 1) Else s = recur(y, x, 1) End If Print s Print x, yEnd SubPrivate Function recur(a As Integer, b As Integer, k As Integer) Static x As Integer x = x + k If a = b Then recur = a + b - x Print x=; x Else a = a - x b = b + x recur = recur(a, b, x) End If x = 0End Function6下面程序利用级数法求解下面函数的近似值，规定当n取某一值时，若0.00001，则停止运算。函数的级数展开式如下：f(x)=x-+-+Private Sub Command1_Click() Dim x As Single, eps As Single x = Text1: eps = 0.00001 Text2 = fun(x, eps)End SubPrivate Function fun(x As Single, eps As Single) As Double Dim n As Integer, t As Double, y As Double, s As Single y = x: t = x Do _ n = n + 1 s = _ t = _ y = y + s * t / (2 * n + 1) Loop fun = yEnd Function7下面程序是一个采用矩阵变换对西文进行加密的程序。取大于或等于原文长度的最小平方数n2，构造一个nn的矩阵，将原文中的字符逐个按行写入该矩阵，多余的矩阵元素则写入空格字符，再按列读出此矩阵，即为密文。程序界面参见下图。Option ExplicitPrivate Sub Command1_Click() Dim msg As String msg = Text1 Text2 = encode(msg)End SubPrivate Function sr(n As Integer) As Integer Dim k As Integer k = n Do If Then sr = Sqr(k): Exit Do Else End If LoopEnd FunctionPrivate Function encode(orc As String) As StringDim n1 As Integer, n2 As Integer, m() As String * 1Dim i As Integer, j As Integer, k As Integern1 = Len(orc)n2 = sr(n1)k = 1For i = 1 To n2 For j = 1 To n2 If k = n1 Then m(i, j) = Mid(orc, k, 1) Else End If k = k + 1 Next jNext iFor j = 1 To n2 For i = 1 To n2 encode = encode & m(i, j) Next iNext jEnd Function8下面程序的功能是：生成20个不可约真分数。要求分子和分母均为两位正整数且分数中没有相同数字。提示：不可约真分数是指分子小于分母并且分子和分母除1以外没有其他公约数。程序界面参见下图。Option ExplicitPrivate Sub Command1_Click() Dim fz As Integer, fm As Integer, js As Integer Randomize Do fz = Int(90 * Rnd) + 10 fm = Int(90 * Rnd) + 10 If _ Then If vilidata(fz, fm) Then Text1 = Text1 & fz & / & fm & js = js + 1 If js Mod 5 = 0 Then Text1 = Text1 & vbCrLf End If End If Loop While js 20End SubPrivate Function vilidata(fz As Integer, fm As Integer) As Boolean Dim n As Integer, i As Integer, s As String For n = 2 To fz If fz Mod n = 0 And fm Mod n = 0 Then _ End If Next n s = _ For i = 1 To Len(s) - 1 For n = i + 1 To Len(s) If _ Then Exit Function End If Next n Next i vilidata = TrueEnd Function9下面程序可快速排序。排序算法是以数组中间位置的一个数为基准，将数组中所有小于它的数移到它的左边，大于它的数移动到它的右边，然后再对它左右两边的数据分别按此办法进行处理，依次类推，直到每一边只剩下一个数据为止，本方法是递归算法。程序界面参见下图。Option ExplicitPrivate Sub Command1_Click() Dim a(10) As Integer, s As String, i As Integer Randomize For i = 1 To 10 a(i) = Int(90 * Rnd) + 10 s = s & Str(a(i) Next i Text1 = s Call rs(a, 1, 10) _ For i = 1 To 10 s = s & Str(a(i) Next i Text2 = sEnd SubPrivate Sub rs(a() As Integer, left As Integer, right As Integer) Dim i As Integer, j As Integer, x As Inte