VB编写一个程序,求一个4×5矩阵中的最大元素,以及该元素所在的行号和列号

Text1.text用于输入正整数Label1.Caption存放各位数字之和的计算结果计算事件Command1_ClickPrivateSubCommand1_Click()DimvalueAsLo

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

代码如下：PrivateSubForm_Click()DimaAsString,sAsInteger'定义变量s=1'初始化数据a=Val(InputBox("输入数值","数据输入"))'对变量赋值

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

SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

dimx(100),ix(0)=0fori=0to50x(i+1)=2*x(i)+1-(imod2)next数列为x(1),x(2),...,x(50)

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

这个可以这样做~cleara=rand(10,1);%产生一组随机数b=rand(10,1);%产生另一组随机数b=b-(dot(a,b)/dot(a,a)).*a;%可以使用施密特正交化的方法转化d

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

varn,i,min,max,maxi,mini,s:integer;x:array[1..100]ofinteger;ans:real;beginreadln(n);fori:=1tondoread

pt = {2, 2};ContourPlot[ Sqrt[(x - pt[[1]])^2 + (y -&nb

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

'最大PublicFunctionmax(aAsInteger,bAsInteger,cAsInteger)AsIntegermax=IIf(a>b,IIf(a>c,a,c),IIf(b>c,b,c)

/>vart;varl=prompt('请输入边长',3.5);t=3.1415926*(l/2.0)*(l/2.0);document.write("边长:"+l);document.write("

intx,y,s=0;cin>>x;y=x;while(x!=0){s=s*10+(x%10);x=x/10;}if(y==s)cout

#includeintmain(){intsum=0;inti=1;intj=1;for(;i

我HI你吧,等一下