2013VB上机题库答案

《2013VB上机题库答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一套一、基础：privatesubcombo1_click()selectcasecombo1.listindexcase0Text2.Text=UCase(Text1.Text)case1Text2.Text=LCase(Text1.Text)case2Text2.text=Len(Text1.Text)endselectEndSubPrivatesubform_load()combo1.AddItem"小写转大写"combo1.AddItem"大写转小写"combo1.AddItem"测长度"EndSub二、Dima(5,5)AsInteger,IAsIntege

2、r,JAsIntegerPrivateSubC1_Click()forI=1to5forJ=1to5a(I,J)=0IfI=JorI+J=6thena(I,J)=1Printa(I,J);NextIEndsubPrivateSubC2_Click()Callputdata("kssj.dat",a)Endsub三、综合：IfiModk=0ThenIfSun=iThen第二套一、privatesubcommand1_click()commondialog1.showopenimage1.picture=loadpicture(commondialog1.filename)

3、endsubprivatesubhscroll1_scroll()image1.with=hscroll1.valueendsub二、简单应用dimmasinteger,iasinteger,sassingle,tassingleprivatesubcommand1_click()s=0forn=1to100t=0fori=1tont=t+inextis=s+tnextntext1.text=sendsubprivatesubcommand2_click()callputdata("kssj.dat",s)endsub三、综合应用a=i+jifsqr(a)=int(sq

4、r(a))andsqr(b)=int(sqr(b))then7.privatesub退出_click()endendsubprivatesub计算_click()calculateendsub第三套一、PrivateSubForm_Load()Command2.Enabled=FalseCommand3.Enabled=FalseEndSubPrivateSubCommand1_Click()Command2.Enabled=trueCommand3.Enabled=trueEndSubPrivateSubCommand2_Click()Command1.Top=0Co

5、mmand1.Left=0EndSubPrivateSubCommand2_Click()Command1.Height=Command1.Height2Command1.Width=Command1.Width2IfCommand1.Width>Me.WidthThenMsgbox("对不起，按钮已经很大不能再放大")EndIfEndSub二、简单应用：PrivateSubCommand1_Click()DimsAsIntegerDimSumAsIntegerDimAveAsIntegerSum=0Ave=0Text1="":Text2=""getdataFori=1

6、To50List1.AddItemA(i)Sum=Sum+A(i)NextAve=Sum/50Fori=1To50IfA(i)maxThenIfFlag=0ThenEndcalculate第四套一、基础操作：PrivateSubOption1_Click()s=""nstr=Text1.Textm

7、=Len(Text1.Text)Fori=mTo1Step-1s=s&Mid(nstr,i,1)NextiText2.Text=sEndSubPrivateSubOption1_Click()Text2.Text=Text1.TextEndSub二、简单应用:PrivateSubCommand1_Click()DimiAsIntegergetdataFori=1To50List1.AddItemA(i)NextiEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsIntegerFori=1To