更多"Int(100*Rnd(1))产生的随机整数的闭区间是( )。"的相关试题:
[单项选择]Int(100*Rnd(1))产生的随机整数的闭区间是( )。
A. [0,99]B)[1,100]
B. [0,100]
C. [1,99]
[单项选择]产生[10,27]之间的随机整数的Visual Basic表达式是( )。
A. Int(Rnd(1)*27)+10
B. Int(Rnd(1)*28)+10
C. Int(Rnd(1)*27)+11
D. Int(Rnd(1)*28)+11
[单项选择]下列能正确产生[1,30]之间的随机整数的表达式是( )。
A. 1+rnd(30)
B. 1+30*rnd()
C. rnd(1+30)
D. int(rnd()*30)+1
[填空题]下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数,打印其中7的倍数的数,井求它们的总和,请填空。
Sub TOF( )
Randomize
Dim s As Double
Dim a(10) As lnteger
For i=0 To 9
【 】
Next
For i=0 To 9
If【 】Then
Print a(i)
s=s+a(i)
【 】
Next i
Print
Print "S=" ; s
End Sub
[单项选择]能够产生1到50之间(含1和50)随机整数的表达式是( )。
A. Int(Rnd*51)
B. Int(Rnd(50)+1)
C. Int(Rnd*50)
D. Int(Rnd*50+1)
[单项选择]可以产生30~50(含30和50)之间的随机整数的表达式是( )。
A. Int (Rnd*21+30)
B. Int (Rnd*20+30)
C. Int (Rnd*50-Rnd*30)
D. Int (Rnd*30+50)
[单项选择]下面可以产生90~100(含90和100)的随机整数的表达式是______。
A. Int(Rnd*10+100)
B. Int(Rnd*10+90)
C. Int(Rnd*11+90)
D. Int(Rnd*90+100)
[单项选择]
要求产生10个随机整数,存放在数组arr中,从键盘输入要删除的数组元素的下标,将该元素中的数组删除,后面元素中的数据依次前移,并显示删除后剩余的数据,现有如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim arr(10) AS Integer
For i=1 to 10
arr(i)=int (Rnd*100)
Print arr(i);
Next
x=inputbox(“输入1到10的一个整数:”)
For i=x+1 to 10 ‘循环2
arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确,应该进行的修改是( )。
A. 产生随机数时不使用Int函数
B. 循环2的初始值应为i=x
C. 数组定义改为Dim a(11) as integer
D. 循环3是循环终值应改为9
[填空题]以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik( )
Randomize
For I=1 To 20
X=Int(Rnd* (12) )
If X/2= (13) Then Print x
Next I
End Sub
[填空题]以下程序的功能是,产生10个0~1000的随机整数,放入数组Arr中,然后输出其中的最大值。请完善下列程序。
Option Base 1
Private Sub Form_Click( )
Dim Arr(10)As Integer
Dim Max As Integer
Randomize
For i = 1 To 10
Arr(i)= Int(Rnd * 1000)
Next i
Max = 【14】
For i = 2 To 10
If 【15】 Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
[填空题]以下程序的功能是,产生10个0~1000之间的随机整数,放入数组Arr中,然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form Click( )
Dim Arr(10) As Integer
Dim Max As Integer
Randomize
For I = 1 To 10
Arr(i) = Int (Rnd * 1000)
Next i
Max= ______
For i = 2 To 10
If______ Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
[填空题]以下程序用来输出20个在开区间(10, 87)上的随机整数R,第行输出4个整数。请完成空白处。
Private Sub Command1_Click( )
For I=1To 10
R= Int(Rnd*76+1)
Print R;
If 【16】 Then Print
Next I
End Sub