程序代码如下:
Private Sub Form Click()
Dim ji As Integer ‘鸡
Dim tu As Integer ‘兔
Dim tui As Integer ‘腿数
Dim tou As Integer ‘头数
For ji=
For tu=1 to 25
tui= ‘计算腿的数量
tou= ji+tu ‘计算头的数量
IFThem
Print ji, tu
End If
Next tu
Next ji
End sub
x=0
for i in range(6):
for j in range(7):
x=x+1
print (x)
i=1
sum=0
while i<=20:
if I %2==0:
sum=sum-i
else:
sum=sum+i
i +=1
print (sum)
For i = 1 To 5
For j = 2 To i
Print "*";
Next j
Next i
用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
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为。
for I in range(0,9,2):
print("*")
图1 图2 |
Private sub Form1_click( )
For s= to 1 step
Print “无人机继续向前移动”
Print“无人机停止移动,并转向”
End sub
a=0
while a<5:
a=a+1
print(a)
代码如下:
import turtle
turtle. bgcolor("black")
colors=["red", "green", "blue", "yellow"]
for x ① range(100):
turtle. pencolor(colors[x%4])
turtle. circle(x)
turtle. left(90)
请分析任务,完成下列题目。
s='t1Hr2a3'
s1='' ; s2=''; i = 0
while i < len(s):
if '0'<=s[i]<='9':
s1 = s1 + s[i]
elif 'a'<=s[i]<='z':
s2 = s[i] + s2
i = i + 1
ans = s2 + s1
print(ans)
程序执行后,输出的结果是( )
a,b=[0]*10,[False]*10
i=0
while i<=9:
if not b[r]:
a[i]=r
i=i+1
print(a)
则划线处的代码依次是( )
① r=random.randint(0,10)
② b[r]=True
③import random
④ b[i]=True
⑤from random import randint
⑥ r=random.randint(0,9)
a |
b |
a % b |
123456 |
7890 |
5106 |
7890 |
5106 |
2784 |
5106 |
2784 |
2322 |
2784 |
2322 |
462 |
2322 |
462 |
12 |
462 |
12 |
6 |
12 |
6 |
0 |
程序如下:
a = int(input("输入第一个数:")) b= int(input("输入第二个数:")) c= ① while ② :
print("它们的最小公倍数是:",c//a) |
for i in range(0,2):
print(i, end=" ")