【正文】 Imports Module Module1 Sub Main() Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! Const e! = Write(請輸入a的值:) : a = ReadLine() Write(請輸入b的值:) : b = ReadLine() Write(請輸入c的值:) : c = ReadLine() If Abs(a) = e Then WriteLine(方程不是一個二次方程！) Else disc = b ^ 2 4 * a * c If Abs(disc) = e Then WriteLine(方程有兩個相同的實(shí)根:x1=x2={0}, b / (2 * a)) ElseIf disc Then x1 = (b + Sqrt(disc)) / (2 * a) x2 = (b Sqrt(disc)) / (2 * a) WriteLine(方程有兩個實(shí)根：x1={0}x2={1}, x1, x2) ElseIf disc e Then realpart = b / (2 * a) : imagpart = Sqrt(disc) / (2 * a) WriteLine(方程有兩個虛根：) WriteLine(x1={0}+{1}i, realpart, imagpart) WriteLine(x1={0}{1}i, realpart, imagpart) End If End If End Sub End Module Imports Imports Module Module1 Sub Main() Dim x%, y% Write(請輸入x的值:) x = ReadLine() If x = 1 And x = 5 Then Select Case x Case Is 2 y = 3 * x 5 Case Is 4 y = 2 * Cos(x) + 1 Case Is = 5 y = Sqrt(1 + x * x) End Select Else y = x * x 4 * x + 5 End If WriteLine(x={0} y={1} , x, y) End SubEnd Module4. 解答Imports Module Module1 Sub Main() Dim r!, f$ Const pi! = Write(請輸入圓的半徑r:) : r = ReadLine() If r = 0 Then Write(請輸入運(yùn)算標(biāo)志C(計算周長),A(計算面積),B(兩者都計算):) f = ReadLine() f = UCase(f) Select Case f Case C WriteLine(半徑r={0} y=圓周長={1} , r, 2 * r * pi) Case A WriteLine(半徑r={0} y=圓面積={1} , r, r * r * pi) Case B WriteLine(半徑r={0} y=圓周長={1} , r, 2 * r * pi) WriteLine(半徑r={0} y=圓面積={1} , r, r * r * pi) Case Else WriteLine(輸入的運(yùn)算標(biāo)志錯！) End Select Else WriteLine(半徑不能是負(fù)數(shù)！) End If End SubEnd Module5. 解答Imports Module Module1 Sub Main() Dim n%, samp。 個學(xué)生成績：) Next i sum1 = 0 : sum2 = 0 For i = 1 To n sum1 = sum1 + s(i) Next i ave = sum1 / n For i = 1 To n sum2 = sum2 + (s(i) ave) ^ 2 Next i dev = Sqrt(sum2 / n) WriteLine(平均成績:{0} , ave) WriteLine(均方差:{0} , dev) End Sub End Module2． 解答: Imports Module Module1 Sub Main() Dim i%, num%, p%, a%(11) Randomize() 39。 比較a和b中的元素，把較大的元素移到 Else 39。 Str(i) amp。 列元素：) Write( {0}, a(i, j)) Next j WriteLine() Next i sum = 0 For i = 1 To m For j = 1 To n sum = sum + a(i, j) 39。 求最小值 Next j Next i WriteLine(平均值為：{0}, ave) WriteLine(最大值為：{0}, max) WriteLine(最小值為：{0}, min) End SubEnd Module6. 解答:Imports Module Module1 Sub Main() Dim i%, j%, sum! Dim a%(3, 3), p!(3) WriteLine(各百貨公司的銷售量:) WriteLine( 康佳 TCL 長虹) For i = 1 To 3 Write(第{0}百貨公司 , i) For j = 1 To 3 a(i, j) = InputBox(輸入第 amp。 Str(j) amp。 Str(i) amp。 Str(i) amp。, namp。 Write(n=) n = ReadLine() Write(m=) m = ReadLine() Call fac(m, c1) : Call fac(n, c2) : Call fac(m n, c3) cmn = c1 / (c2 * c3) WriteLine(cmn={0} , cmn) End Sub Private Sub fac(ByVal kamp。 t = 1 For i = 1 To k t = t * i Next i f = t End SubEnd Module2． 解答:Imports Module Module1 Sub Main() Dim a!, b!, c!, m Write(a=) a = ReadLine() Write(b=) b = ReadLine() Write(c=) c = ReadLine() m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c)) WriteLine(m={0} , m) End Sub Private Function max(ByVal x!, ByVal y!, ByVal z!) As Single Dim ma! If x y Then ma = x Else ma = y If z ma Then ma = z Return ma End FunctionEnd Module3．Imports Imports Module Module1 Sub Main() Dim x!, y! Write(x=) x = ReadLine() Write(y=) y = ReadLine() WriteLine(g={0} , g(x, y)) End Sub Private Function f(ByVal t!) As Single f = (1 + Exp(t)) / (1 + Exp(t)) End Function Private Function g(ByVal x!, ByVal y!) As Single If x = y Then g = f(x + y) / (f(x) + f(y)) Else g = f(x y) / (f(x) + f(y)) End If End FunctionEnd Modul