vb考試復(fù)習(xí)if語(yǔ)句.ppt

Msgbox函數(shù)與Inputbox函數(shù)a Inputbox函數(shù)用于讓用戶輸入數(shù)據(jù) 返回用戶輸入在數(shù)據(jù) 返回的數(shù)據(jù)是字符串類型 語(yǔ)句格式 inputbox s inputbox inputname hello world age val inputbox inputage age 25 b Msgbox函數(shù) 可以有返回值 也可以沒(méi)有 格式一 msgbox Callmsgbox 格式二 msgbox 3種基本的控制結(jié)構(gòu) 順序結(jié)構(gòu) Subform click DimkAsByte mAsByte nAsBytek 12m k 2n m 2PrintnEndSub 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) p53例3 1Privatesubcommand1 click dimxassinglex val inputbox 輸入X 計(jì)算分段函數(shù)的值 ifxthen else 選擇結(jié)構(gòu)功能 根據(jù)所給定的條件成立與否 來(lái)決定從多個(gè)分支中選擇執(zhí)行某一個(gè)分支的相應(yīng)操作 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) 實(shí)例p54例3 2Privatesubform click dimxassingle yassingledimtempassinglex val text1 text y val text2 text ifx ythentemp y y x x templabel1 caption x str x y str y Endsub 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) 塊IF語(yǔ)句格式 IfthenElseEndif DimnflagasintegerPrivatesubform click ifnflag 0thenform1 fontname 黑體 form1 forecolor vbrednflag 1elseform1 fontname 楷體 GB2312 form1 forecolor vbgreennflag 0endifform1 print 歡迎使用VB Endsub 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) 塊IF語(yǔ)句嵌套格式 IfthenElseifthenelseendifEndif 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) DimnflagasintegerPrivatesubform click ifnflag 0thenform1 forecolor vbrednflag 1elseifnflag 1thenform1 forecolor vbgreennflag 2elseform1 forecolor vbbluenflag 0endifendifform1 print 歡迎使用VB Endsub 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) DimnflagasintegerPrivatesubform click ifnflag 0thenform1 forecolor vbrednflag 1elseifnflag 1thenform1 forecolor vbgreennflag 2elseform1 forecolor vbbluenflag 0endifform1 print 歡迎使用VB Endsub 選擇結(jié)構(gòu)之一IF結(jié)構(gòu) 使用IF結(jié)構(gòu)注意 養(yǎng)成良好的語(yǔ)句書寫縮進(jìn)風(fēng)格 每個(gè)IF必須要有一個(gè)ENDIF與之配對(duì) 注意if elseif結(jié)構(gòu)中的情況 每一個(gè)ENDIf只與前面最近的還沒(méi)有與其它ENDIF配對(duì)的IF配對(duì) Privatesubform click Dimxassingle yassingleX val inputbox pleaseinputx Ifx 1thenIfx 3thenY x 3ElseY x 2EndifElseIfx 0thenY sqr x ElseY 0EndifEndifPrint y yEndsub 選擇結(jié)構(gòu)之二情況選擇結(jié)構(gòu) SelectcaseCaseCaseCase CaseelseEndselect PrivateSubcommand1 click DimnAsInteger sAsStringn Int Rnd 100 1SelectCasenCase88s 你中的是特等獎(jiǎng) Case8 18 38 58 68 78 98s 你中的是一等獎(jiǎng) Case31To50s 你中的是二等獎(jiǎng) CaseIs 30s 你中的