下载

1下载券

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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序代码(简单小程序)

VB程序代码(简单小程序).doc

VB程序代码(简单小程序)

不可战胜
2011-06-01 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序代码(简单小程序)doc》,可适用于IT/计算机领域

实验一(带有进度条的倒计时程序)实验一(带有进度条的倒计时程序)PublicClassFormDimtimersAsIntegerDimtempAsIntegerPrivateSubTimerTick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesTimerTickIf(ProgressBarValueProgressBarMaximumtimers<ProgressBarMaximum)ThenProgressBarValue=ProgressBarMaximumtimersElseTimerEnabled=FalseProgressBarValue=ProgressBarMaximumMessageBoxShow("进度完成!")EndIftemp=LabelText=tempToString()EndSubPrivateSubFormLoad(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesMyBaseLoadtimers=EndSubPrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClicktimers=Val(InputBox("输入","请输入总时间。",,,))EndSubPrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickTimerEnabled=TrueEndSubEndClass实验二(定时器控制蝴蝶飞舞)PublicClassFormDimtAsIntegerPrivateSubTimerTick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesTimerTick’DimtAsBoolean'Ift=TrueThen'PictureBoxImage=PictureBoxImage't=False'Else'PictureBoxImage=PictureBoxImage't=True'EndIfSelectCasetCasePictureBoxImage=PictureBoxImaget=CasePictureBoxImage=PictureBoxImaget=CasePictureBoxImage=PictureBoxImaget=CasePictureBoxImage=PictureBoxImaget=EndSelectEndSubEndClass实验三(递推法迭代法猴子吃桃)PublicClassFormPrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickDimn,yAsIntegern=Val(TextBoxText)y=Val(TextBoxText)DimxiAsDoublexi=yTextBoxText="第"nToString()"天的桃子为:"yToString()"个。"vbCrLfForiAsInteger=nToStepxi=(xi)*TextBoxText="第"iToString()"天的桃子为:"xiToString()"个。"vbCrLfNextEndSubEndClass实验四(加减乘除随机数题)PublicClassFormDimx,yAsIntegerDimiAsIntegerDimsumAsIntegerPrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickIf(LabelText<>"")ThenTextBoxText=LabelTextTextBoxTextTextBoxText="结果"If(sum=Val(TextBoxText))ThenTextBoxText="√"vbCrLfElseTextBoxText="×"vbCrLfEndIfEndIfRandomize()x=Int(Rnd()*)y=Int(Rnd()*)i=Int(Rnd()*)SelectCaseiCaseLabelText=xToString()"+"yToString()"="sum=xyCaseLabelText=xToString()"-"yToString()"="sum=xyCaseLabelText=xToString()"×"yToString()"="sum=x*yCaseLabelText=xToString()"÷"yToString()"="sum=xyEndSelectEndSubEndClass

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/3

VB程序代码(简单小程序)

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利