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
① ② ③ ④
a=6
b=8
s=1+a*b/2
print(s)
Private Sub Command1_Click( )
Dim a As Single
Dim b As Single
Dim total As Single
a = Val(Text1. Text)
b =Val(Text2. Text)
total =
Text3. Text =
End Sub
a=10
b=20
sum=a+b
___________________
Num1=9
Num2=14
age=(Num1+Num2)/2
print(age)
a=20
b=2
c=a**b+300
print(c)
Num=53
result=Num%5
print(result)
Num1=11
Num2=29
Sum=Num1+Num2
print(Num1,"+",Num2,"=",Sum)
Num=123
temp1=Num%10
temp2=Num%100
print(temp1,temp2)
Num1=3
Num2=4.8
print(Num1,Num2)
Node=11
Name="x"
print(Node,Name)
Num1=4.1
Num2=5.8
age=(Num1+Num2)/2
a=14 b=10 print(a%b) |
Num1=11
Num2=29
Sum=Num1+Num2
print(Num1,"+",Num2,"=",Sum)
Num1=4.1
Num2=5.8
age=(Num1+Num2)/2
Num=123
temp1=Num%10
temp2=Num%100
print(temp1,temp2)