编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示。
（1）若要修改窗体背景颜色，可在其属性窗口中 BackColorBackColor属性的属性值进行修改。
（2）解决这个问题采用的算法是 BB（填字母：A、解析算法 B、枚举算法）
实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （ ）
Dim i As Integer,x As Integer,c As Integer
c=0
For i=1000To 9999
x=①i\10 Mod 10i\10 Mod 10
If ②Sqr（i）=Int（Sqr（i））Sqr（i）=Int（Sqr（i）） And x=7Then
③List1．AddItemStr（i）List1．AddItemStr（i）'将符合条件的四位数显示在列表框中
num=num+1
End If
Next i
Label2．Caption=“共有：“+④Str（num）Str（num）+“个“
End Sub
【考点】枚举算法及程序实现．
【答案】BackColor；B；i\10 Mod 10；Sqr（i）=Int（Sqr（i））；List1．AddItemStr（i）；Str（num）
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/4/20 14:35:0组卷：21引用：1难度：0.4
相似题
-
1．以下问题，适合用枚举法解决的是（ ）
发布：2024/11/8 11:30:1组卷：2引用：1难度：0.8 -
2．若一个三位数abc,满足abc=a3+b3+c3，则称abc为水仙花数。如三位数153满足13+53+33=1+125+27=153，则153是水仙花数。请把所有满足条件的水仙花数输出。
（1）分析问题。由题意可知，三位数的范围是100～999，我们可以让计算机一一检查每一个三位数，输出其中的水仙花数。设百位数字、十位数字、个位数字分别是a,b,c（0＜a≤9，0≤b≤9，0≤c≤9），这个三位数就可以表示为100×a+10×b+c,如果它正好等于各位数字的立方和，那么它就是水仙花数。
（2）设计算法。
①令a从1～9穷举；
②令b从0～9穷举；
③令c从0～9穷举；
④如果100×a+10×b+c和a3+b3+c3相等，那么就把它输出。
⑤转步骤③，重复执行③④⑤，直到c穷举完毕；
⑥转步骤②，重复执行②③④⑤⑥，直到b穷举完毕；
⑦转步骤①，重复执行①②③④⑤⑥⑦，直到a穷举完毕；
⑧跳出循环，结束。
（3）编写程序。
（4）调试程序。发布：2024/8/7 8:0:9组卷：1引用：0难度：0.4 -
3．如果一个4位数恰好等于它的各位数字的4次方和，则这个数被称为“玫瑰花”数。例如1634就是一个玫瑰花数：1634=14+64+34+44。如果要求出所有的玫瑰花数，下列算法合适的是（ ）
发布：2024/11/16 22:30:5组卷：7引用：2难度：0.5
