繁體中文
当前位置：首页 > 信息世界 > 程序源码 > 详细内容
『vb』判断n是否为素数
发布时间：2009/7/5  阅读次数：2231  字体大小: 【小】 【中】【大】


下面程序的功能是判断输入的正整数n是否为素数。
Private Sub Command1_Click()
Dim k, n As Integer
Do
n = Val(InputBox("请输入正整数n"))
Loop Until Sgn(n) = 1 And n = Int(n)
For k = 2 To Int(Sqr(n))
If n Mod k = 0 Then Exit For
Next k
If k > Int(Str(n)) Then
Print Str(n) + "是素数"
Else
Print Str(n) + "不是素数"
End If
End Sub

  

上一篇：『java』1到100的和 下一篇：『vb』字符串反转
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论：(匿名发表无需登录，已登录用户可直接发表。) 登录状态：未登录
最新评论
所有评论[0]
    暂无已审核评论!
本栏最新发布
本栏热门信息
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006