Vb考试程序实验2-2（利用msgbox显示错误信息）PrivateSubCommand1_Click()IfVal(text1)<0ThenMsgBox("出错信息")text1.Text=""text1.setfocuseElsetext2=3.14*vai(text1)*Val(text1)EndIfEndSubPrivateSubtext1_lostfocus()IfNotIsNumeric(text1)ThenMsgBox("非法字符")text1.Text=""text1.setfocuseEndIfEndSubPrivateSubCommand2_Click()IfVal(text1)<0ThenMsgBox("出错信息")text1.Text=""text1.setfocuseElsetext3=2*3.14*vai(text1)*Val(text1)EndIfEndSub实验3-3（将x,y,z排大小）PrivateSubCommand1_Click()a=Val(text1.Text)b=Val(text2.Text)c=Val(text3.Text)Ifa>bThent=a:a=b:b=cEndIfIfb>cThent=a:b=c:c=sEndIfIfa>bThent=a:a=b:b=tEndIftext4=a&"<"&"<"&cPrintEndSub实验4-7（求sn=a+aa+aaa……）PrivateSubForm_click()a=Int(Rnd*9+1)b=Int(Rnd*6+5)Print"当a=";a,"n=";n;"时"Print"s="temp=0s=0Fori=1Tontemp=temp*10+as=s+tempIfi=1ThenPrinttemp;ElsePrint"+"tempNextiPrint"=";sEndSub实验5-2(统计各分数段人数)Dimi%,mark(1To20)AsInteger,s(5To9)PrivateSubCommand1_Click()Fori=1To20mark(i)=Int(Rnd*101)Printmark(i);IfiMod5=0ThenPrintNextiEndSubPrivateSubCommand2_Click()Fori=1To20k=mark(i)\10SelectCasekCase0Toss(5)=s(5)+1Case9To10s(9)=s(9)+1Case6To7s(7)=s(7)+1Case7To8s(8)=s(8)+1EndSelectNextipicture1.Print"s(5)的人数有";s(5)picture1.Print"s(5)的人数有";s(6)picture1.Print"s(5)的人数有";s(7)picture1.Print"s(5)的人数有";s(8)picture1.Print"s(5)的人数有";s(9)EndSub实验7-4（字母排序）PrivateSubForm_Load()list1.AddItem"ibm"list1.AddItem"hp"list1.AddItem"apple"list1.AddItem"canon"list1.AddItem"digital"list1.AddItem"ager"list1.AddItem"bcr"list1.AddItem"compag"EndSubPrivateSublist1_dbl(click)list2.AddItemlist1list1.removeitemlist1.listindexEndSub