VB编程,求出所有小于或等于50的自然数对并且打印出有多少对自然数对

OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

ifx>aandx

=min(A1:A5)下拉

PrivateSubCommand1_Click()Fori=100To999IfLeft(i,1)=Right(i,1)ThenPrintiNextEndSu

n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM

#include#includevoidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

Private Sub Command1_Click()  Dim i As Integer, n As&nb

intfun(intlim,intaa[100]){inti,k,j=0,m=0;for(k=2;k

dimi,a,b,totalAsIntegerfora=0to9forb=0to9if(800+a*10+b)mod3=0Thenprint(800+a*10+b)total=total+1endif

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

Dima(5)AsDoublefori=1to5a(i)=fix(rnd*10)nextiFori=1To4Forj=1To5-iIfa(j)temp=a(j)a(j)=a(j+1)a(j+1)=te

PrivateSubCommand1_Click()Fori=1To100Forj=1To100IfInt(Sqr((j+i)))=Sqr(j+i)AndInt(Sqr((Abs(i-j))))=Sq

PrivateSubCommand1_Click()Dimi,jAsIntegeri=2Forj=1To5DoWhileTrueIfiMod3=1AndiMod5=1AndiMod7=1ThenPri

楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo

PrivateSubCommand1_Click()DimiAsInteger,NAsInteger,num1AsInteger,num2AsIntegerN=Val(InputBox("请输入抛硬币