1.补充程序，圆的面积与周长，π取3.14（p26/p32）
Private Sub Command1_Click()
Dim r As Single, s As Single, L As Single
r = 5
s =__________
L =___________
Print "圆的面积s="; s
Print "圆的周长L="; L
End Sub

2.补充程序，长方体的体积与表面积(p39)
Private Sub Command2_Click()
Dim a As Single, b As Single, h As Single, s As Single, v As Single
a = 5
b = 3.6
h = 5.8
v = _________
s =___________
Print "长方体的体积V="; v
Print "长方体的表面积s="; s
End Sub


3.补充程序，两个数互换(p35)
Private Sub Command3_Click()
Dim a As Single, b As Single, c As Single
a = 2.5
b = 7
________
________
b = c
Print "a="; a
  Print "b="; b
End Sub


4.补充程序，三位数反向（例如：159--》951）(p39)
Private Sub Command4_Click()
Dim a As Integer, b As Integer, x1 As Integer, x2 As Integer, x3 As Integer
a = 329
x1 = _________
x2 =__________
x3 = a Mod 10
b = x3 * 100 + x2 * 10 + x1
Print "反向后的三位数b="; b
End Sub

5.补充程序，四位数反向（例如：1597--》7951）(p39)
Private Sub Command5_Click()
Dim a As Integer, b As Integer
Dim x1 As Integer, x2 As Integer, x3 As Integer, x4 As Integer
a = 1329
x1 = a \ 1000
x2 = _________________
x3 = a \ 10 Mod 10
x4 =__________________
b = x4 * 1000 + x3 * 100 + x2 * 10 + x1
Print "反向后的四位数b="; b
End Sub


6.补充程序，判断a的奇偶性(p42)
Private Sub Command6_Click()
Dim a As Integer
a = 15
If ___________     __________
Print "a是偶数"
Else
Print "a是奇数"
________________
End Sub

7.补充程序，如果a是偶数，另y的值为0；如果a是奇数，另y的值为1；
Private Sub Command7_Click()
Dim a As Integer, y As Integer
a = 15
If a / 2 = _______ Then
y = 0
________
__________
End If
Print y
End Sub

8.补充程序，如果a是偶数，另y的值为0；如果a是奇数，另y的值为1；
Private Sub Command8_Click()
Dim a As Integer
a = 15
If a / 2 =_____    _______
y = 0
Else
y = 1
End If
Print y
End Sub

9.补充程序，求解a的绝对值(p44)
Private Sub Command9_Click()
Dim a As Integer
a = -15
If _________ Then
Print a
Else
Print _________
__________
End Sub

10.买东西打折。超市对西瓜进行促销，西瓜原价2.5元一斤，
购买超过10斤，超过部分2元一斤。请补充程序。
Private Sub Command9_Click()
Dim a As single
dim s as single
a = 7
If _________ Then
s=2.5*a
Else
_________
end if
print s
End Sub

11.买东西打折。超市对面粉进行促销，面粉原价3.8元一斤，
购买超过10斤，按2.9元计算。请补充程序。
Private Sub Command9_Click()
Dim a As single
dim s as single
a = 15
If _________ Then
___________
Else
s=2.9*a
__________
print s
End Sub

12.补充程序，求解1-100所有偶数的和(p51)
Private Sub Command10_Click()
Dim s As Long, i As Long
s = ______
For i = ____ To 100 Step _____
___________
________ i
Print s
End Sub


13.补充程序，求解1*2*3*4*5*6*7的乘积(p51/p32)
Private Sub Command11_Click()
Dim s As Long, i As Long
s = ________
For i = 1 ______ 7
___________
Next ______
Print s
End Sub

1.补充程序，圆的面积与周长，π取3.14（p26/p32）
Private Sub Command1_Click()
Dim r As Single, s As Single, L As Single
r = 5
s =__________
L =___________
Print "圆的面积s="; s
Print "圆的周长L="; L
End Sub

2.补充程序，长方体的体积与表面积(p39)
Private Sub Command2_Click()
Dim a As Single, b As Single, h As Single, s As Single, v As Single
a = 5
b = 3.6
h = 5.8
v = _________
s =___________
Print "长方体的体积V="; v
Print "长方体的表面积s="; s
End Sub


3.补充程序，两个数互换(p35)
Private Sub Command3_Click()
Dim a As Single, b As Single, c As Single
a = 2.5
b = 7
________
________
b = c
Print "a="; a
  Print "b="; b
End Sub


4.补充程序，三位数反向（例如：159--》951）(p39)
Private Sub Command4_Click()
Dim a As Integer, b As Integer, x1 As Integer, x2 As Integer, x3 As Integer
a = 329
x1 = _________
x2 =__________
x3 = a Mod 10
b = x3 * 100 + x2 * 10 + x1
Print "反向后的三位数b="; b
End Sub

5.补充程序，四位数反向（例如：1597--》7951）(p39)
Private Sub Command5_Click()
Dim a As Integer, b As Integer
Dim x1 As Integer, x2 As Integer, x3 As Integer, x4 As Integer
a = 1329
x1 = a \ 1000
x2 = _________________
x3 = a \ 10 Mod 10
x4 =__________________
b = x4 * 1000 + x3 * 100 + x2 * 10 + x1
Print "反向后的四位数b="; b
End Sub


6.补充程序，判断a的奇偶性(p42)
Private Sub Command6_Click()
Dim a As Integer
a = 15
If ___________     __________
Print "a是偶数"
Else
Print "a是奇数"
________________
End Sub

7.补充程序，如果a是偶数，另y的值为0；如果a是奇数，另y的值为1；
Private Sub Command7_Click()
Dim a As Integer, y As Integer
a = 15
If a / 2 = _______ Then
y = 0
________
__________
End If
Print y
End Sub

8.补充程序，如果a是偶数，另y的值为0；如果a是奇数，另y的值为1；
Private Sub Command8_Click()
Dim a As Integer
a = 15
If a / 2 =_____    _______
y = 0
Else
y = 1
End If
Print y
End Sub

9.补充程序，求解a的绝对值(p44)
Private Sub Command9_Click()
Dim a As Integer
a = -15
If _________ Then
Print a
Else
Print _________
__________
End Sub

10.买东西打折。超市对西瓜进行促销，西瓜原价2.5元一斤，
购买超过10斤，超过部分2元一斤。请补充程序。
Private Sub Command9_Click()
Dim a As single
dim s as single
a = 7
If _________ Then
s=2.5*a
Else
_________
end if
print s
End Sub

11.买东西打折。超市对面粉进行促销，面粉原价3.8元一斤，
购买超过10斤，按2.9元计算。请补充程序。
Private Sub Command9_Click()
Dim a As single
dim s as single
a = 15
If _________ Then
___________
Else
s=2.9*a
__________
print s
End Sub

12.补充程序，求解1-100所有偶数的和(p51)
Private Sub Command10_Click()
Dim s As Long, i As Long
s = ______
For i = ____ To 100 Step _____
___________
________ i
Print s
End Sub


13.补充程序，求解1*2*3*4*5*6*7的乘积(p51/p32)
Private Sub Command11_Click()
Dim s As Long, i As Long
s = ________
For i = 1 ______ 7
___________
Next ______
Print s
End Sub