[填空题]以下程序的功能是：生成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

更多"以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被"的相关试题:

[填空题]以下程序的功能是：生成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

查看答案

[填空题]以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
Dim arr(1 To 20)
For i=1 To 20
arr(i)= 【12】
Next i
Sum=0
For Each X In 【13】
If X＞50 Then
Print Tab(20)；X
Sum=Sum+X
End If
Next X
Print Tab(20)；“Sum＝”；Sum

查看答案

[填空题]下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。
Option Base 1
Private Sub Form_Click（　）
Dim a(10)As Integer,i As Integer
Dim sum As Integer,aver As Single
【12】
For i=1 To 10
a(i)=Int(100*Rnd)+1
sum=sum+a(i)
Next i
【13】
Print sum,aver
End Sub

查看答案

[单项选择]下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Command1_Clickn Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Text1.Text=Text1.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()

查看答案

[填空题]

以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik（　）
　Randomize
　For I=1 To 20
　　X=Int(Rnd*_（1）_)
　If X/2=_（2）_Then Print x
Next I
End Sub

（1）（）

查看答案

[填空题]下列程序的功能是：单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form Click（　）
Dim a(20)As Integer，i As Integer
Dim t As Integer，j As Integer
Randomize
For i=1 To 20
a=10+Int(90*Rnd)
Print a(i)；
Next
Print
i=1: 【4】
Do While i＜j
t=a(i): 【5】 a(j)=t
i=i+1: j=j-1
Loop
For i=1 To 20
Print a(i);
Next i
Print
End Sub

查看答案

[填空题]以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数，请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click（　）
Dim i%，j%，k%，t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 To 200
b=True
k=2
j=Int(Sqr(i))
Do while k＜=j And b
If i Mod k=0 Then
b=______
End If
k=______
Loop
If b=True Then
t=t+1
Debug．Print i
End If
Next i
Debug．Print’t=’;t
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个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

查看答案

我来回答:

提交