


下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
精品文档-下载后可编辑二级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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 财务审计保密协议
- 汽车吊机租赁合同
- 房地产经纪行业客户信息保密合同
- 货车运输合同协议书
- 户外运动安全责任豁免合同
- 建筑工程大清包合同新
- 智能制造生产线建设合同
- 金融行业投资产品风险提示协议
- 保洁卫生承包合同
- 第十二章第三节《机械效率》教学设计 -2023-2024学年人教版八年级物理下册
- GB/T 8427-1998纺织品色牢度试验耐人造光色牢度:氙弧
- IP系列操作手册(中文)
- 单位工程质量检查与验收流程图
- 妇科咨询培训资料
- 高中数学新教材必修第一册教案2019新教材 高中数学 教案
- DB4401∕T 100.2-2020 物业服务 第2部分:住宅小区
- 湖北省尾矿库基本情况汇总表
- 海洋钻井(平台)
- (完整版)电梯的钢结构施工方案
- 中国近现代史纲要ppt全共64页课件
- 腰椎间盘突出症(腰痹病)中医临床路径
评论
0/150
提交评论