下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序设计第三版实验H答案

VB程序设计第三版实验H答案.doc

VB程序设计第三版实验H答案

lv绿色的夏天
2017-10-16 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序设计第三版实验H答案doc》,可适用于综合领域

VB程序设计第三版实验H答案VB程序设计第三版实验H答案(全)PrivateSubCommandClick()Open"c:score"ForOutputAs#Print#,"","王海涛",Print#,"","周文英",Print#,"","陈建东",Open"c:score"ForOutputAs#Write#,"","王海涛",Write#,"","周文英",Write#,"","陈建东",Closei=Shell("NOTEPADexe""c:score",vbNormalNoFocus)i=Shell("NOTEPADexe""c:score",vbNormalNoFocus)EndSubPrivateSubCommandClick()DimnoAsString,nameAsString,sAsIntegerOpen"c:score"ForInputAs#DoWhileNotEOF()LineInput#,linedataListAddItemlinedataLoopOpen"c:score"ForInputAs#DoWhileNotEOF()Input#,no,name,sListAddItemnonamesLoopCloseEndSubPrivateSubCommandClick()Dimfib(To),iOpen"c:fbdat"ForOutputAs#Fori=ToIfi=Ori=Thenfib(i)=iElsefib(i)=fib(i)fib(i)EndIfPrint#,"""Fib("i")"","fib(i)NextiClose#i=Shell("NOTEPADexe""c:fbdat",vbNormalNoFocus)EndSubPrivateSubCommandClick()Dimst$,n,sumOpen"c:fbdat"ForInputAs#DoWhileNotEOF()Input#,st,nsum=sumnListAddItemst"="nLoopClose#ListAddItem"合计:"sumListAddItem"平均:"sumEndSubPrivateTypestudtypenoAsString*nameAsString*markAsSingleEndTypeDimstudentAsstudtype,stud(To)Asstudtype,tAsstudtypePrivateSubCommandClick()Open"d:scoredat"ForRandomAs#Len=Len(student)Withstudentno=""name="星期一"mark=EndWithPut#,,studentWithstudentno=""name="星期二"mark=EndWithPut#,,studentWithstudentno=""name="星期三"mark=EndWithPut#,,studentWithstudentno=""name="星期四"mark=EndWithPut#,,studentWithstudentno=""name="星期五"mark=EndWithPut#,,studentClose#EndSubPrivateSubCommandClick()Open"d:scoredat"ForRandomAs#Len=Len(student)Fori=ToGet#,i,studentPrintstudentno,studentname,studentmarkstud(i)=studentNextiClose#Fori=ToForj=iToIfstud(i)mark>stud(j)markThent=stud(i):stud(i)=stud(j):stud(j)=tNextNextiOpen"d:randomdat"ForRandomAs#Len=Len(student)Fori=ToPut#,i,stud(i)NextiClose#EndSubPrivateSubCommandClick()Open"d:randomdat"ForRandomAs#Len=Len(student)Fori=ToGet#,i,stud(i)Printstud(i)nostud(i)namestud(i)markNextiClose#EndSubPrivateTypestudtypenoAsIntegernameAsString*sexAsString*markAsSingleEndTypeDimstdAsstudtypeDimrecordAsIntegerPrivateSubCommandClick()Withstdno=Val(TextText)name=TextTextsex=IIf(OptionValue,"","")mark=Val(TextText)EndWithOpen"c:score"ForRandomAs#Len=Len(std)record=LOF()Len(std)LabelCaption=recordPut#,record,stdClose#EndSubPrivateSubCommandClick()Open"c:score"ForRandomAs#Len=Len(std)record=Val(TextText)Get#,record,stdTextText=stdnoTextText=stdnameIfstdsex=""ThenOptionValue=TrueElseOptionValue=TrueEndIfTextText=stdmarkrecord=LOF()Len(std)Close#EndSubPrivateSubCommandClick()Withstdno=Val(TextText)name=TextTextsex=IIf(OptionValue,"","")mark=Val(TextText)EndWithOpen"c:score"ForRandomAs#Len=Len(std)record=Val(TextText)Put#,record,stdClose#EndSubPrivateSubCommandClick()Open"c:score"ForRandomAs#Len=Len(std)record=Get#,record,stdTextText=stdnoTextText=stdnameIfstdsex=""ThenOptionValue=TrueElseOptionValue=TrueEndIfTextText=stdmarkrecord=LOF()Len(std)Close#TextText=EndSubPrivateSubCommandClick()Open"c:score"ForRandomAs#Len=Len(std)record=Val(TextText)IfVal(TextText)<=ThenMsgBox"超出记录范围",vbExclamation,"警告":Close#ElseGet#,record,stdTextText=stdnoTextText=stdnameIfstdsex=""ThenOptionValue=TrueElseOptionValue=TrueEndIfTextText=stdmarkrecord=LOF()Len(std)Close#TextText=Val(TextText)EndIfEndSubPrivateSubCommandClick()Open"c:score"ForRandomAs#Len=Len(std)record=Val(TextText)Ifrecord>Val(LabelCaption)ThenMsgBox"超出记录范围",vbExclamation,"警告":CloseElseGet#,record,stdTextText=stdnoTextText=stdnameIfstdsex=""ThenOptionValue=TrueElseOptionValue=TrueEndIfTextText=stdmarkrecord=LOF()Len(std)Close#TextText=Val(TextText)EndIfEndSubPrivateSubCommandClick()Open"c:score"ForRandomAs#Len=Len(std)record=Val(LabelCaption)Get#,record,stdTextText=stdnoTextText=stdnameIfstdsex=""ThenOptionValue=TrueElseOptionValue=TrueEndIfTextText=stdmarkrecord=LOF()Len(std)Close#TextText=recordEndSubPrivateSubFormLoad()Open"c:score"ForRandomAs#Len=Len(std)LabelCaption=LOF()Len(std)Close#EndSubPrivateTypestudtypenoAsIntegernameAsString*markAsIntegerEndTypeDimstdAsstudtypeDimrecordAsIntegerPrivateSubCommandClick()Withstdno=Val(TextText)name=TextTextmark=Val(TextText)EndWithOpen"c:score"ForRandomAs#Len=Len(std)record=LOF()Len(std)Put#,record,stdClose#TextText=""TextText=""TextText=""TextSetFocusEndSubPrivateSubCommandClick()Dimsum,countAsIntegerOpen"c:score"ForRandomAs#Len=Len(std)Fori=TorecordGet#,i,stdsum=sumstdmarkcount=countListAddItemstdno""stdnamestdmarkNextiListAddItem"总分"sumListAddItem"平均成绩"sumcountClose#EndSubPrivateSubCommandClick()Diminputdata,inputdata,inputdataAsString*Dimv,byt()AsByte,byt()AsByte,flenAsLong,flenAsLong,fnum,fnumAsIntegerTextText="":TextText="":TextText=""CommonDialogShowOpenfname=CommonDialogFileNameCommonDialogShowOpenfname=CommonDialogFileNameOpenfnameForBinaryAs#OpenfnameForBinaryAs#DoWhileNotEOF()inputdata=Input(,#)TextText=TextTextinputdataLoopDoWhileNotEOF()inputdata=Input(,#)TextText=TextTextinputdataLoopfnum=FreeFileOpen"c:hbtxt"ForBinaryAs#fnumPut#fnum,,byt()Put#fnum,flen,byt()DoWhileNotEOF(fnum)inputdata=Input(,#fnum)TextText=TextTextinputdataLoopIfDir(fname)<>""Thenfnum=FreeFileOpenfnameForBinaryAs#fnumflen=LOF(fnum)ReDimbyt(flen)Get#fnum,,byt()ClosefnumEndIfIfDir(fname)<>""Thenfnum=FreeFileOpenfnameForBinaryAs#fnumflen=LOF(fnum)ReDimbyt(flen)Get#fnum,,byt()ClosefnumEndIf

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/13

VB程序设计第三版实验H答案

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利