vf期末复习资料：表单题.docx

表单练习题
题目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. Value<100 And Thisform. Spinnerl. Value>~l
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 a>b
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。