求VB编程，要求用FUNCTION或SUB
在编程VB中，使用函数或子来查看主要数字是一个常见的任务。下一个代码显示了使用F函数来确定整数是否是主要数字的简单示例。
该程序首先生成1 00个随机整数，然后学习主要数字并打印它们。
该程序的输出将显示总数存在多少个主要数字。
以下是特定的实现代码：PrivatesUbCommand1 _Click（）Dimi，j，s，n，a（1 00），C（1 00）asintegerfori = 1 to1 00a（i）= int（rnd*1 00）nextn = 0fori = 0fori = 1 to8 0iff（a（a）） ）= truethen = n+1 c （n）= a（i）endifnextprint 1 00的随机整数“ fori = 1 tonStep5 forj = 0to4 ifi+j> nt henexitforprintc（i+j），nextprintnextprintprint”其中： ＆“ fori = 1 tonStep5 forj = 0to4 ifi+j> nthenexitforprintc（i+j），nextprintnextendendsu首先生成1 00个随机整数，然后导致函数f以确定整个数字是否是主要数字。
确定，确定，确定，确定，确定，确定，确定，确定，确定，确定，确定，确定，确定，确定整个数字是否是主要数字。
整个数字是否为主要数字。
因此，该程序可以有效地过滤1 00个随机整数中的主数，并以每行5 的形式打印它们。
该程序还将打印总的总数字。
此示例显示了如何在VB中使用该函数来执行特定的逻辑任务，例如对主要数字的评估以及如何在子中引起这些功能以执行更复杂的任务，例如随机数量生成和主滤波。
VB 求解答 创建函数过程求约数、因数、素数
将输入除以a。然后将该数字除以a。
a+= 1 ，重复素数：设置a = 2 ，然后将此数字除以A。
因为一个<如果您想要代码，则有点长。
vb判断素数
正确的过程如下（您可以通过比较找到自己的错误）：privatesubcommand1 _click（）x = text1 .text1 .textfori = 2 tox-1 ifxmodi = 0thenf = 1 exitforendifnextiiff = 1 thenlabel2 .caption2 .caption = caption =“您输入的编号您输入的编号”和 数字不是素数。” elselabel2 .caption =“您输入的数字为“＆x＆”，这是一个素数。
“ EndiFendSub扩展信息：质数（primenumber），也称为质量号，具有无限的数字。
大于1 的自然数不能除以1 和本身以外的其他自然数。
换句话说，除1 和本身以外，这个数字没有其他因素。
否则称为复合号码。
根据算术的基本定理，每个整数大于1 是素数本身，或者可以作为一系列质数的产物写入。
如果未考虑产品中这些质数的顺序，则书面形式是唯一的。
最小的质数是2 到目前为止，人们还没有找到找到所有质数的公式。
2 01 6 年1 月，迄今为止发现了世界上最大的质数，达到2 2 3 3 万位数字。
如果以正常的字体尺寸打印，则其长度将超过6 5 公里。
VB常用算法3个质数. doc
该文档的包括与VB编程中的主要数字关联的算法和应用程序。主要数字定义为整数，更或等于2 ，只能将其分为1 ，而不是其他整数。
为了判断主要数字，经典算法在2 和M-1 之间进行一次检查。
这个过程需要时间。
该算法的优化版本从2 到根数，从而大大提高了效率。
特定代码的实现如下：确定功能的干燥，参数为整数N，并且返回值是合乎逻辑的。
初始化i至2 ，循环从2 到N-1 如果周期结束，则结果为真，表明n是主要数字。
应用程序的示例：查找从1 00到2 00的主要数字。
确定子过程mand1 _click，将j初始化为整数，从1 00到2 00，请致电土地以确定当前数字是否为主号码，如果是的，则打印数字。
解决问题的能力：以判断主要数量的算法经验丰富，并灵活地解决特定问题。
例如，可以将1 0,000范围内的主要数字搜索作为两个平方总和。
首先，生成所有主要数字的列表，并检查每个主要号码是否是两个平方数的总和。
解决方案：首先，在1 0,000之内找到所有主要数字，并确定是否可以以两个平方数的总和的形式显示每个主数。
用于确定数字是否为正方形的算法：平方根是圆形的。
确定subcoress mand1 _click，初始化变量，如果当前数字是2 到1 0,000，则检查这是两个平方数的总和，然后是提款。
代码实现：确定PF函数，参数是SHU，M和N的主要数字，并返回逻辑值。
周期从1 到SHU-1 ，检查I和I和Shu-I平方数是否为。
实践练习：遵循指定的编程任务，包括填写空心步骤，例如2 002 年春季的问题2 （7 ）。
