i=1
while i<=100:
print(“*”)
i=i+1
|
对象名 |
属性名 |
属性 |
|
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
Private Sub Form_Click( )
Dim a, b, c, s As Integer
a=9
b=41
c=2*(a+b)
s=a*c
Private Sub Form_Click( )
Dim a As Integer, b As Integer
If a>b Then
a=a-b
Else
a=b+a
End if
Print a
Private Sub Form_Click( )
Dim x As Integer, a As Integer
x=0
a=0
For j=1 to 5
a=a+j
Next j
x=j
Print x, a
End Sub
Private Sub Form_Click( )
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x,n
End Sub
分析流程图,在代码窗口中①处应填写的代码正确的是( )
B .
C .
D .
……
Next x
B . for x=3 to -3 step -3……
next x
C . for x=1 to 10Re
Next x
If I=10 then go to re
D . for x= 3 to step 3……
Next y
Private Sub Timer1_Time( )
For i= 0 To 10 Step 1
Shape l(0) BackColor= RGB(Int(Rnd * 256), Int(Rnd * 256), In(Rnd * 256)
Next i
End Sub
for i in range(1,4):
print(i)
1
2
3
B . 12
3
C . 12
3
4
D . 1 2 3 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=" ")
是语句,该语句不循环,只有把它放入指令块内才会循环。若要增加一行“否则如果为……则”可以单击指令块左下角的完成。
指令块属于指令块,它可以独立于程序里的其他部分存在;当按钮A被按下时,是以为幅度更改改变亮度。
指令块是指令块,可以独立运行,也可以同时添加多个。
i=1
while i<=49:
print(“♥”)
i=i+1