写一个函数,其中包含四个参数(a1,a2,c1,c2)。
写一个函数,其中包含四个参数(a1,a2,c1,c2)。功能:随机生成a1~a2个c1~c2之间的奇数(包括c1c2),并将生成的数值转为指定的ANSI字符代码相对应的字...
写一个函数,其中包含四个参数(a1,a2,c1,c2)。功能:随机生成a1~a2个c1~c2之间的奇数(包括c1c2),并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果作为函数返回值,请写出代码并且调用函数输出结果。(例如调用函数生成3~9个60~91的数对应的字符串)
展开
2个回答
展开全部
返回值 = 随机生成4的倍数(3, 9, 60, 91)
TracePrint 返回值
Function 随机生成4的倍数(a1, a2, c1, c2)
随机生成4的倍数 = ""
Randomize
随机个数 = Int((a2 - a1 + 1) * Rnd + a1)
For 随机个数
Randomize
随机数 = Int((c2 - 4 - c1 + 1) * Rnd + c1)
For i = 随机数 To 随机数 + 4
If i mod 4 = 0 Then
随机生成4的倍数 = 随机生成4的倍数 + Chr(i)
Exit For
End If
Next
Next
End Function
TracePrint 返回值
Function 随机生成4的倍数(a1, a2, c1, c2)
随机生成4的倍数 = ""
Randomize
随机个数 = Int((a2 - a1 + 1) * Rnd + a1)
For 随机个数
Randomize
随机数 = Int((c2 - 4 - c1 + 1) * Rnd + c1)
For i = 随机数 To 随机数 + 4
If i mod 4 = 0 Then
随机生成4的倍数 = 随机生成4的倍数 + Chr(i)
Exit For
End If
Next
Next
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询