二级VB上机题库32

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

第63套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCmd_Click(IndexAsInteger)'SelectCase?Case0'Timer1.Enabled=?Cmd(1).Enabled=TrueIfCmd(0).Caption="开始"ThenCmd(0).Caption="继续"EndIf'Cmd(0).Enabled=?Case1Timer1.Enabled=FalseCmd(0).Enabled=TrueCmd(1).Enabled=FalseCase2EndEndSelectEndSubPrivateSubTimer1_Timer()t(3)=t(3)+1'Ift(3)=?Thent(3)=0t(2)=t(2)+1Ift(2)=60Thent(2)=0t(1)=t(1)+1EndIfEndIfFori=1To3'Text(?).Text=t(i)NextEndSub[10分]

2.PrivateSubCommand1_Click()OpenApp.Path"\in4.dat"ForInputAs#1Fori=1To20Forj=1To5Input#1,a(i,j)Text1=Text1+Str(a(i,j))+Space(2)NextjNextiClose#1EndSubPrivateSubCommand2_Click()'考生编写==================???==================EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path"\out4.dat"ForOutputAs#1Print#1,Text2.TextClose#1EndSub[10分]

三、综合应用题

1.PrivateSubCommand1_Click()OpenApp.Path"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndSubPrivateSubCommand2_Click()'IfLen(s)=?ThenMsgBox"请先使用“读数据”功能！"Elset=""Fori=1ToLen(s)c=Mid(s,i,1)'If?""Thent=t+cElse'?=LCase(t)IfInStr(x,"t")0AndInStr(x,"h")0AndInStr(x,"e")0Then'm=?EndIft=""EndIfNextiText2.Text=mEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path"\out5.dat"ForOutputAs#1Print#1,Text2.TextClose#1EndSub[10分]

第64套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()'Text1.Enabled=?Text1.SetFocusEndSubPrivateSubCommand2_Click()IfText1.Enabled=FalseThenMsgBox"请先使用“输入密码”功能！"Else'IfText1"?"Thenn=n+1'If?=3ThenMsgBox"三次密码输入错误，你无权进入本系统！"EndElseMsgBox"第"+Str(n)+"次密码输入错误，请重试！"Text1=""Text1.SetFocusEndIfElseText1.Enabled=FalseText1=""'?.Hide'?.ShowEndIfEndIfEndSubPrivateSubCommand1_Click()Form2.HideForm1.ShowEndSub[10分]

2.PrivateSubCommand1_Click()OpenApp.Path"\in4.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndSubPrivateSubCommand2_Click()DimmAsInteger'IfLen(s)=?ThenMsgBox"请先使用“读数据”功能！"Else'IfText1.?=0ThenMsgBox"请先选中文本！"Elset=""Fori=1ToText1.SelLengthc=Mid(Text1.SelText,i,1)Ifc""Thent=t+cElse'If?="the"Thenm=m+1EndIft=""EndIfNexti'?=Str(m)EndIfEndIfEndSub[10分]

三、综合应用题

1.PrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in5.dat"ForInputAs#1Fork=1To100Input#1,a(k)Text1=Text1+Str(a(k))+Space(1)NextkClose#1EndSubPrivateSubCommand2_Click()Dimb(100)AsIntegernum=0IfLen(Text1.Text)=0ThenMsgBox"请先执行“读数据”功能！"Else'考生编写(功能：生成b数组，且按从小到大顺序排序)'注意：请务必将数组b的元素个数存入变量num中=====================???====================='以下程序段将已排序的b数组显示在Text2中Fori=1TonumText2.Text=Text2.Text+Str(b(i))+Spac