vf期末复习资料：表单题.docx.pdf
表单练习题 题目 1: 设计一表单如图所示，判断一个正数是不是素数。 要求：在文本框输入一个正数，单击“确定”按钮后显示结果，单击“退出”按钮释放表单。假定表单中 各对象的属性值已经设置。为 Command 1的Click事件添加过程代码 : 注意： FOR 1=2 TO K-1可以替换为 : FOR 1=2 TO K/2 或 FOR 1=2 TO SQRT(K) 题目2： 设计一表单如图所示，求 100-1000之间能被37整除的 数。 要求在编辑框中输出结果，并通过命令按钮来控制输 出。假定表单中各对彖的属性值已经设置。为Command 1的Click事件添加过程代码： 参考答案： K=VAL(Thisform. Textl.Value) FOR 1=2 TO K-l IF K % I = 0 Thisform. Label2. Caption二“判断结果：不是素 数 RETURN END IF ENDEOR Thisform. Label2. Caption二“判断结果：是素数 “ 参考答案： k 二0 for x=100 to 1000 if x%37二0 thisform. ed i 11. value二th is form, edi 11. value+str(x, 5) k=k+l if k%5=0 thisform.edit 1.value二thisform. editl. value+chr仃3) endif end i f endfor 题目3： 设计一表单如图所示，通过微调器控件改变曲率来控制图形。假定表单中各对象的属性值已经设置。为 Spinncrl的Intoract i veChange事件添加过程代码： 参考答案： IF Thisform. Spirmerl. Valuel Thisform. Shape1. Curvature=Thisform. Spinnerl. Vaiue ENDIF 题目 4： 计算两实数 X与Y的乘积，要求设计表单界面如图所示。功能为：在文本框中输入X和Y后，单击“计算” 按钮即计算出XY的值。假定表单中各对象的属性值已经设置。请写出计算按钮的Click事件代码。 对象属性名属性值 Labe11 Caption x= Label2 Caption Y= Label 3 Caption XXY= Textl Value 0 Text2 Value 0 Commandl Caption 计算 参考答案： X=VAL(Thisform. Textl. Value) X 二 |157 Y 二 |23 XX Y= | 3611 Eggjl 退岀I Y=VAL(Thisform. Text2. Value) Thisform. Text3. Value二STR(X*Y) Thisform. Refresh 题目5： 一个表单如下图所示，要求实现如下功能：当在文本框 Textl内输入一个正整数n时，单击“计算”命令按钮 时，将在文木框屮显示n以内的所有2的倍数的和(n为一正整数 ) 的值，如n二11,则应计算s二2+4+6+8+10 的 值。单击“退出”命令按钮时则结束程序的运行。请写出实现上述功能的命令按钮的程序代码。 （1）“计算”命令按钮的程序代码如下: n二thisform. textl. value s=0 for i=2 to n step 2 s 二s+i endfor thisform. text2. value=s thisform. refresh “退出”命令按钮的程序代码如下: thisform. release 题目6： 一个表单如下图所示，要求实现如下功能：当在文本框 Textl内输入一个正整数n时，单击“计算”命令按钮 将在文本框中显示n阶乘(1*2*3* *n)的值。单击“退出”命令按钮时则结束程序的运行。请写出实现上述功 能的命令按钮的程序代码。 (1) “计算”命令按钮的程序代码如下： n=thisform. textl? value S=1 for i=l to n step 1 s二s*i endfor thisform. text2. valuers thisform. refresh “退出”命令按钮的程序代码如下： thisform .release 题目7： 如下图所示表单，要求任意输入两个数后，单击“确定”命令按钮能按由大到小输出，单击“退出” 关 闭表单。请写出“确定”和“退出”命令按钮的代码 参考答案 确定命令按钮的代码： 8二thisform. textl. value b二thisform. text2. value if ab thisform? text3? valuc=a thisform? text4? value二b else thisform? text3. value二b thisform? textd. value=a end i f 退出命令按钮的代码： thisform? release 题目8： 现已设计职工工资浏览表单(如下图 ) ， 请写出“第一个”、 “上一个”、“下一个”、 “最后一个”、 “退 出”按钮 Click事件的代码。 工资浏览表单中各按钮 CLICK事件代码如下 : “第一个”按钮CLICK事件代码如下： go Top Thisform .Refresh “上一个”按钮CLICK事件代码如下： if . not. Bof () skip -1 endif Thisform .Refresh “下一个”按钮CLICK事件代码如下： if . not. Eof () skip endif Thi sform . Refresh “最后一个”按钮 CLICK事件代码如下 : go Bottom Thisform .Refresh “退出”按钮CLICK事件代码如下 : Thisform .RcLeaso 题目9： 若己设计好如下的表单界面，要求在该表单中输入正整N的值后单击“计算”命令按钮能计算出W并输 出至表 单屮，单击“退出”命令按钮关闭表单。请完成“计算”和“退出”命令按钮的代码。 技能工资務检工竟卜巩岗位工资 丄 卜巩浮动工资 ? 卜瓦七其他工資 实发工资卜瓦 t扣款小 计 和款小计 其博工资 上一个f下一个 退出 (1)“计算”命令按钮的Click事件代码 : N 二THISFORM. TEXT LVALUE P二1 FOR 1=1 TO N P=P*I ENDFOR THISFORM. TEXT2. VALUE=P (2)“退出”命令按钮的Click事件代码 : THISFORM. RELEASE
