vb编程题:统计所有中间数为奇数的三位对称数的个数.对称数如737.

这也是大学编程?中学还差不多 Private Sub Command1_Click()a = Int(Val(InputBox("a=&qu

根据你的题意,我用VB编写了如下代码,你看是不是你所需要的：PrivateSubCommand1_Click()Dimi,j,k,l,nFori=100To999'所有的三位数j=i\100'百位上的

VB6.0版本的可以吗?我用的是构成法.Option ExplicitDim a, b, c, d, nPrivate Sub&n

gs=0"1-6中的所有两位数为："forn=1to6fork=1to6sj=n*10+kgs=gs+1sjendfendf"1-6中的所有两位数个数为：",gs

Dimm(1To20)AsIntegerDimi,j,cntAsIntegerDimisHasSameAsBooleanFori=1To20'生成100以内的两位正整数m(i)=Int(Rnd()*9

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

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

count=0Fori=1To1000IFi%7==0Thencount++Nexti

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+iEndIfNext==>优化一点：Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+ii

PrivateSubCommand1_Click()DimIAsInteger,JAsIntegerDimAAsInteger,BAsIntegerDimSAsString,NAsIntegerDim

PrivateSubCommand1_Click()Fori=3To100Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))Thens=s&i&

OptionExplicitPrivateSubCommand1_Click()DimiAsLongFori=1To10000Iff1(i)=TrueAndf1(i^2)=TrueThenList1.

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

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

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

ivateSubCommand17_Click()DimiAsLong,kAsLong,jAsLong,oAsLongk=Val(Text1.Text)‘要计算的数j=0o=0Fori=1TokIfi

很简单的~不过你问错地方了

PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu