"" Then Dim minnum As Long Dim maxnum As Long minnum = Me.最小值 maxnum = Me.最大值   If minnum > maxnum Then   MsgBox "最小值不能大于最大值"   End If   Randomize   Me.随机数 = Int(minnum + (maxnum - minnum + 1) * Rnd()) Else MsgBox "请输入范围" End If End Sub" />

生成指定范围随机整数 Access数据库系统功能讲解 VBA代码编程实例-生成指定范围随机整数 Access数据库系统功能讲解 VBA代码编程实例

AID:
CID:
视频图片:
作者头像:
弹幕地址:
视频描述: "" Then Dim minnum As Long Dim maxnum As Long minnum = Me.最小值 maxnum = Me.最大值   If minnum > maxnum Then   MsgBox "最小值不能大于最大值"   End If   Randomize   Me.随机数 = Int(minnum + (maxnum - minnum + 1) * Rnd()) Else MsgBox "请输入范围" End If End Sub" class="form-control" readonly="" placeholder="">

热门回复:

  • 谢桥丷:[大哭][大哭][大哭][大哭]简明扼要[大哭][大哭][大哭][大哭][大哭][大哭]我恨啊怎么没早点看到