图b
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n = Int( ① )*2+1
Text1.Text = Str(n)
flag = True ‘标记为素数
i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 Then
flag = False
End If
i = i + 2
Loop
If ② Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
① ②
图a
①要实现第1句、第2句、第3句、第4句诗句按照先后顺序,依次慢慢显示效果,每段动画持续1秒,应对动画进行如下修改。
②测试影片时,单击“退出”按钮即关闭动画,则该按钮的动作脚本为。