VB编程1*2*3 2*3*4 3*4*5 -- n*(n 1)*(n 2)

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

我的理解,你是一个9*9的矩阵,那么:dimsasintegerdimiasintegerdimjasintegerdimd(9,9)asinteger'假设二维数组为d,且主对角线元素的值为1-9s

dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num

n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta

#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i

PrivateSubCommand1_Click()Dimi,sAsIntegerFori=1To100s=s-i*(-1)^iNextiPrintsEndSub这个很简单了你应该看得懂吧!

DimsAsSingleDimiAsIntegerFori=1To50s=s+i/(i+1)NextMsgBox"前50项和为"&s

这样的题目主要是利用Mod运算,能被13整除,n就加1,代码如下：PrivateSubCommand1_Click()Fori=1To9999IfiMod13=0Thenn=n+1EndIfNexti

创建一个窗体,并在其上创建三个文本框和一个命令按钮,其中：文本框NN和文本框MM输入N和M的值,文本框JG输出结果.命令按钮Command1用于开始计算,在其单击事件中输入如下代码：PrivateSu

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

for循环修改下fori=1to2n-1step2a=a+inexti

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

publicf(byvalnasinteger)aslongifn=1thenf=1elsef=f(n-1)+nendifendfunction

privatesubcommand1-click()dimn%,y#,s&n=2:y=0:s=1dos=s*ny=y+1/sn=n+1loopuntil1/s

DimSAsDouble,IAsInteger,TAsIntegerT=1ForI=1To100S=S+T*1/(2*I-1)T=-TNextMsgBoxS*4你的问题应该还有一个条件,就是计算到什么

……t=1s=0Fori=1To10t=t*is=s+tNexti再问：这个要用什么下拉列表呢？再答：Textbox代码是在Botton中完成！

fori=1to98ifimod2thenm=m-1/ielsem=m+1/iendifnextmsgboxm

PrivateSubCommand1_Click()DimnAsDoublen=Val(InputBox("N="))Fori=1Tons=s+1/(n*(n+1))NextiMsgBox"所求的和为

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton