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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序设计教程 第三版 泷沛曾等著 实验B答案

VB程序设计教程 第三版 泷沛曾等著 实验B答案.doc

VB程序设计教程 第三版 泷沛曾等著 实验B答案

_曾经以为自己很快乐
2017-10-16 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序设计教程 第三版 泷沛曾等著 实验B答案doc》,可适用于工程科技领域

VB程序设计教程第三版泷沛曾等著实验B答案VB程序设计教程第三版泷沛曾等著实验B答案第一题PrivateSubCommandClick()Dimf!,c!f=Val(Text)c=*(f)Text=Format(c,"")EndSubPrivateSubCommandClick()Dimc!,f!c=Val(Text)f=*cText=Format(f,"")EndSub第二题PrivateSubCommandClick()Dimr!,s!r=Val(Text)s=*r^Label=Format(s,"")EndSubPrivateSubCommandClick()Dimr!,d!r=Val(Text)d=*r*Label=Format(d,"")EndSubPrivateSubTextlostfocus()IfNotIsNumeric(Text)ThenText=MsgBox("输入有非数字字符请重新输入")TextSetFocusEndIfEndSub第四题PrivateSubCommandClick()TextText=UCase(Text)Label=Len(Text)EndSubPrivateSubTextlostfocus()IfIsNumeric(Text)ThenText=MsgBox("输入有非字母字符请重新输入")TextSetFocusEndIfEndSub第五题PrivateSubFormClick()RandomizeDimaAsInteger,bAsInteger,cAsInteger,dAsIntegerd=Int(Rnd*)Print""da=db=(d)Modc=dModPrint""cbaEndSub第题PrivateSubFormclick()label=left(text,)label=mid(text,,)label=right(text,)endsub第题PrivateSubFormclick()Dima!,b!,c!,d!,e!a=Val(InputBox("输入实数"))b=a^c=Sqr(a)d=a^e=a^()Print"平方"Format(b,"")"平方根"Format(c,"")"立方"Format(d,"")"立方根"Format(e,"")EndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/6

VB程序设计教程 第三版 泷沛曾等著 实验B答案

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利