Private Sub Command 1_Click()
a=10
for k=1 to 5 Step -1
a=a -k
Next k
Print a, k
End sub
a=0
while a<10
a=a+1
print("a的最终结果是",a)
>>>a的最终结果是 9
x=1
Do While x<28
X = x * 4
Loop
Print x
程序运行后,输出结果是( )
Dim x As Interger
x= 1
Do While x < 50
x = ( x + 1 )*( x + 2 )
Loop
For i = 1 To 5
For j = 2 To i
Print "*";
Next j
Next i
s=0
for i=1 to 5
s=s+i
next i
For i=1 To 6
For j=1 To 4
Print”*”
Next j
Next i
i=1 #定义记录循环次数的变量
sum=0 #定义结果变量,存放总和
while i <=100:
i=i+1 #处理计数器
print("1~100之间的数字之和为:",sum) # 输出结果
for i in range(0,2):
print(i, end=" ")
for i in range(0,10,2):
print("*")
for i in range(6):
print( )
*
**
***
****
*****