vb程序12 34 5 67 8 9 1011 12 13 14 15成三角形

a是循环变量,b是初始值,c是步进数,即每循环一次a的值的变化量.n=Inputbox("n=")i=0s=0Fori=0toni=i+1s=s+iNextiPrintsPrivateSubComma

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

a,b,c三个数,result为结果result=IIf(a>b,a,b)result=IIf(result>c,result,c)再问：但是我们没教过什么RESUIT啊再答：result是自己定义的

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

大体伪代码框架如下y=int(x);if(y/2*2==y)even()elseodd()另,这算法好傻,最快判断奇偶的话,只需要看整数的最后1位是0还是1就行了（因为计算机用的是二进制数）

把变量的取值范围贴出来.再问：求公式p=v*Z*F(s,x,y)/I。其他的一样求，其中F(s,x,y)=π/M，M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=

n=02和72

本示例使用Sgn函数来判断某数的正负号.DimMyVar1,MyVar2,MyVar3,MySignMyVar1=12:MyVar2=-2.4:MyVar3=0MySign=Sgn(MyVar1)'返

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

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

PrivateSubCommand1_Click()Dims%,n%DimaAsStringn=0a=InputBox("Pleaseinputanumber:")Fors=1ToLen(a)If(f

大概这个意思：Dim MaxY as SingleDim X,YMaxY = -999999For X = 1

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

Int和Fix都会删除number的小数部份而返回剩下的整数.Int和Fix的不同之处在于,如果number为负数,则Int返回小于或等于number的第一个负整数,而Fix则会返回大于或等于numb

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

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

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi