1、1、有一張0.5mm厚足夠大的紙,問對折多少次可以達(dá)到珠峰高度(8848.13m?h=0.5cs=0do while h<8848000h=h*2cs=cs+1enddo?"對折的次數(shù)為:",cs2、文本框Text1中輸入的值與文本框Text2中輸入的值進(jìn)行交換。Form1的click事件3、在表單的標(biāo)簽上輸出自然數(shù)1,2,3,4,5Form1的click事件For i=1 to 5next4、判斷一個學(xué)生的計(jì)算機(jī)考試成績x屬于哪個分?jǐn)?shù)段之間(0-59,60-69,70-79, 80-89,90-100Form1的click事件input to xdo casecas

2、e x<0 or x>100=messagebox("成績在0-100之間,重新輸入"case x<=59=messagebox("該生的計(jì)算機(jī)成績"+str(x,3+"在0-59之間"case x<=69=messagebox("該生的計(jì)算機(jī)成績"+str(x,3+"在60-69之間"case x<=79=messagebox("該生的計(jì)算機(jī)成績"+str(x,3+"在70-79之間"case x<=89=messag

3、ebox("該生的計(jì)算機(jī)成績"+str(x,3+"在80-89之間"otherwise=messagebox("該生的計(jì)算機(jī)成績"+str(x,3+"在90-100之間"endcase5、找出zgqk.dbf中基本工資最高記錄,輸出其姓名和基本工資Form1的click事件Use zgqkmax=基本工資scanif 基本工資>maxmax=基本工資endifendscanloca for 基本工資=max?姓名,基本工資6、找出2010至2100之間所有閏年的年份Form1的click事件for y=201

4、0 to 2100if y%4=0 and y%100!=0 or y%400=0?y,"年是閏年"endifnext7、計(jì)算1+3+5+99,并將結(jié)果存入文本框Text1中Form1的click事件sum=0for i=1 to 99 step 2sum=sum+inextForm1的click事件input to aarea=3.14*(a/22?"邊長為",a,"的正方形的內(nèi)切圓面積為",area9、求t=n!Form1的click事件input to nt=1for i=1 to nt=t*inext?n,"的階乘是

5、",t10、在zgqk.dbf 中按姓名查找職工情況,找到后顯示其情況,否則顯示“查無此人”。Form1的click事件Use zgqkloca for 姓名=xmif found(dispelse=messagebox("查無此人"endif11、求s=1/12+1/22+1/n2Form1的click事件input to ns=0for i=1 to ns=s+1/i2next?"1/12+1/22+1/n2的結(jié)果為",s12、假設(shè)表單與表文件zgqk.dbf 建立了數(shù)據(jù)環(huán)境,在其中按姓名查找職工情況,找到后將其情況在表單上顯示,否則在信息

6、框中顯示“查無此人”。Form1的click事件loca for 姓名=xmif found(this.refreshelse=messagebox("查無此人"endif13、求所有的3位正整數(shù)除以99的商和余數(shù)Form1的click事件for i=100 to 999sh=int(i/99ys=i%99為:"+allt(str(sh+"余數(shù)為:"+allt(str(ys+chr(10next14、輸出101500之間的所有奇數(shù)及計(jì)算這些奇數(shù)的和。Form1的click事件sum=0for i=101 to 500 step 2?i,&quo

7、t;是奇數(shù)"sum=sum+inext?"101-500所有的奇數(shù)和是:",sum15、在Text1中輸入一個3位自然數(shù)進(jìn)行分解求和,其結(jié)果存入Text2中。Form1的click事件bw=int(x/100sw=int(x-bw*100/10gw=x%10sum=0for i=3 to 100 step 3sum=sum+inext?"1-100之間能被3整除的數(shù)之和為",sum 17、輸出zgqk.dbf的基本工資大于600的所有記錄Form1的click事件Use zgqklist for 基本工資>60018、求s=1!+2!+3!+4!+5!。Form1的click事件sum=0for i=1 t