实践 涂抹数字推算

操作：

1. 运行“数字的推算.swf”文件。

2、界面图如下：

1. 属性表如下：

   对象名	属性名	属性值
   Form1	Caption	涂抹数字推算
   List1 （用绘制而成）	list	空白
   Command1	Caption	计算

2. 

3. 计算按钮单击事件代码如下：

Private Sub Command1_Click()  请完善空白处内容。

Dim j, n, c As Integer

c = 0

List1.Clear

For j = 0 To 99

n = 25006 +        

If n Mod 37 = 0 Or n Mod 67 = 0 Then

 

List1.AddItem Str(n)

End If

Next j

List1.AddItem "总计有" + Str(c) + "个五位数"

End Sub

1. 可参考以下流程图：