高一信息会考

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