《人人都会用的vb游戏小程序代码》由会员分享,可在线阅读,更多相关《人人都会用的vb游戏小程序代码(4页珍藏版)》请在金锄头文库上搜索。
1、人人都会用的VB游戏小程序代码3. 球来回弹在窗体上添加一shape空间,shape为circle,计时器空间inteval=10通用Dim bzPrivate Sub Timer1_Timer() If Shape1.Left = Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left = 0 Then bz = 0 If bz = 0 Then Shape1.Left = Shape1.Left + 10 If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub注意:bz的使用(b
2、z为一临时标志,用于判断移动方向)2. 六角星Dim i%, j%, k%For i = 1 To 10 If i 6 Then Print Space(20 - i); For j = 1 To i Print ; Next j Else Print Space(6 + i); For k = 14 - i To 1 Step -1 Print ; Next k End If PrintNext iFor i = 3 To 1 Step -1Print Space(20 - i);For j = 1 To iPrint ;Next jPrintNext i1. 空心三角形Dim i%, j%
3、Print Space(20); *For i = 2 To 9 Print Space(21 - i); *; Space(2 * i - 3); *NextPrint Space(10);For i = 1 To 10 Print Space(1); *;Next扩展程序Const n = 15Dim a(1 To n) As IntegerDim i%, j%, t%RandomizeFor i = 1 To n a(i) = Int(100 * Rnd) 生成15个0100的随机整数存入数组NextPrint 排序前:For i = 1 To n Print a(i);NextPrin
4、tFor i = 1 To n - 1 For j = i + 1 To n If a(j) = Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left = 72 Then bz = 1 If Label1.FontSize = 8 Then bz = 0 If bz = 0 Then Label1.FontSize = Label1.FontSize + 2 If bz = 1 Then Label1.FontSize = Label1.FontSize - 2End Sub5. 在VB中用画圆Dim x, y, i As Sin
5、gleClsScale (-15, 15)-(15, -15) 定义笛卡儿坐标系For i = 0 To 6.28 Step 0.05 y = 10 * Sin(i) x = 10 * Cos(i) CurrentX = x CurrentY = y Print *Next6. 四周循环移动创建一个窗体,在上面添加“开始”和“停止”两个按钮,添加一个计时器控件timer1在窗体上添加一个shape控件,设置背景不透明,红色,调整大小程序代码如下:Option ExplicitDim bz%Private Sub Command1_Click() 开始按钮 Timer1 = TrueEnd Su
6、bPrivate Sub Command2_Click() 停止按钮 Timer1 = FalseEnd SubPrivate Sub Form_Load() Shape1.Left = 0 Shape1.Top = 0 Timer1 = False Timer1.Interval = 10End SubPrivate Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1 If Shape1.Top >= Form1.ScaleH
7、eight - Shape1.Height Then bz = 2 If Shape1.Left <= 0 Then bz = 3 If Shape1.Top <= 0 And Shape1.Left <= 0 Then bz = 0 Select Case bz Case 0 Shape1.Left = Shape1.Left + 10 Case 1 Shape1.Top = Shape1.Top + 10 Case 2 Shape1.Left = Shape1.Left - 10 Case 3 Shape1.Top = Shape1.Top - 10 End SelectEnd Sub