UC知道VB程序填空 关于过程函数
来源：百度知道 编辑：UC知道 时间：2024/06/05 11:35:51
编写过程delestr(s1,s2)将S1中出现的字符串S2删去 结果存放在S1中
例如 S1="12345" S2="123" 则输出"45"
Public Function delestr(__________) As String
Dim s As String, m%, n%, k%
m = Len(s2)
Do While InStr(s1, s2) > 0
k = Len(s1)
n = InStr(s1, s2)
s = Left(s1, n - 1) ____________
s1 = s
Loop
_______________
Private Sub Form_Click()
Dim s1 As String, s2 As String, s As String
s1 = Text1.Text
s2 = Text2.Text
s = delestr(____________)
Text3.Text = s
End Sub
End Function
还有啊 谁能帮我仔细讲讲FUNCTION和SUB的用法?!
最后一个END FUNCTION应该在下面PRIVATR SUB之前 打错了
例如 S1="12345" S2="123" 则输出"45"
Public Function delestr(__________) As String
Dim s As String, m%, n%, k%
m = Len(s2)
Do While InStr(s1, s2) > 0
k = Len(s1)
n = InStr(s1, s2)
s = Left(s1, n - 1) ____________
s1 = s
Loop
_______________
Private Sub Form_Click()
Dim s1 As String, s2 As String, s As String
s1 = Text1.Text
s2 = Text2.Text
s = delestr(____________)
Text3.Text = s
End Sub
End Function
还有啊 谁能帮我仔细讲讲FUNCTION和SUB的用法?!
最后一个END FUNCTION应该在下面PRIVATR SUB之前 打错了
Public Function delestr(byval s1 as string ,byval s2 as string) As String
Dim s As String, m%, n%, k%
m = Len(s2)
Do While InStr(s1, s2) > 0
k = Len(s1)
n = InStr(s1, s2)
s = Left(s1, n - 1) &Right(s1,(k-n-m+1))
s1 = s
Loop
___delestr=s1____________
End Function
Private Sub Form_Click()
Dim s1 As String, s2 As String, s As String
s1 = Text1.Text
s2 = Text2.Text
s = delestr(_s1,s2___________)
Text3.Text = s
End Sub