Question

VB 数组定义有些问题，哪位大水牛看看

Public Function sort(n As Integer) As String()
Dim i As Integer, ans() As String
Dim x, y As String
ReDim ans(1 To n) As String
For i = 1 To n
ans(i) = Form1.Textreceive0.Text
x = ans(i)
y = Mid(x, 5, 5)
Next i
ans(i) = y
sort = ans
End Function

Private Sub Cmdshow_Click()

Text1.Text = ans
End Sub

数据不能在text上显示，显示为空。。

Answer 1

用图片说事：

所谓绘制曲线，通常数学把问题抽象为x,y，描述一般规律。见图，数学中横轴为X轴，纵轴为Y轴，平面上一点由一对X，Y决定了。即一对x，y可以绘制一个点，为了描述随着时间变化的温度变化规律，那么把横轴看作时间，纵轴看做温度。每间隔一个单位时间，测量得到一个温度，就可以在这个坐标系里绘制一个点，这样随着时间推移，不断测得温度，不断绘制点，把这些点连起来就得到温度曲线了。

上面这个图，看上去没有构成曲线，是因为横轴的刻度没有足够小，其实你在VB里，你把每一个像素单位看作你测量温度的间隔单位，那么就能连接成曲线了。

绘制点的方法：

对象.Pset  (x,y)  [Color]

其中，x就是时间间隔（或者就是像素的基本单位），可以是1，2，3，4，5，6,......

而y就是测得的实际温度值（可以按一定比例缩放）。

用数组存放数据，可以：

d(1 To n,1 To 2) as integer

第一维存放x分量，第二维存放y分量

我不知道你的具体应用，是表示什么曲线？

然后，假设在PicTure1上绘制：

for i = 1 To n

      PicTure1.Pset  (d(i,1),d(i,2))

next i

Answer 2

ans是在sort过程中定义的变量，其作有域为sort过程，到Cmdshow_Click中再引用时会被编译器解释为另外一个没有定义过的变量。因此，需要把ans变为模块级的变量。
方法：把Dim ans() As String放在所有的过程之前，而不是过程的内部。并把原来在SORT过程中对该变量的定义删除。

Answer 3

你没有调用上面的函数text1.text=sort sort函数不要带参数