vb编写程序建立并输出一个10*10程序

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

PrivateSubCommand1_Click()Dima(9),i%,Sum!ClsFori=0To9Randomizea(i)=Int(Rnd*51+140)/10Sum=Sum+a(i)Pri

话说提这个问题的话,说明lz一定是一个初学者/**目的：*时间：2010-04-14*作者：XXX*/#includeintmain(){inta[10]={};intmax,min;max=min=

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

很简单的二维数组问题先声明一个0-10,0-10的数组然后fori=1to10doforj=1to10doifi=jthena(i,j)=1elsea(i,j)=0应为我不是搞vb的所以只能提供思路就

PrivateSubCommand1_Click()sub_Matrix(10)‘打印10*10矩阵EndSubPrivateSubsub_Matrix(ByValNAsInteger)DimIAsI

#includeusingnamespacestd;intmain(void){inta[10][10];inti=0,j=0;for(i=0;i再问：采用VB编写再答：原理一样，列数正着数倒着数和行

PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex

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

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

同时与n互质的数------这个不太明白?能说一下吗?下面1000以内质数算法.PrivateSubCommand1_Click()Text1.Text=""Fori=1To1000k=1Forj=2

假设矩阵为一个数组a(1tom,1ton)SubMax()Dimb()AsSingle,maxxAsSingleFori=1Tomb(i)=a(i,1)Forj=1TonIfb(i)

//#include"stdafx.h"//vc++6.0加上这一行.#include"stdio.h"voidmain(void){inti,j,k,sum;for(sum=1,i=0;i

#includevoidmain(){inta,i=0,b[3];printf("inputathreebitnumber\n");scanf("%d",&a);if(a>=100&&a=0;j--)

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

test{publicstaticvoidmain(Stringargs[]){longsum=0,a=1;longi=1;while(i=1)sum=sum+a;i++;a=a*i;}System.

publicclassFactorial{privateintresult=1;publicintfactorial(intnumber){if(number==1)returnresult;else

Sub Main()    dim i as integer, n as integer&

我刚刚编的,可以.不知道是不是你所要的.#includevoidmain(){intn;printf("欢迎来到计算整数的三次方的程序!\n");printf("请输入您要计算的数:");scanf(

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!