4个随机的数字(byte类型),VB6中有没有这样的一个函数可以将这4个随机的数字中最大的和最小的一个数字提取出来吗?例如,现在有四个随机数字,byte类型a=1 b=2 c=0 d=6 注:可能下一次就变成了a=0 b=4 c=7 d=3请问VB6中有没有这样的一个函数可以直接获得这四个随机数中最大的那个数和最小的那个数?请知道的人指教,谢谢!!!
解决方案 »
- VB6.0\根据条件自动新建多级文件夹问题?
- 问一个菜菜的问题,请大虾们帮偶一把
- 请问,basic语言的程序如何编译?
- VB中能调用C#写的DLL吗?
- VB的树状控件我搞不定了,来帮帮我吧。(高手快请进!)
- 怎样嵌入控件
- 用open能打开非DOS 8.3格式的文件名吗?
- 怎么把自己编好的dll自动注册
- 请问有谁知道怎样只用win或alt键做热键的方法(就像在windows中单击win键就弹出开始菜单一样)!问题解决即加分!谢谢!
- 請教高手
- 您需要向其它开发组成员解释自己的代码吗?您需要快速的为软件定制帮助体制吗?您希望代码回到无意间疏忽毁掉之前或您希望放弃当前以修改的
- 网吧管理系统用什么做登陆连接是怎么做的?用tcpip直接连接的吗?还是什么? 能说说流程吗?
Function max(a, b, c, d)
If a > b Then max = a Else max = b
If c > max Then max = c
If d > max Then max = d
End Function
Function min(a, b, c, d)
If a < b Then min = a Else min = b
If c < min Then min = c
If d < min Then min = d
End Function
Private Sub Command1_Click()
MsgBox "max:" & max(Text1.Text, Text2.Text, Text3.Text, Text4.Text)
MsgBox "min:" & min(Text1.Text, Text2.Text, Text3.Text, Text4.Text)
End Sub
Function max(a, b, c, d)
If a < b Then
max=b
else
max=a
end if
if c > d then
if max<c then max = c
else
if max<d then max = d
end if
End FunctionFunction min(a, b, c, d)
If a > b Then
min=b
else
min=a
end if
if c > d then
if min > c then min = c
else
if min > d then min = d
end if
End Function
我支持这个