【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了VB程序 - 计算机教材相关资料，希望对各位网友有所帮助!

1. 本程序的功能是生成20个不可约真分数每行5个现实在文本框中。

    要求分子和分母均为两位正整数且分数中没有相同数字。

    不可约真分数分子小于分母且分子和分母除1以外没有其他公约数。

     显示格式27/53 14/39 28/41 49/81 17/24 23/81 70/83 31/67 23/94 12/35 19/56 15/76 46/91 40/89 10/93 39/61 27/86 29/86 57/82 30/41 程序如下Option Explicit Private Sub Command1_Click Dim fz As Integer fm As Integer js As Integer Randomize Do fz Int90 Rnd 10 fm Int90 Rnd 10 If fz fm Then If validatefz fm Then Text1 Text1 fz / fm js js 1 If js Mod 5 0 Then Text1 Text1 vbCrLf End If End If Loop While js 20 End Sub Private Function validatefz As Integer fm As Integer As Boolean Dim N As Integer i As Integer s As String For N 2 To fz If fz Mod N 0 And fm Mod N 0 Then Exit Function Next N s fz fm For i 1 To Lens - 1 For N i 1 To Lens If Mids i 1 Mids N 1 Then Exit Function End If Next N Next i validate True End Function Private Sub Command2_Click Text1 End Sub Private Sub Command3_Click End End Sub 2. 本程序的功能是找出100以内的所有因子包括1和本身之和为一个完全平方数的正整数并按图示格式将结果显示在列表框中。

     显示格式 3:13422 22:1211223662 66:123611223366144122 70:125710143570144122 81:2 94:124794144122 程序如下 Option Explicit Option Base 1 Private Sub Command1_Click Dim i As Integer j As Integer Dim F As Integer sum As Integer Dim S As String For i 3 To 100 sum 0 If Faci F sum Then S i : For j 1 To UBoundF - 1 S S Fj Next j List1.AddItem S Fj sum Sqrsum 2 End If Next i End Sub Private Function FacByVal K As Integer A As Integer sum As Integer As Boolean Dim N As Integer j As Integer For N 1 To K If K Mod N 0 Then j j 1 ReDim Preserve Aj Aj N sum sum N End If Next N If sum IntSqrsum 2 Then Fac True End Function Private Sub Command2_Click List1.Clear End Sub Private Sub Command3_Click End End Sub 3. 本程序的功能是把1020范围内的数分别表示成若干个质因子连乘的形式。

     显示格式1025 1111 12223 1313 1427 1535 162222 1717 18233 1919 20225 程序如下 Option Explicit Option Base 1 Private Sub Command1_Click Dim j As Integer pf As Integer i As Integer Dim st As String For i 10 To 20 Call primei pf st CStri For j 1 To UBoundpf - 1 st st Strpfj Next j st st Strpfj List1.AddItem st Next i End Sub Private Sub primeByVal n As Integer a As Integer Dim i As Integer k As Integer i 2 Do If n Mod i 0 Then k k 1 ReDim Preserve ak ak i n n i Else i i 1 End If Loop Until n