求素数 VB

[复制链接]
查看11 | 回复0 | 2010-4-19 18:04:39 | 显示全部楼层 |阅读模式
给你个算法嘛,用一个变量保存找到素数的个数,如果找到三个就停止循环用 do while进行例如i来保存找到的数的个数 初始化i=1a保存你输的数 do while i<=3
a=val(textbox1.txt)
看他是不是素数要是是就输到一个标签里面,并i=i+1
要是不是就把a+1loop
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行