vb编程题用1.2.3.4.这四个数字组成的四位数打印

窗体中做三个文本框,分别放A,B,及A、B的最大分约数.PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Dor=aModba=b

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

在命令按钮里加上以下代码：DimiAsInteger,kAsInteger,jAsIntegerDimxAsStringj=0Fori=1To35Fork=1To35If(i*3+k*4)=100Th

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

PrivateSubForm_Load()Fori=1To50n=1Forj=2Toin=n*jNexts=s+1/nNextMsgBoxsEndSu

代码如下：PrivateSubCommand1_Click()   DimaAsInteger,bAsInteger,cAsInteger,dAsInteger 

PrivateSubForm_Click()Dimm%,n%,t%,i%,r%m=InputBox("请输入一个数字m")n=InputBox("请输入一个数字n")Ifmr=nDoWhilen>0A

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

FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction

PrivateSubForm_Click()Dima(50),m,s,n,ps=0n=0RandomizePrint"原数组"Form=0To49a(m)=Int(100*Rnd)s=s+a(m)Pr

PrivateSubForm_Click()Fori=0To9Forj=0To9PrintIIf(i=jOri+j=9,1,0);NextPrintNextEndSu

DimbAsLongb=Val(Text1.Text)SelectCasebCaseIs>100000Text1.Text=(b-100000)*0.45+29250Case80000To100000

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

把这几个符号先存到数组里用随机函数PrivateSubForm_Load()DimS(1To4)AsStringDimaAsIntegerRandomizeS(1)="+":S(2)="-":S(3)

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

mModn=rr=mModn

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

DimNAsLongDimiAsLongN=Val(InputBox("请输入数字","输入数字"))Fori=1ToNs=s+i^2NextMsgBoxs再问：请输入数字填写什么啊。。小白不懂求大神