Dim a As Single, b As Single, c As Single, d As Single Dim x1 As Single, x2 As Single
a = Text1
b = Text2
c = Text3
d = b ^ 2 - 4 * a * c
If a = 0 Then
x1 = -1 * c / b
x2 = -1 * c / b
Label1.Caption = "x1=" & x1
Label2.Caption = "x2=" & x2
ElseIf d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label1.Caption = "x1=" & x1
Label2.Caption = "x2=" & x2
ElseIf d < 0 Then
x1 = -b / (2 * a)
x2 = Sqr(-d) / (2 * a)
Label1.Caption = "x1=" & x1 & "+" & x2 & "i"
Label2.Caption = "x2=" & x1 & "-" & x2 & "i" End If
Private Sub Command1_Click()
Dim x#, s#, i#, g#, n#
x = InputBox("请输入x的值")
For g = 1 To 5
s = s + (x ^ g / f(g))
Next g
Print s
End Sub
Function f(n)
f = 1
For i = 1 To n
f = f * i
Next i
End Function
Dim a As Single, b As Single, s As Single, n As Integer, h As Single
a = InputBox("a的值")
b = InputBox("b的值")
n = InputBox("n的值")
h = (b - a) / n
s = 0
For i = 1 To n
s = s + (1 + Sin(a + (i - 1) * h)) * h
Next
Print s
\Dim a() As Single, max As Single, n As Integer
n = InputBox("请输入学生人数")
ReDima(1 To n)
For i = 1 To n
a(i) = InputBox("请输入第" &i& "个学生的成绩") Print a(i);
Next
max = a(1)
For i = 1 To n
If max < a(i) Then
max = a(i)
End If
Next
Print "最高成绩为" & max
Public Sub sz(a() As Integer)
Dim max As Integer, min As Integer, i As Integer, j As Integer
Dim n1 As Integer, n2 As Integer, m1 As Integer, m2 As Integer
n1 = LBound(a, 1)
n2 = UBound(a, 1)
m1 = LBound(a, 2)
m2 = UBound(a, 2)
For i = n1 To n2
max = a(i, m1)
min = a(i, m1)
For j = m1 To m2
If max < a(i, j) Then
max = a(i, j)
End If
If min > a(i, j) Then
min = a(i, j)
End If
Next
Print "第" &i& "行的最大值为" & max; Print "第" &i& "行的最小值为" & min Next
For j = m1 To m2
max = a(n1, j)
min = a(n1, j)
For i = n1 To n2
If max < a(i, j) Then
max = a(i, j)
End If
If min > a(i, j) Then
min = a(i, j)
End If
Next
Print "第" & j & "列的最大值为" & max;
Print "第" & j & "列的最小值为" & min
Next
End Sub
Dim a As Single, b As Single, c As Single Dim x1 As Single, x2 As Single, d As Single
a = Text2.Text
b = Text3
c = Text4
d = b ^ b - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label6.Caption = "x1="& x1
Label7.Caption = "x2=" & x2
End If
Private Sub Command1_Click()
Dim xh%(1 To 8), cj%(1 To 8), i#, zf#, pjf#, max# For i = 1 To 8
xh(i) = InputBox("请输入第" & i & "个同学的学号") cj(i) = InputBox("请输入第" & i & "个同学的成绩") zf = zf + cj(i)
Next
pjf = zf / 8
max = 1
For i = 2 To 8
If cj(i) > cj(max) Then
max = i
End If
Next
Print "总分为"; zf
Print "平均分为"; pjf
Print "最高分的成绩和学号"; cj(max), xh(max)
End Sub
Boolean 是一种数据类型有两个值true和false
Public Function runnian(y As Integer) As Boolean
If y Mod 4 <> 0 Then
runnian = False
ElseIf y Mod 100 <> 0 Then
runnian = True
ElseIf y Mod 400 <> 0 Then
runnian = False
Else
runnian = True
End If
End Function
除以4或400不等于0不是闰年,除以100不等于0以及其
他剩余情况都是闰年。
Dim f As Double, f1 As Double, x0 As Double, x1 As Double x1 = 0
Do
x0 = x1
f = x0 ^ 5 - 3 * x0 ^ 2 + 2 * x0 + 1
f1 = 5 * x0 ^ 4 - 6 * x0 + 2
x1 = x0 - f / f1
Loop While Abs(x0 - x1) > 0.000001
Print x1
Dim s As Double
s = Text5
MsgBox s & "秒"
MsgBox s / 60 & "分"
MsgBox s / 3600 & "时"
MsgBox s / (60# * 60# * 60#) & "天"
丛·大到小的顺序大于号变成小于号!
Private Sub Command1_Click()
Dim a#, b#, c#, t#
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
Print "输入的三个数为:"; a, b, c
If a > b Then
t = a
a = b
b = t
End If
If a > c Then
t = a
a = c
c = t
End If
If b > c Then
t = b
b = c
c = t
End If
Print "从小到大排列后为:"; a, b, c
End Sub
Private Sub Command1_Click()
Dim cj%(1 To 30), min#, max#, bjg#, zf#, pjf# For i = 1 To 30
cj(i) = Format(Rnd * 100, 0#)
If cj(i) < 60 Then
bjg = bjg + 1
End If
zf = zf + cj(i)
Next
pjf = Format(zf / 30, 0#)
max = 1
For i = 2 To 30
If cj(i) > cj(max) Then
max = i
End If
Next
min = 1
For i = 2 To 30
If cj(i) < cj(min) Then
min = i
End If
Next
Print "总分"; zf
Print "平均分"; pjf
Print "最高分和最低分"; cj(max), cj(min) Print
Print "不及格的人数为"; bjg
End Sub
Dim a(1 To 5) As Integer, t As Integer For i = 1 To 5
a(i) = i
Print a(i);
Next
t = a(5)
For i = 4 To 1 Step -1
a(i + 1) = a(i)
Next
a(1) = t
For i = 1 To 5
Print a(i);
Next
Private Sub Command6_Click()
Dim n As Integer, i As Integer
n = InputBox("请输入n的值")
Call huiwen(n)
End Sub
Public Sub huiwen(n As Integer)
Dim s1 As String, i As Integer, s2 As String s1 = n
If Len(s1) = 1 Then
Print n & "是回文"
Else
s2 = ""
For i = Len(s1) To 1 Step -1
s2 = s2 & Mid(s1, i, 1)
Next
If s1 = s2 Then
Print n & "是回文"
End If
End If
End Sub
Dim i As Integer, j As Integer, k As Integer Print Tab(40); "九九乘法表"
Print Tab(38); "-------------"
For i = 1 To 9
For j = 1 To i
k = i * j
Print i & "*" & j & "=" & k,
Next
Next
Dim n As Integer, a() As Integer, i As Integer, sum As Integer
n = InputBox("请输入Fibonacci数列的个数")
ReDim a(1 To n)
a(1) = 1
a(2) = 1
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Next
For i = 1 To n
Print a(i);
Next
sum = 0
For i = 1 To n
sum = sum + a(i) Next
Print sum
Function fun(n)
f = 1
For i = 1 To n
f = f * i
Next i
End Fuction