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

上传资料

关闭

关闭

关闭

封号提示

内容

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

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

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

shen传燕
2017-10-17 0人阅读 举报 0 0 暂无简介

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

VB程序设计第三版实验B答案VB程序设计第三版实验B答案(全)PrivateSubCommandClick()Text=Format(*(Val(Text)),"")EndSubPrivateSubCommandClick()Text=Format(*Val(Text),"")EndSub或PrivateSubCommandClick()Dimf!,c!'声明两个变量f=Val(Text)c=*(f)Text=Format(c,"")'保留两位小数EndSubPrivateSubCommandClick()Dimff!,cc!'声明两个变量cc=Val(Text)ff=*ccText=Format(ff,"")'保留两位小数EndSubPrivateSubCommandClick()Label=Format(Val(Text)*Val(Text)*,"")EndSubPrivateSubCommandClick()Label=Format(Val(Text)**,"")EndSubPrivateSubTextLostFocus()IfNotIsNumeric(TextText)ThenMsgBox"输入有非数字字符请重新输入",,"警告"TextText=""TextSetFocusEndIfEndSub或PrivateSubCommandClick()Label=Format(Val(Text)*Val(Text)*,"")EndSubPrivateSubCommandClick()Label=Format(Val(Text)**,"")EndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenIfNotIsNumeric(TextText)ThenTextText=""EndIfEndIfEndSubPrivateSubCommandClick()n=Int(Log()Log())Label=n"年后人数超过亿"EndSubPrivateSubCommandClick()Dimx,dx,cdx=TextTextdx=UCase(x)cd=Len(x)Print"大写字母为:"dxPrint"字符串长度为:"cdEndSubPrivateSubCommandClick()Text=Int(Rnd*)EndSubPrivateSubCommandClick()Dimx,x,x,xx=Val(Text)x=xMod'分离出的个位数x=(xMod)'分离出的十位数x=x'分离出的百位数Label=x*x*xEndSubPrivateSubFormClick()Label=Left(Text,)Label=Mid(Text,,)Label=Right(Text,)EndSubPrivateSubCommandClick()PrintFori=ToPrintTab(i*)String(*i,"")Spc(*(i))String(*i,"")NextiEndSubPrivateSubCommandClick()ClsEndSub进一步要求:PrivateSubCommandClick()PrintFori=ToPrintTab(i*)String(*i,"")String((*i),"")String(*i,"")NextiEndSubPrivateSubCommandClick()ClsEndSubPrivateSubFormClick()x=Val(InputBox("输入一正实数","计算",))pf=Format(x*x,"")pfg=Format(Sqr(x),"")lf=Format(x*x*x,"")lfg=Format(x^(),"")Print"平方为:"pfSpace()"平方根为:"pfgSpace()"立方为:"lfSpace()"立方根为:"lfgEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/5

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

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利