帮一个MM请教一道二级考试题

[qahwa]

http://www.eastedu.com.cn/ncre/list.asp?id=547
这是网址,是1(2)Picture1那道题

晚上结贴！多谢了！

[qahwa]

自己顶！

[3661512]

Private Sub Command1_Click()
With VScroll1
.Max = 2400
.Min = 100
.LargeChange = 200
.SmallChange = 20
End With
End Sub

[goodname008]

已经做好了，方便的话把邮箱留下，我发过去。

[rainstormmaster]

Option Explicit

Private Sub Command1_Click()
With VScroll1
.Max = 2400
.Min = 100
.LargeChange = 200
.SmallChange = 20
.Value = 1300 '这里写Picture1的Height属性值
End With
End Sub

Private Sub VScroll1_Change()
Picture1.Height = VScroll1.Value
End Sub

[goodname008]

rainstormmaster(rainstormmaster) 的和我的差不多，只不过我打的压缩包带了个图片，而且题里还要求要存储成指定的文件名。

[qahwa]

谢谢大家了，我的信箱[e-mail]

[goodname008]

已经发了，楼主请查收。

[since1990]

up

[qahwa]

据mm讲几个答案都不太令她满意，goodname008兄的回复mm还未收到，不过分还是要散，再次谢谢大家救急！

[qahwa]

我对vb是不懂，不过大致看来几位兄弟的答案都思路一致，其它只是题目要求细节的问题了。