问题
问答题
设计一个表单(如下图所示)，判断一个正数是不是素数。 要求：在文本框中输入一个正数，单击“确定”按钮后显示结果，单击“退出”按钮释放表单。控件的主要属性：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