vb输入正整数显示最小素数

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

Private Sub Command1_Click()X = val(InputBox(""))For i =&nbs

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

#includemain(){inti,j,k,n;scanf("%d",&n);if(n

素数(质数)：就是一个大于等于2的整数,并且只能被1和本身整除,而不能被其他整数整除的数.在窗体上画一个命令按钮和一个文本框~清空文本框中内容在代码窗口编写如下代码PrivateFunctionsus

PrivateSubCommand1_Click()DimI,J,X,Y,ZAsIntegerDimA(1To10000)AsIntegerDimFlagAsBooleanX=Int(InputBox

饭要一口一口吃,作业要自己做

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

使用了数组的动态分配,看不懂的话我还有其他方案#include#includeboolprime(intnum){boolflag=true;if(num

dimiasintegerdima(9)asintegerdimsasstrings=""fori=0to9a(i)=inputbox("输入第"&(i+1)&"个数：")nextfori=0to9i

FLAG=T//这个t是表示ture,flag是一个标记变量,FORI=2TON-1//这个循环i的值由2-i-1IFMOD(N,I)=0//在2-i-1这些数中如果除n的余数为0（mod是求余函数）

C编写的吧?#include"stdafx.h"#include"math.h"intmain(){intn,i;printf("请输入一个数");scanf("%d",&n);if((n==2))p

k=Val(InputBox("InputInteger:"))+1DoWhileTruetmp=Sqr(k)Fori=2TotmpIfkModi=0ThenExitForEndIfNextIfi>t

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol

时间有限,只写了C++代码,未调试,思路相同,自己切换吧#include"math.h"BOOLIsPrime(inta){inti;for(i=2;i再问：非常感谢～

#include"stdio.h"#include"math.h"intmain(void){intcount,i,m,n,sum;intrepeat,ri;intprime(intm);scanf(

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I