VB过程及文件练习.docVIP

VB过程及文件练习 一、单选题 1.要定义一个过程为局部过程，应使用的关键字为（） A）Static B）Public C）Private D）Sub 2.为了通过传值方式来传送过程参数，应使用的关键字为（） A）Value B）ByVal C）ByRef D）Reference 3. 如有以下程序代码： Function func(ByVal x As Integer, y As Integer) y = x * y If y 0 Then func = x Else func = y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 4 c = func(a, b) Print a=; a Print b=; b Print c=; c End Sub 运行程序后，在窗体上输出的内容为（） A） a = 3 B） a = 3 C） a = 3 D） a = 3 b = 12 b = 4 b = 4 b = 12 c = 3 c = 3 c = 12 c = 12 4. 如有以下程序代码： Option Base 1 Sub subp(b() As Integer) For i = 1 To 3 b(i) = 3 * i Next i End Sub Private 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 i End Sub 运行程序后，在窗体上输出的内容为（） A）3 6 9 B）8 4 3 C）9 6 3 D）3 4 8 5. 如有以下程序代码： Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = 10 b = 30 s1 a, b Print a=; a; b=; b End Sub 运行程序后，在窗体上输出的内容为（） A）a = 30 b = 10 B）a = 30 b = 30 C）a = 10 b = 30 D）a = 10 b = 10 6.如有以下程序代码： Private Sub Command1_Click() Dim x, y, z As Integer x = 5 y = 7 z = 0 Text1.Text = Call p1(x, y, z) Text1.Text = Str(z) End Sub Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub 运行程序后，在窗体上输出的内容为（） A）0 B）12 C）Str(z) D）没有显示 7.如有以下程序代码： Private Sub Command1_Click() Call sub1(-15.1, 2.54) End Sub Public Function sub1(a As Integer, ByVal b As String) As Integer a = Val(b) sub1 = a Print sub1 End Function 运行程序后，在窗体上输出的内容为（） A）3 B）2 C）-15 D）提示错误 8.如有以下程序代码： Public Function fun(xstr As String) As String tstr = strl = Len(xstr) i = 1 Do While i = strl / 2 tstr = tstr Mid(xstr, i, 1) Mid(xstr, strl - i + 1, 1) i = i + 1 Loop fun = tstr End Function Private Sub Command1_Click() Dim s1 As String s1 = abcdef Print UCase(fun(s1