简单vb程序设计实例,VB编写简单的计算器程序

简单vb程序设计实例,VB编写简单的计算器程序详细介绍

本文目录一览： 怎样用VB编写简单的计算器程序？？

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
解析:

其实比较简单啦,用一个窗体就可以实现啦!
我自己写的,你可以看看
Option Explicit
Dim strNumber As String

Dim strPoint As String
Dim dblNum1 As Double
Dim intOperator As Integer
'清除结果
Private Sub cmdGT_Click()
txtDisplay.Text = "0."
strNumber = ""
strPoint = "."
intOperator = 7
End Sub
'输入数字
Private Sub cmdNumber_Click(Index As Integer)
strNumber = strNumber & cmdNumber(Index).Caption
txtDisplay.Text = strNumber & strPoint
End Sub
Private Sub cmdOnOff_Click()
End
End Sub
'运算过程
Private Sub cmdOperator_Click(Index As Integer)
Dim dblnum2 As Double
'是第一次单击运算符时，将输入的值先赋给第一个数，否则赋值给第二个数进行运算
If intOperator = 7 Then
dblNum1 = CDbl(txtDisplay.Text)
Else
dblnum2 = CDbl(Val(txtDisplay.Text))
'根据输入的符号进行运算
'求普通运算
Select Case intOperator
Case 0
dblNum1 = dblNum1 + dblnum2
Case 1
dblNum1 = dblNum1 - dblnum2
Case 2
dblNum1 = dblNum1 * dblnum2
Case 3
If dblnum2 <> 0 Then
dblNum1 = dblNum1 / dblnum2
Else
MsgBox "除数不能为“0”！请重新输入除数。", vbOKOnly + vbInformation, "除零错误"
Index = intOperator
End If
Case 6
dblNum1 = dblNum1 * dblnum2 / 100
End Select
End If
'取得当前输入的运算符，以做下次运算
intOperator = Index
strNumber = ""
txtDisplay = CStr(dblNum1)
'判断是否为文本框中的数字加点
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub
Private Sub cmdOtherOper_Click(Index As Integer)
Dim dblNum As Double
'求平方根，平方，
dblNum = CDbl(Val(txtDisplay.Text))
Select Case Index
Case 0
'验证数据是否有效
If dblNum >= 0 Then
txtDisplay.Text = CStr(Sqr(dblNum))
Else
MsgBox "负数不能开平方根！", _
vbOKOnly + vbCritical, "开平方根错误"
End If
Case 1
txtDisplay.Text = CStr(dblNum ^ 2)
End Select
'判断是否为文本框中的数字加点
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub
Private Sub cmdPoint_Click()
strNumber = strNumber & strPoint
strPoint = ""
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'使被按下的数字键的对应按钮取得焦点
Select Case KeyCode
Case 48 To 57
cmdNumber(KeyCode - 48).SetFocus
Case 96 To 105
cmdNumber(KeyCode - 96).SetFocus
Case Else
'使按下的符号键对应的按钮取得焦点
If KeyCode = 107 Or (Shift = vbShiftMask And KeyCode = 187) Then
cmdOperator(0).SetFocus
cmdOperator_Click (0)
ElseIf KeyCode = 109 Or KeyCode = 189 Then
cmdOperator(1).SetFocus
cmdOperator_Click (1)
ElseIf KeyCode = 106 Or (Shift = vbShiftMask And KeyCode = 56) Then
cmdOperator(2).SetFocus
cmdOperator_Click (2)
ElseIf KeyCode = 111 Or KeyCode = 191 Then
cmdOperator(3).SetFocus
cmdOperator_Click (3)
ElseIf KeyCode = 13 Then
cmdOperator(7).SetFocus
cmdOperator_Click (7)
ElseIf KeyCode = 8 Then
cmdGT.SetFocus
Call cmdGT_Click
End If
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'将合法的数据输入到文本框
Select Case KeyAscii
Case 48 To 58
'调用数字键点击处理程序
cmdNumber_Click KeyAscii - 48
KeyAscii = 0
Case 46
'调用小数点输入
cmdPoint_Click
KeyAscii = 0
Case 13
'当敲击回车时，不能触发Form的 KeyUp 事件，因此在这里设置文本框的焦点
txtDisplay.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay.SetFocus
End Sub
Private Sub Form_Load()
strNumber = ""
strPoint = "."
intOperator = 7
End Sub

