设计一个表单(如下图所示),判断一个正数是不是素数。 要求:在文本框中输入一个正数,单击“确定”按钮后显示结果,单击“退出”按钮释放表单。 控件的主要属性: Labe11. Caption=“请输入一个正数:” Labe12.Caption=“判断结

admin2010-06-18  74

问题 设计一个表单(如下图所示),判断一个正数是不是素数。
   要求:在文本框中输入一个正数,单击“确定”按钮后显示结果,单击“退出”按钮释放表单。
控件的主要属性:
Labe11. Caption=“请输入一个正数:”
Labe12.Caption=“判断结果:”
Command1. Caption=“确定”
Command2. Caption=“退出”
Text1.Value=2

选项

答案(1)编写Text1的GotFocus事件代码如下: THISFORM. LabeCaption=“判断结果:” (2)编写Command1的Click事件代码如下: FOR I=2 TO THISFORM. Tcxt1. Value-1 IF THISFORM. Text1. Value %I=0 THISFORM. Labe Caption=“判断结果:不是素数” RETURN ENDIF ENDFOR T

解析
转载请注明原文地址:https://kaotiyun.com/show/qChZ777K
0

最新回复(0)