VB常用算法总结.docx

VB常用算法总结
VB常用算法总结
一、变量值的交换
算法思想：若交换两个变量的值，必须引入第三个新的变量进行传递。
以下代码是错误的：
X=12 ：Y=34 ：X=Y ：Y=X
六、常用字符处理函数
Mid函数：从字符串指定位置取指定个字符，格式为Mid (字符,p,n) ，从第p个字符开始，向后截取n个字符（若n省略则取到最后）。
Left和Right函数：从字符串左边或右边取指定个字符，格式为Left (字符,n)和Right (字符,n)。
Len函数：测试字符串长度。
UCase和LCase函数：UCase将小写字母转换为大写字母；LCase将大写字母转换为小写字母。
Instr([首字符位置, ] 字符串1, 字符串2 [ , n])：在字符串1中查找字符串2，如果找到，返回字符串2的第一个字符在字符串1中出现的位置。首字符位置是可选的，如果不指定，从字符串起始位置开始查找；如果指明，从指定的位置开始查找。
Asc函数：返回字符串中第一个字符的ASCII码。
Chr函数：将一个数值转换为其所对应的字符。
字符的比较规则是按ASCII码顺序比较，规则为空格= "a" And s1 = "a" And s1 = "A" And s1 n-1 Then Print "是素数" Else Print "不是素数"
End Sub
例题：输出2～n范围的全部素数。
Private Sub Command1_Click()
n = Val()
For i = 2 To n
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
使用Do While循环判断是否是素数
九、最大公约数和最小公倍数
算法思想：
（1）对于已知两数x、y，使得x>y
（2）x除以y得余数r；
（3）若r=0，则x为求得的最大公约数，算法结束；否则执行步骤（4）
（4）x←y，y←r，再重复执行（2）
求得了最大公约数后，最小公倍数就可很方便地求出，即将原来的两数相乘除以最大公约数。
Private Sub Form_Click()
x = Val(InputBox("请输入第一个数："))
y = Val(InputBox("请输入第二个数："))
If x < y Then
t = x
x = y
y = t
End If
x 1 = x
y1 = y
Print x, y
Do While y 0
r = x Mod y
x = y
P