更多"下面的程序的作用是利用随机函数产生10个100-300(不包含300)"的相关试题:
[填空题]下面程序的作用是利用随机函数产生10个100～200之间(包含100、200)的随机数，打印其中是5的倍数的数，并求出它们的总和。请将下列程序补充完整。
Private Sub Command1_Click（ ）
For m=1 To 10
x=Int(Rnd *______)
If Then
Print x;
k1=k1+x
End If
Next m
Print"k1=";k1
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
[填空题]下面的程序的作用是利用随机函数产生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
[简答题]
程序改错（5分）
下列程序的功能是利用随机函数RAND（ ）随机产生100个100以内的整数,统计它们在0--49和50--100之间出现的次数,要求:
1.项目中有一个程序文件Pcode,将T盘中VFP01.TXT中的程序代码复制到其中并进行修改
2.在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目
Create Cursor cur1(r i)
For i=1 To 100
Insert Into cur1 Values (Int(Rand（ ）*100))
EndFor
Select cur1
Skip Top
n=0
Do while Not Eof（ ）
If cur1.r>49
n=n-1
EndIf
Skip
EndDO
Clear
”小于50的次数是:”+ Str(100-n,2)
”大于或等于50的次数是:”+Str(n,2)
Use
[单项选择]下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。
Dim a(100)
For j=1 To 100
a(j)=Int(Rnd*501+200)：Print a(j)
Next j : Print
p=1 : max= ______
For j=2 To 100
If a(j)＞max Then max=a(j) : p=j
Next j
Print "The largest number is " ; max
Print "The position is"; p
End
A. 0
B. a(1)
C. 1.7E+38
D. 1.7E-38
[填空题]本程序的功能是利用随机数函数模拟投币，方法是；每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、 Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。 程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。[*]Private Sub Command1_Click( )
Radomize
n=CInt(Text1．Text)
n1=0
n2=0
For i=1 To 【6】
r=Int(Rnd*2)
If r= 【7】 Then
n1=n1+1
Else
n2=n2+1
End If
Next
Next2．Text=n1
Next3．Text=n2
End Sub
[简答题]程序设计题：利用随机函数rand（）生成10个整型随机数，输出它们之中的最大值和最小值；如果把最大值和最小值之和的一半称为中间值，输出所有大于中间值的数。
[填空题]以下程序调用随机函数得到N个20以内的整数放在s数组中。函数fun的功能是找出s数组中的最大数(不止一个)所在下标传回主函数进行输出，并把最大值作为函数值返回，请填空。
#define N 30
man（ ）
int s[N]，d[N]，i，k，m；
for(i＝0,i＜N；i++)s[i]＝rand（ ）%20；printf("%3d"，s[i])；
m＝fun( 【13】 )；
printf("m=%d/n"，m)；
printf(”The index ;/n")；
for(i=0；i＜k；i++)printf("%4d"，d[i])；
printf("/n/n")；
fun(int*w，int*d，int * k)
int i，j，m=0，v；
for(i=0；i＜N；i++)
if(w[i]＞w[m]) 【14】 ；
v＝w[m]；
for(i=0，j=0;i＜N；i++)
if(w[i]＝＝v) 【15】 ；
*k＝ 【16】 ；
return 【17】 ；
[填空题]以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【8】和【9】处填上正确的内容。
Private Sub Command1_ Click（ ）
Dim d(6)
for i = 1 To 50
n = 【8】
d(n) = 【9】
Next i
for i = 1 To 6
Print d(i)
Next i
End Sub
[简答题]本题程序的功能是随机产生一个1～10的随机数，根据提示，用户可以猜这个随机数。例如程序随机产生的随机数是7，如果输入8，则提示“Try smaller…”并继续提示输入；如果输出6，则提示“Try bigger…”并继续提示输入；如果输入7，则会输出“Great!”并退出程序。请将下述程序补充完整(注意：不得改动程序的结构，不得增行或删行)。
import java.io.*;
public class basic
public static void main(String[] args)
InputStreamReader it;
Bur feredReader in;
Ir = new InputStreamReader(System.in)
In = new BufferedReader(ir);
int ranNum = ______;
int guessNum = -1;
String str;
while (______)
System.out.print ("Please Input:");
try
______;
guessNum = Integer.parseInt(str);
catch (Exception e)
if(guessNum ＞ ranNum)
System.out.println("Try smaller...");
else
System.out.println("Try bigger...");
System.out.println ("Great ! ");
[填空题]下面的程序随机产生10个小于100的整数，并找出其最大值、最小值和平均值，请将程序补充完整。(此程序是VB语言编写)
Private Sub Form_Click( )
Dim a(1 To 10)As Integer
Dim m_max As Integer, m_min As Integer
Dim s As Single
Randomize
For i=1 To 10
a(i)=______
Print a(i)
Next i
m max=0: m min=100
For i=1 To 10
If a(i)＞m_max Then______
If a(i)＜m_min Then m min=a(i)
s=______
______
Print"最大值是:"; m_max
Print"最小值是:"; m_min
PIint"平均值是:"; ______
End Sub
[填空题]设函数findbig( )已定义为求3个数中的最大值。以下程序将利用函数指针调用findbig函数。请填空。
main( )
{ int findbig(int,int,int);
int (*f)( ),x,y,z,big;
f=【 】;
scanf("%d%d%d",&x,&y,&z);
big=(*f)(x,y,z);
printf("big=%d/n",big);
}
