人人都会用的vb游戏小程序代码

人人都会用的vb游戏小程序代码

ID:9002168

大小:34.50 KB

页数:4页

时间:2018-04-14

人人都会用的vb游戏小程序代码_第1页
人人都会用的vb游戏小程序代码_第2页
人人都会用的vb游戏小程序代码_第3页
人人都会用的vb游戏小程序代码_第4页
资源描述:

《人人都会用的vb游戏小程序代码》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、人人都会用的VB游戏小程序代码3.球来回弹在窗体上添加一shape空间,shape为circle,计时器空间inteval=10通用DimbzPrivateSubTimer1_Timer()IfShape1.Left>=Form1.ScaleWidth-Shape1.WidthThenbz=1IfShape1.Left<=0Thenbz=0Ifbz=0ThenShape1.Left=Shape1.Left+10Ifbz=1ThenShape1.Left=Shape1.Left-10EndSub注意:bz的使用(bz为一临时标志,用于判断移动方向

2、)2.六角星Dimi%,j%,k%Fori=1To10Ifi<4Ori>6ThenPrintSpace(20-i);Forj=1ToiPrint"○";NextjElsePrintSpace(6+i);Fork=14-iTo1Step-1Print"○";NextkEndIfPrintNextiFori=3To1Step-1PrintSpace(20-i);Forj=1ToiPrint"○";NextjPrintNexti1.空心三角形Dimi%,j%PrintSpace(20);"*"Fori=2To9PrintSpace(21-i);"*"

3、;Space(2*i-3);"*"NextPrintSpace(10);Fori=1To10PrintSpace(1);"*";Next扩展程序Constn=15Dima(1Ton)AsIntegerDimi%,j%,t%RandomizeFori=1Tona(i)=Int(100*Rnd)'生成15个0~100的随机整数存入数组NextPrint"排序前:"Fori=1TonPrinta(i);NextPrintFori=1Ton-1Forj=i+1TonIfa(j)

4、xtPrint"排序后:"Fori=1TonPrinta(i);Next3.球来回弹在窗体上添加一shape空间,shape为circle,计时器空间inteval=10通用DimbzPrivateSubTimer1_Timer()IfShape1.Left>=Form1.ScaleWidth-Shape1.WidthThenbz=1IfShape1.Left<=0Thenbz=0Ifbz=0ThenShape1.Left=Shape1.Left+10Ifbz=1ThenShape1.Left=Shape1.Left-10EndSub注意:bz

5、的使用(bz为一临时标志,用于判断移动方向)4.从大到小再从小到大变化在窗体添加一标签label1,autosize=true,caption="★",添加一计时器空间timer1,inteval=100通用:DimbzPrivateSubTimer1_Timer()IfLabel1.FontSize>=72Thenbz=1IfLabel1.FontSize<=8Thenbz=0Ifbz=0ThenLabel1.FontSize=Label1.FontSize+2Ifbz=1ThenLabel1.FontSize=Label1.FontSize

6、-2EndSub5.在VB中用画圆Dimx,y,iAsSingleClsScale(-15,15)-(15,-15)'定义笛卡儿坐标系Fori=0To6.28Step0.05y=10*Sin(i)x=10*Cos(i)CurrentX=xCurrentY=yPrint"*"Next6.四周循环移动创建一个窗体,在上面添加“开始”和“停止”两个按钮,添加一个计时器控件timer1在窗体上添加一个shape控件,设置背景不透明,红色,调整大小程序代码如下:OptionExplicitDimbz%PrivateSubCommand1_Click()'

7、开始按钮Timer1=TrueEndSubPrivateSubCommand2_Click()'停止按钮Timer1=FalseEndSubPrivateSubForm_Load()Shape1.Left=0Shape1.Top=0Timer1=FalseTimer1.Interval=10EndSubPrivateSubTimer1_Timer()IfShape1.Left>=Form1.ScaleWidth-Shape1.WidthAndShape1.Top<=0Thenbz=1IfShape1.Top>=Form1.Sc

8、aleHeight-Shape1.HeightThenbz=2IfShape1.Left<=0Thenbz=3IfShape1.Top<=

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。