VB重要代码(VIP).doc

全国计算机等级考试中常用的程序编程部分:
求最大数、最小数、求和以及求平均数
求阶层
求最大公约数
求素数
求水仙花数(拆数法)
排序(选择排序、直接插入排序和冒泡排序)
字符操作
字符串取反(反向输出字符串)
判断字符串中的某个字符是否为字母
统计每类字符的个数
矩阵求法(二维数组)
文件读写操作
字符型读写操作
数值型读写操作
注:加粗部分即为考试填空部分,看完上机题能拿高分,建议把代码一句句的敲到VB里面,加强记忆,增强VB语言感!


一、求最大数、最小数、求和以及求平均数
例题:随机产生10个两位整数,并存入数据a中,然后分别求10个元素中的最大数、最小数、求10个元素之和以及它们的平均数。
Private mand1_Click()
Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer
Dim Sum as Integer, Avg As Single
Sum=0
For i= 1 To 10
a(i)=Int(Rnd*90)+10 ’产生10—99之间的随机整数
Next i
Max=a(1):Min=a(1) ’假设最大数和最小数
For i= 1 To 10
If Max<a(i) Then ’求最大数
Max=a(i)
End If
If Min>a(i) Then ’求最小数
Min=a(i) Then
End if
Sum=Sum+a(i) ’求和
Next i
Avg=Sum/10 ’求平均数
Print “最大数:”;Max;“最小数:”;Min;“和:”;Sum;“平均数:”;Avg
End Sub
二、求阶层
例题:求10!.
Private mand1_Click()
Dim Sum As Long, i As Integer
Sum=1
For i= 1 To 10
Sum=Sum*i
Next i
Print “10!=”;Sum
End Sub
三、求最大公约数
例题:求M和N两个数的最大公约数。
Private mand1_Click()
Dim M As Integer, N As Integer, R As Integer
M=36:N=24
Do
R=M Mod N
M=N
N=R
Loop While R<>0 ’或 Loop Until R=0
Print “M和N的最大公约数为:”;M
End Sub
四、求素数
例题:求100—200之间的所有素数,并按每行5个元素格式输入所有素数。
Private mand1_Click()
Dim n As Integer ,i As Integer j As Integer
For n = 100 To 200
For i = 2 To n-1 ’n-1可以是n/2,也可以是Sqr(n)形式 If n Mod i =0 Then Exit For
Next i
If i>n-1 Then
j=j+1 ’统计素数个数
Print n;