连线题代码

笨巧果发表于: 2012-2-24 22:12 来源: 扑奔PPT网

Dim a, b, c, d, flag
Private Sub 重做_Click()
ActivePresentation.SlideShowWindow.View.EraseDrawing
对错.Caption = ""
End Sub
Private Sub 中国_Click()
a = 中国.Left + 中国.Width
b = 中国.Top + 中国.Height / 2
flag = 1
对错.Caption = ""
End Sub
Private Sub 美国_Click()
a = 美国.Left + 美国.Width
b = 美国.Top + 美国.Height / 2
flag = 2
对错.Caption = ""
End Sub
Private Sub 英国_Click()
a = 英国.Left + 英国.Width
b = 英国.Top + 英国.Height / 2
flag = 3
对错.Caption = ""
End Sub
Private Sub 法国_Click()
a = 法国.Left + 法国.Width
b = 法国.Top + 法国.Height / 2
flag = 4
对错.Caption = ""
End Sub
Private Sub 伦敦_Click()
c = 伦敦.Left
d = 伦敦.Top + 伦敦.Height / 2
If flag = 3 Then
SlideShowWindows(1).View.DrawLine a, b, c, d
对错.Caption = ""
Else
对错.Caption = "错了！"
End If
End Sub
Private Sub 巴黎_Click()
c = 巴黎.Left
d = 巴黎.Top + 巴黎.Height / 2
If flag = 4 Then
SlideShowWindows(1).View.DrawLine a, b, c, d
对错.Caption = ""
Else
对错.Caption = "错了！"
End If
End Sub
Private Sub 北京_Click()
c = 北京.Left
d = 北京.Top + 北京.Height / 2
If flag = 1 Then
SlideShowWindows(1).View.DrawLine a, b, c, d
对错.Caption = ""
Else
对错.Caption = "错了！"
End If
End Sub
Private Sub 华盛顿_Click()
c = 华盛顿.Left
d = 华盛顿.Top + 华盛顿.Height / 2
If flag = 2 Then
SlideShowWindows(1).View.DrawLine a, b, c, d
对错.Caption = ""
Else
对错.Caption = "错了！"
End If
End Sub

大家对连线题代码的评论

菡萏发表于 2012-2-24 22:17:22: 谢谢老师！

2012.2.24连线.jpg

18.4 KB, 下载次数: 104)
jzh235 发表于 2012-2-24 22:18:53: 有问题的连线题，请老师解决

14 KB, 下载次数: 94)
whz8678 发表于 2012-2-24 22:27:40: 强烈的感谢笨巧果老师的无私奉献！！！

(2012-02-24 22:27:40, Size: 20.6 KB, Downloads: 80)
嫦娥奔月发表于 2012-2-24 22:32:45: 果果老师，辛苦了！！

(2012-02-24 22:32:45, Size: 340 KB, Downloads: 233)

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG
轻轻小草发表于 2012-2-24 23:19:18: 交作业哦

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

270 KB, 下载次数: 93)
jiaoliushi 发表于 2012-2-24 23:26:51: [ 本帖最后由 jiaoliushi 于 2012-2-24 23:29 编辑 ]

42.9 KB, 下载次数: 79)
梅一枝发表于 2012-2-25 18:21:04: 老师，我做的美国链接华盛顿的时候出错了，怎么办？谢谢

(2012-02-25 18:22:02, Size: 15.9 KB, Downloads: 60)
笨巧果发表于 2012-2-25 18:36:43: 未发现错误
笨巧果发表于 2012-2-25 18:39:18: 一、在第九个标签，即“错了！”下面隐藏着一个Label2，删掉。
二、打开“美国”的属性，将“名称”修改为Label2。
小船悠悠发表于 2012-2-26 22:35:06: 老师辛苦了，有空时欢迎您上山当好汉。

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

55.6 KB, 下载次数: 31)
小船悠悠发表于 2012-2-26 22:36:30: 老师您辛苦了，有空时欢迎您来水泊梁山做客！

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

55.6 KB, 下载次数: 24)
cc全充发表于 2012-2-27 10:08:34: 20120224作业谢谢老师

30.1 KB, 下载次数: 30)
天山雪莲发表于 2012-2-28 08:17:33: 老师，辛苦了

连线1.jpg

连线2.jpg

16.6 KB, 下载次数: 26)
天山雪莲发表于 2012-2-28 08:24:04: 补交作业

(2012-02-28 08:24:04, Size: 43.4 KB, Downloads: 43)
~~[attach]163287[/attach]~~

连线1.jpg

连线2.jpg