vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/22 09:18:14
vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除
用vb编程解决
用vb编程解决
![vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除](/uploads/image/z/5129567-71-7.jpg?t=vb%E7%BC%96%E7%A8%8B+1+%E5%B7%B2%E7%9F%A5%E4%B8%89%E4%B8%AA%E6%95%B0abc%EF%BC%88%E7%94%A8%E9%9A%8F%E6%9C%BA%E6%95%B0%E4%BA%A7%E7%94%9F%EF%BC%89%E6%89%BE%E5%87%BA%E5%85%B6%E4%B8%AD%E6%9C%80%E5%A4%A7%E5%80%BC+2%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%2C%E5%88%A4%E6%96%AD%E5%AE%83%E8%83%BD%E5%90%A6%E8%A2%AB3%2C5%2C7%E6%95%B4%E9%99%A4)
Private Sub Command1_Click()
Dim a, b, c As Integer
Dim max
Randomize
a = Int(900 * Rnd + 100)
b = Int(900 * Rnd + 100)
c = Int(900 * Rnd + 100)
Print a, b, c
max = a
If b > max Then max = b
If c > max Then max = c
Print "最大数是"; max
End Sub
Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("输入一个整数"))
If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then
MsgBox a & "能够被3、5、7整除"
Else
MsgBox a & "不能被3、5、7整除"
End If
End Su
Dim a, b, c As Integer
Dim max
Randomize
a = Int(900 * Rnd + 100)
b = Int(900 * Rnd + 100)
c = Int(900 * Rnd + 100)
Print a, b, c
max = a
If b > max Then max = b
If c > max Then max = c
Print "最大数是"; max
End Sub
Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("输入一个整数"))
If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then
MsgBox a & "能够被3、5、7整除"
Else
MsgBox a & "不能被3、5、7整除"
End If
End Su
vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除
C++编程 编程实现输入一个整数,判断其能否被3,5,7整除,并输出能被其中两个数(要指出是那两个)整除
输入一个整数,判断它能否被3,5,7整除,并输出以下信息之一:(1)能同时被3,5,7整除; (2)能被其中两数(要指出
编程 输入一个整数 判断能否被3和5整除
做简单的程序 ,2个1.随便输入一个整数,判断能否被3整除,能否被5整除,能否同时被3和5整除?2.输入任意三个数,输出
C语言 输入一个整数,判断它能否被3,5,7整除【急!】
试编程实现循环输入文件中的整数,判断其能否被3、5、7整除,并对每个整数输出以下信息之一:(1) 能同
输入一个整数,判断它能否被3和5整除
编写一个程序实现如下功能,输入一个整数,判断它能否被3,5,7整除
vb输入1个整数 判断能否被3和7整除,若能输出A 不能输出B
用C语言编程判断一个整数n能否同时被3和5整除
vb编程 输入一个数,随即产生一些随机数,要求产生的随机数的平均值等于输入的数