作业帮 > 综合 > 作业

编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 10:00:02
编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加
编程vb题,
编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加一次)
Private Sub Command1_Click()
   Dim n As Integer
   Cls
   For i = 200 To 400
      If i Mod 5 = 0 Or i Mod 7 = 0 Then
         n = n + 1
         Print i;
         If n Mod 5 = 0 Then Print
       End If
   Next i
   Print
   Print "满足条件的数共" & n & "个"
End Sub
再问:
再问: 亲,这题呢
再答: Private Sub Command1_Click()  '程序思路,先求总和,减掉最大,最小,再求平均
   Dim max As Double, min As Double, sum As Double
   For i = 1 To 7
      a = Val(InputBox("请输入第" & i & "个评委的成绩!"))
      If i = 1 Then max = a: min = a
      If min > a Then min = a
      If max < a Then max = a
      s = s + a
   Next i
   Print "该参赛者的成绩为:" & (s - max - min) / 5
End Sub
再问: 编程求解一元二次方程ax平方+bx+c的根,输入系数a,b,c,求输入的两个根x1,x2怎么做