几个有用vb程序.docVIP

自编VB函数库-函数-编程 2010-12-29 12:58 自编VB函数库-函数-编程 最后更新于 2011.1.3 常见常用编程函数，大部分都是自己写的，以后将不断完善，如有错误，请读者及时指出。(本人菜鸟^_^)☆HYPERLINK /bd_tianda/home \t _blankitianda☆ 目录 1.打印三角形 2.判断素数（质数） 3.交换变量 4.冒泡排序（HYPERLINK /bd_tianda/blog/item/7ae62900b814ac96e850cdbd.html \t _blank查看详细） 5.延迟函数 6.Eval函数-在VB中使用Eval 7.文字三角形（由第一个函数“打印三角形”改造） 8.RGB颜色的分解 9.文字三角形（更新版） 正文 1.打印三角形 函数说明：打印三角形，成功返回1，失败返回0 参数说明：maxLength是底边中的字符个数，direction指明三角形的方向（上或下） Function PrintTriangle(ByVal maxLength As Long, ByVal direction As Boolean) As Long If maxLength Mod 2 0 Then Const dir_Up = True Const dir_Down = False Dim s, s1, s2, s3 As String printline = (maxLength + 1) / 2 For i = 1 To printline s1 = String(printline - i, ) s2 = String((2 * i - 1), *) s3 = s1 If direction = dir_Up Then If Len(s) = 0 Then s = s + s1 + s2 + s3 Else s = s + vbNewLine + s1 + s2 + s3 End If Else If Len(s) = 0 Then s = s1 + s2 + s3 + s Else s = s1 + s2 + s3 + vbNewLine + s End If End If Next Me.Print s PrintTriangle = 1 Else PrintTriangle = 0 End If End Function 2.判断素数（质数） 说明：2 既不是质数，也不是合数 Function IsSushu(ByVal Num As Integer) Dim Sushu As Boolean Sushu = True If Num = 2 Then For i = 2 To Num - 1 If (Num Mod i) = 0 Then Sushu = False Exit For End If Next IsSushu = Sushu Else IsSushu = False End If End Function 3.交换变量 说明：注意是ByRef，不是ByVal Sub Swap(ByRef a, ByRef b) 交换变量 c = a a = b b = c End Sub 4.冒泡排序（HYPERLINK /bd_tianda/blog/item/7ae62900b814ac96e850cdbd.html \t _blank查看详细） Sub Swap(ByRef a, ByRef b) 交换两数 c = a a = b b = c End Sub Sub SmallFirst(ByRef a, ByRef b) 交换两数使较小的数字在前 If a b Then Swap a, b End Sub Sub Sort(ByRef Numbers()) 冒泡排序 c = UBound(Numbers, 1) For i = 1 To c - 1 For j = 0 To c - 2 SmallFirst Numbers(j), Numbers(j + 1) Next j Next i End Sub 5.延迟???数 说明：不会“假死”的延迟函数，好像也叫异步延迟，用来代替API函数“Sleep”，参数的单位是毫秒 下面是两个延迟函数，第二个误差比第一个小，后面有误差比较图 第一个延迟函数（简记为 Delay1） Sub Delay(ByVal Milliseconds As Long) time1 = GetTickCount Do DoEvents time2 = GetTickCount Sleep 1 　 这句是在网友HYPERLINK /i/137114564?st_mod=pbfr=tb0_forums