ACCESS数据库(更正版)
- 格式:doc
- 大小:28.50 KB
- 文档页数:2
求1到100的和do循环
Public Sub sum()
Dim i, sum As Integer
Do while i<100
I=i+1
sum = sum + i
Loop
MsgBox sum
End Sub
求1到100的和的for循环
Public Sub sum()
Dim i, sum As Integer
For i = 1 To 100
sum = sum + i
Next
MsgBox sum
End Sub
三角形三边求面积VB
Private Sub Form_Load()
Do
Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(InputBox("请输入三角形第1条边长"))
If a = -1 Then Exit Do
b = Val(InputBox("请输入三角形第2条边长"))
If b = -1 Then Exit Do
c = Val(InputBox("请输入三角形第3条边长"))
If c = -1 Then Exit Do
p = (a + b + c) / 2
If a >= p Or b >= p Or c >= p Then
MsgBox "不能构成三角形"
Else
s = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox "面积为" & s
End If
Loop
End
End Sub
解一元二次方程VB
Private Sub Form_Load()
Dim a, b, c, d As Single
a = Val(InputBox("请输入0=a*x^2+b*x+c的a"))
b = Val(InputBox("请输入0=a*x^2+b*x+c的b"))
c = Val(InputBox("请输入0=a*x^2+b*x+c的c"))
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
MsgBox "x1=" & x1
MsgBox "x2=" & x2
Else
MsgBox "无实数解!"
End If
End Sub。