VB程序設(shè)計經(jīng)典案例

VB程序設(shè)計經(jīng)典案例VB程序設(shè)計經(jīng)典案例VB程序設(shè)計經(jīng)典案例VB程序設(shè)計經(jīng)典案例編制僅供參考審核批準生效日期地址：電話：傳真:郵編:'-------------------------------------------------'題目：(事件)單擊窗體。'(響應(yīng))求從100到1000之間所有是3的倍數(shù)的數(shù)之'和，當(dāng)和大于3000時，停止計算并輸出和。請將結(jié)果輸'出到窗體上,并存入所給變量SUM中。使用for...next語'句完成程序'-------------------------------------------------DimsumAsIntegersum=0DimiAsIntegerFori=100To1000IfiMod3=0Thensum=sum+iEndIfIfsum>3000ThenExitForEndIfNextiPrintsum題目（事件）點擊窗體（響應(yīng)）求1！+2！+3！+…+10!的值，并在窗體上輸出，結(jié)果存入變量L中DimlaslongDimpaslongp=1Fori=1to10p=p*il=l+pnextiprintl3題目點擊窗體求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上，將結(jié)果存入變量sum中DimsumasintegerFori=0to100step2Sum=sum+iNextiPrintsum題目：單擊窗體求1+2+3+4+5+……………….+100的值并將結(jié)果輸入在窗體上，結(jié)果存入變量sum中Fori=0to100Sum=sum+iNextPrintsum題目雙擊窗體求1+5+10+15+……………..+500的和，并將結(jié)果輸出在窗體上，將結(jié)果存入變量sum中DimsumaslongSum=0Fori=0to500step5Sum=sum+iNextPrintsum'題目：(事件)單擊窗體。'(響應(yīng))求10~20之間所有素數(shù)的乘積并輸出在窗體上。'將結(jié)果存入變量L中'-------------------------------------------------'注意：請在指定的事件內(nèi)編寫代碼。'-------------------------------------------------DimlAsLongDimIasintegerDimjasintegerDimbasBooleanl=1B=TrueFori=10to20Forj=2toi-2Ifimodj=0thenb=falseEndifNextIfb=Truethenl=l*iEndifb=TrueNextPrintStr(1)'題目：：編寫函數(shù)fun其功能是:判斷一個整數(shù)w的各位'數(shù)字平方之和能否被5整除,可以被5整除則返'回1,否則返回0'-------------------------------------------------PrivateFunctionfun(wAsInteger)AsBoolean'**********Begin*********Dimkasinteger,sasintegerDos=s+(wmod10)*(wmod10)w=Int(w/10)Loopwhilew<>0Ifsmod5=0thenK=1ElseK=0EndifFun=k'**********End*************EndFunction題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制'成績mark（整數(shù)），顯示對應(yīng)五級制的評定。條件如下：'mark大于等于90顯示"優(yōu)秀"'mark小于90且大于等于80顯示"良好"'mark小于80且大于等于70顯示"中等"'mark小于70且大于等于60顯示"及格"'mark小于60顯示"不及格"'要求使用IF語句來實現(xiàn)。'-------------------------------------------------'-------------------------------------------------PrivateFunctionfun(markAsInteger)AsString'**********Begin**********ifmark>=90thenfun=”優(yōu)秀“Elseifmark>=80thenfun=”良好“elseifmark>=70thenfun=”中等“elseifmark>=60thenfun=”及格”elsefun=”不及格“endif'**********End**********EndFunction'題目：(事件)雙擊窗體。'(響應(yīng))求出100~200之間，能被5整除，但不能被3整除的數(shù)。'并求所有數(shù)之和，存入變量中SUM中'-------------------------------------------------PrivateSubForm_dblClick()DimsumAs