作者waiter337 (给开司一罐苏格登)
看板Visual_Basic
标题[VB6 ] 将阵列汇入阵列
时间Thu Nov 10 07:19:37 2016
目前看到书本不大懂
有点懂 又不大懂
因为感觉怪怪
假设阵列A
dim A()
元素有5个
a
b
c
d
e
将他用此公式
dim B()
dim XX = 1
While XX < 5
B(XX -1 ) = A
XX += 1
next
汇入
所以在阵列中应该是这样吧
阵列
B 0 1 2 3 4
0 a b c d e
1
2
3
4
目前猜测阵列算式为
B(0)(0) = a
B(0)(1) = b
B(0)(2) = c
B(0)(3) = d
B(0)(4) = e
如果我改成
dim B()
dim XX = 1
While XX < 5
B(XX -1 ) = val(A(XX-1))
XX += 1
next
汇入
所以在阵列中应该是这样吧
阵列
B 0 1 2 3 4
0 a
1 b
2 c
3 d
4 e
算式为
B(0) = a
B(1) = b
B(2) = c
B(3) = d
B(4) = e
主要是想问第一个阵列直接加入阵列 是否为此逻辑
是否有需要注意或者可变化的方式
好像是说
A B 都为 一维阵列
所以才会有 B()() 的用法
如果说
B我改成
dim B(,) <--不知道对不对=,=
汇入阵列後
想要把B阵列改成
B 0 1 2 3 4
0 a
1 b
2 c
3 d
4 e
那我是否这样写呢?
dim B()
dim XX = 1
While XX < 5
B( 1 , XX -1 ) = val(A(XX-1))
XX += 1
next
那如果说 我改成
B 0 1 2 3 4
0
1 a b c d e
2
3
4
那我是否这样写呢?
dim B()
dim XX = 1
While XX < 5
B(1) = A
XX += 1
next
求大大 释疑
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.35.158.244
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1478733579.A.B2C.html
※ 编辑: waiter337 (114.35.158.244), 11/10/2016 07:22:51
※ 编辑: waiter337 (114.35.158.244), 11/10/2016 07:35:36
1F：→ MOONRAKER: 第一个就不对 阵列要逐元素读取 如 A(XX) 11/10 10:23
2F：→ MOONRAKER: 对while也有误解 11/10 10:23
3F：→ MOONRAKER: 进去写一次就明白的事情 干嘛自己纸上谈兵东猜西猜 11/10 10:24
抱歉 或许我窜改了某个重要关键
原程式如下
Public Class Form1
Private Sub Button1_Click(...) Handles Button1.Click
Dim student(2)
Dim total_score(2), avg_score(2)
Dim sr As New IO.StreamReader("D:\DATA\学生成绩.txt")
Dim count As Integer = 1
While Not sr.EndOfStream
Dim str = sr.ReadLine
Dim tmp = Split(str, ", ") '<--他这里是用split 将字串用","分隔
student(count - 1) = tmp
For j As Integer = 2 To 4
total_score(count - 1) += Val(tmp(j))
Next
count += 1
End While
...
...
...
End Sub
※ 编辑: waiter337 (114.35.158.244), 11/10/2016 13:57:01
.txt档案内容
93001, RR, 89, 90, 77
93002, MM, 76, 95, 97
93003, TT, 88, 71, 68
※ 编辑: waiter337 (1.175.18.70), 11/10/2016 14:23:52
※ 编辑: waiter337 (1.175.18.70), 11/10/2016 14:24:51
※ 编辑: waiter337 (1.175.18.70), 11/10/2016 14:25:38