SUM=0
FOR I=1 TO 100 STEP 1
SUM=SUM+I
END FOR
GraphicsWindow.DrawText(100,80,"1+2+...+100="+SUM)
a=0
while a<10
a=a+1
print("a的最终结果是",a)
>>>a的最终结果是 9
①设定⼀个理想数字比如:66,
②让⽤户输入数字,如果比66⼤,则显示:“你猜大了!”;
③如果⽐66小,则显示:“你猜小了!”;
④只有等于66,显示:“你才对了!”,并退出循环。
x=0
for i in range(6):
for j in range(7):
x=x+1
print (x)
|
对象名 |
属性名 |
属性 |
|
Command1 |
计算 |
Private Sub Command1_Click()
Dim i, s As Integer
s =
For i = 0 To 100 Step 1
Next i
Label2.Caption = Str(s)
End Sub
Dim x As Integer
x=2
Do while x<=63
x=(x+1)*(x-1)
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 in range(3):
print(i, end="")
print("go")
| 1 | go |
| 2 | go |
| 3 | go |
|
1 |
|
2 |
|
3 go |
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)
1)系统随机生成一个1~100的数字;
2)用户总共有5次猜数字的机会;
3)如果用户猜测的数字大于系统给出的数字,打印“too big";
4)如果用户猜测的数字小于系统给出的数字,打印"too small";
5)如果用户猜测的数字等于系统给出的数字,打印"恭喜",并且退出循环;
编写程序代码如下,请完善代码:
#导入random模块
#随机生成1-100的整数并赋值给变量game
time=5
while time>0:
guess=int (input ("请输入你所猜的数字:"))
if (guess>game) :
print ("too big")
elif :
print(" too small' )
else:
print ("恭喜”)
break
time=time-1
print("游戏结束,正确的结果是:",game)
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
Loop
Dim x As Integer
x=2
Do while x<=63
x=(x+1)*(x-1)
Loop
for i in range(0,10,2):
print ("*")