资源描述：
《VB期末考试复习.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、VB期末考试复习1、判断分数等级（if….endif和selectcase）PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimscoreAsInteger'定义一个变量，保存分数的score=Integer.Parse(Me.TextBox1.Text)'下面开始判断分数等级Ifscore>100Orscore<0ThenMessageBox.Show("无效的分数")Exi
2、tSubElseIfscore=100ThenMessageBox.Show("满分！")ElseIfscore>=90ThenMessageBox.Show("优秀！")ElseIfscore>=80ThenMessageBox.Show("良好！")ElseIfscore>=60ThenMessageBox.Show("及格！")ElseMessageBox.Show("不及格！")EndIfEndSubEndClass例：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Obj
3、ect,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimscoreAsSingleTry'把可能出错的代码写在try的下面score=Single.Parse(Me.TextBox1.Text)SelectCasescoreCase100MessageBox.Show("满分")Case90To99MessageBox.Show("优秀")Case80To89MessageBox.Show("良好")Case60To79MessageBox.Show("及格")Case0To59MessageBox.Sh
4、ow("不及格")CaseElseMessageBox.Show("分数无效")EndSelectCatchexAsException'只要有错，就把错误信息显示出来 MessageBox.Show(ex.Message)EndTryEndSubEndClass2、for…next循环结构代码：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,sAsIntegerFori
5、=1To99Step2s=s+iNextMsgBox("1+3+...+99="&s)EndSub//求斐波那契级数PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDima,b,iAsLongDimtAsLongDimsAsStringa=1b=1s=a&","&b&","Fori=3To90t=a+bs=s&t&","IfiMod6=0Thens=s&Chr(10)EndIfa=bb=tNextMsgBox(
6、s)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'用数组来保存斐波那契级数Dimf(20)AsLongDimiAsInteger'定义字符串变量s,初始值为“空”；作用：把各个元素连接成一个字符串DimsAsString=""'定义字符串s，作用：把各个元素连接一个字符串f(1)=1f(2)=1'计算斐波那契级数，从第项开始算Fori=3To20f(i)=f(i-1)+f(i-2)NextFor
7、i=1To20s=s&f(i)&","'把各元素连接起来'下面控制一行输出多少个元素IfiMod5=0Thens=s&Chr(10)EndIfNext'显示结果MsgBox(s)EndSub//九九乘法表PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimiAsInteger,jAsIntegerDimsAsString=""Fori=1To9Forj=1Tois&=i&"*"&j&"="&i*j&","Ne
8、xts&=vbCrLfNextMsgBox(s)EndSubEndClass代码：Public
