[考試復習題庫精編合集]二級VB上機題庫13

1、考試復習題庫精編合集二級VB上機題庫13考試復習題庫精編合集二級VB上機題庫131、【簡答題】10分解析：PrivateSubCommand1_Click()Text1.Text=InputBox(請輸入身高)Text2.Text=InputBox(請輸入體重)EndSub2、【簡答題】10分解析：按要求解答即可3、【簡答題】OptionBase1DimsAsStringPrivateSubCommand1_Click()OpenApp.Path&in5.datForInputAs#1s=Input(LOF(1),#1)Close#1EndSubPrivateSubCommand2_Click

2、()DimnAsInteger,tAsString,word_numAsIntegern=Len(s):t=Fori=1Tonc=Mid(s,i,1)IfcThent=t+cElseIffoundhuiwen(t)Thenword_num=word_num+1EndIft=EndIfNextiText1.Text=word_numEndSub以下Function過程用于判斷字符串是否為回文Functionfoundhuiwen(pAsString)考生編寫10分解析：foundhuiwen=Truek=Len(p)Fori=1Tok/2IfMid(p,i,1)Mid(p,k+1-i,1)The

3、nfoundhuiwen=FalseExitForEndIfNextEndFunctionPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&out5.datForOutputAs#1Print#1,Text1.TextClose#1EndSub4、【簡答題】10分解析：PrivateSubC1_Click()Text1.PasswordChar=Me.Text1.PasswordChar=或Form1.Text1.PasswordChar=或C1.Parent.Text1.PasswordChar=EndSubPrivateSubC2_Cli

4、ck()Text1.PasswordChar=?Me.Text1.PasswordChar=?或Form1.Text1.PasswordChar=?或C2.Parent.Text1.PasswordChar=?EndSubPrivateSubC3_Click()C3.Parent.Text2.Text=Text1.Text在Text2和Text1的前面都可以加Me.或Form1.或C3.Parent.EndSubPrivateSubForm_Load()Text1.PasswordChar=*EndSub5、【簡答題】提供給考生的程序OptionBase1DimArr(100)AsIntege

5、r提供給考生的程序SubReadData()OpenApp.Path&datain1.txtForInputAs#1Fori=1To100Input#1,Arr(i)NextiClose#1EndSub提供給考生的程序SubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&FilenameForOutputAs#1Print#1,NumClose#1EndSub10分解析：要求考生編寫的程序DimSumAsInteger要求考生編寫的程序PrivateSubRead_Click()ReadDataEndSub要求考生編寫的程序Privat

6、eSubCalc_Click()DimSAsStringSum=0Fori=1To100IfiMod20ThenSum=Sum+Arr(i)S=S&Str(Arr(i)&EndIfNextiForm1.Text1.Text=SMe.PrintSum=;SumEndSub要求考生編寫的程序PrivateSubSave_Click()WriteDataDataOut.txt,SumEndSub6、【簡答題】PrivateSubCommand1_Click()Text1.Text=InputBox(請輸入要添加的項目)List1.AddItem?EndSubPrivateSubCommand2_Cl

7、ick()Text1.Text=InputBox(請輸入要刪除的項目)Fori=0To?IfList1.List(i)=?ThenIfList1.List(i)=Me.Text1.TextThenList1.RemoveItem?EndIfNextiEndSub10分解析：PrivateSubCommand1_Click()Text1.Text=InputBox(請輸入要添加的項目)List1.AddItemForm1.Text1.TextEndSubPrivateSubCommand2_Click()Text1.Text=InputBox(請輸入要刪除的項目)Fori=0ToForm1.Li

8、st1.ListCount-1IfList1.List(i)=Me.Text1.TextThenList1.RemoveItem?List1.RemoveItemiEndIfNextiEndSub7、【簡答題】10分解析：PrivateSubP1_Click()CD1.ShowOpen或Me.CD1.ShowOpen或Form1.CD1.ShowOpen或P1.Parent.CD1.ShowOpen或CD1.Action=1或Me.CD1.Action=1或Form1.CD1.Action=1或P1.Parent.CD1.Action=1EndSub8、【簡答題】10分解析：PrivateSu

9、bhide_Click()Text1.Visible=False或0或Me.Text1.Visible=False或0或Form1.Text1.Visible=False或0EndSubPrivateSubshow_Click()Text1.Visible=True或非0數(shù)值或Me.Text1.Visible=True或非0數(shù)值或Form1.Text1.Visible=True或非0數(shù)值EndSub9、【簡答題】10分解析：PrivateSubCommand1_Click()VScroll1.Min=100VScroll1.Max=2400VScroll1.LargeChange=200VSc

10、roll1.SmallChange=20EndSubPrivateSubVScroll1_Change()Picture1.Height=VScroll1.ValueEndSub10、【簡答題】OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsIntegerStart=?(a)Finish=?(a)Max=?(Start)Fori=StartToFinishIfa(i)?MaxThenMax=?NextiFindMax=MaxEndFunctionPrivateSubCom

11、mand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(?),Val(?),Val(?),Val(?)Fori=1To4arr2(i)=CInt(?)NextiM=FindMax(?)Print最大值是:;MEndSub10分解析：OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsIntegerStart=LBound(a)Finish=UBound(a)Max=a(Start)Fori=StartToFinishIfa(i)MaxThenMax=a(i)NextiFindMax=MaxEndFunctionPrivateSubCommand1_Clic