枚举法_单据问题_1_流程图_宫老师

个人资料

微博

正文字体大小：大中小

枚举法_单据问题_1_流程图

(2009-03-09 13:49:36)

标签：

分类：课堂教学

单据问题：

一张单据上有一个5位数的编号，其百位数和十位数处已经变得模糊不清，如图所示。但是知道这个5位数是37或67的倍数。现在要设计一个算法，找出所有满足这些条件的5位数，并统计这些5位数的个数。

是37或67 说明此题要用到or关系

的倍数说明此题要用到mod或其它关系

十位与百位数说明此题与个位数和千位,万位无关,所以应想办法,只改变十位与百位

如果设此数为n,则有n mod 37=0 or n mod 67 =0

关键是n如何去改变.所以可以采用设置变量j

即:n=25006+j*10,那么*10是最关键的.

代码如下:

Private Sub Command1_Click()

Dim j, n, c As Integer

c = 0

List1.Clear

For j = 0 To 99

n = 25006 + j*10

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

List1.AddItem Str(n)

c = c + 1

End If

Next j

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

End Sub

请同学样一一对应,流程图中的每一步骤

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report