Question

VFP 程序 表单题目

定义一个5行6列的二维数组b,将1,2,3……29，30依次赋值给该数组的元素b[1,1] , b[1,2] , b[1,3] …… b[2,1] …… b[5,6] 并求该数组第3行之和，第2列之积

Answer 1

首先新建一个程序文件,假设取名为:array.prg. 方法之一:在命令窗口中输入命令:modify command array
在打开的array.prg文件中输入如下程序:
clear
dime a(5,6)
k=1
for i=1 to 5
for j=1 to 6
a(i,j)=k
k=k+1
endfor
endfor
row3=0
for j=1 to 6
row3=row3+a(3,j)
endfor
lie2=1
for i = 1 to 5
lie2=lie2*a(i,2)
endfor
?"数组第三行之和为:",row3
?"数组第二列之积为:",lie2
按Ctrl+W保存.
然后在命令窗口中输入命令:do array.prg 运行程序即可.

Answer 2

dime b(5,6)
k=1
for i=1 to 5
for j=1 to 6
b[i,j]=k
k=k+1
endfor
endfor
hang=0
for j=1 to 6
hang=hang+b[3,j]
endfor
lie=1
for i = 1 to 5
lie=lie*b[i,2]
endfor
? hang,lie