精品文檔-下載后可編輯二級VB上機題庫9二級VB上機題庫9

第17套一、基本操作題

1.[10分]

2.[10分]

二、簡單應(yīng)用題

1.[10分]

2.[10分]

三、綜合應(yīng)用題

1.OptionBase1PrivateSubForm_Click()ConstN=5ConstM=5'Dim?Dimi,j,t'OpenApp.Path"\""datain.txt"?As#1Fori=1ToNForj=1ToM'?NextjNextiClose#1PrintPrint"初始矩陣為："PrintFori=1ToNForj=1ToMPrintTab(5*j);Mat(i,j);NextjPrintNextiPrintPrintFori=1ToNForj=1ToMt=Mat(1,j)Mat(1,j)=Mat(3,j)'?NextjNextiPrintPrint"交換第一行和第三行后的矩陣為："PrintFori=1ToNForj=1ToMPrintTab(5*j);Mat(i,j);NextjPrintNextiEndSub[10分]

第18套一、基本操作題

1.[10分]

2.[10分]

二、簡單應(yīng)用題

1.PrivatexAsIntegerPrivateSubCommand1_Click()x=Val(InputBox("請輸入正整數(shù)"))EndSubPrivateSubCommand2_Click()'SelectCaseCombo1.?Case0'MsgBoxStr(x)?Case1'MsgBoxStr(x)?CaseElseExitSubEndSelectEndSubPrivateFunctionf1(ByValxAsInteger)AsStringIfx\2x/2Thenf1="是奇數(shù)"Elsef1="是偶數(shù)"EndIfEndFunction'PrivateFunctionf2(ByValxAsInteger)?'IfxMod7=?Thenf2="能被7整除"Elsef2="不能被7整除"EndIfEndFunction[10分]

2.'PrivateFlagAs?PrivateSubForm_Click()IfFlagThenShape1.Top=Shape2.TopShape1.Left=Shape2.LeftFlag=Not(Flag)Else'Shape1.Top=Shape2.Top+Shape2.Height-?'Shape1.Left=Shape2.Left+Shape2.Width-?Flag=Not(Flag)EndIfEndSubPrivateSubForm_Load()Flag=TrueEndSub[10分]

三、綜合應(yīng)用題

1.'提供給考生的程序OptionBase1DimArr1(20)AsIntegerDimArr2(20)AsInteger'提供給考生的程序SubReadData1()OpenApp.Path"\""datain1.txt"ForInputAs#1Fori=1To20Input#1,Arr1(i)NextiClose#1EndSub'提供給考生的程序SubReadData2()OpenApp.Path"\""datain2.txt"ForInputAs#1Fori=1To20Input#1,Arr2(i)NextiClose#1EndSub'提供給考生的程序SubWriteData(FilenameAsString,Nu