第一问答网»论坛 › 中问网 › 问答 › vb程序求解！！！！！（要完整的过程） ...

vb程序求解！！！！！（要完整的过程）

11 |

2 | 2012-7-18 00:47:21 | 显示全部楼层 |阅读模式

'验证素数函数Function ss(ByVal n As Integer) As IntegerDim x As Integerx = 1
For k = 2 To Sqr(n)
If n Mod k = 0 Then
x = 0
Exit For
End If
Next
If x = 0 Then
ss = 0
Else
ss = 1
End IfEnd Function Private Sub Command1_Click()Dim n1, n2, s As IntegerDi...

使用道具举报