A：
B：
C：
衡量一个地区或国家水资源丰欠的主要指标是
Private Sub Command1_C1ick ( )
Dim a(9) As Integer
a(9)=Val(Text1.text)
For i=8 to 1 step -2
a(i)=a(i+1)/2
Next i
Text2.text=str(a(i))
End Sub
阅读材料，回答问题
材料一：交往是社会生活中必不可少的活动，上了中学，我们踏上了更加广阔的交往舞台，学会文明交往是人生中的必修课。
材料二：互联网时代的到来，突破传统的时空限制，让我们交往的空间越来越广阔，网络是一个百科全书式的信息世界，网络的缤纷色彩和无穷魅力，吸引着我们去探索这个神奇的世界。
