二级VB上机题库30

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

第59套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in3.dat"ForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()'考生编写===================????===================EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path"\out3.dat"ForOutputAs#1Print#1,Text1.TextClose#1EndSub[10分]

2.PrivateSubCommand1_Click()'IfCommand1.Caption=?Then'?=TrueCommand1.Caption="暂停"Else'?=FalseCommand1.Caption="演示"EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubTimer1_Timer()'If?Form1.WidthThenLabel1.Left=-Label1.WidthElse'Label1.Left=?+100EndIfEndSub[10分]

三、综合应用题

1.OptionBase1Dima(20)AsInteger,b(20)AsIntegerPrivateSubCmd1_Click()Text1.Text="":Text2.Text="":Text3.Text=""Fori=1To20'a(i)=Fix(Rnd*?+1)b(i)=1Text1.Text=Text1.Text+Str(a(i))+Space(2)NextiEndSubPrivateSubCmd2_Click()fmax=0Fori=1To20'Forj=1To?Ifa(i)=a(j)Thenb(i)=b(i)+1EndIfNextj'Ifb(i)?Thenfmax=b(i)NextiFori=1To20'Ifb(i)=?ThenText2.Text=Text2.Text+Str(a(i))+Space(2)EndIfNextiText3.Text=fmaxEndSubPrivateSubCmd3_Click()'?EndSub[10分]

第60套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.Dima(100)AsIntegerPrivateFunctionis_square(xAsInteger)AsBoolean'判断完全平方数flag=FalseForm=1ToSqr(x)Ifx=m^2Thenflag=TrueExitForEndIfNextmis_square=flagEndFunctionPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in3.dat"ForInputAs#1Fork=1To100Input#1,?NextkClose#1EndSubPrivateSubCommand2_Click()?DimnumAsIntegermax=0num=0Fork=1To100Ifis_square(a(k))Thennum=num+1?max=a(k)EndIfEndIfNextkText1.Text=maxText2.Text=numEndSub[10分]

2.PrivateSubForm_Load()'?"a0001"EndSubPrivateSubCommand1_Click()'Fori=0To?'List1.ListIndex=?IfList1.Text=Text1.TextThenMsgBox"不允许重复输入，请重新输入!"ExitSubEndIfNexti'?Text1.TextText1.Text=""EndSubPrivateSubCommand2_Click()'?EndSub[10分]

三、综合应用题

1.OptionBase1Dima(10)PrivateSubCommand1_Click()Text1.Text="":Text2.Text=""Fori=1To10'a(i)=Fix(Rnd*?+1)'Forj=1To?Ifa(i)=a(j)Then'i=?ExitForEndIfNextjNextiFori=1To10Text1.Text=Text1.Text+Str(a(i))+Space(2)NextiEndSubPrivateSubCommand2_Click()DimnumAsInteger,iAsIntegernum=InputBox("请输入待查找的数")Fori=1To10'Ifa(i)=?ThenText2.T