编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 15:40:11
编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加
编程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怎么做
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 "满足条件的数共" & 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怎么做
编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加
编程求200到300内5的倍数或7的倍数之和(一个数如果同时是5和7的倍数,只能加一次)
vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数
VB编程题.输入一个整数判断他是否是5 的倍数
用VB编程,统计1~100中满足3的倍数,7的倍数的数各为多少?
编程:从键盘输入一个数,判断是否既是三的倍数又是七的倍数!
C语言编程 判断输入的一个数是否是5的倍数
C语言编程:一个正整数与3的和是5的倍数,与3的差是6的倍数,求符合条件的最小5个
编程实现;从键盘上输入一个整数,判断是否能被3或5整除.如果能,则输出"该整数是3或5的倍数.”
一个数既是3和5的倍数,又是7的倍数可能是
java编程实现:从键盘任意输入一个数,判断这个数是不是7的倍数.
编程计算100—200之间7的倍数之和