经典算法程序实现3（基础篇三：枚举） - 图文

绍兴鲁迅中学 程序阅读题 编辑：沈云良 经典算法程序实现(基础篇三）2018 班级：_________姓名：_________ 【枚举算法】 1．统计1～1000间个位数是4，且能被9整除的数共有多少个，可以采用的算法是 ( ) A.查找算法 C.解析算法 B.枚举算法 D.排序算法 End Sub 5．小清在帮阿姨看店时碰到一问题：某品牌饼干，现存10箱5千克重的，4箱2千克重的，8箱1千克重的，一位顾客要买9千克饼干，为了便于携带要求不开箱。虽然他很快解决了这个问题，但又发觉应该有多种发货方式。他打算用VB来解决这个问题，设计界面和代码如下： 2．在100～999中，找出能同时满足除3余2，除5余3，除7余2的所有整数，解决这个问题，最适合的算法是( ) A.枚举算法 C.查找算法 B.解析算法 D.递归算法 3．下列VB程序的功能是：在区间中查找前五个能被10整除，但不能被8整除的整数，并在列表框List1中输出这些整数。为了实现这一目标，程序中划线处应填入的语句是 ( ) Dim p As Integer，i As Integer i＝ 1∶p ＝ 0 Do While i <＝ 1000 And _________ If i Mod 10＝ 0 And i Mod 8 <> 0 Then List1.AddItem i p ＝ p ＋ 1 End If i＝ i ＋ 1 Loop 程序中划线处应填入的语句是( ) A.p＝5 B.p<＝5 C.p<5 D.p≠5 Private Sub Command1_Click() Dim i As Integer ′用于存储内装5千克饼干的箱数 Dim j As Integer ′用于存储内装2千克饼干的箱数 Dim k As Integer ′用于存储内装1千克饼干的箱数 ′① For j = 0 To 4 For k = 0 To 8 If Then ′② List1.AddItem Str(i) + Str(j) + Str(k) End If Next k Next j Next i End Sub （1）在横线①处添加合适的代码，并使该算法最优： （2）在横线②处添加合适的代码，使其实现上述功能：_ ________ （3）该程序主要运用了 算法（选填：解析/枚举） 6、打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1^3＋5^3＋3^3。 Private Sub Command1_Click() Dim i As Integer Dim a As Integer '百位 1 / 2

4．一个两位数，被7整除余1，若交换它的十位数字与个位数字，所得到的新两位数被5整除余2 。在列表框List1中输出所有符合条件的两位数。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 11 To 99 If i Mod 7 = 1 Then j = (i Mod 10)*10 + i\\10 If _________Then List1.AddItem Str(__ _) End If Next i 绍兴鲁迅中学 程序阅读题 编辑：沈云良 Dim b As Integer '十位 Dim c As Integer '个位 Dim x As Integer '统计找到的水仙花数的个数 List1.Clear '清空列表框 x = 0 '计数变量赋初值0 For i = 100 To 999 a =_________________________ b =_________________________ c =_________________________ If i =_________________________ Then List1.AddItem _______________ x =__________________ End If Next i Text1.Text = Str(x) End Sub 7、填空完成程序，问：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只? 单击窗体后，在窗体上显示结果。 Private Sub Form_Click() Dim Ji As Integer 'Ji变量表示鸡的个数 Dim Tu As Integer 'Tu变量表示兔的个数 Dim Leg As Integer 'Leg变量表示腿数 For Ji = 1 To 40 Tu = ____________ Leg = ____________ + Tu * 4 '计算腿数 '如果腿正好100只，则打印。 If Leg = __________ Then Print \鸡=\只\兔=\只\ For Wuyuan = 1 To 20 For Yiyuan = 1 To _______________ Wujiao = 100 - Wuyuan - _____________ If _________________________ Then Print \Yiyuan & \ End If Next Yiyuan Next Wuyuan End Sub 9、假设有一个5位数密码。只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。 Private Sub Command1_Click() Dim x As Long For x = ____________ To 67998 Step 10 If ______________________ Then Print _____________ End If _________________ End Sub 10、某单据1x4x7,缺千位数和十位数，但知道这个5位数是57或67的倍数，请设计一个算法，输出所有满足条件的5位数，并统计这样的数的个数。 Private Sub Form_Click() Dim i As Integer,j As Integer,n As Integer For i=_________ To _________ For k=_________ To _________ n=10407+i*1000+k*10 If _____________________ Then List1.AddItem ___________ j=___________________ End If Next k Next i Label1.Caption=”满足条件的个数：”&_________ End Sub End If Next Ji End Sub 8、将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少于1张，问5元、1元、5角各多少张，请输出每种可能的组合。 Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer 2 / 2