Private Sub Form_Click()
n=1
s=0
Do while
s=
n=n+1
Loop
Print s
End sub
珠穆朗玛峰简称“珠峰”,珠峰海拔约为8844米,是世界第一高峰。如果有一张足够大的纸(厚0.1毫米),对折多少次,纸张的厚度可以超过珠穆朗玛峰的高度?
程序如图:
s=0
for i in range(1,21) :
s=
print (s)
Dim x As Integer
x=2
Do while x<=63
x=(x+1)*(x-1)
Loop
Dim Y As Integer
Y=0
Do While Y<30
Y=(Y+2)*(Y+3)
Loop
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
Else
if b>3 then
c=a*b
else
c= a mod b
End if
End if
x=20
if x>=100 then y=5*x else y=4*x
end if
x = 0
while x < 50:
x = (x + 2) * (x + 3)
运行后,x的值为( )
Num1=4.1
Num2=5.8
age=(Num1+Num2)/2
| a=10 b=5 if(a<<b): print("a比b小") |
chengji = int( input("请输入百分成绩"))
if chengji >= 85:
print("成绩为:优秀")
else:
print("成绩为:良好")

i=1 #定义记录循环次数的变量
sum=0 #定义结果变量,存放总和
while i <=100:
i=i+1 #处理计数器
print("1~100之间的数字之和为:",sum) # 输出结果
a1=int(input("请输入自然数:")
a2=int(input("请输入自然数:")
p1=a2
p2=int(a1*a2)
p3=int(a2/a1+a1*a2)
print(p1, p2, p3)
Am=['书法','绘画','体育'] m.append('歌唱')
m.append('舞蹈')
print("与体能有关的项目是:",m[2])