2010年4月重庆市计算机二级VF真题及答案Visual_Fo(6)

2位为‘1’的产品按数量进行汇总并显示汇总结果。请填空完善程序。 use SL

index on 编号 tag bh store 0 to s do while .not. eof()

if and 数量>20 s=s+数量 endif enddo ?s Use

4．设计如图所示的表单，表单运行后，在文本框中输入一个正整数，单击“判断”命令按钮，即可弹出一提示框判断出该数是不是素数，如图2所示。请填空完成。（素数又称质数，是指除了1和该数本身以外不能被其它任何数整除的数。）

“判断”命令按钮的Click事件代码： N=val(thisform.text1.value) S=0

Do while i<=n-1 and s=0

If n%i=0 S=1 Else

Endif