文档介绍：判断题
1VB采用面向对象的程序设计方法，程序由若干对象组成。其中对象的特征或性质由对象的属性来描述
2VB的三种工作模式分别是：设计模式；运行模式；中断模式。
3在VB中，表达式“Hello World” Like “He*ile int1> =1
Int1=int1-1
Loop
28输入100个数，统计其中负数、零及正数的个数。单击窗体，从键盘输入100个数，并输出负数、零及正数的个数，完成以下代码。
Private Sub Form_Click()
Dim fs As Integer, zs As Integer, ns As Integer ’ fs, ns, zs分别代表负数、零及正数的个数
Dim k As Double
For i = 1 To 100
k = Val(InputBox("输入一个数据"))
If k > 0 Then
__1__
ElseIf k < 0 Then
fs = fs + 1
Else
__2__
End If
Next i
Print "负数、零及正数的个数分别是:"; fs, ns, zs
End Sub
29求两个整数的最大公约数。
求最大公约数的算法思想：
(1) 对于已知两数m，n，使得m>n；
(2) m除以n得余数r；
(3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
(4) m←n，n←r，再重复执行(2)。
例如：求 m=14，n=6 的最大公约数，余数r=2，r不为0，则m=6，n=2，r为m除n的余数=0，则最大公约数为2。
请根据以上思路补充下面的VB命令按钮事件代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n Then t = m: m = n: n = t
r = __1__
Do While (r <> 0)
m = n
__2__
r = m Mod n
Loop
Print "最大公约数=", n
End Sub
30有30个人，其中有男人、女人和小孩。他们在一家饭馆里花去500元。已知，每个男人花30元，每个女人花20元，每个小孩花10元。问：男人、女人、小孩各为多少人。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
Private Sub Command1_Click()
Dim man As Integer, woman As Integer, child As Integer
For man = 1 To 15
For woman = 1 To 23
child = __1__
s = 30 * man + 20 * woman + 10 * child
If __2__ Then
Print man, woman, child
End If
Next woman
Next man
End Sub
31猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早晨又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上再想吃时，见只剩一个桃子了。问：第一天猴子共摘了多少个桃子。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式。Visual Basic 程序如下：
Private Sub Command1_Click()
Dim i, s As Integer
__1__
For i = 1 To 9
__2__
Next i
Text1 = s
End Sub
32下面的代码实现从1到N的求和。
Private Sub Command1_Click()
N=
sum=0
for i=1 to __1__
__2__
Next i
End Sub
33下面的