VB教程第一章：我的第一个VB程序——“跟我来学VB神童教程”

一、打开程序：
点击桌面上的 Visual Basic 图标，在弹出的如图一的窗口中选择“创建标准 EXE”按钮。

这就是创建了一个新的“标准 EXE”文件了。
二、工作界面简介：
默认的 VB 工作界面由标题栏（1）、菜单栏（2）、工具栏（3）、工具箱面板（4）、程序设计区（5）、项目窗口（6）、属性窗口（7）、布局窗口（8）组成，至于它们具体有什么作用，我们将在以后的实例学习中接触，这里就不予以说明。
三、编写我的第一个应用程序：
＜1＞、应用程序要产生的效果：
创建的应用程序要有什么样的功能？这是开发每一个应用程序必须最先想到的。
我们的第一个应用程序非常简单，使用者只需点击程序上的一个按钮，程序界面上就会显现“跟我来学 VB 神童教程”字样。
＜2＞、开发思路：
根据应用程序要实现的功能，那么我们至少需要制作一个按钮、一个程序界面，为了让应用程序更规范，我们还需要创建一个用来显示“跟我来学 VB 神童教程”字样的容器。
＜3＞、具体制作过程：
1、创建一个新的“标准 EXE”文件，如第一步所做。
需要指出的是，这个以 Form1 为标题栏的程序界面就是我们需要的“程序界面”，也是用户首先看到的对象，所以尽可能将其做得美观一点。
当然，对应用界面的美化问题我们将在以后探讨。
2、根据开发思路，现在我们来制作按钮。

简单VB编程！求高手帮忙，答对必追加悬赏！

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

1，从输入框中输入圆的半径，计算圆的周长和面积。
2，比较两个数X和Y的大小，如果X小于Y,交换他们的值，写出程序代码。
谢谢高手了。。
解析:

不用加任何控件，把代码复制就行，单击窗体实现

1:
Private Sub Form_Click()
r = InputBox("请输入圆的半径")
MsgBox "圆的面积为" & 3.14 * r ^ 2 & vbCrLf & "圆的周长为：" & 2 * 3.14 * r
End Sub
2:
Private Sub Form_Click()
a1 = InputBox("请输入第一个数")
a2 = InputBox("请输入第2个数")
Print "你输入的两个数为：x=" & a1 & ",y=" & a2
If Val(a1) < Val(a2) Then
Print "X小于Y交换他们的值"
t = a1
a1 = a2
a2 = t
Print "交换后x=" & a1 & ",y=" & a2
Else
Print "X不小于Y，不用交换"
Print "x=" & a1 & ",y=" & a2
End If
End Sub

vb程序设计单击窗体,求200到300之间既能被3整除又能被7整除的数

Private Sub Form_Click()
Dim i As Integer
For i = 200 To 300
If (i Mod 3 = 0) And (i Mod 7 = 0) Then Print i
Next i
End Sub
扩展资料：
VB基本特点：
1、VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。
VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。
过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。
2、窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。
举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。
3、VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。
4、VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
5、VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。
和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。
6、VB 使得大量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。
参考资料：百度百科——VB

VB编写简单的计算器程序

工具/材料 电脑
VB软件
01 打开VB，新建一个EXE文件。
02 画上四个方框，表示运算法则（即加减乘除四项），3个文本控件表示数，一个标签控件为“=”。并对控件进行命名。
03 然后进行代码编写。双击对应的按钮控件，进入代码编写界面。Text3.Text = Val(Text1.Text) + Val(Text2.Text)，就这一句只要更换把‘+’分别换成‘-’‘*’‘/’即可。
04 最后，按“F5”运行即可咯。
特别提示 VB的编写相对其他程序语言会简单一些，感兴趣者可以深入研究。

