《VB_常用算法.docVIP

1.数据处理 2 1.1冒泡法排序 2 1.2选择法排序 2 1.3顺序查找 2 1.4折半查找 3 1.5阶乖与规则数求和 3 1.6最值与平均和素数 4 1.7进制间转换 5 2.字符处理 5 2.1简单加密和解密 5 2.2统计文本单词的个数 6 2.3如果单词仅以空格作为分隔符： 6 2.4大写字符的统计 7 2.5逐个字符处理 7 3.图形处理 7 3.1画出任意封闭曲线 7 3.2画出任意封闭折线 8 3.3根据条件画规则图形 8 1.数据处理 1.1冒泡法排序 核心，挨着的两两比较 For i = 1 To 10 For j = 10 To i + 1 step -1 If a(j) a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t //小数上沸 END If Next j Print a(i); Next i N个数的 For i = 1 To n - 1 For j = 1 To n-i If a(j) a(j+1) Then //大数沉底 temp=a(j) a(j)=a(j+1) a(j+1)=temp //大数沉底 End if Next j Next i 1.2选择法排序 核心，取第一个挨个的和后面的比较 For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then p = j Next j t = a(i) a(i) = a(p) a(p) = t Next i 1.3顺序查找 For p=1 to n If x=x( p) Then exit for Next p If p=n then print “找到”,x else print “没找到” End if 1.4折半查找 find = False 判断是否找到的逻辑变量，初值为False top = 1 bot = n n为数组下标的上界 Do While top = bot And Not find mid = (top + bot) / 2 If x = a(mid) Then find = True Print the position is ; mid ElseIf x a(mid) Then bot = mid - 1 Else top = mid + 1 End If Loop If (Not find) Then Print x; has not found 1.5阶乖与规则数求和 阶乖： Private Sub Command1_Click() Dim N, k, p, s As Integer N = Val(Text1.Text) p = 1: s = 0 For k = 1 To N p = p * k s = s + p Next Label1.Caption = 1!+2!+...+ N != s End Sub 规则数据验证： Private Sub Command1_Click() n = Val(Text1.Text) s = 3 For k = 1 To n V = 2 ^ k s = s - 1 / V D = Abs(2 - s) Label1.Caption = D End Sub 形如：1+21+321+4321+54321+。。。。+....N…321 Private sub command1_click() N=val(t