更多"下列能正确产生[1,30]之间的随机整数的表达式是( )。"的相关试题:
[单项选择]产生[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
[单项选择]可以产生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)
[单项选择]能够产生1到50之间(含1和50)随机整数的表达式是( )。
A. Int(Rnd*51)
B. Int(Rnd(50)+1)
C. Int(Rnd*50)
D. Int(Rnd*50+1)
[单项选择]下面可以产生90~100(含90和100)的随机整数的表达式是______。
A. Int(Rnd*10+100)
B. Int(Rnd*10+90)
C. Int(Rnd*11+90)
D. Int(Rnd*90+100)
[填空题]以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1 _Click( )
For i = 1 To 20
x=Int( 【11】 *200+ 100)
If 【12】 = 0 Then
Print x
S = S + 【13】
End If
Next I
Print "Sum = "; S
End Sub
[填空题]以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click( )
For i=1 To 20
x=Int( 【6】 *100+200)
If 【7】 =0 Then
Print x
S=S+ 【8】
End lf
Next i
Print"Sum=";S
End Sub
[填空题]下面的程序的作用是利用随机函数产生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
[填空题]以下程序用来产生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
[填空题]以下程序代码实现单击命令按钮Commandl时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。
Dimalt(1 To 20)
Fori=1 To 20
arr(i)=
Nexti
Sub=0
For Each X In arr
If X>50 Then
Print Tab(20);X
Sum=Sum+X
End If
Next X
Print Tab(20);"Sub=";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