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

① ② ③ ④
| m= 1 m = m+ 5 n = 5 + m Print n ,m |
| a = 2 b = 3 print a > b |
| a=10 b=20 If a>b then Print a, b Else Print b, a End if |
| For k=15 to 1 step -5 Print k; next |
a=10
b=20
sum=a+b
___________________
a=5
b=2
c=3
d=(a*b)%c
print(d)
Num1=11
Num2=29
Sum=Num1+Num2
print(Num1,"+",Num2,"=",Sum)
Num=123
temp1=Num%10
temp2=Num%100
print(temp1,temp2)
___________________
b=int(input())
c=(a+b)/2
print(c)
a=input( )
b=input()
c=a+b
print (c)
a=4
b=6
avg=(a+b)/3
print(avg)
| a=14 b=10 print(a%b) |
a=15
b=20
a=b
print(a)
a=5
b=3
print(a*b)

Num=123
temp1=Num%10
temp2=Num%100
print(temp1,temp2)
Am=['书法','绘画','体育'] m.append('歌唱')
m.append('舞蹈')
print("与体能有关的项目是:",m[2])