VF期末复习资料：表单题.docVIP

表单练习题 题目1： 设计一表单如图所示，判断一个正数是不是素数。 要求：在文本框输入一个正数，单击“确定”按钮后显示结果，单击“退出”按钮释放表单。假定表单中各对象的属性值已经设置。为Command1的Click事件添加过程代码： 参考答案： K=VAL(Thisform.Text1.Value) FOR I=2 TO K-1 IF K % I = 0 Thisform.Label2.Caption=判断结果：不是素数 RETURN ENDIF ENDFOR Thisform.Label2.Caption=判断结果：是素数 注意： FOR I=2 TO K-1可以替换为： FOR I=2 TO K/2 或FOR I=2 TO SQRT(K) 设计一表单如图所示，求100-1000之间能被37整除的数。 要求在编辑框中输出结果，并通过命令按钮来控制输出。假定表单中各对象的属性值已经设置。 为Command1的Click事件添加过程代码： 参考答案： k=0 for x=100 to 1000 if x%37=0 thisform.edit1.value=thisform.edit1.value+str(x,5) k=k+1 if k%5=0 thisform.edit1.value=thisform.edit1.value+chr(13) endif endif endfor 题目3： 设计一表单如图所示，通过微调器控件改变曲率来控制图形。假定表单中各对象的属性值已经设置。 为Spinner1的InteractiveChange事件添加过程代码： 参考答案： IF Thisform.Spinner1.Value100 And Thisform.Spinner1.Value-1 Thisform.Shape1.Curvature=Thisform.Spinner1.Value ENDIF 计算两实数X与Y的乘积，要求设计表单界面如图所示。功能为：在文本框中输入X和Y后，单击“计算”按钮即计算出XY的值。假定表单中各对象的属性值已经设置。请写出计算按钮的Click事件代码。 对象 属性名 属性值 Label1 Caption X= Label2 Caption Y= Label3 Caption X×Y= Text1 Value 0 Text2 Value 0 Command1 Caption 计算 X=VAL(Thisform.Text1.Value) Y=VAL(Thisform.Text2.Value) Thisform.Text3.Value=STR(X*Y) Thisform.Refresh 题目5： 一个表单如下图所示，要求实现如下功能：当在文本框Text1内输入一个正整数n时，单击“计算”命令按钮时，将在文本框中显示n以内的所有2的倍数的和(n为一正整数)的值,如n=11，则应计算s=2+4+6+8+10的值。单击“退出”命令按钮时则结束程序的运行。请写出实现上述功能的命令按钮的程序代码。 ⑴“计算”命令按钮的程序代码如下： n=thisform.text1.value s=0 for i=2 to n step 2 s=s+i endfor thisform.text2.value=s thisform.refresh ⑵“退出”命令按钮的程序代码如下： thisform.release 一个表单如下图所示，要求实现如下功能：当在文本框Text1内输入一个正整数n时，单击“计算”命令按钮将在文本框中显示n阶乘(1*2*3*……*n)的值。单击“退出”命令按钮时则结束程序的运行。请写出实现上述功能的命令按钮的程序代码。 ⑴“计算”命令按钮的程序代码如下： n=thisform.text1.value s=1 for i=1 to n step 1 s=s*i endfor thisform.text2.value=s thisform.refresh ⑵“退出”命令按钮的程序代码如下： thisform.release 题目7： 如下图所示表单，要求任意输入两个数后，单击“确定”命令按钮能按由大到小输出，单击“退出”关闭表单。请写出“确定”和“退出”命令按钮的代码 确定命令按钮的代码: a=thisform.text1.value b=thisform.text2.value if ab thisform.text3.value=a thisform.text4.value=b else thisform.text3.value=b thisform.text4.value=a endif 退出命令按钮的代码: thisform.release