VB上在窗体上输出既能被3又能被5整除的所有3位数,要求每5个数据换一行

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

for(inti=101;i

PrivateSubForm_Load()DimiAsInteger,nAsLongDimkAsLongi=1:n=1DoWhilei

whileregexp_instr(var_tmp,'\D'||var_element1||'\D')>0loopvar_return:=var_return||substr(var_tmp,1,

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

OptionBase1Dima(20)PrivateSubForm_Load()RandomizeFori=1To10a(i)=Int(10+90*Rnd)NextEndSubPrivateSubCo

PrivateSubForm_Click()DimiAsIntegerFori=1To100IfiMod3=0AndiMod7=0ThenPrintiEndIfNextEndSu

intnum=0;//总数for(inti=101;i{lbl2.Text=lbl2.Text+i.ToString()+",";//显示所有奇数num=num+i;i=i+2;}lbl1.Text=

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

前些天我才写的,是给别人弄的,他要的是1到100的十个数,并且按command2可以到换,我稍加修改给你(别忘了把窗体拉长点哈!短了后面不能显示哦)还要添加一个commandPrivateSubCom

在界面上放一个按钮就行了,然后将下面的代码复制到代码窗口.PrivateSubCommand1_Click()Me.Clsi=0Forj=1To500IfjMod17=0ThenIfi=5Theni=

PrivateSubCommand1_Click()a=InputBox("请输入数字","提示")b=InputBox("请输入数字","提示")Print"和："&Val(a)+Val(b)Pri

PrivateSubCommand1_Click()Dima()AsInteger,i,j,m,nAsIntegerPrint"产生100个100～300之间的整数"RandomizeFori=1To

Randomr=newRandom();//随机函数对象Listrs=newList();//存放能被3整除的数组intnum=0;for(inti=0;i{num=r.Next(100,300);/

PrivateSubCommand1_Click()Dimi,j,kFori=101To200Step2'每次加二,确保奇树IfiMod3>0Then'不能被3整除j=j&Str(i)&","'要打印

PrivateSubForm_Click()s=0Fori=1To100s=s+iNextiPrint"1+2+...+100=";sEndSu

main(){ int i,sum;            

PrivateSubCommand1_Click()DimiAsIntegerText1.Text=""IfCheck1.Value<>0AndCheck2.Value<>0T