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

Question

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

Answer 1

多看看数据结构的书，看看算法
其余的用api

Answer 2

4,5简单些，给你现写一个吧：
Function zdgys(ByVal m As Long, ByVal n As Long) As Long '最大公约数
Dim min As Long, i As Long
min = IIf(m >= n, n, m)
zdgys = 1
For i = min To 1 Step -1
If m Mod i = 0 And n Mod i = 0 Then zdgys = i: Exit Function
Next
End FunctionFunction zxgbs(ByVal m As Long, ByVal n As Long) As Long '最小公倍数
Dim max As Long, i As Long
max = IIf(m >= n, m, n)
zxgbs = max
For i = max To m * n
If i Mod m = 0 And i Mod n = 0 Then zxgbs = i: Exit Function
Next
End Function

Answer 3

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

Answer 4

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

Answer 5

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 SubPrivate Sub Form_Click()
drawsin
drawcos
End Sub

Answer 6

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

Answer 7

第6、7个问题
Dim i As Integer
Picture1.AutoRedraw = True
Picture1.Height = 4000
Picture1.CurrentX = 0
Picture1.CurrentY = 2000For 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

Answer 8

第三个问题
窗体上放一个image 一个timer，image里面放一张图片。然后拷贝下面的代码。如果不用image而用picture,效果应该会更好些Private Sub Form_Load()
Timer1.Interval = 10
End SubPrivate Sub Timer1_Timer()
    Image1.Top = Image1.Top - 20
    If Image1.Top < -Me.Height Then Image1.Top = Me.Height
End Sub

Answer 9

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