河海大学水力学编程作业源代码.docx

Option Explicit Option Base 1 Public b As Single, c As Single, d As Single, e As Single, f As Single, g As Single, s1 As Single, s2 As Single _ , x1 As Single, x2 As Single, x3 As Single, v1 As Single, v2 As Single, v3 As Single, r1 As Single, r2 As Single, _ r3 As Single, k1 As Single, k2 As Single, k3 As Single, j As Single, h As String Private Sub Command1_Click() Dim a As Single, q As Single, i As Single, p As Single, x As Single a = Text1.Text b = Text2.Text c = Text3.Text d = Text4.Text e = Text5.Text f = Text6.Text g = Text7.Text h = Text8.Text i = 0 If Option1.Value = True Then q = b - a p = fx(q, b) If p 0 Then GoTo kkkk Else GoTo mmmm End If mmmm: Do While i h q = b - a p = fx(q, b) If p 0 Then Exit Sub i = i + p List1.AddItem 水深: Int(CStr(q * 1000)) / 1000 △s: _ In t(CStr(p * 100))/ 100 ” s: i b = q Loop Exit Sub kkkk: Do While i h q = b + a p = fx(q, b) If p 0 Then Exit Sub i = i + p List1.AddItem 水深: Int(CStr(q * 1000)) / 1000 △s: _ In t(CStr(p * 100))/ 100 ” s: i b = q Loop Else q = b - a p = fx(b, q) If p 0 Then GoTo ffff Else GoTo jjjj End If jjjj: Do While i h q = b - a p = fx(b, q) If p 0 Then Exit Sub i = i + p △ s:△ s:List1.AddItem 水深: △ s: △ s: In t(CStr(p * 100)) / 100 ” s: i b = q Loop Exit Sub ffff: Do While i h q = b + a p = fx(b, q) If p 0 Then Exit Sub i = i + p List1.AddItem 水深: Int(CStr(q * 1000)) / 1000 In t(CStr(p * 100)) / 100 ” s: i b = q Loop End If End Sub Private Sub Command2_Click() List1.Clear End Sub Private Function fx(a As Single, b As Single) As Single s1 = =e * a + f * a A 2 s2 = =e * b + f * b a 2 x1 = e + 2 * a * Sqr(1 + f A 2) x2 = e + 2 * b * Sqr(1 + f A 2) v1 = g / s1: v2 = g / s2 v3 = (v1 + v2) / 2 r1 = s1 / x1: r2 = s2 / x2 r3 = (r1 + r2) / 2 k1 = r1 A (1 / 6) / d: k2 = r2 A (1 / 6) / d k3 = (k1 + k2) / 2 j = (v3 A 2) / (k3 A 2 * r3) fx = (b - a + (v2 A 2 - v1 A 2) / (2 * 9.81)) / (c - j) End Function