林曉惠

標題:

地牛翻身題目喔..

發問:

在眾多的天然災害之中，地震要算是最常發生破壞力卻又極為強大的一種了。歷史上著名的地震如舊金山大地震、阪神地震等都造成了人民生命財產的極大損失，而數年前臺灣地區發生的921大地震更瞬間將一些地方變為人間煉獄，災區路有死骨，百姓流離失所的慘狀在許多人心中一直揮之不去成為長久的夢魘。令人失望地，「預測地震」這樣一個簡單的夢想在今日的科技仍然難以準確地實行，儘管傳說中大地震之前有許多小動物都有特別的感知能力可以察覺地底能量的爆發，但人類在科技如此發達的現代文明之中，對此問題仍然束手無策。雖然如此，隨著對地下世界的探勘，我們對於地震形成的原理卻已有了不少的認識，例如我們知道地震的發生是由於板塊的移動和推擠所形成，而能量的分布和累積則... 顯示更多 在眾多的天然災害之中，地震要算是最常發生破壞力卻又極為強大的一種了。歷史上著名的地震如舊金山大地震、阪神地震等都造成了人民生命財產的極大損失，而數年前臺灣地區發生的921大地震更瞬間將一些地方變為人間煉獄，災區路有死骨，百姓流離失所的慘狀在許多人心中一直揮之不去成為長久的夢魘。 令人失望地，「預測地震」這樣一個簡單的夢想在今日的科技仍然難以準確地實行，儘管傳說中大地震之前有許多小動物都有特別的感知能力可以察覺地底能量的爆發，但人類在科技如此發達的現代文明之中，對此問題仍然束手無策。雖然如此，隨著對地下世界的探勘，我們對於地震形成的原理卻已有了不少的認識，例如我們知道地震的發生是由於板塊的移動和推擠所形成，而能量的分布和累積則是決定地震發生地點和時機的重大因素。 為了進一步的探測進而預知地震的發生，我們準備長期而連續地對地下能量的分布情形進行勘測，現在我們將地下的板塊視作一個矩形的區塊，然後將這個矩形的區域分成n*m個小方格，並且對於每一個方格進行偵測的工作，探測的結果會得到某個「能量值」，代表這個地方能量累積的強度有多少。如果一塊區域能量累積得越多，就表示這個地區越有可能發生地震。藉由研究地底能量的活動和轉移，希望能夠增加我們對地殼活動的掌握，進而事先預知地震的發生。 所以你的任務是，給定一張地下板塊的能量分布圖和一些特定的子區域，回報在這塊區域當中的「總能量累積值」有多少。 輸入檔說明: 輸入的第一行有兩個數n m(0
最佳解答:

Private Sub Command1_Click() xy = InputBox("輸入範圍") ReDim c(Mid(xy, 1, 1)), x(Mid(xy, 1, 1), Mid(xy, 3, 1)) For i = 1 To Mid(xy, 1, 1) c(i) = InputBox("輸入震數") Print c(i) Next For i = 1 To Val(Mid(xy, 1, 1)) '排入陣列 a = Split(c(i)) For j = 1 To Val(Mid(xy, 3, 1)) x(i, j) = a(j - 1) Next Next w = InputBox("輸入q行") ReDim q(w) For i = 1 To w q(i) = InputBox("輸入範圍") Next For k = 1 To w For i = Mid(q(k), 1, 1) To Mid(q(k), 3, 1) For j = Mid(q(k), 5, 1) To Mid(q(k), 7, 1) s = s + Val(x(i, j)) Next Next Print s s = 0 Next End Sub

其他解答:AC82835628592A17