-
匿名用户2024-01-30以上是显而易见的，如果 mod 2=0 则 x=x+1，然后打印 a;如果一个mod 2不等于0就直接打印一个，这不是奇数的输出吗？，显然是错误的。
-
匿名用户2024-01-29工具材料：以 Microsoft Visual Studio 2010 为例。
1.首先在桌面上，单击“Microsoft Visual Studio 2010”图标。
2. 然后在此界面中，输入 20 个随机生成的 50-108 整数（包括 50 和 108）以分配给一维数组 **“dim arr（1 to 20） as integer dim max as integer for i = 1 to 20 arr（i） = int（rnd（） 58 + 50）”。
4. 最后，在此界面中，输入最大值 **for i = 1 到 20 if max < arr（i） then max = arr（i） end if”。
-
匿名用户2024-01-28private sub form_load()= ""
dim arr(1 to 20) as integerdim max as integer
for i = 1 to 20
arr(i) = int(rnd() 58 + 50)= arr(i) &"_" &
nextfor i = 1 to 20 '这是一个简单的过程，用于查找最大值，如果 max < arr（i） 那么
max = arr(i)
end if
next "最大值为：" & max & " " & vbcrlf & "原始数据为：" & vbcrlf & "排序后为："
for i = 2 to 20
temp = arr(i)
j = i - 1
do until temp < arr(j)arr(j + 1) = arr(j)
j = j - 1
if j = 0 then
exit do
end if
looparr(j + 1) = temp
next i
for i = 1 to 20
arr(i) &" - "
next i
end sub
-
匿名用户2024-01-271. 在 vb 中产生区间 [a，b] 的随机数公式为：int（（b- a+ 1） *rnd + a）。
2.根据上述公式，公式法不可能生成（a，b]（半开区间）范围内的随机数。
3. rnd 函数返回一个小于 1 但大于或等于 0 的值。
4. int 是一个整数函数。
-
匿名用户2024-01-26randomize
int((a - b + 1) *rnd + b)
int 表示随机生成的数字。
-
匿名用户2024-01-25'这是一个适合您的功能，它非常易于使用并自行将其添加到模块中。
public enum judge
不等于 = 0
等于 = 1
小于 = 2
大于 = 3
小于或等于 = 4
大于或等于 = 5
end enum
public function random(optional x = 2 ^ 31, optional judge as judge = 2, optional y = 0, optional z as long = 1)
on error resume next
re:select case z '仅保留整数 （0 1），保留 1。
case 0
doevents
randomize '初始化。
random = rnd * val(x) '随机数是必需的。
case 1
doevents
randomize '初始化。
random = fix(rnd * val(x)) '随机数是必需的。
end select
select case judge
大小写不等于。
if random <>val(y) then goto re '不相等。
大小写等于。
if random = val(y) then goto re '量。
大小写小于。
if random < val(y) then goto re '小于。
大小写大于。
if random > val(y) then goto re '大于。
大小写小于或等于。
if random <= val(y) then goto re '小于或等于。
大小写大于或等于。
if random >= val(y) then goto re '大于或等于。
end select
end function
-
匿名用户2024-01-24rnd 函数。
返回具有随机值的单个值。
语法 rnd[（number）].
可选的 number 参数是单个或任何有效的数值表达式。
如果 number 的值为 rnd，则返回一个值。
小于 0 每次使用数字作为随机数种子时都会给出相同的结果。
序列中大于 0 的下一个随机数。
等于最近生成的数字的 0。
省略序列中的下一个随机数。
说明：rnd 函数返回一个小于 1 但大于或等于 0 的值。
number 的值决定了 rnd 如何生成随机数。
为最初给定的种子生成相同的序列，因为每次调用 rnd 函数都使用序列中的前一个数字作为下一个数字的种子。
在调用 rnd 之前，请使用具有基于系统计时器的种子的无参数 randomize 语句初始化随机数生成器。
若要在某个范围内生成随机整数，可以使用以下公式：
int((upperbound - lowerbound + 1) *rnd + lowerbound)
这里，上限是随机数范围的上限，下限是随机数范围的下限。
注意 要获取随机数的重复序列，请在使用带有数值参数的 randomize 之前直接使用负参数值调用 rnd。 使用具有相同数字值的随机化不会导致重复的随机数序列。
rnd 函数的示例。
此示例使用 rnd 函数随机生成 1 到 6 的随机整数。
dim myvalue
myvalue = int((6 * rnd) +1) '生成一个介于 1 和 6 之间的随机值。
工具材料：以 Microsoft Visual Studio 2010 为例。 >>>More