标题菜鸟捉虫(29)

　　上期正确答案：
　　程序无法完成动画效果，主要是Width使用不当，应该换成ScaleWidth就可以产生动画效果了。另外，在Form_Load中加入了居中代码，但是程序仍然无法居中，应该换成Width就可以使程序居中了。ScaleWidth和Width的区别在于：ScaleWidth是客户区域的宽度，Width是窗体的宽度。对于这一点，初学编程的朋友一定要分清楚了。
　　　获奖名单：
　　重庆　吴彬
　　湖南　李明华
　　浙江　金义
　　安徽　鲍时成
　　云南　马继铃
　　以上幸运读者将获得电脑报最新出品的《电脑报配套光盘》杂志一套。
　　　本期题目：
　　在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