for i in range(5) :
print(i)
i=1
while i<=100:
print(“*”)
i=i+1
用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
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
pi=3.14
r=10
s=pi*r*r
print(s)
for i in range(0,10,2):
print ("*")