1、AB條件表達式條件表達式IF語句序列語句序列.T.ENDIF.F.條件表達式條件表達式IF語句序列語句序列1.T.ENDIF.F.語句序列語句序列2條件條件1DO CASEENDCASE語句序列語句序列1.T.F.條件條件2.T.語句序列語句序列2.F.條件條件n.T.語句序列語句序列n.F.語句序列語句序列n+1ENDFORDO WHILE.T.F.ENDDO SCAN.T.F.ENDSCAN .T.條件條件真真B塊塊LOOPEXIT假假.FRX答案答案B答案答案A答案答案D答案答案C答案答案B答案答案C答案答案B答案答案C答案答案A答案答案C答案答案C答案答案D答案答案D答案答案A答案答案

2、A答案答案D答案答案B答案答案B答案答案C答案答案Aif This.Value=1 if not Empty(ThisForm.Text1.Value) ThisForm.List1.AddItem(ThisForm.Text1.Value) endifelse if ThisForm.List1.ListIndex0 ThisForm.List1.RemoveItem(ThisForm.List1.ListIndex) ThisForm.List1.ListIndex=ThisForm.List1.ListCount endif endifThisForm.Refresh CommandGr

3、oup1的的Click代碼代碼s=ThisForm.Text1.Valuep=0do while len(s)0 q=left(s,1) if asc(q)32 p=p+1 endif s=substr(s,2)enddoThisForm.Text2.Value=pThisForm.Refresh Command1的的Click代碼代碼skip -1if bof() go top This.Enabled=.F.else This.Enabled=.T. ThisFormmand2.Enabled=.T.endifThisForm.RefreshCommand1的的Click代碼代碼(用戶單擊

4、時執用戶單擊時執行行)skip 1if eof() go bottom This.Enabled=.F.else This.Enabled=.T. ThisFormmand1.Enabled=.T.endifThisForm.RefreshCommand2的的Click代碼代碼(用戶單擊時執用戶單擊時執行行)ColumnCount：2RowSourceType：3-SQL語句語句Label2的屬性的屬性AutoSize：.T.BackStyle：1Caption：空：空locate all for AllTrim(專業專業)=AllTrim(ThisForm.Text1.Value)if Fo

5、und()=.F. ThisForm.Label2.Caption=提示：沒有該專業的學生提示：沒有該專業的學生 ThisForm.List1.RowSource=else ThisForm.List1.RowSource=select * from student where 專業專業=AllTrim(ThisForm.Text1.Value) into cursor temp1 ThisForm.Label2.Caption=endifCommand1的的Click代碼代碼(用戶單擊時執行用戶單擊時執行)if ThisForm.Shape1.LeftThisForm.Width ThisForm.Shape1.Left=ThisForm.Shape1.Left+2else ThisForm.Shape1.Le