VB程序设计-素数判断并统计

VB程序设计素数判断并统计（作者：草原飞狼 2014年5月25日）声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。布局运行界面（1）运行界面（2）源代码如下：Private Sub Command1_Click()Rem 判断素数并进行统计，固定范围2-100Dim n, k As IntegerDim i As Integeri = 0 i用于控制换行For n = 2 To 100 Rem 以下是素数判断算法，认真理解 For k = 2 To Int(Sqr(n) If n Mod k = 0 Then Exit For 退出for循环，减少不必要的循环 End If Next k If k Sqr(n) Then Form1.Picture1.Print n; 如果是素数，则输出 i = i + 1 If i Mod 10 = 0 Then 控制输出，每行10个数据 Form1.Picture1.Print 换行 End If End If Next nEnd SubPrivate Sub Command2_Click()Rem 退出Dim int_msg As Integerint_msg = MsgBox(单击“是”退出程序，单击“否”程序将继续进行！, vbYesNo + vbQuestion + vbDefaultButton1, 退出提示)If int_msg = vbYes Then Unload MeEnd IfEnd SubPrivate Sub Command3_Click()Rem 判断素数并进行统计，指定范围n1-n2Dim n, k As IntegerDim i As Integer 行输出控制变量Dim n1, n2 As Integer n1,n2是指定范围的最小值和最大值i = 0Rem 判断第一个数据是否合法n1 = Val(InputBox(请输入第一个整数, 输入数据一, 2)Do While n1 = 1 MsgBox 请输入大于1的整数, vbOKOnly + vbExclamation, 输入错误 n1 = Val(InputBox(请输入第一个整数, 输入数据一, 2)LoopRem 判断第二个数据是否合法n2 = Val(InputBox(请输入第二个整数, 输入数据二, 1000)Do While n2 = 1 MsgBox 请输入大于1的整数, vbOKOnly + vbExclamation, 输入错误 n2 = Val(InputBox(请输入第二个整数, 输入数据二, 1000)LoopRem 以下选择结构确保n1 n2 Then temp = n1 n1 = n2 n2 = tempEnd IfFor n = n1 To n2 For k = 2 To Int(Sqr(n) If n Mod k = 0 Then Exit For End If Next k If k Int(Sqr(n) Then Form1.Picture1.Print n; i = i + 1 If i Mod 10 = 0 Then 控制换行，每10个换行 Form1.Picture1.Print End If End IfNext nEnd SubPrivate Sub Command4_Click()Rem 固定范围内素数求和Dim n, k, i As IntegerDim sum As Singlei = 0sum = 0For n = 2 To 100 For k = 2 To Int(Sqr(n) If n Mod k = 0 Then 注意理解： n mod k=0 Exit For End If Next k If k Int(Sqr(n) Then Form1.Picture1.Print n; sum = sum + n 累加求和 i = i + 1 If i Mod 10 = 0 Then 控制换行，每10个换行 Form1.Picture1.Print End If End IfNext nLabel1.Caption = 所有素数的和是： & Str(sum)End SubPrivate Sub Command5_Click()Rem 判断素数并进行统计，指定范围，并进行求和Dim n, k As IntegerDim i As IntegerDim sum As SingleDim n1, n2 As Integer n1,n2是指定范围的最小值和最大值i = 0sum = 0Rem 判断第一个数据是否合法n1 = Val(InputBox(请输入第一个整数, 输入数据一, 2)Do While n1 = 1 MsgBox 请输入大于1的整数, vbOKOnly + vbQuestion, 输入错误 n1 = Val(InputBox(请输入第一个整数, 输入数据一, 2)LoopRem 判断第二个数据是否合法n2 = Val(InputBox(请输入第二个整数, 输入数据二, 1000)Do While n2 n2 Then temp = n1 n1 = n2 n2 = tempEnd IfFor n = n1 To n2 For k = 2 To Int(Sqr(n) If n Mod k = 0 Then Exit For End If Next k If k Int(Sqr(n) Then Form1.Picture1.Print n; sum = sum + n i = i + 1 If i Mod 10 = 0 Then 控制换行，每10个换行 Form1.Picture1.Print End If End IfNext nLabel1.Caption = 所有素数的和是： & Str(sum)End SubPrivate Sub Command6_Click()Rem 清空Form1.Picture1.Cls