人人都会用的VB游戏小程序代码[方案]

人人都会用的VB游戏小程序代码[方案]人人都会用的VB游戏小程序代码[方案] 人人都会用的VB游戏小程序代码 3. 球来回弹在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用 Dim bz Private Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left 6 Then Print Space(20 - i); For j = 1 To i Print ...

人人都会用的VB游戏小程序代码[ 方案 ] 人人都会用的VB游戏小程序代码 3. 球来回弹在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用 Dim bz Private 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 - 10 End Sub 注意:bz的使用(bz为一临时标志，用于判断移动方向) 2. 六角星 Dim i%, j%, k% For i = 1 To 10 If i < 4 Or 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 Print Next i For i = 3 To 1 Step -1 Print Space(20 - i); For j = 1 To i Print "?"; Next j Print Next i 1. 空心三角形 Dim i%, j% Print Space(20); "*" For i = 2 To 9 Print Space(21 - i); "*"; Space(2 * i - 3); "*" Next Print Space(10); For i = 1 To 10 Print Space(1); "*"; Next 扩展程序 Const n = 15 Dim a(1 To n) As Integer Dim i%, j%, t% Randomize For i = 1 To n a(i) = Int(100 * Rnd) '生成15个0,100的随机整数存入数组 Next Print "排序前:" For i = 1 To n Print a(i); Next Print For i = 1 To n - 1 For j = i + 1 To n If a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = t Next Next Print "排序后:" For i = 1 To n Print a(i); Next 3. 球来回弹在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用 Dim bz Private 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 - 10 End Sub 注意:bz的使用(bz为一临时标志，用于判断移动方向) 4. 从大到小再从小到大变化在窗体添加一标签label1，autosize=true，caption="?",添加一计时器空间timer1，inteval=100 通用: Dim bz Private Sub Timer1_Timer() If Label1.FontSize >= 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 - 2 End Sub 5. 在VB中用画圆 Dim x, y, i As Single Cls Scale (-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 "*" Next 6. 四周循环移动创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个计时器控件timer1 在窗体上添加一个shape控件，设置背景不透明，红色，调整大小程序代码如下: Option Explicit Dim bz% Private Sub Command1_Click() '开始按钮 Timer1 = True End Sub Private Sub Command2_Click() '停止按钮 Timer1 = False End Sub Private Sub Form_Load() Shape1.Left = 0 Shape1.Top = 0 Timer1 = False Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1 If Shape1.Top >= Form1.ScaleHeight - 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 Select

                    本文档为【人人都会用的VB游戏小程序代码[方案]】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

人人都会用的VB游戏小程序代码[方案]

你可能还喜欢