2010年9月等級考試輔導二級VisualBasic第三講VB控制結(jié)構(gòu)-循環(huán)列表框、組合框2當循環(huán)控制結(jié)構(gòu)3Do循環(huán)控制結(jié)構(gòu)4常用算法6For循環(huán)控制結(jié)構(gòu)1多重循環(huán)5考點3For循環(huán)控制結(jié)構(gòu)For

循環(huán)變量=初值To

終值[step

步長]

循環(huán)語句塊

[ExitFor]Next[循環(huán)變量]Fori=1To2step1

Form1.PrintiNextiFori=1To2step1

Form1.PrintiNextii=1i<=2Form1.PrintiTrue考點3For循環(huán)控制結(jié)構(gòu)Fori=1To2step1

Form1.PrintiNextii=1i<=2Form1.PrintiTruei=i+1考點3For循環(huán)控制結(jié)構(gòu)Fori=1To2step1

Form1.PrintiNextii=1i<=2Form1.PrintiTruei=i+1考點3For循環(huán)控制結(jié)構(gòu)For循環(huán)的應(yīng)用累加階乘sum=0Fori=1To10

sum=sum+iNextifact=1Fori=1To10

fact=fact*iNexti累加和變量置初值0可省略累乘積變量置初值1不可省2005年4月選擇題第23題[真題]執(zhí)行以下程序段:DimiAsInteger,xAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

NextPrintx后，x的值為______。（A）16（B）17（C）18（D）19在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click() Fori=0To50 i=i+3 n=n+1 Ifi>10ThenExitFor Next Text1.Text=Str(n)EndSub程序運行后，單擊命令按鈕，在文本框中顯示的值是（）（A）5（B）4 （D）22006年9月選擇題第19題（C）3第5章常用標準控件1列表框2組合框重點掌握√考點7列表框ListBox常用屬性Columns：確定列表框的顯示方式。List：列出表項的內(nèi)容。ListCount：讀出列表框中表項的總數(shù).ListIndex：讀出被選中表項的序號.MultiSelect：設(shè)置多選屬性。Selected：列出表項的選擇狀態(tài)。SelCount：讀出被選中表項的總數(shù)。Sorted：控制表項是否排序。Style：設(shè)置控件外觀。Text：選中表項的文本.列出列表項中的所有項目List是個字符組，可以通過下標訪問列表項目例：Text1.Text=List1.List(2)

可以改變列表中的某一項例：List1.List(0)=“成都”事件和方法含義Click/DbClick列表框的單擊/雙擊事件AddItem向列表框插入一行文本Clear清除列表框中所有項目RemoveItem用于清除指定表項內(nèi)容列表框名.AddItem字符串[,下標]列表框名.Clear列表框名.RemoveItem下標PrivateSubCommand1_Click()List1.【1】Text1.TextEndSubPrivateSubCommand2_Click()List2.AddItem【2】EndSubP41考點8列表框ListBox上機教程P86-真題7.1【例】捷成26-3

界面如下圖所示，編寫適當?shù)氖录^程，使程序運行后，如果單擊“添加項目”命令按鈕，則從鍵盤上輸入要添加到列表框中的項目（內(nèi)容任意，不少于三個）；如果單擊“刪除項目”命令按鈕，則從鍵盤上輸入要刪除的項目，將其從列表框中刪除。但這個程序不完整，請把它補充完整。上機真題捷成8-31）利用屬性窗口向列表框添加四個項目：VisualBasic，TurboC，C++，Java；2）請編寫適當?shù)某绦蛲瓿梢韵鹿δ埽寒斶x擇列表框中的一項和單選按鈕Option1，然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”；當選擇列表框中的一項和單選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中顯示“XXX上機”。其中“XXX”是在列表框中所選擇的項目。上機真題【例】捷成44-1在標題為“列表框”、名稱為Form1的窗體上畫一個名稱為List1列表框，通過屬性窗口輸入四個列表項：“數(shù)學”、“語文”、“歷史”、“地理”，列表項采用“復(fù)選框形式”，如圖所示。列表框的寬為1100，高不限。5.5選擇控件—組合框2.組合框事件組合框可接收的事件包括Click、DblClick、DropDown和Change。3.組合框方法與列表框相同。RemoveItemClearAddItem上機教程P94-練習7.1【例】捷成2-3程序的功能是：在運行時，如果選中組合框中的一個列表項，單擊“修改”按鈕，則把該項復(fù)制到Text1中（可在Text1中修改），并使“確定”按鈕可用；若單擊“確定”按鈕，則把修改后的Text1中的內(nèi)容替換組合框中該列表項的原有內(nèi)容，同時使“確定”按鈕不可用；若單擊“添加”按鈕，則把在Text1中的內(nèi)容添加到組合框中。本題可以不使用文本框，向Combo1中添加項目應(yīng)該如何實現(xiàn)？條件性循環(huán)While循環(huán)條件性循環(huán)Do循環(huán)While…Wend例：從鍵盤輸入若干學生的成績，直到輸入無效成績（低于0分或高于100）終止，按成績劃分等級，并統(tǒng)計學生總?cè)藬?shù)及各個等級的學生人數(shù)。成績分為五類：90分～100分為優(yōu)秀、80分～89分為良好、70分～79分為中等、60分～69分為及格、0分～59分為不及格。score=Val(InputBox("請輸入成績"))