如何使用VB编写一个简单的小程序？

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。
接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。
然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。
接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。
然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。
最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

vb程序设计实例100

试题一.1
Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和与倒数
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
试题一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待续，未完...

vb程序设计实例

Private Sub Form_Activate()
'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)
Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)
Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)
Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)
Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)
Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)
End Sub
Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function
Private Sub Form_Load()
AutoRedraw = True
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button30.Click
Dim a As Double, b As Double, c As Double, d As Double, n As Double
Dim u As Double, v As Double, w As Double, x As Double, y As Double, z As Double
If TextBox0.Text = "" Then
MsgBox("请输入现有钱数n!")
Exit Sub
End If
n = Val(TextBox0.Text)
a = 0.0225
b = 0.0243
c = 0.027
d = 0.0288
u = (n * ((1 + d) ^ 5))
v = (n * ((1 + c) ^ 3)) * ((1 + b) ^ 2)
w = (n * ((1 + c) ^ 3)) * ((1 + a) ^ 2)
x = n * ((1 + b) ^ 2) * (1 + a)
y = n * (1 + b) * ((1 + a) ^ 3)
z = n * ((1 + a) ^ 5)
TextBox1.Text = u
TextBox2.Text = v
TextBox3.Text = w
TextBox4.Text = x
TextBox5.Text = y
TextBox6.Text = z
'已成功调试 ,在TextBox0.Text输入10000 则输出
'11176.7769346182
'10950.0757304219
'10727.97276025
'11324.9935711827
'11364.9015050804
'11525.3673838712
End Sub
有问题在线联系...
你要什么系统？
你用计算器算一下不就行了么？
VB算也是调用的系统计算器。
x*(1+2.88%）
x*(1+2.70%*2.25%*3.25%)

关于一个VB程序设计

程序界面如上图所示：一个标签（名称为Label1)，三个复选框（名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝）一个命令按钮（名称为Command1,Caption属性为结束）,完成程序功能的代码如下：
Dim red As IntegerDim green As IntegerDim blue As Integer
Private Sub Check1_Click()If Check1.Value = 1 Then red = 255Else red = 0End IfLabel1.BackColor = RGB(red, green, blue)End Sub
Private Sub Check2_Click()If Check2.Value = 1 Then green = 255Else green = 0End IfLabel1.BackColor = RGB(red, green, blue)End Sub
Private Sub Check3_Click()If Check3.Value = 1 Then blue = 255Else blue = 0End IfLabel1.BackColor = RGB(red, green, blue)End Sub
Private Sub Command1_Click()EndEnd Sub
Private Sub Form_Load()red = 0green = 0blue = 0Label1.BackColor = RGB(red, green, blue)End Sub

用VB设计一个蝴蝶飞动的程序

