更多"下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数"的相关试题:
[单项选择]下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是( ),完成程序。 Private Sub Commandl_Click( ) Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X>50 Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);"Sum=";Sum End Sub
A. Int(Rnd*99+1) In arr
B. Int(Rn In arr
C. Int(Rnd*99+1) In arr()
D. Int(Rn In arr()
[填空题]以下程序代码实现单击命令按钮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
[填空题]以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。
Private Sub Command.Click( )
Dim arr(1 To 20)
For i=1 To 20
arr(i)= (14)
Text1.Text=Text1.Text&arr(i)&Chr(13)&chr(10)
Next i
Sum=0
For Each x In arr
If x>50 Then
Print Tab(20);x
Sum= (15)
End If
Next x
Print Tab(20);"Sum=";Sum
End Sub
[填空题]【说明8.1】
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。
【程序代码8.1】
Private Sub Command1_Click( )
For i=1 To 20
x=Int( (1) *200+100)
If (2) =0 Then
Print x
S=S+ (3)
End If
Next i
Print"Sum=";S
End Sub
【说明8.2】
程序8.2运行后,单击窗体,则在窗体上显示的内容是:a= (4) 和b= (5) 。
【程序代码8.2】
Private Sub Form_Click( )
Dim a As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub p1(x As Integer, ByValy As Integer)
x=x+l0
y=y+20
End Sub
Sub p2(ByVal×As Integer, y As Integer)
x=x+l0
y=y+20
End Sub
Sub p3(ByVal×As Integer, ByVal y As Integer)
x=x+10
y=y+20
End Sub
[填空题]【说明8.1】
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。
【程序代码8.1】
Private Sub Command1_Click( )
For i=1 To 20
x=Int( (1) *200+100)
If (2) =0 Then
Print x
S=S+ (3)
End If
Next i
Print"Sum=";S
End Sub
【说明8.2】
程序8.2运行后,单击窗体,则在窗体上显示的内容是:a= (4) 和b= (5) 。
【程序代码8.2】
Private Sub Form_Click( )
Dim a As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub p1(x As Integer, ByValy As Integer)
x=x+l0
y=y+20
End Sub
Sub p2(ByVal×As Integer, y As Integer)
x=x+l0
y=y+20
End Sub
Sub p3(ByVal×As Integer, ByVal y As Integer)
x=x+10
y=y+20
End Sub
[填空题]以下程序的功能是:生成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
[填空题]下面程序的作用是利用随机函数产生10个100~300(不包含300)之间的随机整数,打印其中是7的倍数的数,并求它们的总和。请填空。
Sub TOF( )
Randomize
Dim s AS Double
Dim a(10)As Integer
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