vb编程代码大全文库（小游戏vb编程）

本文目录

• 小游戏vb编程
• vb加法计算代码
• 用VB编写一个计算器程序的代码
• 介绍一个VB小的有趣的程序代码
• 高中，vb代码

小游戏vb编程

贪吃蛇
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim C As Long
If KeyCode = 27 Then End
If KeyCode = 32 Then
   If Timer1.Enabled = True Then
      Timer1.Enabled = False
      Label1.Visible = True
   Else
      Timer1.Enabled = True
      Label1.Visible = False
   End If
End If
C = UBound(She)
If GFangXiang = True Then Exit Sub
Select Case KeyCode
Case 37
   If She(C).F = 2 Then Exit Sub
   She(C).F = 0
   GFangXiang = True
Case 38
   If She(C).F = 3 Then Exit Sub
   She(C).F = 1
   GFangXiang = True
Case 39
   If She(C).F = 0 Then Exit Sub
   She(C).F = 2
   GFangXiang = True
Case 40
   If She(C).F = 1 Then Exit Sub
   She(C).F = 3
   GFangXiang = True
End Select
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = &HC000&
Me.FillColor = 255
Me.FillStyle = 0
Me.ScaleWidth = 24
Me.ScaleHeight = 24
Me.WindowState = 2
Set Timer1 = Controls.Add("VB.Timer", "Timer1")
Set Label1 = Controls.Add("VB.Label", "Label1")
Label1.AutoSize = True
Label1.BackStyle = 0
Label1 = "暂停"
Label1.ForeColor = RGB(255, 255, 0)
Label1.FontSize = 50
ChuShiHua
End Sub
Private Sub Form_Resize()
On Error GoTo 1:
With Me
   If .WindowState 《》 1 Then
      .Cls
      .ScaleMode = 3
      HWB = .ScaleHeight / .ScaleWidth
      .ScaleWidth = 24
      .ScaleHeight = 24
      Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2
      HuaTu
      Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
   End If
End With
1:
End Sub
Private Sub Timer1_Timer()
Dim C As Long, I As Long
On Error GoTo 2:
QingChu
C = UBound(She)
Select Case She(C).F
Case 0
   If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then
      C = C + 1
      ReDim Preserve She(C)
      She(C).F = She(C - 1).F
      She(C).X = She(C - 1).X - 1
      She(C).Y = She(C - 1).Y
      ChanShengShiWu
      GoTo 1:
   ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then
      GoTo 2:
   End If
Case 1
   If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then
      C = C + 1
      ReDim Preserve She(C)
      She(C).F = She(C - 1).F
      She(C).X = She(C - 1).X
      She(C).Y = She(C - 1).Y - 1
      ChanShengShiWu
      GoTo 1:
   ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then
      GoTo 2:
   End If
Case 2
   If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then
      C = C + 1
      ReDim Preserve She(C)
      She(C).F = She(C - 1).F
      She(C).X = She(C - 1).X + 1
      She(C).Y = She(C - 1).Y
      ChanShengShiWu
      GoTo 1:
   ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then
      GoTo 2:
   End If
Case 3
   If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then
      C = C + 1
      ReDim Preserve She(C)
      She(C).F = She(C - 1).F
      She(C).X = She(C - 1).X
      She(C).Y = She(C - 1).Y + 1
      ChanShengShiWu
      GoTo 1:
   ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then
      GoTo 2:
   End If
End Select
ZhuangTai(She(0).X, She(0).Y) = 0
For I = 0 To C
   Select Case She(I).F
   Case 0
      She(I).X = She(I).X - 1
   Case 1
      She(I).Y = She(I).Y - 1
   Case 2
      She(I).X = She(I).X + 1
   Case 3
      She(I).Y = She(I).Y + 1
   End Select
Next
TiaoZheng
1:
GFangXiang = False
ZhuangTai(She(C).X, She(C).Y) = 1
HuaTu
Exit Sub
2:
If MsgBox("游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes Then
   ChuShiHua
Else
   End
End If
End Sub
Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 200
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9, 11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10, 11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11, 11) = 1
HuaTu
ChanShengShiWu
End Sub
Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
   Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF
Next
End Sub
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
   Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub
Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
   She(I).F = She(I + 1).F
