VB经典的程序设计题.doc
文本预览下载声明
累加求和1到100
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next
Text1.Text = sum
End Sub
Private Sub Command2_Click()
End
End Sub
1到100的奇数和
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 100 step 2
sum = sum + i
Next
Text1.Text = sum
End Sub
Private Sub Command2_Click()
End
求n!
Private Sub Command1_Click()
Dim fact As Double, n As Integer, i As Integer
n = Val(Text1.Text)
fact = 1
For i = 1 To n
fact = fact * i
Next
Text2.Text = fact
End Sub
计算人口
Private Sub Label1_Click()
Dim p As Single, r As Single, i As Single
p = 14
r = 0.012
i = 0
While p = 20
p = p * (1 + r)
i = i + 1
Wend
Print: Print
Print i; 年后，我国人口将达到; p; 亿
End Sub
累加求和1到100
（Do while）
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
i = 1
Do While i = 100
sum = sum + i
i = i + 1
Loop
Text1.Text = sum
End Sub
Private Sub Command2_Click()
End
End Sub
（Do Until）Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
i = 1
Do until i 100
sum = sum + i
i = i + 1
Loop
Text1.Text = sum
End Sub
Private Sub Command2_Click()
End
End Sub
求平均成绩
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
Dim pj As Single
a = 60: b = 70: c = 80: d = 90
pj = (a + b + c + d) / 4
Text1.Text = Str(pj)
End Sub
成绩鉴定
Private Sub Command1_Click()
Dim x As Single
x = Text1.Text
If x = 90 Then
Text2.Text = 优秀
ElseIf x = 80 Then
Text2.Text = 良好
ElseIf x = 70 Then
Text2.Text = 中
ElseIf x = 60 Then
Text2.Text = 及格
Else
Text2.Text = 不及格
End If
End Sub
求圆的周长
Private Sub Command1_Click()
Dim r As Double
Const pi = 3.1415926
r = Val(InputBox(请输入圆的半径))
Print 圆的周长为:, 2 * pi * r
End Sub
输入两个整数m n，使得m=n,并输出m n
Private Sub Command1_Click()
Dim m As Integer, n As Integer, a As Integer
m = Val(InputBox(请输入m:, 输入, m))
n = Val(InputBox(请输入n:, 输入, n))
If n m Then
a = m
m = n
n = a
End If
Print m=, m
Print n=, n
End Sub
计算sum=1/1!+1/2!......+1/10!
Private Sub Command1_Click()
Dim m As Integer, n As
显示全部