VB读程序题.docx

1、VB读程序题程序阅读（80题）1、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5B) 125C) 107 D) 127 2、 在窗体上画一个名称为Command1的命令按钮，然后

2、编写如下事件过程：Private Sub Command1_Click() x=InputBox(Input) Select Case xCase 1,3Print 分支 1Case Is 4Print 分支 2Case ElsePrint Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A） 分支1B） 分支2 C） Else分支D) 程序出错3、执行下列程序段后，输出的结果是For k1=0 To 4 y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y + 10 Next k3 Next k2 Next

3、 k1 Print yA) 90 B) 60C) 40 D) 104、设有如下过程：Sub ff(x，y，z，) x=y+zEnd Sub 以下所有参数的虚实结合都是传址方式的调用语句是A) Call ff(5,7,z) B) Call ff(x,y,z) C) Call ff(3+x,5+y,z) D) Call ff(x+y,x-y,z)5、下列程序段的执行结果为a=1b=0Select Case a Case 1 Select Case b Case 0 Print * *0* * Case 1 Print * *1* * End Select Case 2 Print * *2* *E

4、nd SelectA) * *0* * B) * * 1* *C) * *2* * D) 06、下面程序段执行结果为x=Int(Rnd() + 4) Select Case x Case 5 Print excellent Case 4 Print good Case 3 Print pass Case Else Print failEnd SelectA) excellent B) goodC) pass D) fail7、下列程序段的执行结果为a=6For k=1 To 0 a=a + kNext kPrint k; aA) -1 6 B) -1 16C) 1 6 D) 11 218、下列

5、程序段的执行结果为a=1b=1For I=1 To 3 f=a + b a=b b=f Print f;Next IA) 2 3 6 B) 2 3 5C) 2 3 4 D) 2 2 89、单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=12: y=32 Call PCS(x, y) Print x; yEnd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer) n=n Mod 10 m=m Mod 10End SubA)

6、 12 32 B) 2 32C) 2 3 D) 12 310、单击一次命令按钮后，下列程序的执行结果是Private Sub Command1_Click() s=P(1) + P(2) + P(3) + P(4) Print sEnd SubPublic Function P(N As Integer) Static Sum For i=1 To N Sum=Sum + i Next i P=SumEnd FunctionA) 15 B) 25C) 35 D) 4511、下列程序的执行结果为Private Sub Command1_Click() Dim s1 As String, s2 A

7、s String s1=abcdef Call Invert(s1, s2) Print s2End SubPrivate Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i =1 tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop ystr=tempstrEnd SubA) fedcba B) abcdefC) afbecd D) defabc12、阅读下列程序：Private Sub Command1_Click(

8、) Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k) ; Next iEnd SubFunction H(j As Integer) a=0 Static b a=a + 1 b=b + 1 H=a*b + jEnd Function程序运行后，单击命令按钮输出结果是A) 2 3 4 B) 3 4 5C) 5 6 7 D) 3 5 613、执行下列程序段后，输出的结果是For k1=0 To 4 y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y + 10 Next k3 Next k2 Nex

9、t k1 Print yA) 90 B) 60C) 40 D) 1014、下列程序段的执行结果为a=6For k=1 To 0 a=a + kNext kPrint k; aA) -1 6 B) -1 16C) 1 6 D) 11 2115、下列程序段的执行结果为a=1b=1For I=1 To 3 f=a + b a=b b=f Print f;Next IA) 2 3 6 B) 2 3 5C) 2 3 4 D) 2 2 816、单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=12

10、: y=32 Call PCS(x, y) Print x; yEnd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer) n=n Mod 10 m=m Mod 10End SubA) 12 32 B) 2 32C) 2 3 D) 12 317、单击一次命令按钮后，下列程序的执行结果是Private Sub Command1_Click() s=P(1) + P(2) + P(3) + P(4) Print sEnd SubPublic Function P(N As Integer) Static Sum For i=1 To

11、N Sum=Sum + i Next i P=SumEnd FunctionA) 15 B) 25C) 35 D) 4518、下列程序的执行结果为Private Sub Command1_Click() Dim s1 As String, s2 As String s1=abcdef Call Invert(s1, s2) Print s2End SubPrivate Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i =1 tempstr=tempstr +

12、 Mid(xstr, i, 1) i=i - 1 Loop ystr=tempstrEnd SubA) fedcba B) abcdefC) afbecd D) defabc19、 在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2 的标签，然后编写如下程序代码： Private x As Integer Private Sub Commandl_Click() x5：y3 Call proc(x,y) LabeL1Captionx LabeL2Captiony End Sub Private Sub proc(ByVal a As Integer，B

13、yVal b As Integer) xa* a y=b十b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。A）25 3 B）25 9 C）5 3 D）5 920 、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(请输入第一个数字a的值) a=Val(A) b=InputBox(请输入第二个数字b的值) b=Val(b) x=InputBox(请输入第三个数字x的值) x=Val(x) a=a + b + x Loop Print aEnd Sub2

14、1、下列程序段的执行结果为I=4x=5Do I=I + 1 x=x + 2Loop Until I=7Print I=; I;Print x=; xA) I4 x5 B) I7 x15C) I6 x8 D) I7 x1122、下列程序段的执行结果为a=1b=5Do a=a + b b=b + 1Loop While a 60 Then I=1If a 70 Then I=2If a 80 Then I=3If a 90 Then I=4Print I=; IA) I1 B) I2C) I3 D) I424、有如下事件过程：Private Sub Command1_Click() b=10 Do

15、 Until b=-1 a=InputBox(请输入a的值) a=Val(A) b=InputBox(请输入b的值) b=Val(b) a=a * b Loop Print aEnd Sub程序运行后，依次输入数值30，20，10，1，输出结果为A) 6000 B) -10C) 200 D) -600025、下面程序段执行结果为x=Int(Rnd() + 3) Select Case x Case 5 Print excellent Case 4 Print good Case 3 Print pass Case Else Print failEnd SelectA) excellent B)

16、 goodC) pass D) fail26、定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则A) 每次调用此过程，该过程中的局部变量都会被重新初始化B) 在本过程中使用到的，在其他过程中定义的变量也为Statci型C) 每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值D) 定义了该过程中定义的局部变量为自动变量27、单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=50: y=78 Call PPP(x,

17、 y) Print x; yEnd SubPublic Sub PPP(ByVal n As Integer, ByVal m As Integer) n=n 10 m=m 10End SubA) 0 8 B) 50 78C) 4 50 D) 78 5028、单击按钮时，以下程序运行后的输出结果是Private Sub proc1(x As Integer, y As Integer, z As Integer) x=3 * z y=2 * z z=x + yEnd SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer,

18、z As Integer x=1: y=2: z=3 Call proc1(x, x, z) Print x; x; z Call proc1(x, y, y) Print x; y; yEnd Sub A) 6 6 12 6 10 10 B) 9 5 10 5 10 10 C) 9 6 12 9 10 15 D) 9 10 10 5 4 1029、单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click() Print MyFund(20, 18) End SubPublic Function MyFund(m As Integer, n As Integer

19、) As Integer Do While m n Do While m n: m=m - n: Loop Do While m y, x, y) End Function程序运行后，单击命令按钮，输出结果为A) 1 B) 2C) 5 D) 831、执行下面的程序段，x的值为 【7】 。10Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox xEnd Sub32、下列程序段的执行结果为a=5For k=1 To 0 a=a + kNext kPrint k; aA) -1 6 B) -1 16C) 1

20、 5 D) 11 2133、下列程序段的执行结果为a=3b=1For I=1 To 3 f=a + b a=b b=f Print f;Next IA) 4 3 6 B) 4 5 9C) 6 3 4 D) 7 2 834、下列程序段的执行结果为I=9x=5Do I=I + 1 x=x + 2Loop Until I =7Print I=; I，Print x=; xA) I4 x5 B) I7 x15C) I6 x8 D) I10 x735、以下程序段运行时从键盘上输入字符-，则输出结果为op$=InputBox(op=) If op$=+ Then a=a + 2If op$=- Then

21、a=a - 2Print aA) 2 B) -2C) 0 D) +236、以下程序段的输出结果为Dim l, a(10) , p(3) k=5For i=0 To 10 a(i) =iNext iFor i=0 To 2 p(i) =a(i*(i + 1) ) Next iFor i=0 To 2 k=k + p(i)2Next iPrint kA) 20 B) 21C) 45 D) 3237、下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=12: y=20 Call Value(x, y) Pri

22、nt x; yEnd SubPrivate Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; nEnd SubA) 20 12 20 15 B) 12 20 12 25C) 24 15 12 20 D) 24 12 12 1538、在窗体上画一个命令按钮，然后编写下列程序Private Sub Command1_Click() Tcl 2 Tcl 3 Tcl 4End SubSub Tcl(a As Integer) Static x As Integer x=x + a Print x;En

23、d Sub程序运行后，单击命令按钮，输出结果为A) 2 3 4 B) 2 5 9C) 3 5 4 D) 2 4 339、下面程序段，运行后的结果是Private Sub Command1_Click() Dim b%(1 To 4) , i%, t#Private Sub Command1_Click() For i=1 To 4 b(i) =i Next i t=Tof(b() ) Print t=; t,End SubFunction Tof(a() As Integer) Dim t#, i% t=1 For i=2 To UBound(A) t=t * a(i) Next i Tof=

24、tEnd FunctionA) t18 B) t24C) t30 D) t3240、单击按钮时，以下程序运行后的输出结果是Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x=1: y=2: z=3 Call God(x, x, z) Print x; x; z Call God(x, y, y) Print x; y; yEnd SubPrivate Sub God(x As Integer, y As Integer, z As Integer) x=3 * z + 1 y=2 * z z=x

25、 + yEnd SubA) 6 6 12 7 11 11B) 8 5 10 5 11 11C) 9 6 12 9 10 15D) 8 10 10 5 9 1041、下列程序段的执行结果为X=2Y=5If X * Y 0A) True B) FalseC) -1 D) 142、执行下列程序后，鼠标单击窗体，输出结果为 。Private Sub Form_Click() Print Click;End SubPrivate Sub Form_MouseDown(Button As Integer, Shift _ As Integer, X As Single, Y As Single) Print Donw;End SubPrivate Sub Form_MouseUp(Button As Integer, Shift _ As Integer, X As Single, Y As Single) Print Up;End SubA) DownUpClick B) ClickDownUp C) DownClickUp D) UpDownClick43、下面程序段的运行结果是a=1b=1D