vb赋值变量问题

来源:百度知道 编辑:UC知道 时间:2024/05/30 10:01:12
下边的一组数,我实现了读取,现在想把每一列赋值给5个不同的变量,怎么做呢?麻烦给完整的写出来,小弟初学。

Tmax Tmin Tavg Rain Shour
1 -7.8 -26.7 -18.8 0.0 6.7
2 -14.4 -25.3 -19.6 0.0 5.8
3 -1.4 -29.2 -26.4 0.0 6.9
4 -20.1 -29.3 -24.7 0.3 6.4
5 -23.4 -33.5 -28.3 0.0 3.4
6 -20.8 -32.7 -27.8 0.1 7.0
7 -21.9 -33.8 -29.6 0.0 6.8
8 -19.2 -35.1 -28.4 0.0 6.9
9 -19.6 -30.7 -26.3 0.0 7.2
10 -16.3 -29.7 -24.6 0.0 4.9
11 -17.1 -30.0 -24.1 0.0 6.7
12 -11.2 -28.8 -20.9 0.0 6.8
13 -15.2 -25.3 -19.7 1.2 3.1
14 -20.5 -30.3 -26.2 0.0 6.8
15 -21.6 -31.8 -27.6 0.0 7.5
16 -19.8 -31.6 -26.6 0.0 7.3
17 -17.1 -27.7 -23.5 0.0 7.3

你读出来应该是一行行的吧,

设一行为
即s ="1 -7.8 -26.7 -18.8 0.0 6.7 "

dim x() as string
set x = split (s," ")

dim Tmax,Tmin,Tavg,Rain,Shour

Tmax=s(0)
Tmin=s(1)
Tavg=s(2)
Rain=s(3)
Shour=s(4)