Dim i%, j%, n%, s#, sum#
Private Sub Command1_Click()
n = V
al(Text1.Text)
s = 1: sum = 1
For i = 1 To n
For j = 1 To i
sum = sum * j
Next j
s = s + 1 / sum
Next i
Print "s="; s
End Sub
4.
通过键盘输入
15
个数,找到其中的最大值和最小值并对掉,将对调之后的结
果以红色
15
号子显示在
label1
中
Dim a(1 To 15) As Integer, i%, j%
Private Sub Command1_Click()
For i = 1 To 15
a(i) = V
al(InputBox("
请输入一个数
", " "))
Print a(i):
Next i
Dim b(1 To 15) As Integer
Max = a(1): imax = 1: Min = a(1): imin = 1
For i = 2 To 15
If a(i) > Max Then
Max = a(i)
imax = i
End If
If a(i) < Min Then
Min = a(i)
imin = i
End If
Next i
For i = 1 To 15
b(i) = a(i)
Next i
j = b(imax)
b(imax) = b(imin)
b(imin) = j
Label1.FontSize = 15
Label1.ForeColor = RGB(255, 0, 0)
For i = 1 To 15
Label1.Caption = Label1.Caption & " " & Str(b(i))
Next i
End Sub
4.
通过键盘输入
15
个数,找到其中的最大值和最小值并对掉,将对调之后的结
果以红色
15
号子显示在
label1
中
Dim a(1 To 15) As Integer, i%, j%
Private Sub Command1_Click()
For i = 1 To 15
a(i) = V
al(InputBox("
请输入一个数
", " "))
Print a(i):
Next i
Dim b(1 To 15) As Integer
Max = a(1): imax = 1: Min = a(1): imin = 1
For i = 2 To 15
If a(i) > Max Then
Max = a(i)
imax = i
End If
If a(i) < Min Then
Min = a(i)
imin = i
End If
Next i
For i = 1 To 15
b(i) = a(i)
Next i
j = b(imax)
b(imax) = b(imin)
b(imin) = j
Label1.FontSize = 15
Label1.ForeColor = RGB(255, 0, 0)
For i = 1 To 15
Label1.Caption = Label1.Caption & " " & Str(b(i))
Next i
End Sub
5.S=1!+2!+
…………
..+n!
计算
Dim s As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
n = V
al(InputBox("
请输入一个正整数
"))
s = 0
For i = 1 To n
m = 1
For j = 1 To i
m = m * j
Next j
s = s + m
Next i
Print "s="; s
End Sub
6.
打印
a a a a
B b b b
Dim ch(3) As String, i As Integer, j As Integer
Private Sub Form_click()
ch(0) = "a"
ch(1) = "b"
ch(2) = "c"
ch(3) = "d"
For i = 0 To 3
For j = 0 To 3
Print Tab(i * 5 + j * 5); ch(i);
Next j
Next i
End Sub
Dim a(1 To 10) As Long, i As Integer, s As Single
Private Sub Command1_Click()
For i = 1 To 10 '
通过键盘输入
10
个数,找到其中大于
60
的数,并求出这些数的和
a(i) = V
al(InputBox("
请输入一个数
")) '
将大于
60
的数和他们的和以红色
16
号字显示在
标签中
Print a(i), s = 0
Next i
For i = 1 To 10
If a(i) > 60 Then
s = s + a(i)
Label1.Caption = Label1.Caption & Str(a(i))
End If
Next i
Label1.ForeColor = RGB(255, 0, 0)
Label1.FontSize = 16
Label1.Caption = Label1.Caption & "
总和为:
" & Str(s)
End Sub
Dim a%, b%, c%
Private Sub Command1_Click()
a = V
al(Text1.Text)
b = V
al(Text2.Text)
c = V
al(Text3.Text)
If a + b > c And a + c > b And b + c > a Then
Picture1.Print "
这三边能构成一个三角形
"
If a = b Or a = c Or b = c Then
Picture1.Print "
这三边能构成一个等腰三角形
"
ElseIf a = b And b = c Then
Picture1.Print "
这三边能构成一个等边三角形
"
ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Then
Picture1.Print "
这三边能构成一个直角三角形
"
Else
Picture1.Print "
这三边能构成一个任意三角形
"
End If
Else
Picture1.Print "
这三边能不能构成一个三角形
"
End If
End Sub
Dim i As Integer, j As Integer, s As Single
Private Sub Command1_Click()
n = V
al(InputBox("
请输入一个正整数
")) '
编写程序计算
s = o
For i = 1 To n
m = 1
For j = 1 To i
m = m * j
Next j
s = s + m
Next i
Label1.Caption = s
End Sub
Private Sub Command1_Click()
Label1.Left = 150 '
将红色标签向下移
150
个单位
End Sub
Private Sub Command2_Click()
Label1.Caption = "
大家好
" '
在红色标签中显示
"
大家好
"
End Sub
Private Sub Command3_Click()
If Label1.Visible = False Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub