二级VB考试系统第3次课循环14学时课件

2010年9月等级考试辅导二级VisualBasic第三讲VB控制结构-循环列表框、组合框2当循环控制结构3Do循环控制结构4常用算法6For循环控制结构1多重循环5考点3For循环控制结构For

循环变量=初值To

终值[step

步长]

循环语句块

[ExitFor]Next[循环变量]Fori=1To2step1

Form1.PrintiNextiFori=1To2step1

Form1.PrintiNextii=1i<=2Form1.PrintiTrue考点3For循环控制结构Fori=1To2step1

Form1.PrintiNextii=1i<=2Form1.PrintiTruei=i+1考点3For循环控制结构Fori=1To2step1

Form1.PrintiNextii=1i<=2Form1.PrintiTruei=i+1考点3For循环控制结构For循环的应用累加阶乘sum=0Fori=1To10

sum=sum+iNextifact=1Fori=1To10

fact=fact*iNexti累加和变量置初值0可省略累乘积变量置初值1不可省2005年4月选择题第23题[真题]执行以下程序段: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：列出表项的内容。ListCount：读出列表框中表项的总数.ListIndex：读出被选中表项的序号.MultiSelect：设置多选属性。Selected：列出表项的选择状态。SelCount：读出被选中表项的总数。Sorted：控制表项是否排序。Style：设置控件外观。Text：选中表项的文本.列出列表项中的所有项目List是个字符组，可以通过下标访问列表项目例：Text1.Text=List1.List(2)

可以改变列表中的某一项例：List1.List(0)=“成都”事件和方法含义Click/DbClick列表框的单击/双击事件AddItem向列表框插入一行文本Clear清除列表框中所有项目RemoveItem用于清除指定表项内容列表框名.AddItem字符串[,下标]列表框名.Clear列表框名.RemoveItem下标PrivateSubCommand1_Click()List1.【1】Text1.TextEndSubPrivateSubCommand2_Click()List2.AddItem【2】EndSubP41考点8列表框ListBox上机教程P86-真题7.1【例】捷成26-3

界面如下图所示，编写适当的事件过程，使程序运行后，如果单击“添加项目”命令按钮，则从键盘上输入要添加到列表框中的项目（内容任意，不少于三个）；如果单击“删除项目”命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。但这个程序不完整，请把它补充完整。上机真题捷成8-31）利用属性窗口向列表框添加四个项目：VisualBasic，TurboC，C++，Java；2）请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1，然后单击“确定”命令按钮，则文本框中显示“XXX笔试”；当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。上机真题【例】捷成44-1在标题为“列表框”、名称为Form1的窗体上画一个名称为List1列表框，通过属性窗口输入四个列表项：“数学”、“语文”、“历史”、“地理”，列表项采用“复选框形式”，如图所示。列表框的宽为1100，高不限。5.5选择控件—组合框2.组合框事件组合框可接收的事件包括Click、DblClick、DropDown和Change。3.组合框方法与列表框相同。RemoveItemClearAddItem上机教程P94-练习7.1【例】捷成2-3程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中（可在Text1中修改），并使“确定”按钮可用；若单击“确定”按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。本题可以不使用文本框，向Combo1中添加项目应该如何实现？条件性循环While循环条件性循环Do循环While…Wend例：从键盘输入若干学生的成绩，直到输入无效成绩（低于0分或高于100）终止，按成绩划分等级，并统计学生总人数及各个等级的学生人数。成绩分为五类：90分～100分为优秀、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在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（）(A)

While

…Wend循环语句错误，应改为For

k=1

To

99

…Next

k(B)

循环条件错误，应改为Whlie

k<99(C)

循环前的赋值语句k=1错误，应改为k=0(D)

循环中两条赋值语句的顺序错误，应改为s=s+k

:

k=k+22007年4月选择题27题解题思路：1.查找出错位置①检查前1个数和后1个数是否参加运算；②有无多余的数参加运算。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循环控制结构思考：本题是否适合将条件写于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循环2007年4月选择题27题设有如下程序：PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("请输入一个整数")LoopPrintc+dEndSub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。（A）12（B）11（C）10（D）9For的循环嵌套考点6多重循环Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextii1X＝X+1执行的次数为5×5次X＝X+1执行的次数为1＋2＋3＋4＋5次For的循环嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextix=1x=1考点6多重循环For的循环嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextix=1x=1考点6多重循环For的循环嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextiy=y+1y=y+1考点6多重循环考点7常用算法判断素数循环常考算法求最大公约数最小公倍数上机考试出现概率较高求素数算法Fori=2Ton-1IfnModi=0Then

ExitFor

EndIfNextiIf

i>n-1

ThenPrintn;"是质数"EndIfi=2DoWhilei<=n-1IfnModi=0ThenExitDoEndIfi=i+1LoopIfi>n-1ThenPrintn;"是素数"EndIf判断素数：依次取[2,n-1]范围内数据与待判定数据n取余，若余数为0，即终止，并判定n不为素数，否则若该范围内所有数据均不能整除n，则n为素数素数：只能被1和它自身整除的整数求素数算法Fori=2Ton-1IfnModi=0Then

ExitFor

EndIfNextiIf

i>n-1

ThenPrintn;"是质数"EndIfi=2DoWhilei<=n-1IfnModi=0ThenExitDoEndIfi=i+1LoopIfi>n-1ThenPrintn;"是素数"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;"是质数"EndIf求素数算法flag=Truei=2DoWhilei<=n-1AndflagIfnModi=0Then

flag=FalseEndIfi=i+1LoopIfflagThenPrintn;"是质数"EndIf如何判断某一范围或指定一组数据内的素数？上机真题在窗体上有一个命令按钮和一个列表框。程序运行后，单击命令按钮，即可在列表框中添加200~500范围内所有的素数。请编写程序。Fori=200To500Fo