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)在线全文阅读。
相关推荐: