If A=true Then
C= Not B
Else
C= B
End If
C=A XOR B
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
If A= 13 then
B=True
Else
B=False
End If
B = A = 13
B = (A = 13)
If IsNull(StrOrg) Or StrOrg="" then
If Len(StrOrg & "")<>0 then
RepeatCount=Ubound(Split(StrOrg,StrFind))
RepeatCount=Iif((Len(StrOrg & "")=0), 0, Ubound(Split(StrOrg,StrFind))
If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
IntArr=Array(12,28,29,30,31,52,24,60)
IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)
Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function
Function MatchUp (CityName As String)
Matchup =tch(CityName = "London", "English", CityName _
= "Rome", "Italian", CityName = "Paris", "French")
End Function
Function CheckIt (TestMe As Integer)
CheckIt = IIf(TestMe > 1000, "Large", "Small")
End Function
If Len(Join(StrArr))=0 then
Combbox=CurValue
Select Case CombBox.text
Case "London"
Call FuncStrLang(3)
Case "Rome"
Call FuncStrLang(5)
......
End Select
"London" 的 Itemdata=3
"Rome" 的 Itemdata=5
Call FuncStrLang(CombBox.ItenData)
Select Case CombBox.text
Case "London"
Call ClsCity.CityIntr_London
Case "Rome"
Call ClsCity.CityIntr_Rome
......
End Select
CallByName ClsCity, "CityIntr_" & CombBox.text, vbMethod
Dim iOrgArr(30) as Integer
Dim iDesArr as Variant
......
iDesArr = iOrgArr
Do While Not RsAdo.Eof
If len(DesStr)<>0 then
DesStr=DesStr & VbTab
End if
DesStr=RsAdo!Rec_id
RsAdo.MoveNext
loop
DesStr=RsAdo.GetString()
联系客服