龚沛曾、杨志强、陆慰民版VB教程课后部分实验代码

程序设计教程

Private Sub Label1_Click()
Label1 = Left("visualbasic程序设计教程(第三版)", 11)
End Sub

Private Sub Label2_Click()
Label2 = Mid("visualbasic程序设计教程(第三版)", 12, 6)
End Sub

Private Sub Label3_Click()
Label3 = Right("visualbasic程序设计教程(第三版)", 5)
End Sub


单机次数
Private Sub Form_click()
Text1 = Val(Text1) + 1
End Sub


复制输出效果（代）
Private Sub Command1_Click()
Text1.FontSize = 25
Text1.FontName = "隶书"
End Sub

Private Sub Command2_Click()
Text2.Text = Text1.Text
End Sub

函数转换
Private Sub Form_Click()
Text2 = UCase(Text1)
Text3 = Len(Text1)
End Sub


加减法
Private Sub Command1_Click()
Text3.Text = Val(Text1) + Val(Text2)
End Sub


九九乘法表
Private Sub Form_Click()
Dim se As String
Print Tab(35); "九九乘法表"
Print Tab(35);
For i = 1 To 9
For j = 1 To 9
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9 + 1); se;
Next j
Print
Next i
End Sub


你输入的姓名是
Private Sub Command1_Click()
Label3.Caption = Text1.Text
End Sub


逆序输出
Private Sub Command1_Click()
Text1 = Int(Rnd * 900 + 100)
End Sub

Private Sub Command2_Click()
Text2 = Right(Text1, 1) + Mid(Text1, 2, 1) + Left(Text1, 1)
End Sub


人口增长
Private Sub Form_Click()
Dim n!, r!
r = 0.008
n = Log(2) / Log(1 + r)
Print n
End Sub


人民币、美圆兑换
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Private Sub Command2_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command3_Click()
Text1 = Val(Text3) * Val(Text2)
End Sub

Private Sub Command4_Click()
End
End Sub


上三角（乘法）
Private Sub Form_Click()
Dim se As String
Print Tab(35); "九九乘法表"
Print Tab(35);
For i = 1 To 9
For j = 1 To 9
If i <= j Then
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9 + 1); se;
End If
Next j
Print
Next i
End Sub


下三角
Private Sub Form_Click()
Dim se As String
Print Tab(35); "九九乘法表"
Print Tab(35);
For i = 1 To 9
For j = 1 To 9
If i >= j Then
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9 + 1); se;
End If
Next j
Print
Next i
End Sub


上网费用
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = Val(Text1)
If m < 10 Then
n = 30
ElseIf m < 50 Then
n = 2.5 * m
Else
n = 2 * m
End If
Text2 = n
If n > 150 Then
Text2 = 150
End If
End Sub
Private Sub Command2_Click()
End
End Sub






温度转换
Private Sub Command1_Click()
Dim f!, c!
f = Val(Text1)
c = 5 / 9 * (f - 32)
Text1 = Format(c, "0.00")
End Sub

Private Sub Command2_Click()
Text2 = Format(5 / 9 * (Val(Text1) - 32), "0.00")
End Sub



四 13
Private Sub Command1_Click()
Dim x$, n%
n = 20
Do While n <> 0
a = n Mod 2
n = n \ 2
x = Chr(48 + a) & x
Loop
Print x
End Sub



四 14
Private Sub Command1_

Click()
Dim x%, y%, z%
x = 242: y = 44
z = x * y
Do Until x = y
If x > y Then x = x - y Else y = y - x
Loop
Print x, z / x
End Sub


四 15
Private Sub Command1_Click()
Dim sum As Integer
Dim sjs(1 To 20)
Dim max As Integer
Dim min As Integer
For i = 1 To 20
sjs(i) = Int(Rnd * 51 + 50)
Print sjs(i);
If i Mod 10 = 0 Then Print
sum = sum + sjs(i)
Next
max = sjs(1)
min = sjs(1)
For i = 1 To 20
If max < sjs(i) Then
max = sjs(i)
End If
If min > sjs(i) Then
min = sjs(i)
End If
Next
Print
Print " Max="; max; " Min="; min; " Avg="; sum / 20
End Sub


星星
Private Sub Command1_Click()
Print
For i = 1 To 5
Print Tab(15 - 2 * i); String(2 * i - 1, "★"); Spc(22 - 4 * i); String(2 * i - 1, "★")
Next i
End Sub

Private Sub Command2_Click()
Cls
End Sub


循环结构 2
Private Sub Command1_Click()
For i = 1 To 9
Print Tab(10 - i);
For j = 1 To 2 * i - 1
Print Trim(Str(i));
Next j
Next i
End Sub



循环结构 3
Private Sub Command1_Click()
For i = 1 To 9
Print Tab(i);
For j = 1 To 20 - 2 * i
Print Chr(64 + i);
Next j
Next i
End Sub



圆的面积、周长
Private Sub Command1_Click()
Const pi = 3.1415926
r = Val(Text1)
s = pi * r ^ 2
Label2.Caption = Format(s, "0.00")
End Sub
Private Sub Command2_Click()
Const pi = 3.1415926
r = Val(Text1)
l = 2 * pi * r
Label3.Caption = Format(l, "0.00")
End Sub
Private Sub text1_lostfocus()
If Not IsNumeric(Text1) Then
Text1 = ""
Text1.SetFocus
MsgBox "输入有非数字字符，请重新输入"
End If
End Sub

星星（两种）
Private Sub Command1_Click()
For i = 1 To 5
Print Tab(15 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★")
Next i
End Sub
Private Sub Command2_Click()
Cls
End Sub


九九乘法表
Private Sub Form_Click()
Dim se As String
Print Tab(35); "九九乘法表"
Print Tab(35);
For i = 1 To 9
For j = 1 To 9
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9 + 1); se;
Next j
Print
Next i
End Sub


数字排列（小山）
Private Sub Form_Load()
For i = 1 To 9
Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)))
Next i
End Sub