vb单机窗体计算并在窗体上输出下列数列的和.1×2,-2×3

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

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

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

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

Print"平均值是："&平均改为Print"平均值是："&平均(a)再问：为什么这么改啊？原因是什么？再答：PrivateFunction平均(a()AsInteger)AsInteger你这个函数

for(inti=101;i

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

自己看下书,试着写一下就好,太简单了再问：你妹，会了还问你？别把自己膨胀的信心践踏在别人身上再答：别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的再问：好吧，原谅

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

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

form1上：PrivateSubForm_Click()f=1Fori=1To8f=f*iIfi=5Thena=fIfi=7Thenb=fNextiy=(a+b)/fPrint"y=(5!+7!)/

PrivateSubForm_Click()DimiAsIntegerDimjAsIntegerDimsAsIntegers=0Fori=10To30IfiMod2=0ThenPrinti;EndIf

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

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

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

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

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

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

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真