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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序代码

VB程序代码.doc

VB程序代码

读书_一点都不浪漫
2017-09-27 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序代码doc》,可适用于高中教育领域

VB程序代码实验五赋值语句的使用Privatesubcommandclick()Dima,b,ca=texttextb=texttextc=texttexttexttext=texttexttexttext=cendsub实验六input语句的使用Privatesubcommandclick()Dimh,x,f,yh=val(inputbox(“请输入总头数:””输入框”))‘设置输入框将输入的整数f=val(inputbox(“请输入总脚数:”chr()chr()”注意:角的数目在h和h之间””输入框”)x=(*hf)y=(f*h)labelcaption=x“只“labelcaption=y“只”endsub试验七msgbox函数的使用Privatesubcmmmandclick()Dimh,s,m,sum#H=val(texttext)M=val(texttext)S=val(texttext)Sum=h*m*sMsgbox“共计”str(sum)“秒””秒数提示”Endsub实验八双分支结构的使用Privatesubformclick()DimxX=val(inputbox(“请输入一个整数”))Ifx=xthenPrint“x=”str(x)”x是一个整数”ElsePrint”x=”str(x):“x是一个奇数”EndifEndsub实验多分支结构语句的使用Privatesubcommandclick()Dimx,y,zX=val(text,text)Y=va(texttext)Z=val(texttext)Ifx=yory=zthenLabelcapion=”可构成等腰三角形”Elseifx=yandy=zthenLabelcapion=”可构成等边三角形”Flseifx^=y^z^ory^=x^z^orz^=x^y^Labelcaption=”可构成直角三角形”ElseLabelcapion=”可构成任意三角形”EndifEndsub实验十selectcase语句的使用Selectcase语句的使用Privatesubformclick()DimscoreScore=val(inputbox(“请输入一个整数”))SelectcasescoreCaseis>=Print”优秀”CasetoPrint“良好”casetoPrint“中等”CasetoPrint“及格”CaseelsePrint“不及格”实验十一for…next循环语句的使用Private苏北formclick()Dimx,iPrint”第七天吃桃子数目为:个”X=ForI=tostepX=*(x)Print”第”I“天桃子数为:”x”个”NextiEndsub实验十二for循环语句的嵌套与使用Privatesubformclick()Dimchasstring,Iasinteger,jasintegerPrinttab()”九九乘法表”Printtab()”==========”ForI=toForj=toiCh=j“x”I“=”j*iPrinttab((j)*)chNextjPrintNextiEndsub实验十三doloop循环语句的使用双击command()进入代码编辑器窗口Privatesubcommandclick()Dimsumaslong,I,nI=Sum=Rem输入N=val(texttext)Rem处理DowhileI<=nSum=sumII=iLoopRem输出Texttext=sum双击command进入代码编辑器窗口输入以下代码PrivatesubcommandclickDimsumaslong,I,nI=Sum=Rem输入n=val(texttext)rem处理dosum=sumi=iloopwhilei<=nrem输出texttext=sumendsub双击命令按钮command进入代码编辑器窗口输入以下代码Privatesubcomandclick()Dimsumaslong,I,nI=Sum=Rem输入n=val(texttext)rem处理dountilI>nsum=sumii=ilooprem输出texttext=sumendsub双击命令按钮command进入代码编辑窗口输入以下代码Privatecommandclick()Dimsumaslong,I,nI=Sum=Rem输入N=val(texttext)Rem处理DoSum=sumI=iLoopuntili>nRem输出Texttext=sumEndsub运行和调试程序

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/7

VB程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利