2、：求一维数组a中数组元素的最小值。程序中有错误，改正错误，使程序能输出正确的结果。OptionBase1""PrivateSubCommand1_Click()Dimi%Dima(100)AsDoubleDimminAsDoubleFori=1To100a(i)=Sqr(i)*Cos(i*3.14159/12)'该行不要修改Nextimin=a(1)Fori=2To100Ifmin>a(i)Thena(i)=minNextiPrintFormat(min,""#.#####"")'该行不要修改EndSub""9.1651542"求方程5X-4Y=2，在
3、X
4、<=1
5、00,
6、Y
7、<=50内的整数解中
8、X
9、+
10、Y
11、最大值？""PrivateSubForm_click()Max=0Forx=-100To100Fory=-50To50If5*x-4*y=2Thens=Abs(x)+Abs(y)________________________________EndIfNextyNextxPrintMaxEndSub""86"43"编程求方程5X+4Y=2，在
12、X
13、<=50,
14、Y
15、<=100内的整数解，X+Y最大值是多少？""PrivateSubForm_click()Max=0Forx=-100To100Fory=-50To50If5
16、*x-4*y=2Thens=x+y________________________________EndIfNextyNextxPrintMaxEndSub53"利用函数sin(n)产生一个25×10的矩阵，求出最大值所在的行、列号乘积。""PrivateSubForm_click()Dima(25,10)AsSinglen=0Max=0Fori=1To25Forj=1To10n=n+15a(i,j)=Sin(n)If________________ThenMax=a(i,j)x=iy=jEndIfNextjNextiPrintx*yEndSub""72"54"利
17、用函数sin(n)产生一个25×10的矩阵，求出最小值所在的行、列号乘积。""PrivateSubForm_click()Dima(25,10)AsSinglen=0Min=0Fori=1To25Forj=1To10n=n+15a(i,j)=Sin(n)If________________________________ThenMin=a(i,j)x=iy=jEndIfNextjNextiPrintx*yEndSub""3468已知X,Y,Z为三个正整数，且X^2+Y^2+Z^2=25^2，求X+Y+Z的最大值。4387倒勾股数是满足公式：1/A^2+1/B^2=
18、1/C^2的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：1/156^2+1/65^2=1/60^2。假定A>B>C，且要求A，B，C均小于或等于100，求满足倒勾股数公式的A，B，C之和的最大值是多少？235117求方程8x-5y=3,在
19、x
20、<=150,
21、y
22、<=200内的整数解。试问这样的整数解中x+
23、y
24、的最大值是多少？2118求方程8x-5y=3,在
25、x
26、<=150,
27、y
28、<=200内的整数解。试问这样的整数解中
29、x
30、+
31、y
32、的最大值是多少？323119若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求x>y>
33、z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中x+y+z的最大值。91120若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求x>y>z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中，
34、x+y+z
35、的最小值。1121若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求x>y>z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中，
36、x
37、+
38、y
39、+
40、z
41、的最大值。95104"求[1000,20000]之间最大的素数""PrivateSubForm_Click()DimnAsLongDimflag
42、AsBoo
