1. 首頁 > 生活 > >

vb簡單編程代碼 vb初學者編程代碼基礎

小知識vb簡單編程代碼

【vb簡單編程代碼 vb初學者編程代碼基礎】


文章插圖
vb簡單編程代碼 vb初學者編程代碼基礎

文章插圖
1、下列代碼，則是對邏輯運算不清楚造成If A=true ThenC= Not BElseC= BEnd If　可以：C=A XOR B2、如果加上下列代碼：If C=true thenD=28ElseD=29End IFD=Iif((A XOR B),28,29)3、布爾賦值，常被人忽略,如：If A= 13 thenB=TrueElseB=FalseEnd If　可以：B = A = 13　或者：B = (A = 13)　我更喜歡用后者，這樣代碼易于看懂 。4、字串有效性檢測：If IsNull(StrOrg) or StrOrg=”” then　可以：If Len(StrOrg & “”)<>0 then5、字串重復次數RepeatCount=Ubound(Split(StrOrg,StrFind))　同樣，如果要對字串有效性判斷：RepeatCount=Iif((Len(StrOrg & “”)=0), 0, Ubound(Split(StrOrg,StrFind))6、有時需要判斷字串數組中是否有這一元素，這時最好不用數組，而用分隔符字串,于是：If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then　則表明，此元素不存在 。7、對數組初始化,最好用變體，這樣，也是一行語句,如：IntArr=Array(12,28,29,30,31,52,24,60)　注意，此時需要用變量后綴 。上面代碼，如要定義為長整型，則IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)　要將IntArr 定義為變體8、判斷大?。篒ntMax = Iif((IntA > IntB), IntA, IntB)IntMin = Iif((IntA < IntB), IntA, IntB) 9、按索引的Select Case Function GetChoice(Ind As Integer) GetChoice = Choose(Ind, “Speedy”, “United”, “Federal”) End Function 10、按表達式的Select Case(這種轉換要求不能有Case Else的才可以這樣，否則會出錯) Function MatchUp (CityName As String) Matchup =tch(CityName = “London”, “English”, CityName _ = “Rome”, “Italian”, CityName = “Paris”, “French”) End Function 11、使用Iif，前面已有 Function CheckIt (TestMe As Integer) CheckIt = IIf(TestMe > 1000, “Large”, “Small”)End Function12、字串動態數組是否已初始化If Len(Join(StrArr))=0 then　字串動態數組未初始化 。13、指定只讀CombBox的當前值，如果能確認這個值就在其中，一定不會錯，則：Combbox=CurValue　注意，不可以寫成：Combbox.text=CurValue　前者實際是寫 _default 這個屬性，而后者則是寫Text 因為只讀，則會導致錯誤14、如果有下列代碼：Select Case CombBox.textCase “London”Call FuncStrLang(3)Case “Rome”Call FuncStrLang(5)……End Select　則可以用ItemData屬性,即：“London” 的 Itemdata=http://www.mnbkw.com/jxjc/178160/3“Rome” 的 Itemdata=5　于是：Call FuncStrLang(CombBox.ItenData)15、如果有下列代碼：Select Case CombBox.textCase “London”Call ClsCity.CityIntr_LondonCase “Rome”Call ClsCity.CityIntr_Rome……End Select　只要：CallByName ClsCity, “CityIntr_” & CombBox.text, vbMethod16、復制數組到另一變量中：Dim iOrgArr(30) as IntegerDim iDesArr as Variant……iDesArr = iOrgArr　即主變體直接取數組指針，則所有元素都復制了過去 。17、如果有下列代碼：Do While Not RsAdo.EofIf len(DesStr)<>0 thenDesStr=DesStr & VbTabEnd ifDesStr=RsAdo!Rec_idRsAdo.MoveNextloop