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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序设计第三版实验C答案(全)

VB程序设计第三版实验C答案(全).doc

VB程序设计第三版实验C答案(全)

ps娘們的诱惑
2017-10-17 0人阅读 举报 0 0 暂无简介

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

VB程序设计第三版实验C答案(全)VB程序设计第三版实验C答案(全)PrivateSubFormClick()Dimx!,y!x=Val(InputBox("输入x的值"))Ifx<Theny=xElseIfx<Theny=*xElseIfx<Theny=*xElsey=*xEndIfPrintyEndSubPrivateSubFormClick()Dimx!,y!x=Val(InputBox("输入上网时间"))Ifx<Theny=ElseIfx<Theny=*(x)Elsey=**(x)EndIfIfy>Theny=EndIfPrintyEndSubPrivateSubCommandClick()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前"x""y""zIfx<yThent=x:x=y:y=tIfx<zThent=x:x=z:z=tIfy<zThent=y:y=z:z=tPrint"排序后"x""y""zEndSubPrivateSubCommandClick()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前"x""y""zIfx<yThent=x:x=y:y=tIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIfPrint"排序后"x""y""zEndSubDima()AsIntegerPrivateSubCommandClick()PictureClsFori=Toa(i)=Int(Rnd*)PicturePrinta(i)NextiEndSubPrivateSubCommandClick()PictureClsDimzAsIntegerFori=ToIfa(i)>a(i)Thenz=a(i)a(i)=a(i)a(i)=zEndIfNextiPicturePrinta()PicturePrinta()PicturePrinta()EndSubPrivateSubTextLostFocus()Dimm,n,ym=Val(Text)n=Val(Text)IfnMod<>ThenMsgBox("脚数必定为偶数")Text=""TextSetFocusElsey=nmIfy<ThenMsgBox("脚数必须倍的头数请重新输入")Text=""TextSetFocusElsex=nmLabel=yLabel=myEndIfEndIfEndSubPrivateSubCommandClick()Dima!,b!,c!,x!,x!,de!a=Textb=Textc=Textde=b*b*a*ct=*aIfde=ThenText=Format(bt,"")Text=Format(bt,"")ElseIfde>ThenText=Format((bSqr(de))t,"")Text=Format((bSqr(de))t,"")ElseText=Format(bt,"")""Format(Sqr(Abs(de))t,"")"i"Text=Format(bt,"")""Format(Sqr(Abs(de))t,"")"i"EndIfEndSubPrivateSubCommandClick()Text=""Text=""Text=""Text=""Text=""EndSubPrivateSubTextLostFocus()SelectCaseTrim(Text)Case""Text=Val(Text)Val(Text)Case""Text=Val(Text)Val(Text)Case"*"Text=Val(Text)*Val(Text)Case""IfVal(Text)=ThenMsgBox"分母为零重新输入"Text=""TextSetFocusElseText=Val(Text)Val(Text)EndIfEndSelectEndSubPrivateSubTextLostFocus()SelectCaseTrim(Text)CaseText="Monday"CaseText="Tuesday"CaseText="Wednesday"CaseText="Thursday"CaseText="Friday"CaseText="Saturday"CaseText="Sunday"CaseIs>,Is<MsgBox"数字为~重新输入"Text=""TextSetFocusEndSelectEndSub或者PrivateSubTextLostFocus()IfText>OrText<ThenMsgBox"数字为~重新输入"Text=""TextSetFocusElseText=Choose(Text,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")EndIfEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/8

VB程序设计第三版实验C答案(全)

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利