每四行为一组，以第一组为例，当第四个为NO rain 时，不输出，判断第三个，第三个为50，输出第三个数据，结束判断。
1、no rain2、 50
3、 50
4、no rain
5、no rain
6、 74
7、no rain
8、no rain
9、 90
10、no rain
11、no rain
12、no rain
每四行为一组，以第一组为例，当第四个为NO rain 时，不输出，判断第三个，第三个为50，输出第三个数据，结束判断。
如果这四行数据都有值（既都不显示nO rain），输出第四个。
应该怎么做啊？谢谢 --------------------编程问答-------------------- 逻辑都有了, 难道楼主不打算自己动手试试? --------------------编程问答-------------------- 假定数据放在一个 ListBox 中。即使是 Visual = False。
--------------------编程问答-------------------- +++
Dim i As Integer, j As Integer, strData As String
For i = 0 To List1.ListCount Step 4
For j = 0 To 3
If List1.List(i + j) <> "no rain" Then strData = List1.List(i + j)
Next j
Debug.Print strData
Next i
补充：VB , 基础类
