VB编写程序,生成N阶方阵,中心元素为-1

PrivateSubCommand1_Click()DimnAsLong,xAsSingle,yAsSingle,y2AsSingle,sumAsSinglex=Val(InputBox("请输入一个

Functionfact(xAsInteger)s=1Fori=1Toxs=s*iNextfact=sEndFunctionPrivateSubCommand1_Click()Me.AutoRedra

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

PrivateSubCommand1_Click()Dimi%Fori=100To999IfiMod7=0AndMid(CStr(i),2,1)="2"ThenPrintiNextEndSub再问：M

/>Private Sub Form_Click()'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)'   

Private Sub Command1_Click()   Dim a()   Dim i&nbs

稍后为你提供代码

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

PrivateSubCommand1_Click()DimiAsLong,sumAsLongFori=1To50Step2sum=sum+i*(i+1)*(i+2)NextMsgBox"级数前50项奇

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

第一个#includeinta[100][100];intmain(){\x05inti,j,k,n;\x05scanf("%d",&n);\x05memset(a,-1,sizeof(a));//将

PrivateSubCommand1_Click()Dimn%,sum!,fact!sum=0n=InputBox("输入n:","提示信息",1)IfnMsgBox"数据有误!",48,"警告!"E

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

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

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

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

你试试把d=a+c改为,d=Val(a)+Val(c)应该没问题了

dimnasinteger,sasstringn=val(inputbox("输入阶数n(n为奇数)"))s=""fori=1tonforj=1tonifi=n/2andj=n/2thens=s&"9

两种方法1补充你的算法,PrivateSubCommand1_Click()Dima(10)AsInteger,nAsIntegerDimiAsInteger,kAsIntegerRandomizea

PrivateSubform_load()Dimn,a(),i,b(5)n=100000ReDima(n-1)Fori=0Ton-1Randomizea(i)=Int(Rnd*6)+1b(a(i)-1