1、程序阅读（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+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是 DA) 10 5 B) 12 5 C) 10 7 D) 12 72、 在窗体上画一个名称为 Command1 的命令按钮，
2、然后编写如下事件过程：Private Sub Command1_Click()x=InputBox(“Input“)Select Case xCase 1,3Print “分支 1“Case Is 4Print “分支 2“Case ElsePrint “Else 分支 “End SelectEnd Sub程序运行后，如果在输入对话框中输入 2，则窗体上显示的是 CA） 分支 1 B） 分支 2 C） Else 分支 D) 程序出错3、执行下列程序段后，输出的结果是 CFor k1=0 To 4y=20For k2=0 To 3y=10For k3=0 To 2y=y + 10Next k3N
3、ext k2Next k1Print yA) 90B) 60C) 40D) 104、设有如下过程：Sub ff(x，y，z，) x=y+zEnd Sub 以下所有参数的虚实结合都是传址方式的调用语句是 BA) 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、下列程序段的执行结果为 Aa=1b=0Select Case aCase 1Select Case bCase 0Print “* *0* *“Case 1Print “* *1* *“End SelectCase 2Print “* *
4、2* *“End SelectA) * *0* *B) * * 1* *C) * *2* *D) 06、下面程序段执行结果为 Bx=Int(Rnd() + 4) Select Case xCase 5Print “excellent“Case 4Print “good“Case 3Print “pass“Case ElsePrint “fail“End SelectA) excellentB) goodC) passD) fail7、下列程序段的执行结果为 Ca=6For k=1 To 0a=a + kNext kPrint k; aA) -1 6B) -1 16C) 1 6D) 11 218
5、、下列程序段的执行结果为 Ba=1b=1For I=1 To 3f=a + ba=bb=fPrint f;Next IA) 2 3 6B) 2 3 5C) 2 3 4D) 2 2 89、单击命令按钮时，下列程序的执行结果为 APrivate Sub Command1_Click() Dim x As Integer, y As Integerx=12: y=32Call PCS(x, y) Print x; yEnd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer) n=n Mod 10m=m Mod 10End SubA) 1
6、2 32B) 2 32C) 2 3D) 12 310、单击一次命令按钮后，下列程序的执行结果是 CPrivate Sub Command1_Click() s=P(1) + P(2) + P(3) + P(4) Print sEnd SubPublic Function P(N As Integer) Static SumFor i=1 To NSum=Sum + iNext iP=SumEnd FunctionA) 15B) 25C) 35D) 4511、下列程序的执行结果为 APrivate Sub Command1_Click() Dim s1 As String, s2 As Stri
7、ngs1=“abcdef“Call Invert(s1, s2) Print s2End SubPrivate Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As Stringi=Len(xstr) Do While i =1tempstr=tempstr + Mid(xstr, i, 1) i=i - 1Loopystr=tempstrEnd SubA) fedcbaB) abcdefC) afbecdD) defabc12、阅读下列程序：BPrivate Sub Command1_Click() Dim i As
8、Integer, k As Integerk=2For i=1 To 3Print H(k) ;Next iEnd SubFunction H(j As Integer) a=0Static ba=a + 1b=b + 1H=a*b + jEnd Function程序运行后，单击命令按钮输出结果是A) 2 3 4B) 3 4 5C) 5 6 7D) 3 5 613、执行下列程序段后，输出的结果是 CFor k1=0 To 4y=20For k2=0 To 3y=10For k3=0 To 2y=y + 10Next k3Next k2Next k1Print yA) 90B) 60C) 40D
9、) 1014、下列程序段的执行结果为 Ca=6For k=1 To 0a=a + kNext kPrint k; aA) -1 6B) -1 16C) 1 6D) 11 2115、下列程序段的执行结果为 Ba=1b=1For I=1 To 3f=a + ba=bb=fPrint f;Next IA) 2 3 6B) 2 3 5C) 2 3 4D) 2 2 816、单击命令按钮时，下列程序的执行结果为 APrivate Sub Command1_Click() Dim x As Integer, y As Integerx=12: y=32Call PCS(x, y) Print x; yEnd
10、 SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer) n=n Mod 10m=m Mod 10End SubA) 12 32B) 2 32C) 2 3D) 12 317、单击一次命令按钮后，下列程序的执行结果是 CPrivate Sub Command1_Click() s=P(1) + P(2) + P(3) + P(4) Print sEnd SubPublic Function P(N As Integer) Static SumFor i=1 To NSum=Sum + iNext iP=SumEnd FunctionA)
11、 15B) 25C) 35D) 4518、下列程序的执行结果为 APrivate Sub Command1_Click() Dim s1 As String, s2 As Strings1=“abcdef“Call Invert(s1, s2) Print s2End SubPrivate Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As Stringi=Len(xstr) Do While i =1tempstr=tempstr + Mid(xstr, i, 1) i=i - 1Loopystr=tempstrEn
12、d SubA) fedcbaB) abcdefC) afbecdD) defabc19、 在窗体上画一个名称为 Commandl 的命令按钮，再画两个名称分别为Labell、Label2 的标签，然后编写如下程序代码： Private x As Integer Private Sub Commandl_Click() x5：y3 Call proc(x,y) LabeL1Caption x LabeL2Caption y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) xa* a y=b 十 b End Sub 程
13、序运行后，单击命令按钮，则两个标签中显示的内容分别是（ A ） 。A）25 3 B）25 9 C）5 3 D）5 920 、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=0Do Until x=-1a=InputBox(“请输入第一个数字 a 的值“) a=Val(A) b=InputBox(“请输入第二个数字 b 的值“) b=Val(b) x=InputBox(“请输入第三个数字 x 的值“) x=Val(x) a=a + b + xLoopPrint aEnd Sub21、下列程序段的执行结果为 DI=4x=5DoI=I + 1x=x + 2Loop Until I=7Print “I=“; I;Print “x=“; xA) I4 x5B) I7 x15C) I6 x8D) I7 x1122、下列程序段的执行结果为 Ba=1b=5Doa=a + bb=b + 1Loop While a 60 Then I=1If a 70 Then I=2If a 80 Then I=3If a nDo While m n: m=m - n: LoopDo While m y, x, y) End Function程序运行后，单击命令按钮，输出结果为 BA) 1B) 2
