


下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
精品文档-下载后可编辑二级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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年面板检测系统项目建议书
- 办公新环境启用仪式讲话稿
- 酒店投资开发建设合同
- 2025年硅粉系列项目合作计划书
- 商铺转让合同协议
- 关于办公室日常行政工作的推进情况
- 国际运输服务提供商合作框架协议
- 红星照耀中国的革命情怀解读
- L-Tyrosinamide-生命科学试剂-MCE
- 办公事务处理规范与流程文书
- 《3ds Max动画制作实例教程》教学教案
- 加油站操作员(高级)理论考试题库大全-单选题
- 人教版六年级下册小学数学全册课时练(一课一练)
- LY/T 2749-2016桉树速丰林配方施肥技术规程
- GB/T 8427-1998纺织品色牢度试验耐人造光色牢度:氙弧
- GB/T 16316-1996电气安装用导管配件的技术要求第1部分:通用要求
- GA/T 455-2021居民身份证印刷要求
- 半导体的基本原理课件
- IP系列操作手册(中文)
- 建设工程施工合同纠纷涉及的法律适用问题课件
- 湘美版高中美术选修:绘画全册课件
评论
0/150
提交评论