计算机二级VB(3)

等级考试辅导二级VisualBasic第三讲VB控制结构-循环第5章列表框、组合框2第6章当循环控制结构3第6章Do循环控制结构4第6章常用算法5第6章For循环控制结构1循环变量=终值循环变量=初值循环体有ExitFor语句循环体TrueFalseFalseTrue循环结束循环变量=循环变量＋步长步长为正数的For循环流程图P60-考点3For循环控制结构For循环变量=初值To终值[step步长]循环语句块[ExitFor]Next[循环变量]Fori=1To2step1Form1.PrintiNextiFori=1To2step1Form1.PrintiNextii=1i=2TrueP60-考点3For循环控制结构Fori=1To2step1Form1.PrintiNextii=1i=2Form1.PrintiTrueP60-考点3For循环控制结构Fori=1To2step1Form1.PrintiNextii=1i=2Form1.PrintiTruei=i+1P60-考点3For循环控制结构Fori=1To2step1Form1.PrintiNextii=1i=2Form1.PrintiTruei=i+1P60-考点3For循环控制结构Fori=1To2step1Form1.PrintiNextii=1i=2Form1.PrintiTruei=i+1False退出循环P60-考点3For循环控制结构For循环的应用•累加•阶乘sum=0Fori=1To10sum=sum+iNextifact=1Fori=1To10fact=fact*iNexti累加和变量置初值0可省略累乘积变量置初值1不可省P60例42005年4月选择题第23题[真题]执行以下程序段:DimiAsInteger,xAsIntegerx=0Fori=20To1Step-2x=x+i\5NextPrintx后，x的值为______。（A）16（B）17（C）18（D）19在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=0To50i=i+3n=n+1Ifi10ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（）（A）5（B）4（D）2P674题2006年9月选择题第19题（C）3在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=IIfi=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为______。（A）9P687题2005年4月选择题第21题（B）6（C）12（D）15第五章常用标准控件1列表框2组合框P41第五章考点8列表框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.【】Text1.TextEndSubPrivateSubCommand2_Click()List2.AddItem【】EndSubP41考点8列表框ListBox设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是：(A)PrivateSubCommand1_Click()List1.ClearEndSub(B)PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSub(C)PrivateSubCommand1_Click()List1.RemoveltemList1.ListIndexEndSub(D)PrivateSubCommand1_Click()List1.RemoveltemEndSubP427题2007年9月选择题第19题上机真题•捷成8-3P80-上机真题7.1【例】捷成26-3上机例题1【例】捷成44-1在标题为“列表框”、名称为Form1的窗体上画一个名称为List1列表框，通过属性窗口输入四个列表项：“数学”、“语文”、“历史”、“地理”，列表项采用“复选框形式”，如图所示。列表框的宽为1100，高不限。P42-考点9组合框1.组合框属性列表框的属性基本上都可用于组合框，此外它还有自己的一些属性。（1）Style：用于设置组合框的类型。为0—DropDownCombo时，称下拉式组合框，可输入文本，也可进行选择；为1—SimpleCombo时，称简单组合框，由一个编辑区和一个列表框组成；为2—DropDownList时，称下拉式列表框，可进行选择，不可输入文本。（2）Text：用于读出所选择项目的文本或直接从编辑区输入的文本。5.5选择控件—组合框2.组合框事件组合框可接收的事件包括Click、DblClick、DropDown和Change。3.组合框方法与列表框相同。RemoveItemClearAddItem07年4月真题设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是：A.Combo1.RemoveItemCombo1.textB.Combo1.RemoveItem4C.Combo1.RemoveItemCombo1.ListCountD.Combo1.RemoveItem5上机例题1【例】捷成2-3列表框上机考察总结•属性List()、ListCount、ListIndex、Text、Selected()、MultiSelect•方法AddItem、RemoveItem、Clear•添加/删除列表项•获得选中项的内容或索引值课堂练习•8-3•26-3条件性循环While循环条件性循环Do循环P61-考点4当循环控制结构一、当循环控制结构的格式While…Wend例：从键盘输入若干学生的成绩，直到输入无效成绩（低于0分或高于100）终止，按成绩划分等级，并统计学生总人数及各个等级的学生人数。成绩分为五类：90分～100分为优秀、80分～89分为良好、70分～79分为中等、60分～69分为及格、0分～59分为不及格。score=Val(InputBox(请输入成绩))Whilescore=0Andscore=100WendIfscore=90Theny=y+1ElseIfscore=80Thenl=l+1ElseIfscore=70Thenz=z+1ElseIfscore=60Thenj=j+1Elseb=b+1EndIftotal=total+1score=Val(InputBox(请输入成绩))6.为计算1+3+5+……+99的值，某人编程如下（2007年4月选择题27题）k=1s=0Whilek=99k=k+2s=s+kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（）(A)While…Wend循环语句错误，应改为Fork=1To99…Nextk(B)循环条件错误，应改为Whliek99(C)循环前的赋值语句k=1错误，应改为k=0(D)循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2P61-历年真题P62-考点5Do循环控制结构Do…Loop循环控制结构Fori=1To2step1Form1.PrintiNextii=1DoWhilei=2Form1.Printii=i+1Loopi=1DoUntili2Form1.Printii=i+1Loopi=1DoForm1.Printii=i+1LoopWhilei=2i=1DoForm1.Printii=i+1LoopUntili2score=Val(InputBox(请输入成绩))Whilescore=0Andscore=100WendIfscore=90Theny=y+1ElseIfscore=80Thenl=l+1ElseIfscore=70Thenz=z+1ElseIfscore=60Thenj=j+1Elseb=b+1EndIftotal=total+1score=Val(InputBox(请输入成绩))DoWhilescore=0Andscore=100LoopDoUntilscore0Orscore100LoopDo…Loop循环控制结构思考：本题是否适合将条件写于Loop后？score=Val(InputBox(请输入成绩))DoIfscore0Orscore100ThenExitDoIfscore=90Theny=y+1ElseIfscore=80Thenl=l+1ElseIfscore=70Thenz=z+1ElseIfscore=60Thenj=j+1Elseb=b+1EndIftotal=total+1score=Val(InputBox(请输入成绩))LoopDo…Loop循环P62-历年真题7.设有如下程序：（2005年4月选择题第32题）PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox(请输入一个整数)DoWhiled0IfdcThenc=c+1EndIfd=InputBox(请输入一个整数)LoopPrintc+dEndSub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。（A）12（B）11（C）10（D）98.设有如下程序：（2005年4月填空题第9题）PrivateSubForm_Click()DimnAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen0PrintsEndSub以上程序的功能是。程序运行后，单击窗体出结果为_________。P63-历年真题上机例题2【例3.2】捷成33-4求素数算法Fori=2Ton-1IfnModi=0ThenExitForEndIfNextiIfin-1ThenPrintn;是质数EndIfi=2DoWhilei=n-1IfnModi=0ThenExitDoEndIfi=i+1LoopIfin-1ThenPrintn;是素数EndIf判断素数：依次取[2,n-1]范围内数据与待判定数据n取余，若余数为0，即终止，并判定n不为素数，否则若该范围内所有数据均不能整除n，则n为素数素数：只能被1和它自身整除的整数求素数算法Fori=2Ton-1IfnModi=0ThenExitForEndIfNextiIfin-1ThenPrintn;是质数EndIfi=2DoWhilei=n-1IfnModi=0ThenExitDoEndIfi=i+1LoopIfin-1Then