Whilescore>=0Andscore<=100

WendIfscore>=90Theny=y+1ElseIfscore>=80Thenl=l+1ElseIfscore>=70Thenz=z+1ElseIfscore>=60Thenj=j+1Elseb=b+1EndIftotal=total+1score=Val(InputBox("請輸入成績"))為計算1+3+5+……+99的值，某人編程如下

k=1

s=0

While

k<=99

k=k+2

s=s+k

Wend

Print

s在調(diào)試時發(fā)現(xiàn)運行結(jié)果有錯誤，需要修改。下列錯誤原因和修改方案中正確的是（）(A)

While

…Wend循環(huán)語句錯誤，應(yīng)改為For

k=1

To

99

…Next

k(B)

循環(huán)條件錯誤，應(yīng)改為Whlie

k<99(C)

循環(huán)前的賦值語句k=1錯誤，應(yīng)改為k=0(D)

循環(huán)中兩條賦值語句的順序錯誤，應(yīng)改為s=s+k

:

k=k+22007年4月選擇題27題解題思路：1.查找出錯位置①檢查前1個數(shù)和后1個數(shù)是否參加運算；②有無多余的數(shù)參加運算。2.確定修改方案①直接確定法②按選項提示修改法score=Val(InputBox("請輸入成績"))Whilescore>=0Andscore<=100

WendIfscore>=90Theny=y+1ElseIfscore>=80Thenl=l+1ElseIfscore>=70Thenz=z+1ElseIfscore>=60Thenj=j+1Elseb=b+1EndIftotal=total+1score=Val(InputBox("請輸入成績"))DoWhilescore>=0Andscore<=100LoopDoUntilscore<0Orscore>100LoopDo…Loop循環(huán)控制結(jié)構(gòu)思考：本題是否適合將條件寫于Loop后？score=Val(InputBox("請輸入成績"))DoIfscore<0Orscore>100ThenExitDoIfscore>=90Theny=y+1ElseIfscore>=80Thenl=l+1ElseIfscore>=70Thenz=z+1ElseIfscore>=60Thenj=j+1Elseb=b+1EndIftotal=total+1score=Val(InputBox("請輸入成績"))

LoopDo…Loop循環(huán)2007年4月選擇題27題設(shè)有如下程序：PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("請輸入一個整數(shù)")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("請輸入一個整數(shù)")LoopPrintc+dEndSub程序運行后，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0，則輸出結(jié)果是______。（A）12（B）11（C）10（D）9For的循環(huán)嵌套考點6多重循環(huán)Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextii1X＝X+1執(zhí)行的次數(shù)為5×5次X＝X+1執(zhí)行的次數(shù)為1＋2＋3＋4＋5次For的循環(huán)嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextix=1x=1考點6多重循環(huán)For的循環(huán)嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextix=1x=1考點6多重循環(huán)For的循環(huán)嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextiy=y+1y=y+1考點6多重循環(huán)考點7常用算法判斷素數(shù)循環(huán)?？妓惴ㄇ笞畲蠊s數(shù)最小公倍數(shù)上機考試出現(xiàn)概率較高求素數(shù)算法Fori=2Ton-1IfnModi=0Then

ExitFor

EndIfNextiIf

i>n-1

ThenPrintn;"是質(zhì)數(shù)"EndIfi=2DoWhilei<=n-1IfnModi=0ThenExitDoEndIfi=i+1LoopIfi>n-1ThenPrintn;"是素數(shù)"EndIf判斷素數(shù)：依次取[2,n-1]范圍內(nèi)數(shù)據(jù)與待判定數(shù)據(jù)n取余，若余數(shù)為0，即終止，并判定n不為素數(shù)，否則若該范圍內(nèi)所有數(shù)據(jù)均不能整除n，則n為素數(shù)素數(shù)：只能被1和它自身整除的整數(shù)求素數(shù)算法Fori=2Ton-1IfnModi=0Then

ExitFor

EndIfNextiIf

i>n-1

ThenPrintn;"是質(zhì)數(shù)"EndIfi=2DoWhilei<=n-1IfnModi=0ThenExitDoEndIfi=i+1LoopIfi>n-1ThenPrintn;"是素數(shù)"EndIf[2,n-1]范圍可改為[2,sqr(n)]或[2,n\2]Sqr(n)Ifi>Sqr(n)thenSqr(n)Ifi>Sqr(n)thenFlag=TrueFori=2Ton-1IfnModi=0Then

Flag=False

EndIfNextiIf

Flag

ThenPrintn;"是質(zhì)數(shù)"EndIf求素數(shù)算法flag=Truei=2DoWhilei<=n-1AndflagIfnModi=0Then

flag=FalseEndIfi=i+1LoopIfflagThenPrintn;"是質(zhì)數(shù)"EndIf如何判斷某一范圍或指定一組數(shù)據(jù)內(nèi)的素數(shù)？上機真題在窗體上有一個命令按鈕和一個列表框。程序運行后，單擊命令按鈕，即可在列表框中添加200~500范圍內(nèi)所有的素數(shù)。請編寫程序。Fori=200To500Fo