九九乘法表 CLEAR FOR i=1 TO 9 FOR j=1TO i ??STR(j,2)+”*”+STR(i,2)+”=”+STR(i*j,2)+SPACE(3) NEXT ? NEXT y=2 x<0 x+1 0<=x<100 x2+1 10<=x<100 x23 x>=100 CLEAR INPUT“请输入x值”T.x DO CASE CASE x<0 Y=2 CASE x>=AND x<10 Y=x+1 CASE x>=10 AND x<100 Y=x^2+1 OTHERWISE Y=SQRT(x^3+3) ENDCASE ?Y 圆的面积 r=val(thisform.textl.value) S=pi()*r*r Thisform.text2.value=s Thisform.release 查无此人 accept locate for 姓名=a if found （ ） else endif 填空 定义一个Dime x(2.3) 查询设计GROUP BY 在当前窗口caption .pjx 项目文件 MOD 2 在使用报表 一对多 在表单设计 thisform 冒泡法 从第一个元素开始，对数组中两两相邻的数组元素进行比较，若为逆序则交换位置，直到最后，最大数便会“沉底”，较小树就可“上浮”，类似于气泡，故称“冒泡法” CLEAR INPUT“请输入个数：”TO n DIME a（n) FOR i=1 TO n INPUT“请输入第”+STR(i)+“个数：”TO a(i) NEXT ?“排序前：” FOR i=1 TO n ?? a(i) NEXT FOR i=1 TO n-1 FOR j=1 TO n-i IF a(j)>a(j+1) t=a(i） a(i)=a(j+1) a(j+1)=t ENDIF NEXT NEXT ?“排序后：” FOR i=1 TO n ?? a(i) NEXT 再来一次 “开始”Click事件代码 n1=INT(RAND()*10) n2=INT(RAND()*10) n3=INT(RAND()*10) ThisForm. Text1.Value=n1 ThisForm.Text2.Value=n2 ThisForm.Text3.Value=n3 IF n1=6 OR n2=6 OR n3=6 ThisForm.Label1.Caption=”好运” ThisForm.Label1.ForeColor=RGB(255,0,0) ELSE ThisForm.Label1.Caption=”再来一次“ ThisForm.Label1.ForeColor=RGB（0,0,255） ENDIF “关闭”事件代码 Thisform.release 本文来源：https://www.wddqw.com/doc/35ca800652ea551810a687d8.html