Question

问几个VF的程序题 谢谢大家了





Answer 1

1, 首先赋予初始值, x,y,s1,s2,s3都是0
do while循环,该循环在x超过20时停止, 循环里面有一句x=x+1是控制x增长的
那么x的值将是从1,2.....20 共循环20次
里面是docase分支语句, 有2个分支
分支1, int(x/2)=x/2 能被2整除, 就是偶数, 这时s1=s1+x/2, 就是每次s1都变成x/2的累加.
x是偶数:2,4,6,8,10,12,14,16,18,20, 除以2相加,结果是1+2+3+4+5+6+7+8+9+10=55
分支2, mod(x/3)=0 能被3整除,x的值有3,6,9,12,15,18, 但是要排除分支1的情况,即不能是偶数
因此x的值是3,9,15, 这时s2=s2+x/3,就是每次s2都变成x/3的累加, 即1+3+5=9
分支3,int(x/2)<>x/2 不能被2整除, 就是奇数, 另外还要排除分支1和分支2的情况, 剩下的奇数就是:1,5,7,11,13,17,19, 这时s3=s3+1就是每次加1, 结果是7
因此最后屏幕显示: 55 9 7

2,这里先定义一个数组, 10个元素, 人工输入值, 分别是1,2,3....10
后面是一个do while循环, s其实就是数组的每个元素相加,就是1+2+3+4+5+6+7+8+9+10, 结果s=55
最后显示s/10, 屏幕显示 5.5

3,代码有问题!!!, 第9行居然是中文的问号, 而且这里w1其实是.f.,不是数字, 执行到这里会出错!!!

一开始 x1,x2赋予初始值,定义w1,w2公共变量
将x1,x2按引用传进p1过程, p1里面接受的是局部变量w1,w2,只在p1范围内有效, 和刚才的公共变量不同.
private w1 功能是隐藏外部的w1公共变量,p1里面用到的w1都是w1局域变量. 而w2就不同了, 后面的调用都是改变的w2公共变量