(1)程序中①划线处应填入 (2)程序中②划线处应填人 5．一个“偶数迁移”的VB程序界面如图所示，运行程序后，将在左边列表框List1中随机产生10个两位正整数，同时清空右边的列表框List2中的内容：单击“迁移”按钮ommandl，将列表框Listl中的所有偶数“迁移”到列表框List2申。
该程序的代码如下：
Dim a(l T0 10) Aslnteger ’数组a用来存放随机产生的10个两位正整数 Dim i As Integer
Private Sub Form Load（ ） ‘用于随机产生10个2位整数 Randomize List2.Clear For i=l T0 10 a(i)=Int(Rnd*90)+10 ListI.Addltem Str(a (i)) Next i End Sub
Private Sub Commandl_click ( ) Listl.Clear
For i=l T0 10
If ① Then List2.Addltem Snr(a(i)) Else
② End If Next i End Sub
为实现上述功能.在划线处填入适当的语句和代码，把程序补充完整。 (1)程序中①划线处的语句为 。 (2)程序中②划线处的语句为 。
6.现有一张100元绥币．要求将其竞换成若干张10元和5元面额的纸币（每种至少有l张）。问：具体的兑 换方案有哪些？总共有几种方案？
为解决上述问题所编制的VB程序如下，运行程序后，单击命令按钮Commandl，列表框Listl中显示所有符合题目要求的兑换方案最后显示总共的方案数c。其中程序加框处语句需做改动，请写出修 改方案。 Private Sub Commandl__Click（ ）
Dim ten As Integer ‘ten为10元纸币的张数 Dim five As Integer ‘five为5元纸币的张数 Dimx As Integer，c As Integer C=0
ListI.Addltem “10元”&” ” & “5元” For ten=0 T0 10 ① x=100-ten*10 If x Mod 5=0 Then five=x\\5 End If c=c+1 ’②
List1.Addltem Str(ten)＆”张 ”&Str( five)&”张” Next ten
ListI.Addltem”总共有方案数：”&Str(c) End Sub
(l)①语句应改为 。 (2)②语句的修改方案为( )
A．修改为c=ten+five B．修改为c=ten+x\\5
C．与语句“End if’互换位置 D．与语句“Next ten”互换位置
仅供个人用于学习、研究；不得用于商业用途。
For personal use only in study and research; not for commercial use.
Nur für den pers?nlichen für Studien, Forschung, zu kommerziellen Zwecken verwendet werden. Pour l 'étude et la recherche uniquement à des fins personnelles; pas à des fins commerciales.
только для людей, которые используются для обучения, исследований и не должны использоваться в коммерческих целях.
以下无正文
仅供个人用于学习、研究；不得用于商业用途。
For personal use only in study and research; not for commercial use.
Nur für den pers?nlichen für Studien, Forschung, zu kommerziellen Zwecken verwendet werden. Pour l 'étude et la recherche uniquement à des fins personnelles; pas à des fins commerciales.
только для людей, которые используются для обучения, исследований и не должны использоваться в коммерческих целях.
以下无正文
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库解析枚举算法强化练习 - 图文(2)在线全文阅读。
相关推荐：