菜鸟捉虫(29)

2001年第29期

上期正确答案：
　　 程序无法完成动画效果，主要是Width使用不当，应该换成ScaleWidth就可以产生动画效果了。另外，在Form＿Load中加入了居中代码，但是程序仍然无法居中，应该换成Width就可以使程序居中了。ScaleWidth和Width的区别在于：ScaleWidth是客户区域的宽度，Width是窗体的宽度。对于这一点，初学编程的朋友一定要分清楚了。
　　#1 获奖名单：
　　 重庆 吴彬
　　 湖南 李明华
　　 浙江 金义
　　 安徽 鲍时成
　　 云南 马继铃
　　 以上幸运读者将获得电脑报最新出品的《电脑报配套光盘》杂志一套。
　　#1 本期题目：
　　 在List1和List2控件中，含有各个城市的名称，现在进行统计这两个控件所包含的城市中有几个相同的。以下则是实现这一功能的源代码，由于源代码中含有错误，所以统计结果不正确，请找出其中的错误。
　　 Private Sub Command1＿Click（）
　　 Dim i，j，k As Integer
　　 For i = 0 To List1.ListCount - 1
　　 For j = 0 To List2.ListCount - 1
　　 If List1.List（j）= List2.List（j）Then
　　 k = k + 1
　　 End If
　　 Next j
　　 Next i
　　 MsgBox “找到” + k + “个相同的城市！”， vbOKOnly + vbInformation ，“结果”
　　 End Sub
　　 Private Sub Form＿Load（）
　　 With List1
　　 .AddItem （“北京”）
　　 .AddItem （“上海”）
　　 .AddItem （“重庆”）
　　 .AddItem （“湖南”）
　　 .AddItem （“广东”）
　　 End With
　　 With List2
　　 .AddItem （“上海”）
　　 .AddItem （“北京”）
　　 .AddItem （“江西”）
　　 .AddItem （“辽宁”）
　　 .AddItem （“山东”）
　　 End With