Question

VB程序设计问题，提示为编译错误：必选参数。

Sub yx(ByVal zf$, ByRef count%)
Dim i%, l%
zf = Trim(zf)
l = Len(zf)
count = 0
For i = 1 To l
s = Mid(i, 1, 2)
If Asc(s) = 83 Then
count = count + 1
End If
Next i
End Sub

Private Sub Command1_Click()
Label3.Caption = yx(Text1.Text)
End Sub

这是我写的代码，不知道错在哪里了，望各位大神指教。谢谢。新手小白。

Answer 1

Sub yx(ByVal zf$, ByRef count%)

过程定义中有两个参数,而你在调用的时候只传递了一个参数Label3.Caption = yx(Text1.Text)

Text1.Text是一个参数