(4)用正确的内容填空,使得以下程序能够计算1+1/3+1/5+……+1/(2N+1),直到 l/(2N+1)小于105。 rivate Sub Form Click sum=l: n= I 1/n sum = sum temp If temp<0.00001 Then(4) Print"N=".n Print sum=: sum End Sub (5)某大奖赛,有7位评委给参赛选手打分。以下程序是输入7位评委对某选手的打 分后,去掉最高分和最低分后计算其平均值作为该选手的成绩。请填空使得程序 能正确运行 Private Sub Form Click sum=o For i=1 To 7 qj=Val( (Input Box("请输入第"&i&"位评委的打分","录入") Max=c] Min=cj If Min >c] Then Elself Max cj Then End If End if sum =sum cI Next i aver Print"该选手的成绩为:",aver End Sub (6)以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数,请用正确的 内容填空。 Private Sub Form Click Dim a(I To 6)As Integer Randomize 1To50 a(n)=a(n)+1 For i= 1 to 6 Print i;"点出现";a(i),"次 Next i End Sub 2.11编程题 (1)编写程序将1~100自然数中能被3和5同时整除的数打印出来,并统计其个数。 (2)我国现有人口14亿,设年增长率为0.75%,编写程序,计算多少年后将增加到 16亿 (3)编写程序输出100~200之间不能被3整除的自然数 (4)设计程序,求s=1+(1+2)+(1+2+3)+……+(1+2+3+…+n)的值。End Sub （4） 用正确的内容填空，使得以下程序能够计算 1+1/3+1/5+……+1/(2N+1)，直到 1/(2N+1)小于 10-5。 Private Sub Form_Click() sum = 1: n = 1 Do n = n + 2 temp = 1 / n sum = sum + temp If temp < 0.00001 Then （4） Loop Print "N="; n Print "sum="; sum End Sub （5） 某大奖赛，有 7 位评委给参赛选手打分。以下程序是输入 7 位评委对某选手的打 分后，去掉最高分和最低分后计算其平均值作为该选手的成绩。请填空使得程序 能正确运行。 Private Sub Form_Click() sum = 0 For i = 1 To 7 cj = Val(InputBox("请输入第" & i & "位评委的打分", "录入")) If i = 1 Then Max = cj Min = cj Else If Min > cj Then Min = cj ElseIf Max < cj Then Max = cj End If End If sum = sum + cj Next i aver = （5） Print "该选手的成绩为：", aver End Sub （6） 以下程序用随机函数模拟掷骰子，统计掷 50 次骰子出现各点的次数，请用正确的 内容填空。 Private Sub Form_Click() Dim a(1 To 6) As Integer Randomize For i = 1 To 50 n = （6） a(n) = a(n) + 1 Next i For i = 1 To 6 Print i; "点出现"; a(i); "次" Next i End Sub 2.11 编程题 （1） 编写程序将 1~100 自然数中能被 3 和 5 同时整除的数打印出来，并统计其个数。 （2） 我国现有人口 14 亿，设年增长率为 0.75％，编写程序，计算多少年后将增加到 16 亿。 （3） 编写程序输出 100~200 之间不能被 3 整除的自然数。 （4） 设计程序，求 s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值