[求助]各位编程高手帮帮忙
编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数、5个数、7个数中的最大值和最小值各位编程高手帮帮这个忙，先谢谢了
2005-10-05 12:31
2005-10-05 12:39
2005-10-05 21:12
Randomize '对随机数生成器做初始化的动作。 a = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值 b = Int((100 * Rnd) + 1) c = Int((100 * Rnd) + 1) d = Int((100 * Rnd) + 1) Text1.Text = a & "、" & b & "、" & c & "、" & d End Sub '------------------比较这4个随机数字------------------------- Private Sub Command2_Click() e = 0 '设置中间量，如果不设置默认e=0 f = 100 '设置中间量，请保证比用于比较任何数都大
'计算最大值 If a > e Then e = a If b > e Then e = b If c > e Then e = c If d > e Then e = d
'计算最小值 If a < f Then f = a If b < f Then f = b If c < f Then f = c If d < f Then f = d '以msgbox形式，显示结果。 MsgBox e & "是最大值！" & vbCrLf & f & "是最小值！", vbInformation, "结果" End Sub
'--------------李云轩(SLore·Lee)编写,也许你认为很简单。---------------- 'Do sample things,be sample human beings, enjoy my sample life……
[此贴子已经被作者于2005-10-5 23:05:38编辑过]
2005-10-05 22:58
2005-10-05 23:07
2005-10-07 01:06
'-------------------比较数据大小程序-------------------------- '----------------------------------------------SLore---------- Dim a, b, c, d, e, f As Integer '------------------创建4个随机数字---------------------------- Private Sub Command1_Click() Creatnum End Sub '------------------比较这4个随机数字-------------------------- Private Sub Command2_Click() Compare End Sub
Function Creatnum() Randomize '对随机数生成器做初始化的动作。 a = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值。 b = Int((100 * Rnd) + 1) c = Int((100 * Rnd) + 1) d = Int((100 * Rnd) + 1) Text1.Text = a & "、" & b & "、" & c & "、" & d End Function
Function Compare() e = 0 '设置中间量，如果不设置默认e=0 f = 100 '设置中间量，请保证比用于比较任何数都大
'计算最大值 If a > e Then e = a If b > e Then e = b If c > e Then e = c If d > e Then e = d
'计算最小值 If a < f Then f = a If b < f Then f = b If c < f Then f = c If d < f Then f = d
'以msgbox形式，显示结果。 MsgBox e & "是最大值！" & vbCrLf & f & "是最小值！", vbInformation, "结果" End Function
'--------------李云轩(SLore·Lee)编写,也许你认为很简单。---------------- 'Do sample things,be sample human beings, enjoy my sample life……
2005-10-07 09:35
2005-10-07 22:29