《江苏省二级vb试卷2004(秋)(笔试)》由会员分享，可在线阅读，更多相关《江苏省二级vb试卷2004(秋)(笔试)（7页珍藏版）》请在金锄头文库上搜索。
1、第二部分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
2、 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 中最先被执
3、行的运算是。ABANDCMODD27下列有关事件过程的说法错误的是。A 标准模块中不能包含事件过程B 事件过程都是无参（没有形式参数）的过程C 事件过程也可以通过Call语句调用执行D 在事件过程中不能声明全局变量28以下有关Redim语句用法的说明错误的是。ARedim 可用于定义一个新数组BRedim语句既可以在过程中使用，也可以在模块的通用声明处使用C无Perserve 关键字的Redim语句，可重新定义动态数组的维数D在Redim语句中，可使用变量说明动态数组的大小29下列有关文件的说法正确的是。A打开随机文件时，参数Len的值可任意设置B若以Output、Append、Random或
4、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,
5、 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
6、 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中第一
7、行显示的内容是，第二行显示的内容是，第三行显示的内容是。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
8、 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
9、, 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
10、= 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 = 0E
11、nd 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 Sin
12、gle 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)En
13、d 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
