注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

栖客技术札记

栖客王近东,山东泰安人。本杂记主要收录工作、学习、生活中遇到的问题及解决方法。

 
 
 

日志

 
 
关于我

主要收录在技术学习和技术应用方面的文章,有原创、有引用、有转载,学以致用,欢迎浏览。(我的教育类文章发布在http://wjd.blog.edu.cn上)

网易考拉推荐

【VB】穷举法解决单据字迹不清的问题  

2011-12-25 10:12:54|  分类: Applications |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
一位朋友给了如下的题目:
    一张单据上有一个 5 位数字组成的编号,其千位数和百位数已经变得模糊不清,万、千、个位数分别是6、7、8。但知道这个5位数是78或67的倍数。编写程序,输出所有满足这些条件的5位数,并统计满足条件的个数。输出的5位数一个占一行,最后一行输出满足条件的个数。
    让给出算法、并设计程序。
我的回答:
    该问题应该采用穷举法。
    程序代码如下:
     Private Sub Command1_Click()
       Dim a, b, c As Integer
       Dim n As Long
       c = 0
       For a = 0 To 9
        For b = 0 To 9
         n = 67008 + a * 100 + b * 10
          If n Mod 78 = 0 And n Mod 67 = 0 Then
           Print "可能的数值为:"; n
           c = c + 1
          End If
        Next b
       Next a
       Print "符合要求的数值个数为:"; c
      End Sub
 
  评论这张
 
阅读(508)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017