VB过程及文件练习.doc

VB过程及文件练习一、单选题1.要定义一个过程为局部过程，应使用的关键字为（）A）StaticB）PublicC）PrivateD）Sub2.为了通过传值方式来传送过程参数，应使用的关键字为（）A）ValueB）ByValC）ByRefD）Reference3. 如有以下程序代码：Function func(ByVal x As Integer, y As Integer)y = x * yIf y 0 Then func = xElse func = yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 3b = 4c = func(a, b)Print a=; aPrint b=; bPrint c=; cEnd Sub运行程序后，在窗体上输出的内容为（）A）a = 3B）a = 3C）a = 3D）a = 3b = 12b = 4b = 4b = 12 c = 3c = 3c = 12c = 124. 如有以下程序代码：Option Base 1Sub subp(b() As Integer) For i = 1 To 3 b(i) = 3 * i Next iEnd SubPrivate Sub Command1_Click() Dim a(3) As Integer arr = Array(8, 4, 3) For i = 1 To 3 a(i) = arr(i) Next i subp a() For i = 1 To 3 Print a(i) Next iEnd Sub运行程序后，在窗体上输出的内容为（）A）369B）843C）963D）3485. 如有以下程序代码：Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 10b = 30s1 a, bPrint a=; a; b=; bEnd Sub运行程序后，在窗体上输出的内容为（）A）a = 30b = 10B）a = 30b = 30C）a = 10b = 30D）a = 10 b = 106.如有以下程序代码：Private Sub Command1_Click()Dim x, y, z As Integerx = 5y = 7z = 0Text1.Text = Call p1(x, y, z)Text1.Text = Str(z)End SubSub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub运行程序后，在窗体上输出的内容为（）A）0B）12C）Str(z)D）没有显示7.如有以下程序代码：Private Sub Command1_Click()Call sub1(-15.1, 2.54)End SubPublic Function sub1(a As Integer, ByVal b As String) As Integera = Val(b)sub1 = aPrint sub1End Function运行程序后，在窗体上输出的内容为（）A）3B）2C）-15D）提示错误8.如有以下程序代码：Public Function fun(xstr As String) As Stringtstr = strl = Len(xstr)i = 1Do While i = strl / 2 tstr = tstr & Mid(xstr, i, 1) & Mid(xstr, strl - i + 1, 1) i = i + 1Loopfun = tstrEnd FunctionPrivate Sub Command1_Click()Dim s1 As Strings1 = abcdefPrint UCase(fun(s1)End Sub运行程序后，在窗体上输出的内容为（）A）ABCDEFB）abcdefC）AFBECDD)DEFABC9.如有以下程序代码：Dim x As Integer, y As IntegerPrivate Sub Command1_Click() x = 5 y = 5 z = 3 sub1 Print z; sub2 Print z;End SubSub sub1() z = x * yEnd SubSub sub2() z = x + yEnd Sub运行程序后，在窗体上输出的内容为（）A）315B）2510C）33D）31010. 如有以下程序代码：Private Sub Form_click()a = 3b = 4For i = 1 To 1 y = cacl(a, b)Next iPrint yEnd SubPublic Static Function cacl(x, y)a = a + 1cacl = x * y * aEnd Function运行程序后，在窗体上输出的内容为（）A）10B）11C）12D）1311.如有以下程序代码：Private Sub Form_click()Dim n As Integern = 5Print p1(n)End SubPrivate Function p1(n As Integer) As IntegerIf n 1 Then p1 = 0Else p1 = p1(n - 1) + nEnd IfEnd Function运行程序后，在窗体上输出的内容为（）A）120B）25C）15D）1012.如有以下程序代码：Dim x, yPrivate Sub Form_click()x = 1y = 1z = 1abc 5Print x; y; zEnd SubPrivate Sub abc(m)x = my = mz = mEnd Sub运行程序后，在窗体上输出的内容为（）A）111B）551C）115D）55513. 如有以下程序代码：Private Sub Command1_Click()L1: Dim i As Integer Dim isum As Integer For i = 1 To 5 isum = sum(i) Next i Print isum=; isumEnd SubPrivate Function sum(n As Integer)L2: Dim j As Integer j = j + n n = n + 2 sum = jEnd Function（1）运行程序时，第一次单击窗体产生的结果是（）A）isum =3B）isum =4C）isum =5D）isum =15（2）如果将L2语句改为 Static j As Integer，则程序运行程序时第一次单击窗体产生的结果是（）A）isum =3B）isum =4C）isum =5D）isum =15（3）如果在原程序基础上只将L1语句改为 Public i As Integer，则程序运行程序时第一次单击窗体产生的结果是（）A）结果同（1）B）结果同（2）C）结果与（1）（2）都不相同D）程序出错，不能运行14.能对顺序文件进行输出操作的语句是（）A）PutB）GetC）Write #D）Read15.以下叙述中错误的是（）A）Open语句的功能是打开1个已经存在文件B）随机文件每条记录的长度是固定的C）执行如下命令后，文件指针指向文件的开头：Open “c:DataFile.Dat” For Output As #1D）以下循环条件表示当到达文件末尾时结束循环Do While Not EOF()Loop16.能对随机文件进行输出操作的语句是（）A）PutB）GetC）Write #D）Read17.为了在C盘当前目录下建立1个名为TelBook.txt的文件，应使用的语句是（）A）Open “TelBook.txt” For Output As #1B）Open “c:TelBook.txt” For Input As #1C）Open “c:TelBook.txt” For Output As #1D）Open “TelBook.txt” For Input As #118.在建立文件时，默认的文件输入输出方式是（）A）OutputB）RandomC）InputD）Append二、简答题1. Function m(x As Integer, y As Integer) As Integer m = IIf(x y, x, y)End FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print m(a, b)End Sub程序运行后的输出结果为_2. Private Sub Form_click() Dim a As Integer, b As Integer a = 20 b = 50 p1 a, b p2 a, b p3 a, b Print a=; a, b=; bEnd SubSub p1(x As Integer, ByVal y As Integer) x = x + 10 y = y + 20End SubSub p2(ByVal x As Integer, y As Integer) x = x + 10 y = y + 20End SubSub p3(ByVal x As Integer, ByVal y As Integer) x = x + 10 y = y + 20End Sub程序运行后显示的内容 a=_ b=_3. Private Sub Command1_Click()Dim i As IntegerSum = 0n = InputBox(enter a number)n = Val(n)For i = 1 To n _Next iPrint SumEnd SubFunction fun(t As Integer) As Long p = 1For i = 1 To t p = p * iNext i_End Function以上程序功能是计算1!+2!+3!+n!，其中n从键盘上输入，请填空。4. Option Base 1Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call swap(_) For i = 1 To 10 Print a(i); Next iEnd SubSub swap(b() As Integer) n = _ For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t _ Next iEnd Sub上述功能程序，是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换。5. Private Sub Command1_Click()Dim x As Integer, y As Integer, z As IntegerDim a(3) As Integerx = 1: y = 2: z = 3Call p(x, y, z)Call p(x, x, z)Call p(x, (x), z)Call q(a, a, z)Print x; y