用随机函数产生100个[0,999]以内的随机整数，输出能够被3整除并且个位不为0的数并且统计满足条件的数的个数。要求每行输出10个数。

file1．Dat中。 Private Sub Form_Click() Dim k As Integer Open【 】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【 】 Next i 【 】 End Sub

在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【 】和【 】、【 】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【 】) If a(j)【 】5=0 Then【 】 Print a(j) Next j Print print k/100 End Sub

以下程序调用随机函数得到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(【 】)； 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])【 】； v＝w[m]； for(i=0，j=0;i＜N；i++) if(w[i]＝＝v)【 】； *k＝【 】； return【 】； }

已知dat1.dat存放了一系列整型数据。 要求： 1）用dat1.dat中的前100个数据给数组int a[100]赋值，并在屏幕上输出（每行10个元素）。 2）使用函数 double isaver(int *p,int num) { } 求数组a中所有数组元素平均值。 3)把该函数放在头文件ISaver.h中以便在主函数中调用该函数。把所有小于平均值的数组元素（每行10个元素）和小于平均值的数组元素个数输出出来。（在屏幕上和数据文件d:\dat6.dat中同时输出） 题目中使用的数据文件请在附件中下载，解压后可使用。

数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【 】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【 】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub

A.样本单位数为100户

B.样本容量为100户

C.样本可能数目为100个

D.总体单位数为1000户

E.样本容量为1000户

正确的内容。 Private Sub Command1_ Click() Dim d(6) for i = 1 To 50 n =【 】 d(n) =【 】 Next i for i = 1 To 6 Print d(i) Next i End Sub

A.fix(365*rand(1,60))

B.1+fix(366*rand(1,60))

C.1+fix(364*rand(1,60))

D.1+fix(365*rand(1,60))