下载此文档

第11、12课枚举和解析算法(两课时)实验八.doc


文档分类:中学教育 | 页数:约2页 举报非法文档有奖
1/2
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/2 下载此文档
文档列表 文档介绍
枚举算法程序实现
1、王敏的E-Mail邮箱密码忘记了,但她需要收一封很重要的来信,请你帮她尽可能找出密码。她零星记得自己密码信息:
①密码是六位数字,前面两位为31;
②最后两位数字相同;
③能被16和46整除。
程序界面如图所示,单击"帮助找回密码"mand1)后,可能的密码显示在列表框List1中。

解决此问题的相应程序如下:
Private mand1_Click()
Dim a As Integer, s As long, b As Integer, i As Integer
For i = 0 To 9999 ①
s = 310000 + i
If s Mod 46 = 0 Then

b = (s Mod 100) \ 10
If a = b Then
Str(s)
End If
End If
Next i
End Sub
(1)解决此问题的算法是________________。(选填:枚举算法或排序算法)
在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:
(2)程序中①划线处应填入__________________。
(3)程序中②划线处应填入__________________。

第11、12课枚举和解析算法(两课时)实验八 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数2
  • 收藏数0 收藏
  • 顶次数0
  • 上传人xunlai783
  • 文件大小33 KB
  • 时间2018-07-05