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

Softor 2003-12-29 09:40:58

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

...全文

128 32 打赏收藏转发到动态举报

写回复

用AI写文章

32 条回复

切换为时间正序

请发表友善的回复…

发表回复

ChrisCai 2004-01-04

打赏
举报

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

likunfeng 2004-01-04

打赏
举报

my86 2004-01-03

打赏
举报

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

trite 2004-01-03

打赏
举报

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

luolovegui 2004-01-03

打赏
举报

这是在做什么喽

99175776 2004-01-02

打赏
举报

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

jpinglee 2004-01-02

打赏
举报

你强,向你学习!!!

809982 2004-01-02

打赏
举报

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

Acsdnmember 2004-01-02

打赏
举报

顶

ffb 2003-12-30

打赏
举报

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

Softor 2003-12-30

打赏
举报

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

脆皮大雪糕 2003-12-30

打赏
举报

第三个问题
窗体上放一个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

脆皮大雪糕 2003-12-30

打赏
举报

第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

Softor 2003-12-30

打赏
举报

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

northwolves 2003-12-30

打赏
举报

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

zhh627 2003-12-30