1、算法與程序設計單元復習一、程序設計（寫出實現流程圖虛線框部分的程序代碼）1YN開始a>0?b=-a結束輸出bb=a輸入一個實數a23YN開始i<100i=1,s=0s=s+i結束輸出si=i+34NY開始i<=100?i=1i=i+1結束輸出sumsum=sum+1/isum=0YYN開始i<=5ss+xii+1結束輸出ss0,i1x>0?N輸入x56NYNY開始x<0?c1=0,c2=0c2=c2+1結束輸入x輸出c1,c2x<>0?c1=c1+17已知n個數，編程求這n個數的（1）總和（2）平均值（3）最大值（4）最小值（5）正數和負數的個數

2、附錄：參考答案第一題：Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = InputBox("請輸入數據a") If a < 0 Then b = -a Else b = a End If Print bEnd Sub第二題：Private Sub Command2_Click() Dim x As Integer Dim y As Integer a = 800: b = 1000 x = InputBox("請輸入數據x") If x < a Then y

3、= 0 Else If x < b Then y = 10 Else y = 20 End If End If Print yEnd Sub第三題：Private Sub Command3_Click()Dim i As Integer, s As Integeri = 1: s = 0Do s = s + i i = i + 3Loop While i < 100Print sEnd Sub第四題：Private Sub Command4_Click()Dim i As Integer, sum As Singlei = 1: sum = 0Do While i <= 10

4、0 sum = sum + 1 / i i = i + 1LoopPrint sumEnd Sub第五題：Private Sub Command5_Click()Dim i As Integer, s As Integer, x As Singles = 0: i = 1Do While i <= 5 x = InputBox("請輸入數據x") If x > 0 Then s = s + x End If i = i + 1 LoopPrint sEnd Sub第六題：Private Sub Command6_Click()Dim x As Single, c

5、1 As Integer, c2 As Integerc1 = 0: c2 = 0Do While i < 5 x = InputBox("請輸入數據x") If x <> 0 Then If x < 0 Then c1 = c1 + 1 Else c2 = c2 + 1 End If End If i = i + 1LoopPrint c1, c2End Sub第六題（數組）：Private Sub Command7_Click()Dim x(1 To 5) As IntegerDim c1 As Integer, c2 As IntegerFor

6、 i = 1 To 5x(i) = InputBox("請輸入第" & i & "個數據:")If x(i) <> 0 ThenIf x(i) < 0 Then c1 = c1 + 1 Else c2 = c2 + 1 End If End IfNext iPrint c1, c2End Sub第七題（1）：Private Sub Command8_Click()Dim sum As Single, i As IntegerDim n As Integer, x As Integersum = 0i = 1n = Inp

7、utBox("n:")Do While i <= n x = InputBox("x:") sum = sum + x i = i + 1LoopPrint sumEnd Sub第七題（2）：Private Sub Command9_Click()Dim sum As Single, i As IntegerDim n As Integer, x As Integersum = 0i = 1n = InputBox("n:")Do While i <= n x = InputBox("x:") sum

8、= sum + x i = i + 1LoopPrint sum / nEnd Sub第七題（3）：Private Sub Command10_Click()Dim d(1 To 100) As IntegerDim i As Integer, temp As Integer, j As Integern = InputBox("請輸入數據:")For i = 1 To nd(i) = InputBox("請輸入第" & i & "個數據:")NextFor i = 2 To n For j = n To i Step

9、 -1 If d(j) < d(j - 1) Then temp = d(j): d(j) = d(j - 1): d(j - 1) = temp End If Next jNext iPrint d(n)End Sub第七題（3）不用數組：Private Sub Command13_Click()Dim x As Single, max As SingleDim i As Integer, n As Integern = InputBox("請輸入數據n:")x = InputBox("請輸入數據x:")i = 1max = xDo While

10、i < nx = InputBox("請輸入數據x:") If x > max Then max = x End If i = i + 1LoopPrint maxEnd Sub第七題（4）：Private Sub Command11_Click()Dim d(1 To 100) As IntegerDim i As Integer, temp As Integer, j As Integern = InputBox("請輸入數據:")For i = 1 To nd(i) = InputBox("請輸入第" & i

11、 & "個數據:")NextFor i = 2 To n For j = n To i Step -1 If d(j) < d(j - 1) Then temp = d(j): d(j) = d(j - 1): d(j - 1) = temp End If Next jNext iPrint d(1)End Sub第七題（4）不用數組：Private Sub Command14_Click()Dim x As Single, min As SingleDim i As Integer, n As Integern = InputBox("請輸入數據n:")x = InputBox("請輸入數據x:")i = 1min = xDo While i < nx = InputBox("請輸入數據x:") If x < min Then min = x End If i = i + 1LoopPrint minEnd Sub第七題（5）：Private Sub Command12_Click()Dim c1 As Integer, c2 As