菜鸟捉虫(29)

  
2001年 29期

#1　　上期正确答案：
　　　　程序无法完成动画效果，主要是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
　　
　　 
 