笔试表单题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
表单练习题
题目1：
设计一表单如图所示，判断一个正数是不是素数。
要求：在文本框输入一个正数，单击“确定”按钮后显示结果，单击“退出”按钮释放表单。假定表单中各对象的属性值已经设置。为Command1的Click事件添加过程代码：
参考答案：
K=VAL(Thisform.Text1.Value)
FOR I=2 TO K-1
IF K % I = 0
bel2.Caption="判断结果：不是
素数"
RETURN
ENDIF
ENDFOR
bel2.Caption="判断结果：是素数" 注意：
FOR I=2 TO K-1可以替换为：FOR I=2 TO K/2
或FOR I=2 TO SQRT(K)
题目2：
设计一表单如图所示，求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.Value<100 And Thisform.Spinner1.Value>-1
Thisform.Shape1.Curvature=Thisform.Spinner1.Value
ENDIF
题目4：
计算两实数X与Y的乘积，要求设计表单界面如图所示。功能为：在文本框中输入X和Y后，单击“计算”按钮即计算出XY的值。假定表单中各对象的属性值已经设置。请写出计算按钮的Click事件代码。
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
题目6：
一个表单如下图所示，要求实现如下功能：当在文本框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 a>b
thisform.text3.value=a
thisform.text4.value=b
else
thisform.text3.value=b
thisform.text4.value=a
endif
"退出"命令按钮的代码:
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
Thisform .Refresh
“最后一个” 按钮 CLICK 事件代码如下:
go Bottom
Thisform .Refresh
“退出” 按钮 CLICK 事件代码如下:
Thisform .ReLease
题目9：
若已设计好如下的表单界面，要求在该表单中输入正整N的值后单击“计算”命令按钮能计算出N！并输出至表单中，单击“退出” 命令按钮关闭表单。请完成“计算”和“退出”命令按钮的代码。