vb编程实例2013.doc

文档介绍：实验30(1)
Public Class Form1
Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles
Dim a As String, b As String, c As String
Dim x1 As Single, x2 As Single
a = InputBox("输?入?A", "输?入?数簓据YY", , 500, 500)
b = InputBox("输?入?B", "输?入?数簓据YY", , 500, 500)
c = InputBox("输?入?C", "输?入?数簓据YY", , 500, 500)
x1 = -b + (b ^ 2 - 4 * a * c) / 2 / a
x2 = -b - (b ^ 2 - 4 * a * c) / 2 / a
MsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###"))
End Sub

Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles
Dim x As Single
Dim y As Single
x = InputBox("输?入?x")
y = (20) + (x - 16)
MsgBox("(20) + (x - 16)=" & y)
End Sub
计算落体
Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles
Const g As Single =
Dim v As Single, o As Single, t As Single, s As Single
v = InputBox("输?入?初?速ù度è")
o = InputBox("输?入?角?度è")
t = 2 * v * (o * / 180) / g
s = v * (2 * o * / 180) / g
MsgBox("落?地?所ù需è时骸?间?" & t & " 落?地?时骸?运?动ˉ的?射?程ì" & s)
End Sub
End Class
实验30 (2)
随机产生奇偶数并输出
Public Class Form1
Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles
Dim x As Integer
x = Int(Rnd() * 100)
If x Mod 2 = 0 Then
MsgBox(x & "是?偶?数簓")
Else
MsgBox(x & "是?奇?数簓")
End If
End Sub
比较三个数的大小并输出
Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles
Dim a As Single, b As Single, c As Single, x As Single, y As Single
a = InputBox("请?输?入?a")
b = InputBox("请?输?入?b")
c = InputBox("请?输?入?c")
If a > b Then
x = a
y = b
Else
x = b
y = a
End If
If c > a Then
x = c
Else
If c < b Then
y = c
End If
End If
MsgBox("最?大洙?数簓" & x & " 最?小?数簓" & y)
End Sub
计算当T<120时的计算(循