【推荐1】VB 程序实现如下功能：单击“开始”按钮 Command1，计时器 Timer1 每隔 0.5 秒随机产生抽奖的号码，并在标签 Label1 中显示，同时按钮 Command1 的标题变为“停止”；再次单击“停止”按钮 Command1，计时器停止工作，标签 Label1 显示中奖号码，同时按钮 Command1 的标题变为“开始”。界面如图所示。

（1）根据题意，如图所示，计时器 Timer1 的 Interval 属性值应设置为____________。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。

Const n = 28 '参与抽奖的总人数

Private Sub Command1_Click()

If Command1.Caption = "开始" Then

Timer1.Enabled = True

Command1.Caption = "停止"

Else

Timer1.Enabled = ___________

Command1.Caption = "开始"

End If

End Sub

Private Sub Timer1_Timer()

Dim c As Integer

c = Int(Rnd() * n + 1)

________________

End Sub

（3）初始时，按钮 Command1 的标题为“开始”。由上述算法可知，单击 10 次该按钮后，其标题显示为_________。

【推荐2】用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x²+y²<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为s，则4s/n即为所求PI的近似值。程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在Text2中。

（1）要使得按钮的文字显示为“计算”，应该修改该对象的__________属性。
（2）要实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()

Randomize '随机数初始化

Dim i As Long, n As Long, s As Long

Dim x As Double, y As Double, z As Double

n = Val(Text1.Text)

__________________________

s = 0

Do While i <= n ' 随机投点n次

x = Rnd: y = Rnd

z = ____________________

If z <= 1 Then

s = s + 1

End If

i = i + 1

Loop

Text2.Text =_______________

End Sub

【推荐3】输入一个整数，判断它是奇数还是偶数。
x=____
if int(x)_____2==0:_____
print（x，"是一个偶数”）
_____ :
print（x，"是一个奇数。"）

【推荐1】小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。
Dim a(1 To 45) As String
Dim b(1 To 45) As Integer
Private Sub Form_Load()
a(1) = "中国"
b(1) = 308
‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim t As Integer,f As Integer
List1.Clear
For i =" 1" To 3
For j =        To 2 Step -1
If      ‚      Then
f =" a(j):" a(j) =" a(j" - 1): a(j - 1) = f
t =" b(j):" b(j) =" b(j" - 1): b(j - 1) = t   
End If
Next j
Next i
For i =" 1" To 3
List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))
Next i
End Sub

【推荐2】小王所在公司从2019年1月1日起，每工作3天休息2天。为此小王编写程序，用户判断2019年的某一天是上班还是休息。具体功能如下：在文本框Text1和Text2中分别输入月和日，点击“上班还是休息”按钮Cmd1，在标签Label2中输出结果，设计界面及运行界面如下图所示。
（1）鼠标单击按钮Cmd1执行的事件处理过程名是 ______________   。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码

Private Sub Cmd1_Click()

Dim mdays As String, days As Integer

Dim i As Integer, m As Integer, d As Integer

m =_________________                            'm是当前月份信息

d = Val(Text2.Text)                              'd是天的信息

mdays = "312831303130313130313031"     '2019年各个月份对应的天数

days = 0

For i = 1 To m - 1                                ’前几个月份的总天数

days = days +__________________

Next i

days = days + d

If days Mod 5 = 4 Or ______________   Then

Label2.Caption = "休息"

Else

Label2.Caption = "上班"

End If

End Sub
（3）若文本框text1中输入的内容是4，文本框Text2中输入的内容为3，点按钮后，标签label2中显示的内容是 __________。

【推荐3】趣味填空题： 给出用等号连接的两个整数，如“222＝24”，让你在左边的整数中间某个位置插入一个加号，看有没有可能让等式成立。以上面的式子为例，可以写成2+22=24和22+2=24。现设计一个程序，实现该算法，程序运行界面如图所示。

（1）标题要显示“趣味数学”，需修改窗体的_________属性。
（2）实现上述功能的VB程序如下，请在程序划线处填入合适代码。
Private Sub Command1_Click()
     Dim s As String, s1 As String, s2 As String
     Dim c As Integer, k As Integer, i As Integer, flag As Boolean
     flag = False
     s = Text1.Text
     For c = 1 To Len(s)
          If   ______________   Then Exit For     'Exit for退出循环
     Next c
     s1 = Mid(s, 1, c - 1)
     s2 = Mid(s, c + 1,len(s)-c)
     k =   _________
     For i = 1 To k - 1
          If Val(Mid(s1, 1, i)) + Val(Mid(s1, i + 1,c-i-1)) = Val(s2) Then
               List1.AddItem Mid(s, 1, i) + "+" + Mid(s, i + 1,len(s)-i)
               ________
          End If
     Next i
     If Not flag Then List1.AddItem "等式始终无法成立!"
End Sub