如何用vb弄一个求Do-Loop循环语句求从1到100的累加和.

来个短一点的,PrivateSubForm_click()ClsDima()AsSinglen=Val(InputBox("请输入行数","杨辉三角",5))ReDima(n+1,n+1)Fori=1

PrivateSubCommand1_Click()Dimn1&,m1&,m&,n&,r&n1=InputBox("输入n1")m1=InputBox("输入m1")Ifm1>n1Then'为了求最小

解一元二次方程的Vb程序：在窗体上画一个命令按钮,输入下列代码,运行后可在窗体打印结果.PrivateSubCommand1_Click()dimaasdouble,basdouble,casdoub

dimaasintegerdimbasintegera=text1.textb=text2.textPrivateSubCommand1_Click()text3.text=val（a+b）endsu

PrivateSubForm_load()DimiAsIntegerDimjAsIntegerDimxAsIntegerFori=2To10000f=0'f用来标识是否为素数Forj=2ToInt(S

斐波那契数列的发明者,是意大利数学家列昂纳多·斐波那契.斐波那契数列指的是这样一个数列：1、1、2、3、5、8、13、21、……下面是前1000项斐波那契数列的和的VB代码:PrivateSubCom

dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

只需一个command按钮,在command_click事件中写上dima,basIntegera=val(inputbox("请输入第一个加数","输入"))b=val(inputbox("请输入第

都写到这个地步了还上网来问?Dima,b,c,k1,k2,s1,s2AsDoublea=Value（Text1.Text）；b=Value（Text2.Text）；k1=a*3.14/180；k2=b

Text4.Text=(Text3.Text-Text2.Text)/Text1.Text再问：你的这个程序只支持x为正数，负数的话就会出错！！！再答：-4x+3=5x=(5-3)/(-4)x=-1/

比如：Ifa>corb>cThen.endif如果A大于C,或者,B大于C,就怎么怎么样.如果是要A和B都大于C,就是楼上表达.

转换为普通坐标极长为R角度为Φ则：坐标为：x=R*cosΦy=R*sinΦ

产生2~99之间的1次1个随机数randomizeInt((99-2)*Rnd+1)产生1~n之间的1次20个随机数RandomizeDimtemAsInteger,jAsInteger,iAsInt

在窗体上放置一个名为PicDraw的图片框,两个按钮,分别命名为CmdDrawQuad与CmdDrawWave,全部代码如下[VisualBasic6.0]：OptionExplicit'声明平面直角

type根类型有根asboolean大根assingle小根assingleendtypefunction求根(aassingle,bassingle,cassingle)as根类型dim得塔assi

Functioncalc()dimaasintegerdimbaslongfora=0to100step2b=b+a^2nextacalc=bendfunction这个算法比你的优化一些,如果你想用自

‘直接给代码,窗体上只需一个名为command1的按钮Private Sub Command1_Click()   Dim a(1 

必须要初始化：Randomize.没有种子.出来的数据肯定是固定的.Randomize语句示例本示例用Randomize语句初始化随机数生成器.由于忽略了数值参数,所以Randomize用Timer函

虽然说你设定无范围,但VB中规定的整数的取值范围,好象最大是32767,我没有查.dimaasintegera=rnd(32767)