编写一个程序实现以下功能： （1）产生5000个1～9999之间的随机整数，将其存入文本文件a.txt中。 （2）从文件中读取这5000个整数，并计算其最大值、最小值和平均值并输出结果。

/* 随机产生20个1到100之间的整数。要求将前10个元素与后10个元素的值对换， 即第1个元素与第20个元素对换，第2个元素与第19个元素对换，……，第10个元素与第11个元素对换。 输出数组原来各元素的值和对换后各元素的值。 */ #include <stdio.h> #include <stdlib.h> #include <time.h> int main() { int i,t,a[21]; //随机产生20个1到100之间的整数。此段程序不要修改 srand( (unsigned)time( NULL ) ); //初始化随机数 for(i=1;i<=20;i++) { a[i]="rand()*100/32767;" printf("%d ",a[i]); } printf("\n"); 前10个元素与后10个元素的值对换 ，请补充 输出交换后的元素，此段程序不要修改 for(i="1;i&lt;=20;i++)" （提交程序和运行结果的截图）>

根据条件，回答 46～48 题： 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

第46题：请填写【1】处答案 。

以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

Private Sub Command1 _Click( )

For i = 1 To 20

x=Int(【 】*200+ 100)

If【 】 = 0 Then

Print x

S = S +【 】

End If

Next I

Print "Sum = "; S

End Sub

以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click( ) For i=1 To 20 x=Int(【 】*100+200) If【 】=0 Then Print x S=S+【 】 End lf Next i Print"Sum="；S 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

本程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。Private Sub Command1_Click() Randomize n = CInt(Text1.Text) n1 = 0 n2 = 0 For i = 1To r = Int(Rnd*2) If r = ____Then n1 = n1+1 Else n2 = n2+1 End If Next Text2.text = n2 Text2.text = n2 End Sub

下面程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、 Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如下图所示。程序运行后，在文本框Text1中输入总次数，然后卑．击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Commandl_Click()

A、Math. floor(Math. Random()* 6)

B、Math. floor (Math. Random()*7)

C、Math. floor (Math. Random()*8)

D、Math. ceil(Math. Random()*8)