给你一个只移动的例子。（我用的是shape分别代表的蝴蝶和边界）
Private Sub Timer1_Timer()
Static a, b
If Shape2.Left <= Shape1.Left Then
a = 15
End If
If Shape2.Top <= Shape1.Top Then
b = 15
End If
If Shape2.Left >= Shape1.Width + Shape1.Left - Shape2.Width Then
a = -15
End If
If Shape2.Top >= Shape1.Height + Shape1.Top - Shape2.Height Then
b = -15
End If
Shape2.Move Shape2.Left + a, Shape2.Top + b
End Sub
Private Sub Form_Load()
Me.Width = 2900
Me.Height = 3300
With Shape1:
.Top = 100
.Left = 100
.Width = 2500
.Height = 2700
End With
With Shape2:
.Top = 100
.Left = 100
.Shape = 3
.Width = 400
.FillStyle = 0
End With
a = 15: b = 15
End Sub
如果只是移动一个蝴蝶图片还比较简单，但是蝴蝶要飞动就比较麻烦，建议用flash 把flash放到Vb 上
用BitBit,或PaintPicture,或直接用Image1.Picture = Image2.Picture:Image1.Picture = Image3.Picture:Image1.Picture = Image4.Picture......
用Picture循环加载多图片完成动画，然后对Picture进行位置移动并判断。
因为这里只能上传一张图片，所以写了一个单张图片的。装载系列图片的我也写了，只是窗体初始化会很麻烦。以下代码是实现单张图片的随意飞舞程序，能做到：
1、碰到窗体边缘时，图片会自动改变飞舞的方向（题意中要求的“返回”，只能是在一条线上来回移动，本程序实现蝴蝶出发位置随意，能在窗体内四处飞舞），而且头部也会跟着改变方向
2、窗体改变大小时，蝴蝶不会消失不见，会立即在新的窗体内继续飞舞
'建一个Picture1控件，在它的属性对话框内设置Appearance=0 AutoRedraw=True AutoSize=True BorderStyle=0，然后在它的Picture中加载蝴蝶图片
'再建一个Picture2控件，在它的属性对话框内设置Appearance=0 AutoRedraw=False AutoSize=False BorderStyle=0，其他默认属性都不得改变
'Form的BackColor设为与蝴蝶图片的背景色一致，本程序中，即&H80000009&
'再加一个Timer1控件
Private Const Pi = 3.1415926535
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Dim x0!, y0!, x1!, x2!, y1!, y2!, foot!, zt% 'x0和y0是图片框长高，(x1,y1)-(x2,y2)是窗体坐标系，foot是蝴蝶移动步长，zt是蝴蝶飞舞的线路标记
Dim k! 'k或1/k是飞行轨迹的斜率
Dim flag As Boolean 'flag判断是顺时针还是逆时针飞舞
Private Sub bmp_rotate(pic1 As PictureBox, pic2 As PictureBox, ByVal theta As Single) '自定义角度旋转图片
Dim c1x As Integer, c1y As Integer
Dim c2x As Integer, c2y As Integer
Dim a As Single
Dim p1x As Integer, p1y As Integer
Dim p2x As Integer, p2y As Integer
Dim n As Integer, r As Integer
c1x = pic1.ScaleWidth / 2
c1y = pic1.ScaleHeight / 2
c2x = pic2.ScaleWidth / 2
c2y = pic2.ScaleHeight / 2
If c2x < c2y Then n = c2y Else n = c2x
n = n - 1
pic1hDC& = pic1.hdc
pic2hDC& = pic2.hdc

