带星号的程序代码总结_带星号的股票什么意思

带星号的程序代码总结由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“带星号的股票什么意思”。

3输入三个数逆序显示

m=thisform.text1.value a=int(m/100)b=int(mod,100)/10)c=mod(m,10)n=100*c+10*b+a thisform.label2.caption=“结果为：”+str(n,3)

4求圆面积显示在标签中

r=thisform.text1.value s=pi()*r*r thisform.label2.caption=“该圆的面积为：”+str(s,3)5逆序显示加meagebox m=thisform.text1.value a=int(m/100)b=int(mod,100)/10)c=mod(m,10)n=100*c+10*b+a thisform.label2.caption=“结果为：”+str(n,3)

5逆序显示加meagebox

x=thisform.text1.value if x>=100 and x

x1=int(x/100)

x2=int(mod(x,100)/10)

x3=mod(x,10)

y=x3*100+x2*10+x1

thisform.label2.caption=“结果为：”+str(y,3)

else

meagebox(“入的不是一个三位自然数，请重新输入！”)

thisform.text1.value=0

thisform.text1.setfocus

endif

6圆面积meagebox显示

r=thisform.text1.value s=pi()*r*r meagebox(“圆面积=”+str(s,3),0)

8判断能否构成三角形

a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+b>c and a+c>b and b+c>a l=(a+b+c)/2 area=sqrt(l*(l-a)*(l-b)*(l-c))thisform.text4.value=round(area,1)else meagebox(“不能构成三角形,请重新输入！”)thisform.text1.value=0 thisform.text2.value=0 thisform.text3.value=0 thisform.text4.value=0 thisform.text1.setfocus endif

9判断是否是闰年

D=thisform.text1.value Y=year(d)If y/4=int(y/4)and y/100int(y/100)or int(y/400)=y/400 Y1=”是” Else Y1=”不是” Endif

Thisform.label2.caption=y1

10比较大小双分支

a=thisform.text1.value b=thisform.text2.value if a>b thisform.text3.value=a else thisform.text3.value=b endif

11单分支

A=thisform.text1.value B=thisform.text2.value If a

case m=3 or m=4 or m=5

s=“春季” case m=6 or m=7 or m=8

s=“夏季”

case m=9 or m=10 or m=11

s=“秋季”

case m=12 or m=1 or m=2

s=“冬季”

endcase

thisform.label1.caption=“该季节为： 15计算1+100 s=0 i=1 do while i

”+s FOR I=1 T0 THISFORM.TEXT1.VALUE

P=p*i Endfor Thisform.text2.value=P 18算K=1+2^2+..n^2 s=0 for i=1 to val(thisform.text1.value)s=s+i^2 endfor

thisform.text2.value=s 17计算奇数和 s=0 for i=1to 100 step 2

s=s+i

endfor

thisform.text1.value=s 19计算e的近似值 s=0 i=1 n=1 m=1 do while m>=0.000001 n=n*i m=1/n i=i+1 s=s+m enddo

thisform.text1.value=s 20求出所有的水仙花数 for i=100 to 999 x1=int(i/100)x2=int(mod(i,100)/10)x3=mod(i,10)if x1^3+x2^3+x3^3=i thisform.label1.caption=thisform.label1.caption+str(i,5)endif endfor 22输入字符串逆序显示 x=alltrim(thisform.text1.value)c=“” for i=len(x)to 1 step-1 c=c+substr(x,i,1)endfor thisform.label1.caption=c 23显示ASSIC字符中的数字字符串 a=alltrim(thisform.text1.value)c=“ ” for i=1 to len(a)step 1 b=substr(a,i,1)if asc(b)>=asc(“0”)and asc(b)

endfor thisform.label1.caption=c 24显示ASSIC字符中的大写字母串 a=alltrim(thisform.text1.value)c=“ ” for i=1 to len(a)step 1 b=substr(a,i,1)if asc(b)> asc(“A”)and asc(b)

endfor thisform.label1.caption=c 25求圆面积，迎获得焦点即计算

Text2 gotfocus 事件

程序不变

26求圆面积，text1失去焦点，即输完字后敲回车即计算

Text1 的valid事件或者lostfocus事件 27修改label1 的相应字体command group do case

case this.value=1

thisform.label1.fontname=“宋体”

case this.value=2

thisform.label1.fontname=“黑体”

case this.value=3

thisform.label1.fontname=“楷体”

case this.value=4

thisform.label1.fontname=“隶书”

case this.value=5

thisform.release Endcase28x=thisform.text1.value y=thisform.text2.value do case

case thisform.optiongroup1.value=1

z=x+y case thisform.optiongroup1.value=2

z=x-y case thisform.optiongroup1.value=3

z=x*y case thisform.optiongroup1.value=4 z=x/y endcase thisform.text3.value=z

29在list中输入*的直角三角形

y=“*” for i=1 to 5 thisform.list1.additem(y)y=y+“*” endfor 30列表框中显示斐波拉契数列 f1=1 f2=1 thisform.list1.addlistitem(“

1”,1,1)thisform.list1.addlistitem(“

1”,1,2)x=1

&& x表示行号 y=3

&& y表示列号 for i=3 to 20

f3=f1+f2 thisform.list1.addlistitem(str(f3,5),x,y)f1=f2 f2=f3 y=y+1 if y=6 x=x+1

&& x+1即行号加1，换行 y=1

&& 换行后列号回1 endif endfor 31 将100到150中第一个能被3整除的数找出来。EXIT跳出当前循环

For n=100 to 150

if n%3=0

thisform.text1.value=n

exit

