急急急，在线等待。(一道面试题)明天用

Question

Function GetAWife(ByRef GirlFirendName() As String) As String
    ...
GetAWife=GirlFirendName(根据你的条件选中的序号) 
End Function

Answer 1

如上,
调用时先声明数组变量.如
dim strName(10) as string
dim strWifeName as stringstrname(1)="adf"
...
strname(10)="23423"strwifename=GetAWife(strname)

Answer 2

Function GetAWife(ByRef GirlFirendName() As String) As String
dim Icount as integer
GetAWife=""
for icount=Lbound(GirlFirendName) to Ubound(GirlFirendName) 
    if (条件成立)  then
       GetAWife =GirlFirendName(icount)
       exit function
    endif
next
End Function

Answer 3

'请在窗体上增加一个Command1 按钮控件
on Explicit
Dim GirlsName(10) As StringFunction FindWife(ByRef GirlFriendName() As String) As String
    Dim i As Integer
    Dim ManName As String
    'Input ManName
    Do
        ManName = InputBox("请输入男人的名字，以免错误，请误必正确！", "男人的名字")
    Loop While ManName = ""
    
    For i = 0 To UBound(GirlFriendName)
        If IsWife(GirlFriendName(i), ManName) Then
            FindWife = GirlFriendName(i)
            Exit For
        End If
    Next
End FunctionFunction IsWife(GirlFriendName As String, ManName As String) As Boolean
    '月老程序
    If MsgBox(ManName & " 愿意娶 " & GirlFriendName & " 为妻吗", vbYesNo) = vbYes Then
        If MsgBox("为防止乱点鸳鸯谱，请再确认一次:" & vbCrLf & ManName & " 愿意娶 " & GirlFriendName & " 为妻吗", vbYesNo) = vbYes Then
            IsWife = True
        End If
    Else
        IsWife = False
    End If
End FunctionPrivate Sub Command1_Click()
    MsgBox FindWife(GirlsName)
End SubPrivate Sub Form_Load()
    GirlsName(0) = "相思"
    GirlsName(1) = "秋香"
    GirlsName(2) = "春兰"
    GirlsName(3) = "冬梅"
    GirlsName(4) = "雪莲"
    GirlsName(5) = "西施"
    GirlsName(6) = "貂禅"
    GirlsName(7) = "小乔"
    GirlsName(8) = "Alice"
    GirlsName(9) = "Mary"
    GirlsName(10) = "夏雨"
End Sub

Answer 4

snoweagle(雪鹰) :
不错有创意。请继续，先加50分。不过还不够继续努力

Answer 5

snoweagle(雪鹰) :
    注意变量，及控件的命脉名规则，哈哈哈。

Answer 6

我觉得这道题用随机数取比较和老板胃口！！
随机取GIRLFRIENDNAME数组里的一个！！！