For p2x = 0 To n
For p2y = 0 To n
If p2x = 0 Then a = Pi / 2 Else a = Atn(p2y / p2x)
r = Sqr(1& * p2x * p2x + 1& * p2y * p2y)
p1x = r * Cos(a + theta)
p1y = r * Sin(a + theta)
c0& = GetPixel(pic1hDC, c1x + p1x, c1y + p1y)
c1& = GetPixel(pic1hDC, c1x - p1x, c1y - p1y)
c2& = GetPixel(pic1hDC, c1x + p1y, c1y - p1x)
c3& = GetPixel(pic1hDC, c1x - p1y, c1y + p1x)
If c0& <> -1 Then xret& = SetPixel(pic2hDC, c2x + p2x, c2y + p2y, c0&)
If c1& <> -1 Then xret& = SetPixel(pic2hDC, c2x - p2x, c2y - p2y, c1&)
If c2& <> -1 Then xret& = SetPixel(pic2hDC, c2x + p2y, c2y - p2x, c2&)
If c3& <> -1 Then xret& = SetPixel(pic2hDC, c2x - p2y, c2y + p2x, c3&)
Next
t% = DoEvents()
Next
End Sub
Private Sub Place(ByVal picnum As Integer, ByVal x As Single, ByVal y As Single) '控制两个图片框的位置
If picnum = 1 Then
Picture1.Left = x
Picture1.Top = y
Else
Picture2.Left = x
Picture2.Top = y
End If
End Sub
Private Sub Direct(ByVal angle As Integer) '按指定角度旋转图片，angle是角度
angle = angle Mod 360
hudu = (Pi * angle * 1#) / (180 * 1#) '弧度
bmp_rotate Picture1, Picture2, hudu
End Sub
Private Sub Form_Activate()
x1 = 0!
x2 = 10000!
y1 = 0!
y2 = 10000!
Me.Scale (x1, y1)-(x2, y2)
Randomize
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
x0 = Picture1.Width
Picture2.Width = x0
y0 = Picture1.Height
Picture2.Height = y0
Picture1.Visible = True
Picture2.Visible = False
x = Int(1000 + (x2 - x1 - x0 - 1000) * Rnd) '蝴蝶出发处的横坐标
y = Int(1000 + (y2 - y1 - y0 - 1000) * Rnd) '蝴蝶出发处的纵坐标
k = y / x 'k为撞向水平边框或离开竖直边框的斜率，1/k则为撞向竖直边框或离开水平边框的斜率
Place 1, -x2, y2 - y0 '将图片框的复制源移出窗体的可见范围，但Visible属性又必须是True，否则复制图片会失败
Place 2, x, y '初始化蝴蝶的出发位置
Timer1.Enabled = True
Timer1.Interval = 100 '定义移动周期
zt = 0
End Sub
Private Sub Form_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Resize() '窗体改变大小时，坐标系需要重新定义
x1 = 0!
x2 = 10000!
y1 = 0!
y2 = 10000!
Me.Scale (x1, y1)-(x2, y2)
Cls
x0 = Picture1.Width
Picture2.Width = x0
y0 = Picture1.Height
Picture2.Height = y0
'如果蝴蝶在窗体外，则立即召回
If Picture2.Left < x1 Then Place 2, x1, Picture2.Top
If Picture2.Top < y1 Then Place 2, Picture2.Left, y1
If Picture2.Left > x2 - x1 - x0 Then Place 2, x2 - x1 - x0, Picture2.Top
If Picture2.Top > y2 - y1 - y0 Then Place 2, Picture2.Left, y2 - y1 - y0
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'zt=0,1,2,3时，分别表示顺时针向右上（简称顺右上）或逆左下，顺右下或逆左上，顺左下或逆右上，顺左上或逆右下
Private Sub Timer1_Timer()
foot = 100
x = Picture2.Left: y = Picture2.Top
Select Case True
Case (flag = True And zt = 0) Or (flag = False And zt = 2)
Place 2, x + foot, y - k * foot
'Line (x, y)-(x + foot, y - k * foot)
Direct 360
If Picture2.Left > x2 - x1 - x0 - foot Then zt = 1: flag = False '撞到垂直边框，将逆左上
If Picture2.Top < foot Then zt = 1: flag = True '撞到水平边框，将顺右下
Case (flag = True And zt = 1) Or (flag = False And zt = 3)
Place 2, x + foot, y + foot / k
'Line (x, y)-(x + foot, y + foot / k)
Direct 270
If Picture2.Left > x2 - x1 - x0 - foot Then zt = 2: flag = True '撞到垂直边框，将顺左下
If Picture2.Top > y2 - y1 - y0 - foot Then zt = 2: flag = False '撞到水平边框，将逆右上
Case (flag = True And zt = 2) Or (flag = False And zt = 0)
Place 2, x - foot, y + k * foot
'Line (x, y)-(x - foot, y + k * foot)
Direct 180
If Picture2.Left < foot Then zt = 3: flag = False '撞到垂直边框，将逆右下
If Picture2.Top > y2 - y1 - y0 - foot Then zt = 3: flag = True '撞到水平边框，将顺左上
Case (flag = True And zt = 3) Or (flag = False And zt = 1)
Place 2, x - foot, y - foot / k
'Line (x, y)-(x - foot, y - foot / k)
Direct 90
If Picture2.Left < foot Then zt = 0: flag = True '撞到垂直边框，将顺右上
If Picture2.Top < foot Then zt = 0: flag = False '撞到水平边框，将逆左下
End Select
Picture2.Visible = True
End Sub