高校问答水煮西游在线阅读:请教一个小的VB程序
来源：百度文库 编辑：高校问答 时间：2024/05/05 09:59:22
老师留的五一作业，我编好了一部分，但有一块编不好了，请那位大侠教我一下，给我一点语句。
要达到的目的：
在一个shape控件（长方形，实心）上，以左下角的点为坐标原点，画抛物线。
均匀的画出val(Text1.txt)条。
然后再Cls掉。
我遇到的问题是：不会使用循环语句〈均匀〉画出来文本框里输入的条数。
要达到的目的：
在一个shape控件（长方形，实心）上，以左下角的点为坐标原点，画抛物线。
均匀的画出val(Text1.txt)条。
然后再Cls掉。
我遇到的问题是：不会使用循环语句〈均匀〉画出来文本框里输入的条数。
Option Explicit
Dim i As Single
Dim j As Single
Dim a As Single
Dim record(1000) As Single
Dim p As Single
Private Sub Command1_Click()
a = Val(Text1)
p = 4 '可依据抛物线要求更改
Picture1.Cls
Picture1.Scale (-200, 2000)-(2000, -2000) '定义坐标
For j = 0 To 250
record(j) = 20 * Sqr(2 * p * j)'抛物线公式Y^=2 * p * X
For i = 0 To a
Picture1.Line (j * 20, record(j) * i + 2)-(j * 20, record(j) * i - 2), vbRed, BF 'Y为正的
Picture1.Line (j * 20, -record(j) * i + 2)-(j * 20, -record(j) * i - 2), vbRed, BF 'Y为负的
Next
Next
Picture1.Line (-2000, 0)-(2000, 0) 'X轴
Picture1.Line (0, 2000)-(0, -2000) 'Y轴
End Sub
学过N年前就忘了哈哈