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
(未完待续）