VB中数组里的数赋成字符串

来源：百度知道 编辑：UC知道 时间：2024/05/13 09:23:59
'bi=180度
'Njiaodu为北方向的方位角度,Sjiaodu为南方向的方位角度,KX为勘探线的X坐标,KY为勘探线的Y坐标
Const pi As Single = 3.14159265358979
Const bi As Integer = 180
Const Njiaodu As Integer = 54
Const Sjiaodu As Integer = 234
Const KX0 As Single = 0
Const KY0 As Single = 0
Private Sub Command1_Click()
Dim KX(0 To 100) As Single, KY(0 To 100) As Single
Dim KX0 As Single, KY0 As Single
KX0 = 0: KY0 = 0
Dim l As Integer
KX(0) = KX0
l = 100
For i = 1 To 100
KX(i) = KX0 + l * Sin(Val(Njiaodu) * pi / bi)
KY(i) = KY0 + l * Cos(Val(Njiaodu) * pi / bi)
KX0 = KX(i)
KY0 = KY(i)
Next i
For i = 1 To 100
Text1.Text = Text1 & Space(3) & KX(i) & "," & KY(i)
Next i
Print
End Sub
这是原程序代码:但这不便于查找。我想把数组kx(0 to 100)全部改成：kx（0）的名字为“第一线”，kx（1）的名字为第二线，以此到100。这样我查找的时候就可以直接查找第几线的坐标，而不用查KX（i)为几了。

'bi=180度
'Njiaodu为北方向的方位角度,Sjiaodu为南方向的方位角度,KX为勘探线的X坐标,KY为勘探线的Y坐标
Const pi As Single = 3.14159265358979
Const bi As Integer = 180
Const Njiaodu As Integer = 54
Const Sjiaodu As Integer = 234
Const KX0 As Single = 0
Const KY0 As Single = 0
Private Sub Command1_Click()
Dim KX(0 To 100) As Single, KY(0 To 100) As Single
Dim KX0 As Single, KY0 As Single
KX0 = 0: KY0 = 0
Dim l As Integer
KX(0) = KX0
l = 100
For i = 1 To 100
KX(i) = KX0 + l * Sin(val(Njiaodu) * pi / bi)
KY(i) = KY0 + l * Cos(val(Njiaodu) * pi / bi)
KX0 = KX(i)
KY0 = KY(i)
Next i
Text1.Text = "" '我加的
For i = 1 To 100
'Text1.Text = Text1 & Space(3) & KX(i) & "," & KY(i) '这一行你原来的,下一行是我改过的
Text1.Text = Text1.Text & Space(3) & "第" & i & "线" & KX(i) & "," & KY(i) & vbCrLf
Next i
Print
End Sub

'不小得是不是