数据库原理及应用(答案已补全)(5)

结束表单运行；输入正确密码后显示“密码正确！可以进入系统。”，然后结束表单运行。

参考答案： 1、

CLEAR

INPUT “请输入一个数：” TO x IF x%2=0 或INT(x/2)=X/2 y=x**3

?”该数是偶数，其立方为：”, y ELSE

y=x**2

?”该数是奇数，其平方为：”, y ENDIF 2、

第一步，创建一个表单，然后在其中创建标签和文本框各一个，命令按钮二个。 第二步，属性设置

第三步，程序编写 Form1的Load事件： PUBLIC i i＝0

Command1的Click事件： i=i+1

IF THISFORM.Text1.Value=”123456”

MESSAGEBOX(“密码正确！可以进入系统。”)

THISFORM.RLEASE ELSE

IF i<3

MESSAGEBOX(“密码错，请重新输入！”) THISFORM.text1.VALUE=”” THISFORM.text1.SETFOCUS ELSE