VB实验指导例题.pdf

文档介绍：: .
实验 A If KeyAscii = 13 Then
If Not IsNumeric(Text1) Then
MsgBox " 输入有误 ,请重输入 "

= 0
= Len()
End If
End If
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox " 输入有非数字字符 ,请重新输入 ", , "2-2"

= = Len()
End If
End Sub
3． 我国有 13 亿人口，按人口增长 %计算，多少年后我国人口超过 26 亿。
（1）运行界面
（2）参考代码
Private Sub Command1_Click()
a = Int(Log(2) / (Log(1 + ))) + 1
= a & " 年后 ,我国人口超过 26 亿 "
End Sub
4． 输入一字符串，分别调用 Ucase、 Len 函数将其转换成大写字母并显示其字符串长度
（1） 运行界面
（2） 参考代码Private Sub Command1_Click()
= UCase()
= Len()
End Sub
5． 随机产生一个 3 位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产
生 735，输出是 537
（1）运行界面
（2）参考代码：
Private Sub Command1_Click()
x = Int((899 + 1) * Rnd + 100)
a = x \ 100
b = (x Mod 100) \ 10
c = x Mod 10
= x
= c * 100 + b * 10 + a
End Sub
6． 使用 Mid 、Left 、Right 函数。 在 Text1 文本框中输入一字符串， 在 label1、Label2 、Label3
中显示如图的效果。
（1） 运行界面（2）参考代码：
Private Sub Form_Click()
= 16
= 16
= 16
= 16
= "VisualBasic 程序设计教程 (第三版 )"
= Left(, 11)
= Mid(, 12, 6)
= Right(, 5)
End Sub
7． Print 方法练****显示字符图形。
（1） 运行界面
（2）参考代码：
（a）
Private Sub Command1_Click()
Print
For i = 1 To 5
Print Tab(13 - 2 * i); String(2 * i - 1, " ★"); Spc(22 - 4 * i); String(2 * i - 1, " ★ ")
Next i
End Sub
Private Sub Command2_Click()

End Sub
（b）
Private Sub Command1_Click()
Print
For i = 1 To 5
Print Tab(13 - 2 * i); String(2