12、选项按钮5色调色板表单 AUTOSIZE 设置为 F，可拖动边框大小 T，调整字体大小 Form1的init事件
thisform.optiongroup1.Value=1
thisform.optiongroup1.BackColor=RGB(255,0,0) Optiongroup1的click事件 DO case
CASE this.value=1
this.BackColor=RGB(255,0,0) this.BackColor=RGB(0,0,255) this.BackColor=RGB(0,255,0) this.BackColor=RGB(255,255,255) this.BackColor=RGB(0,0,0) CASE this.value=2 CASE this.value=3 CASE this.value=4 CASE this.value=5
ENDCASE
THISFORM.Refresh
13、设计一个表单，当用户在文本框输入矩阵的维数后，按“显示”按钮则会在编辑框中输出对角线为0的N维矩阵，输入数据不合要求时显示提示信息。 （1）文本框text1的valid事件
IF VAL(this.Value)>9 OR VAL(this.Value)<1 =MESSAGEBOX(\输入错，请重新输入！\ RETURN .F.
ELSE
RETURN .T.
ENDIF
thisform.Refresh
（2）命令按钮command1的click事件 N=VAL(ALLTRIM(thisform.text1.Value)) DIMENSION A(N,N) CH=\FOR I=1 TO N FOR J=1 TO N IF I=J OR I+J=N+1 A(I,J)=0 ELSE A(I,J)=1 ENDIF
CH=CH+STR(A(I,J),2) ENDFOR CH=CH+CHR(13)
ENDFOR
thisform.edit1.Value=Ch thisform.text1.SetFocus thisform.Refresh
14.设计一个完成口令判定功能的表单。 （1）表单FORM1的init事件 USE 学生
Thisform.text1.passwordchar=\ This.Caption=\口令验证窗\（2）文框Text1.Valid事件
locate for alltrim(this.value)==alltrim(姓名) if found()
messagebox(\正确!\ return .f. else
messagebox(\错误!\ return .f. endif thisfor.refresh
(3)命令按钮command1的click事件 thisform.text1.valid
(4)命令按钮command2的clicl事件 use
thisform.release
15.设计一个圆球跳动表单。要求：球的宽和高为40像素，球的填充颜色为RGB(128,64,0） （1）命令按钮command1的click事件 thisform.timer1.enabled=.t.
（2）命令按钮command2的click事件 thisform.timer1.enabled=.f. (3)计时器timer1的timer事件 if thisform.shape1.top=0
thisform.shape1.top=thisform.height-thisform.shape1.height else
thisform.shape1.top=0 endif
thisform.refresh
(4)表单form1的init事件 thisform.timer1.enabled=.f.
16：运用文本框和计时器对象设计一个数字时钟表单，要求：文本框为隶书、30号字，表单的标题为“数字时钟”，每隔一秒刷新一次时间。 （1） 表单Form1的Init事件
Thisform.Caption=”数字时钟” Thisform.Text1.Fontname=”隶书” Thisform.Text1.Fontsize=30 Thisform.Timer1.Interval=1000 (2)
计时器的Timer1的Timer事件
Thisform.Text1.Value=LEFT(TIME(),2)+”时”+SUBSTR(TIME(),4,2)+”分”+RIGHT; (TIME(),2)+”秒” Thisform.Refresh
17：显示时钟和日期的表单，命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。 （1）Form的init事件
thisform.text1.value=\thisform.timer1.Enabled=.F. （2）command1的click事件 thisform.timer1.Enabled=.T. thisform.text1.Value=TIME() thisform.Refresh
（3）command2的click事件 thisform.timer1.Enabled=.F. y=ALLTRIM(STR(YEAR(DATE()))) m=ALLTRIM(STR(month(DATE()))) d=ALLTRIM(STR(day(DATE())))
thisform.text1.Value=y+\年\月\日\thisform.Refresh
（4）command2的click事件 thisform.Release （5）timer事件
thisform.text1.Value=TIME() thisform.Refresh
18.建立一个表单，通过每次单击“开始”按钮，都能实现表单的标签信息从顶行向下平移，移到底边即停止。标签高度为30像素，字体颜色为蓝色。 （1）命令按钮Form1的Init事件 Thisform.Timer1.Enabled=.F.
(2)命令按钮Command1的Click事件 Thisform.Timer1.Enabled=.T. Thisform.Label1.Top=0
（3）命令按钮Command2的Click事件 Thisform.Release
(4).计时器Timer的Timer事件
IF Thisform.Label1.Top<=Thisform.Height-Thisform.Label1.Height Thisform.Label1.Top=Thisform.Label1.Top+1 ENDIF
Thisform.Refresh
19.编制一个表单完成表文件“学生.dbf ”内容的学生奖学金查询显示功能。要求：1.当用户在下拉列表中选择班级后，按回车键或“确定”按钮时，表单将自动显示对应班级的奖学金总额；2.按“退出”按钮时，自动关闭表单。
（1）表单Form1的Init事件 SET TALK OFF SET SAFETY OFF
INDEX ON LEFT(学生.学号,3) TO XH UNIQUE Thisform.Combo1.Displayvalue=Left(学生.学号,3) SCAN
Thisform.Combo1.Additem(LEFT(学生.学号,3)) ENDSCAN SET INDEX TO
(2)组合框Combo1的Valid事件 IF EMPTY(This.Displayvalue) RETURN .T. ENDIF
LOCATE FOR LEFT(ALLTRIM(学生.学号),3)==ALLTRIM(This.Displayvalue) IF EOF() RETURN .F. ELSE RETURN .T. ENDIF
(3)命令按钮Command1的Click事件
SUM奖学金 TO MJXJ FOR LEFT(ALLTRIM(学号),3)==ALLTRIM; (Thisform.Combo1.Displayvalue) Thisform.Text1.Value=MJXJ
（4）命令按钮Command2的Click事件 Thisform.Release
20、编制一个表单完成表文件“学生”内容的制度浏览显示 （1）form1的init事件 Thisform.setall(“readonly”,.T.) Thisform.chk性别.enabled=.F. C= “首记录前 翻后 翻末记录退 出” For i=1 to thisform.commandgroup1.buttoncount
Thisform.commandgroup.buttons(I).caption=substr(C,6*I-5,6) Endfor
(2)commandgroup1的click事件 Do case
Case this.value=1 Go top
This.command1.enabled=.F. This.command2.enabled=.F. This.command3.enabled=.T.
This.command4.enabled=.T. Case this.value=2 and not BOF() Skip-1 If BOF（）
This.command1.enabled=.F. This.command2.enabled=.F. Endif
This.command3.enabled=.t. This.command4.enabled=.t. Case this.value=3 and not EOF() Skip If EOF()
This.command3.enabled=.F. This.command4.enabled=.F. Endif
This.command1.enabled=.t. This.command2.enabled=.t. Case this.value=4 Go buttom
This.command1.enabled=.t. This.command2.enabled=.t. This.command3.enabled=.F. This.command4.enabled=.F. Case this.value=5 Thisform.release Endcase Thisform.refresh
21、输入任意自然数，判断是否为素数 (1)form1的init事件 Thisform.text1.selectonentry=.t. Thisform.text2.readonly=.t. Thisform.text1.value=3 Thisform.command1.default=.t. (2)command1的click事件 N=thisform.text1.value For I=2 to N-1 If N%I=0 Exit Endif Endfor If I>N
Thisform.text2.value=”是素数！” Else
Thisform.text2.value=”不是素数！”