高分请高手帮我解决一下VB问题，急！！！

来源：百度知道编辑：UC知道时间：2024/07/02 12:12:45

谁能帮我看看这里出现了什么问题！急急急急急！！！！
Option Explicit
Private Sub sesso()
Dim f, m As Byte
f = 0
m = 0
If LCase(txtsesso1.Text) = f Then
f = f + 1
ElseIf LCase(txtsesso1.Text) = m Then
m = m + 1
End If
If LCase(txtsesso2.Text) = f Then
f = f + 1
ElseIf LCase(txtsesso2.Text) = m Then
m = m + 1
End If
If LCase(txtsesso3.Text) = f Then
f = f + 1
ElseIf LCase(txtsesso3.Text) = m Then
m = m + 1
End If
lblrisultato.Caption = "I componenti maschili sono:" & m & " e i componenti femminili sono:" & f
End Sub
Private Function anziano(ByVal eta1, eta2, eta3 As Byte) As Integer
Dim magg As Byte
If eta1 > eta2 Then
magg = eta1
Else
magg = eta2
End If
If magg < eta3 Then
magg = eta3
End If
anziano = 2009 - magg
End Function
Private Function nome() As String
Dim nome1, nome2, nome3, min As Byte

nome

修改了几处：
1. 将原来的2处 Dim min As Byte 删除，放到了第二行，改为模块级变量；
2、将原来3个函数最后一个参数的 As Byte删除了；
修改后的代码如下：
Option Explicit
Dim min As Byte
Private Sub sesso()
Dim f, m As Byte
f = 0
m = 0
If LCase(txtsesso1.text) = f Then
f = f + 1
ElseIf LCase(txtsesso1.text) = m Then
m = m + 1
End If
If LCase(txtsesso2.text) = f Then
f = f + 1
ElseIf LCase(txtsesso2.text) = m Then
m = m + 1
End If
If LCase(txtsesso3.text) = f Then
f = f + 1
ElseIf LCase(txtsesso3.text) = m Then
m = m + 1
End If
lblrisultato.Caption = "I componenti maschili sono:" & m & " e i componenti femminili sono:" & f
End Sub
Private Function anziano(ByVal eta1, eta2, eta3) As Integer
Dim magg As Byte
If eta1 > eta2 Then
magg = eta1
Else
magg = eta2
End If
If magg < eta3 Then
magg = eta3
End If
anziano = 2009 - magg
End Function<

请高手帮我解决VB问题 vb高手请帮我解决一下这个问题急！高手请帮我解决。高分！请高手帮我解决一下电脑速度问题请高手们帮我解决一下问题吧！！请高手帮我解决一下电脑问题请高手来帮我解决一下电脑的问题高手!请帮我解决一下电脑问题！请高手帮我解决一下电脑的问题？请财务高手帮我解决一下问题！谢谢！