Next
End Sub
Private Sub ChanShengShiWu()
Randomize Timer
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
If ZhuangTai(X, Y) 》 0 Then GoTo 1:
ZhuangTai(X, Y) = 2
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End Sub

vb加法计算代码

Private Sub Command1_Click()Dim a As Integer,b As

Integera=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=a+bEnd Sub在这段VB程序中，“a=Val(Text1.Text)b=Val(Text2.Text)”是加法的代码。

代码如下：

Private Sub Command1_Click()

Label2.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = "": Text2.Text = "": Label2.Caption = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

扩展资料

Option Explicit

Private Sub Combo1_Change()

End Sub

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then

Select Case Combo1.Text

Case "+"

Text3.Text = CLng(Text1.Text) + CLng(Text2.Text)

Case "-"

Text3.Text = CLng(Text1.Text) - CLng(Text2.Text)

Case "×"

Text3.Text = CLng(Text1.Text) * CLng(Text2.Text)

Case "÷"

If CLng(Text2.Text) 《》 0 Then Text3.Text = CLng(Text1.Text) / CLng(Text2.Text) Else MsgBox "出数不能为0", vbOKOnly, "提示"

Case Else

MsgBox "请选择运算方式", vbOKOnly, "提示"

End Select

Else

MsgBox "请输入数字", vbOKOnly, "提示"

End If

End Sub

Private Sub Form_Load()

Combo1.AddItem "+"

Combo1.AddItem "-"

Combo1.AddItem "×"

Combo1.AddItem "÷"

End Sub

用VB编写一个计算器程序的代码

1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

2、各控件组其属性设置如下：

设置效果如下图所示：

二、编写代码

Dim s1 As Single， s2 As Single， ysf As String

‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符

Private Sub Command1_Click（Index As Integer）

Text1.Text = Text1.Text & Command1（Index）.Caption ’将command1的单击事件与文本框显示的内容连接

End Sub

Private Sub Command2_Click（）

Text1.Text = Text1.Text + “。”

If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数

Text1.Text = “”

End If

If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点

Text1.Text = Left

（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1.Text） ‘开始加减乘除运算

Select Case ysf Case “+”

Text1.Text = s1 + s2

Case “-”

Text1.Text = s1 - s2

Case “*”

Text1.Text = s1 * s2

Case “/”

If s2 = 0 Then

MsgBox “分母不能为零！”

Text1.Text = “”

Else

Text1.Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘

这个很关键，如果没有这个的话，得出小于1的小数前面没有0

End Sub

Private Sub Command4_Click（）

If Text1.Text = “” Then ’文本为空就结束

Exit Sub

End If

Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格

End Sub

Private Sub Command5_Click（）

Text1.Text = “” ’清除当前框内文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption

Text1.Text = “”

End Sub

Private Sub Command7_Click（）

If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数

Text1.Text = “-” & Text1.Text

Else

Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1.Text = Text1.Text * Text1.Text ‘平方

End Sub

拓展资料

Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。

参考链Visual Basic——百度百科接

介绍一个VB小的有趣的程序代码

’万花筒程序
’粘贴下面代码即可, 不用添加任何控件
Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
      Me.Width = 4500: Me.Height = 4500
      Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
      Me.AutoRedraw = True
      Me.Caption = "CBM666的万花筒"
      Set Timer1 = Controls.Add("vb.timer", "Timer1")
      Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
      Randomize
      r = 340 * Rnd
      If r 《》 0 Then
         r1 = 500
         s = r * Rnd
         b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
         For t = 1 To 10000
            a1 = t * 3.1415926 / 180
            a2 = (r1 / r) * a1
            xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
            yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
            Me.PSet (xb, yb), b
         Next t
      End If
End Sub

高中，vb代码

Private Sub Command1_Click()
    Text1 = Int(Rnd(1) * 90) + 10
    Text2 = Int(Rnd(1) * 90) + 10
    Text3 = Int(Rnd(1) * 90) + 10
End Sub
Private Sub Command2_Click()
    Text4 = Val(Text1) + Val(Text2) + Val(Text3)
    If Val(Text4) Mod 2 = 0 Then
        MsgBox "和为偶数"
    Else
        MsgBox "和为奇数"
    End If
End Sub