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事件的代码。