《[考试复习题库精编合集]二级VB上机题库15.docx》由会员分享，可在线阅读，更多相关《[考试复习题库精编合集]二级VB上机题库15.docx（4页珍藏版）》请在三一文库上搜索。
1、考试复习题库精编合集二级VB上机题库15考试复习题库精编合集二级VB上机题库151、【简答题】PrivateSubForm_Click()IfOption1.Value=TrueThenText1.Text=InputBox(请输入要添加的项目)List1.AddItem?EndIfIfOption2.Value=TrueThenText1.Text=InputBox(请输入要删除的项目)Fori=0To?IfList1.List(i)=?ThenList1.RemoveItem?EndIfNextiEndIfEndSub10分解析：PrivateSubForm_Click()IfOption
2、1.Value=TrueThenText1.Text=InputBox(请输入要添加的项目)List1.AddItemText1.TextEndIfIfOption2.Value=TrueThenText1.Text=InputBox(请输入要删除的项目)Fori=0ToList1.ListCount-1IfList1.List(i)=Text1.TextThenList1.RemoveItemiEndIfNextiEndIfEndSub2、【简答题】提供给考生的程序OptionBase1DimArr(100)AsInteger提供给考生的程序SubReadData()OpenApp.Path
3、&datain1.txtForInputAs#1Fori=1To100Input#1,Arr(i)NextiClose#1EndSub提供给考生的程序SubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&FilenameForOutputAs#1Print#1,NumClose#1EndSub10分解析：要求考生编写的程序DimSumAsInteger要求考生编写的程序PrivateSubRead_Click()ReadDataEndSub要求考生编写的程序PrivateSubCalc_Click()DimSAsStringSum=0F
4、ori=1To100IfArr(i)a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text)Fori=1To4arr2(i)=CInt(arr1(i)NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Te
5、xt4.Text=arr2(4)EndSub6、【简答题】10分解析：PrivateSubHScroll1_Change()Text1.Width=HScroll1.Value*1.2Text1.Height=Me.HScroll1.ValueEndSub7、【简答题】OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsIntegerStart=?(a)Finish=?(a)Fori=?To2Step-1Forj=1To?Ifa(j)?a(j+1)
6、Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text)Fori=1To4arr2(i)=CInt(arr1(i)NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=arr2(4)EndSub10
7、分解析：OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsIntegerStart=LBound(a)Finish=UBound(a)Fori=FinishTo2Step-1Forj=1Toi-1Ifa(j)a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text)Fori=1To4arr2(i)=CInt(arr1(i)NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=arr2(4)EndSub8、【简答题】10分解析：PrivateSubHScroll1_Change()Text1.FontSize=Form1.HScroll1.ValueEndSub 4 / 4