二级VB上机题库9

精品文档-下载后可编辑二级VB上机题库9二级VB上机题库9

第17套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.[10分]

2.[10分]

三、综合应用题

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分]

二、简单应用题

1.PrivatexAsIntegerPrivateSubCommand1_Click()x=Val(InputBox("请输入正整数"))EndSubPrivateSubCommand2_Click()'SelectCaseCombo1.?Case0'MsgBoxStr(x)?Case1'MsgBoxStr(x)?CaseElseExitSubEndSelectEndSubPrivateFunctionf1(ByValxAsInteger)AsStringIfx\2x/2Thenf1="是奇数"Elsef1="是偶数"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分]

三、综合应用题

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