问答题
设计一个表单(如下图所示)，判断一个正数是不是素数。
要求：在文本框中输入一个正数，单击“确定”按钮后显示结果，单击“退出”按钮释放表单。
控件的主要属性：
Labe11. Caption＝“请输入一个正数：”
Labe12.Caption=“判断结果：”
Command1. Caption＝“确定”
Command2. Caption=“退出”
Text1.Value＝2
【正确答案】
【答案解析】(1)编写Text1的GotFocus事件代码如下：
THISFORM. Labe12.Caption=“判断结果：”
(2)编写Command1的Click事件代码如下：
FOR I=2 TO THISFORM. Tcxt1. Value-1
IF THISFORM. Text1. Value %I＝0
THISFORM. Labe12. Caption＝“判断结果：不是素数”
RETURN
ENDIF
ENDFOR
THISFORM. Labe12. Caption＝“判断结果：是素数”
(3)编写Command2的Click事件代码如下：
THISFORM. Release