
Dim x As Interger
x= 1
Do While x < 50
x = ( x + 1 )*( x + 2 )
Loop
用VB程序实现水仙花数,如果一个三位数等于它的每个数字的立方的和,则此数称为“水仙花数”,如153=13+53+33 , 故153是水仙花数。求100~999之间的全部水仙花数
Private Sub Command1_Click()
Dim i, j, m, n As Integer
For
i = ´求百位上的数字
j = (n Mod 100) \ 10 ´求十位上的数字
m = n Mod 10 ´求个位上的数字
If Then
Print n; "="; i; "^3+"; j; "^3+"; m; "^3"
End If
Next n
End Sub
For i = 1 To 10 Step 4
s = s + i
Next i
该程序段运行后,语句s = s + i执行的次数是( )。
Private Sub Command1_Click()
Dim age As Integer, tree As Integer
age = 15
tree = 1
Do While tree
age =
Tree = tree + (age - 14)
Text1.Text = Str(age)
End Sub
for i in range(0,2):
print(i)
Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s =
For i = 1 ToStep 1
s =
Next i
Print "s="; s
End Sub
a=0
for i in range(1,4):
a=a+i
print(a)
实现上述功能的程序如下,请在划线处填入合适的代码。
import math
def isprime(x):
for i in range(2,int(math.sqrt(x))+1):
if x % i = = 0 :
f=False
return f
n=int(input("请输入一个正整数 n:"))
c=0
k=3
while k < = n-2:
if isprime( k ) and:
c + = 1
print("第"+ str( c ) +"对双胞胎数:", k ,'和',k+2)
print("共有"+str(c)+"对双胞胎数")
s=0
for i in range (1,5):
s=s+i
print("i=",i,"s=",s)
a= 1
b=3
c=4
a= a+b+c
b= a+b+c
c=a+b+c
print(a,b,c)
a=10
b=20
sum=a+b
___________________
