
Private Sub Form-Click()
Dim S As Integer
Dim N As Integer
N=0
S=0 ‘S变量存放的是总和
Do While (条件)
N=N+1
S=S+N
Loop
Text1. Text=Str()
End Sub
珠穆朗玛峰简称“珠峰”,珠峰海拔约为8844米,是世界第一高峰。如果有一张足够大的纸(厚0.1毫米),对折多少次,纸张的厚度可以超过珠穆朗玛峰的高度?
程序如图:
b=1
Do while (b<40)
b=b*(b+1)
Loop
Print b
Dim s As long, x As Integer
s=0 : x=1
Do While (x<10)
s=s+x
x=x+2
Loop
Print s
a=0
For i=1 To 2
For j=i To 2
For k=1 To j
a=a+2
Next k
Next j
Next i
for I in range(0,9,2):
print("*")
i = 0
while i <10:
print("我爱Python!")
i = i + 2
s=1
for i=1 to 3
s=s+1
next i
该程序段运行后,变量s的值为( )
s=0
For i=5 to -3 step-6
s=s+i
Next i
n=0
for i in range(1,4):
n+=i
1)def factoria1(n): #求n!
2) s=1
3) for i in range(2,n+1)::
4) s=s*i
5) return s
6)print(factorial(4))
s="abcdefg"
c=len(s) #len 求字符串长度
for i in range(0,c):
if i<2:
print (chr(ord(s[i])+2),end=" ") # ord()函数是chr()函数配对函数,将字符转ASCII值
else:
print(chr(ord(s[i]) + 3),end=" ")
For i=1 To 6
For j=1 To 4
Print”*”
Next j
Next i
s=0
for i in range(1,10,3):
s=s+i
该程序段运行后,s的结果是()。
Num1=11
Num2=29
Sum=Num1+Num2
print(Num1,"+",Num2,"=",Sum)
Num1=3
Num2=4.8
print(Num1,Num2)
a1=int(input("请输入自然数:")
a2=int(input("请输入自然数:")
p1=a2
p2=int(a1*a2)
p3=int(a2/a1+a1*a2)
print(p1, p2, p3)
a2=int(input ("请输入自然数:"))
p=int(a1/a2+a1*a2) print(p)
假如输入15和5,结果是( )