与VB的首次会面

近期因为需要在学习VB语言，为方便以后学习，将学习过程的一些东西记录下来，因为参考了很多网站的资料，所以有很多来自其他网站的内容，如有冒犯，还请海涵。

1.与VB的首次会面

运行现象：4个对象，运行时，点击’自动移动’或’手动移动’即可

当点击’自动移动’时，字符串’欢迎使用VB’开始连续自动移动

当点击’手动移动’时，字符串’欢迎使用VB’只移动一下

'运行现象：4个对象，运行时，点击'自动移动'或'手动移动'即可

'当点击'自动移动'时，字符串'欢迎使用VB'开始连续自动移动

'当点击'手动移动'时，字符串'欢迎使用VB'只移动一下


Public a As Integer

Private Sub Command1_Click()
Timer1.Interval = 100  '时间间隔控制
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
Label1.Move Label1.Left, Label1.Top + 50		'位置移动
If Label1.Top > Form1.ScaleHeight Then Label1.Top = a
End Sub

Private Sub Form_Load()
Timer1.Interval = 0
a = Label1.Top
End Sub

Sub mymove()
Label1.Move Label1.Left, Label1.Top + 50
If Label1.Top > Form1.ScaleHeight Then Label1.Top = a
End Sub

Private Sub Timer1_Timer()
Call mymove
End Sub

2.人民币与美元的兑换

先清屏

输入：人名币，汇率，美元（不论对错）

选择相应兑换方式，即可生成对应结果

'先清屏

'输入：人名币，汇率，美元（不论对错）

'选择相应兑换方式，即可生成对应结果

Private Sub Command1_Click()
Text1.Text = ""		'清屏
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text1.Text = Val(Text3.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
End		'退出
End Sub

3.求三角形面积和边长
输入三角形三边x,y,z，注意三边的关系应符合三角形要求
点击’计算面积‘，即可在’S’处生成该三角形面积
点击’周长’，即可在文本款中生成该三角形的周长

'输入三角形三边x,y,z，注意三边的关系应符合三角形要求

'点击'计算面积‘，即可在'S'处生成该三角形面积

'点击'周长'，即可在文本款中生成该三角形的周长

Private Sub Command1_Click()
    Dim x!, y!, z!, c!, s!
    x = Val(Text1.Text)         
    y = Val(Text1.Text)  
    z = Val(Text1.Text)
    c = (x + y + z) / 2
    s = Sqr(c * (c - x) * (c - y) * (c - z))  '海伦公式
    Label2.Caption = Format(s, "0.00")    
End Sub

Private Sub Command2_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End Sub