Randomize语句的功能是A.产生一个(0,1)之间的随机小数B.产生一个[1,10]之间的随机整数C.产生一个
Randomize语句的功能是
A.产生一个(0,1)之间的随机小数
B.产生一个[1,10]之间的随机整数
C.产生一个(-1,1)之间的随机小数
D.产生新的随机整数
Randomize语句的功能是
A.产生一个(0,1)之间的随机小数
B.产生一个[1,10]之间的随机整数
C.产生一个(-1,1)之间的随机小数
D.产生新的随机整数
Private Sub Form. Click()
Dim a(10)As Integer,i AS Integer
Randomize
i=0
Do
num=Int(Rnd*90)+10
For j=1 To i 检查新产生的随机数是否与以前的相同,相同的无效
If num=a(j)Then
Exit For
End If
Nextj
Ifj>i Then
i=i+1
a(i)=
End If
Loop Whilei<10
For i=1 To 9
For j= To 10
If a(i)>a(j)Then temp=a(i):a(i)一a(j):
Nextj
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
andomize语句的功能是()。
A.产生个(0,1)之间的随机小数
B.产生一个[1,10]之间的随机整数
C.产生一个(-1,1)之间的随机小数
D.产生新的随机整数
A、Rnd()*26+65
B、Rnd()*65
C、Rnd()*65+26
D、Rnd()*26+48
E、Rnd()*26+A
Private Sub Command1_Click()
Dim a As Integer
Open【 】For Output As 100
Randomize
For i =1 To 10
a=100+Int(899*RnD) 【 】
Next i
Close 100
End Sub
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!