水灾害课程设计.docVIP

水灾害课程设计任务： 分析-2009年，站点每年发生干旱总日数、轻旱日数、中旱日数、重旱日数、特旱日数的年均值，要求用柱状图表示各种干旱类型的年均值，在图表中标注，并对图表进行分析说明。 分析-2009年，站点每年发生干旱总日数、轻旱日数、中旱日数、重旱日数、特旱日数及其逐年变化情况，要求制作表格来表示各种干旱类型发生日数，用图表示每种干旱类型逐年变化情况，做出趋势线并对图表进行分析说明。 分析-2009年，站点发生干旱过程数量、每个干旱过程持续时间、起止日期及干旱过程强度，要求用表格表示，并分析出干旱过程持续时间及干旱过程强度的最大最小值。 1、对2000-2009年的数据CI值*0.1折算为真实值，然后通过VB编程对数据处理，计算结果输出在excel中。具体编程代码如下： Private Sub Command1_Click() Dim i, j As Integer Dim n As Integer Dim gr, qr, zr, zhr, tr As Integer Dim wgrsum, grsum, qrsum, zrsum, zhrsum, trsum, CIsum As Single gr，qr，zr，zhr，tr分别代表各种干旱类型日数 Dim gpj, qpj, zpj, zhpj, tpj As Single Dim CI(1 To 3653) As Single Dim kaishi, tianshu As Integer Open I:\Users\暮光雨泽\Desktop\本科生课程\CI真实值.txt For Input As #1 For i = 1 To 3653 Input #1, CI(i) Next i Close #1 Dim Exl Set Exl = CreateObject(Excel.Application) Set myworkbook = Exl.Workbooks.Open(I:\Users\暮光雨泽\Desktop\本科生课程\计算结果输出.xlsx) 打开excel文件等待输入数据 Exl.Visible = True Set xlsheet = myworkbook.Worksheets(sheet1) If Option1.Value = True Then 判断年数，同时闰年非闰年 kaishi = 1: tianshu = 366 ElseIf Option2.Value = True Then kaishi = 367: tianshu = 365 ElseIf Option3.Value = True Then kaishi = 732: tianshu = 365 ElseIf Option4.Value = True Then kaishi = 1097: tianshu = 365 ElseIf Option5.Value = True Then kaishi = 1462: tianshu = 366 ElseIf Option6.Value = True Then kaishi = 1828: tianshu = 365 ElseIf Option7.Value = True Then kaishi = 2193: tianshu = 365 ElseIf Option8.Value = True Then kaishi = 2558: tianshu = 365 ElseIf Option9.Value = True Then kaishi = 2923: tianshu = 366 ElseIf Option10.Value = True Then kaishi = 3288: tianshu = 365 End If For i = 1 To tianshu CI(i) = CI(kaishi + i - 1) CIsum = CIsum + CI(i) Next i n = 0: gr = 0: qr = 0: zr = 0: zhr = 0: tr = 0 For i = 1 To tianshu If CI(i) -0.6 Then 判断干旱类型 n = n + 1: wgrsum = wgrsum + CI(i) gr = tianshu - n: grsum = CIsum - wgrsum ElseIf CI(i) = -0.6 And CI(i) -1.2 Then