endif Endfor 32用编辑框显示1到100的奇数 k=0 for i=1 to 100 step 2

k=k+1 thisform.edit1.value=thisform.edit1.value+str(i,5)if k%8=0 thisform.edit1.value=thisform.edit1.value+ chr(13)endif Endfor 33 用编辑框输出大写字母表 n=0 for i=asc(“A”)to asc(“Z”)

thisform.edit1.value=thisform.edit1.value+ chr(i)+space(2)

n=n+1

if n%6=0

thisform.edit1.value=thisform.edit1.value+ chr(13)

endif endfor 34查询图书表中包含程序二字的图书信息

select * from 图书 where 书名 like “%程序%” into cursor temp thisform.grid1.recordsource=“temp” 35查询图书表中图书的价格在28到30之间的图书。

select * from 图书 where 价格 between 28 and 30 into cursor temp thisform.grid1.recordsource=“temp “ 第二类

select * from 图书 where 价格>=28 and 价格

select 读者编号,书号,借阅日期 from 借阅

order by 读者编号 desc, 借阅日期 asc into cursor temp thisform.grid1.recordsource=”temp “

注：

通过ORDER BY子句可以实现查询结果的排序输出，允许按一列或多列排序。

格式：

ORDER BY ［ASC|DESC］［,［ASC|DESC］„］

其中，ASC表示升序排序（缺省方式），DESC表示降序排序。

38显示图书表中数量最多的两种图书信息。表单Form1的Init事件代码如下：

select top 2 * from 图书 order by 数量 desc ；

into cursor temp thisform.grid1.recordsource=“temp ” 注：

使用TOP ［PERCENT］短语显示部分结果。注意：TOP短语要与ORDER BY短语同时使用才有效。

【例】显示价格最低的20%图书的信息。

SELECT * TOP 20 PERCENT FROM 图书 ORDER BY 价格 39计算图书表中图书的平均价格，保存在数组DJ中。select avg(价格)from 图书 into array dj thisform.label1.caption=“图书的平均价格 为:”+ str(dj(1),5,2)+“元” 注：使用INTO ARRAY 将查询结果存放到数组中。40将图书表中最高单价和最低单价分别显示在文本框text1和text2中。

其SQL语句改为: select max(价格)as 最高单价,min(价格)as 最低单价 from 图书 into array cj thisform.text1.value=cj(1)thisform.text2.value=cj(2)41将图书表中最高单价和最低单价分别显示在文本框text1和text2中。其SQL语句改为:

select max(价格)as 最高单价,min(价格)as 最低单价 from 图书

into array x Thisform.label3.caption=str(x(1),4,1)Thisform.label4.caption=str(x(2),4,1)42 计算图书表中每个出版社的图书数量。注： 通过GROUP BY子句可以实现分组查询。

格式：

GROUP BY ［,„］

［HAVING ］

其中，可以是表的字段名、字段函数名或标识列的数值型表达式；［HAVING ］子句进一步限定分组的条件。表单Form1的Init事件代码如下：

select

出版社，sum(数量)as 数量 from 图书

group by 出版社

into cursor temp thisform.grid1.recordsource=”temp“

43在借阅表中统计每本图书的借阅次数。

Select 书号,count(*)as 借阅次数 from 借阅 group by 书号 into cursor temp

Thisform.grid1.recordsource=”temp”

44查询至少被借阅了2次的图书的书号及书名。注，此方法可以运行

select 书号, 书名 from 图书 where 书号 in(select 书号 from 借阅 group by 书号 having count(*)>=2)into cursor lsb thisform.grid1.recordsource=”lsb“ 方法2（运行故障，）select 图书.书号,书名 from 图书,借阅;

where 图书.书号=借阅.书号

group ；

by图书.书号 having count(*)>=2;

into cursor temp thisform.grid1.recordsource=“temp ” 方法3（运行故障）Select 图书.书号,书名 from 图书 inner join;

借阅

on 图书.书号=借阅.书号；

group by 图书.书号；

having count(*)>=2;

into cursor temp thisform.grid1.recordsource=“temp “ 45输入图书编号，查询借阅该图书的读者姓名、单位、联系电话。方法1: “查询”按钮的Click事件代码如下： bh=alltrim(thisform.text1.value)

select ；

读者姓名,单位,联系电话；

from 读者,借阅；

where 读者.读者编号=借阅.读者编号；

and 书号=bh;

into cursor temp thisform.grid1.recordsource= “temp ” 方法2: “查询”按钮的Click事件代码如下： bh=alltrim(thisform.text1.value)

select 读者姓名,单位,联系电话 from 读者;

inner join 借阅 on 读者.读者编号=；

借阅.读者编号 where 书号=bh;

into cursor temp thisform.grid1.recordsource=“temp “ 方法3: “查询”按钮的Click事件代码如下： bh=alltrim(thisform.text1.value)

select 读者姓名,单位,联系电话 from 读者 where 读者编号 in(select 读者编号 from 借阅

where 书号=bh)into cursor temp thisform.grid1.recordsource=“temp ” 46输入读者编号，查询该读者的姓名、单位、借阅的图书的书名及借阅日期。

bh=alltrim(thisform.text1.value)

select 读者姓名,单位,书名,借阅日期 from 读者,借阅, 图书 where 读者.读者编号= 借阅.读者编号 and 借阅.书号= 图书.书号 and 读者.读者编号=bh into cursor temp thisform.grid1.recordsource=“temp” 51Edit 编辑框的interactivechange代码 zy=thisform.combo1.value

select 学号,姓名,成绩 from xs,cj where 专业=zy into array ca select avg(成绩),count(成绩