2010计算机等级考试辅导1.pptVIP

2.按地址传递时，形参变量值的改变即是对实参变量值的改变 Sub swap(a As Integer, b As Integer) t = a a = b b = t End Sub 调用： Dim x As Integer, y As Integer x = InputBox() y = InputBox() Print x= x; y= y Call swap(x, y) Print x= x; y= y End Sub 数组参数只有按地址传送这一种方式 12、常用考题讲解 在一个字符串中寻找“at”，统计其出现的次数 Dim str1 As String Dim length As Integer Dim sum As Integer, i As Integer str1 = InputBox(请输入字符串) length = i = 1: sum = 0 Do While i = length If = at Then sum = sum + 1 End If Loop If sum = 0 Then MsgBox 没有找到 Else MsgBox 找到” 个 End If Len(str1) Mid(str1, i, 2) i = i + 1 Str(sum) 计算子串s2在母串s1中匹配的次数 Dim s1 As String, s2 As String, num As Integer, i As Integer, dim pos As Integer num = 0 s1 = “it is a dog,but it is not a good dog! ”: s2=“dog“ For i = 1 To If pos 0 Then num = num + 1 Else Exit For End If Next i Len(s1) Pos=Instr(s1,s2) s1=right(s1,len(s1)-(pos+len(s2)+1) 把字符数组移动m个位置，当Tag为True左移，则前m个字符移到字符数组尾。当Tag为False时，则后m个字符移到数组前面。 Public Sub MoveStr(a$(), m%, Tag As Boolean) Dim i%, j%, t$, c$ If Tag Then For i = 1 To m c = a(0) for j=0 to ---1---- a(j) = a(j + 1) Next j -----2----- Next i Else For i = 1 To m ------3------ for j=Ubound(A) -----4---- a(j) = a(j - 1) Next j a(0) = c Next i End If End Sub Ubound(a)-1 A(Ubound(a))=c C=a(Ubound(a)) To 1 step-1 For i = 2 To-----1------- a(i) = a(i - 1) For j = -----2----- To 2 Step -1 a(j) = -------3----------- Next j Print Space((n - i + 1) * 2); For j = 1 To i s = -----4------- Print Space(Int((4 - Len(s)) / 2 + 0.5)) + s + Space(Int((4 - Len(s)) / 2 + 0.5)); Next j Print Next i End Sub Public Sub prt() Const n = 8 Dim a(n