各位编程高手帮帮这个忙,先谢谢了
各位编程高手帮帮这个忙,先谢谢了
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编辑过]
'-------------------比较数据大小程序-------------------------- '----------------------------------------------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……