- 3
- 0
- 约4.45千字
- 约 10页
- 2021-02-24 发布于山东
- 举报
1、有一张 0.5mm 厚足够大的纸 ,问对折多少次可以达到珠峰高度 (8848.13m?
h=0.5
cs=0
do while h8848000
h=h*2
cs=cs+1
enddo
?对折的次数为 :,cs
2、文本框 Text1 中输入的值与文本框 Text2 中输入的值进行交换。
Form1 的 click 事件
a=this.text1.value
this.text1.value=this.text2.value
this.text2.value=a
3、在表单的标签上输出自然数 1,2,3,4,5
Form1 的 click 事件
This.label1.caption= ””
For i=1 to 5
This.label1.caption=this.label1.caption+str(I,1
next
4、判断一个学生的计算机考试成绩 x 属于哪个分数段之间 (0-59,60-69,70-79,
80-89,90-100
Form1 的 click 事件
input to x
do case
case x0 or x100
=messagebox(成绩在 0-100 之间 ,重新输入
case x=59
=messagebox(该生的计算机成绩 +str(x,3+ 在 0-59 之间
case x=69
=messagebox(该生的计算机成绩 +s
原创力文档

文档评论(0)