2002年春VB二级试卷(含答案)(2)

1. 执行下面的程序，单击窗体后在窗体上显示的内容是___14___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___10___。 Option Explicit Private Sub Form_Click()

Dim Sum As integer,i As Integer For i=7 To 4 Step -1

Select Case i Case 4,7

Sum=Sum+i 'A语句 Case 3,5

Sum=Sum+2 'B语句 Case Else

Sum=Sum+1 End Select

Next i

Print \

End Sub

2. 执行下面的程序，单击命令按钮Command1后，文本框Text1中的内容是___c：\\Program Files\\DevStudio\\VB___，文本框Text2中的内容是___VB5.exe___（函数InStr（Start，String1，String2）中Start参数表示每次搜索的起点）。 OPtion Explicit

Private Sub Command1_Click() Dim Path As String，Serach As String Dim Fp As String，Fn As String

Path=“c：\\Program Files\\DevStudio\\VB\\VB5.exe” Call Search_Path（Path，Fp，Fn） text1.text=FP text2.text=Fn

End Sub

Private Sub Search_Path(P As String,Fp As String，Fn As String)

Dim Ns As Long,Ct As Long

Ns=0 Do

Ct=Ns

Ns=InStr(Ct+1,P,\

Loop Until Ns=0 Fp=Left(P,Ct-1) Fn=Right(P,Len(P)-Ct)

End Sub

3. 执行下面的程序，当单击窗体时，窗体上显示内容的第一行是1 3 2___，第二行是1__12___2_。

Private Sub P1(x As Integer,ByVal y As Integer)

Static Z As Integer x=x+z: y=x-z: z=10-y

End Sub

Private Sub Form_Click()

Dim a As Integer,b As Integer,z As Integer a=1:b=3:z=2 call P1(a,b) print a,b,z call P1(b,a) print a,b,z

End Sub

4. 执行下面的程序，图片框第一行内容是 CBA ，图片框第一行内容是 ABC 。 Option Explicit

Private Sub Command1_Click() Dim S As String

S=\ Back S Picture1.Print

Picture1.Print S

End Sub

Private Sub Back(St As String)

If Len(St)>1 Then

Back(Right(St,Len(St)-1))

End if

Picture1.Print Left(St,1);

End Sub

(未完待续）

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2002年春VB二级试卷(含答案)(2)在线全文阅读。