VB6.0初学者，向诸位请教九个问题，谢谢！（要求使用VB6.0实现）

[Softor]

1、求数组，承受机生成数组元素并显示在图片框中，并求出数组最大值。
2、求数组，承受机生成数组元素并显示在图片框中，并求出数组对角线的和。
3、制作一个动画，要求在图片框中显示一张图片，使其在窗体中循环滚动。
4、求两个数的最大公约数。（数据自由输入）
5、求两个数的最小公倍数。（数据自由输入）
6、作图，要求在图片框中制作一个正弦画像。
7、作图，要求在图片框中制作一个余弦画像。
8、制作一个加法练习系统。
9、制作一个字母练习系统。

[ChinaKable]

up，关注中~~~~~

[Softor]

现在只剩下1、2题没有做出来。谢谢各位的友情指导！

[Softor]

不好意思，下次一个一个的问。谢谢 northwolves(野性的呼唤)，4、5题已解决。

[Softor]

6、作图，要求在图片框中制作一个正弦画像。
7、作图，要求在图片框中制作一个余弦画像。
分别使用哪个WINDOWS API函数？

[zhh627]

up

[northwolves]

pset描点：


Sub drawsin()
Dim i As Double
Picture1.DrawWidth = 1
Picture1.Scale (-4 * Atn(1), 1)-(4 * Atn(1), -1)
Picture1.Line (-4 * Atn(1), 0)-(4 * Atn(1), 0), vbWhite
Picture1.Line (0, -1)-(0, 1), vbWhite
For i = -4 * (Atn(1)) To 4 * (Atn(1)) - 0.001 Step 0.001
Picture1.PSet (i, Sin(i)), vbRed
Next
End Sub


Sub drawcos()
Dim i As Double
Picture1.DrawWidth = 1
Picture1.Scale (-4 * Atn(1), 1)-(4 * Atn(1), -1)
Picture1.Line (-4 * Atn(1), 0)-(4 * Atn(1), 0), vbWhite
Picture1.Line (0, -1)-(0, 1), vbWhite
For i = -4 * (Atn(1)) To 4 * (Atn(1)) - 0.001 Step 0.001
Picture1.PSet (i, Cos(i)), vbBlue
Next
End Sub

Private Sub Form_Click()
drawsin
drawcos
End Sub

[Softor]

谢谢 northwolves(野性的呼唤)，6、7题已解决。

[脆皮大雪糕]

第6、7个问题
Dim i As Integer
Picture1.AutoRedraw = True
Picture1.Height = 4000
Picture1.CurrentX = 0
Picture1.CurrentY = 2000

For i = 0 To 2000
DoEvents
Picture1.Line -(i, Sin(i / 2000 * 2 * 3.1415926) * 1000 + 2000)
Next
Picture1.CurrentX = 0
Picture1.CurrentY = 2000
For i = 0 To 2000
DoEvents
Picture1.Line -(i, Cos(i / 2000 * 2 * 3.1415926) * 1000 + 2000)
Next

[脆皮大雪糕]

第三个问题
窗体上放一个image 一个timer，image里面放一张图片。然后拷贝下面的代码。如果不用image而用picture,效果应该会更好些

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Image1.Top = Image1.Top - 20
If Image1.Top < -Me.Height Then Image1.Top = Me.Height
End Sub

[Softor]

谢谢chewinggum(口香糖·向星星前进) ，现在只剩下1、2、8、9还没做出来。

[ffb]

初学的话莫着急，慢慢一步一步来就行了，一口吃不成胖子

[Acsdnmember]

顶

[809982]

这种事，不要拿出来问，这样你又做什么呢，只编译吗。问题太多，这种问题网上找资料即可。

[jpinglee]

你强,向你学习!!!

[99175776]

牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ█████████Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ███████████████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛██████████████████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛████████████████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ███████Ｂ███Ｂ牛█████牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛████████████Ｂ牛Ｂ牛Ｂ牛████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛██████████████Ｂ牛Ｂ牛Ｂ牛████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛████████████Ｂ牛Ｂ牛Ｂ牛Ｂ███████████Ｂ牛Ｂ牛Ｂ
牛████████████Ｂ牛Ｂ牛Ｂ牛██████████████Ｂ牛Ｂ
牛Ｂ██████████牛Ｂ牛Ｂ牛██████Ｂ牛Ｂ███████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ牛████Ｂ牛Ｂ牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ██牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ████牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ████牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ███Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ███Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ███Ｂ牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ██牛Ｂ牛█████牛Ｂ牛Ｂ███Ｂ牛███牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ██████████牛Ｂ牛Ｂ牛██Ｂ牛██Ｂ牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛█████████牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛███████牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ████牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ██████牛Ｂ牛Ｂ牛Ｂ牛████Ｂ牛█████牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛███牛Ｂ牛Ｂ牛Ｂ█████Ｂ牛Ｂ███████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ██████牛Ｂ牛Ｂ牛██████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛██████Ｂ牛Ｂ牛Ｂ牛███████牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ█████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ██████牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛█████牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ牛Ｂ

[luolovegui]

这是在做什么喽

[trite]

一个一个问，这种问题解决的更快一些。这样一下子都不知道回答你哪个问题好。

[my86]

如果是初学，建议再好好研究一下数据结构。

[likunfeng]

up

[ChrisCai]

建议多看一些数据结构的书。