（8）以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。Private Sub Form_Click()Dim a(10) As Integer, i As IntegerRandomizei=0Donum＝Int(Rnd*90)＋10For j=1To i ' 检查新产生的随机数是否与以前的相同，相同的无效If num=a(j)ThenExit ForEnd IfNext jIf j＞i Theni=i＋1a(i)＝【10】End IfLoop While i＜10For i＝1 To 9For j＝【11】To 10If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：【12】Next jNext iFor i＝1To10Print a(i)Next iEnd Sub
（8）以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Randomize
i=0
Do
num＝Int(Rnd*90)＋10
For j=1To i ' 检查新产生的随机数是否与以前的相同，相同的无效
If num=a(j)Then
Exit For
End If
Next j
If j＞i Then
i=i＋1
a(i)＝【10】
End If
Loop While i＜10
For i＝1 To 9
For j＝【11】To 10
If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：【12】
Next j
Next i
For i＝1To10
Print a(i)
Next i
End Sub
相关考题：
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）Dim arr（1 To 100）As IntegerFor i=1 To 100arr（i）=Int（Rnd*1000）Next iMax=arr（1）Min=arr（1）For i=1 To 100If________ThenMax=arr（i）End IfIf________ThenMin=arr（i）End IfNext iPrint"Max="；Max，"Min="；MinEnd Sub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
（ 7 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列事件过程：Private Sub Command1_Click( )Dim arr(1 To 100 ） As IntegerFor i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr ( 1 )Min=arr ( 1 )For i=1 To 100If 【 7 】 ThenMax=arr(i)End IfIf 【 8 】 ThenMin=arr(i)End IfNext iPrint"Max=" ; Max , "Min=" ; MinEnd Sub程序运行后 ， 单击命令按钮 ， 将产生 100 个 1000 以内的随机整数 ， 放入数组 arr 中 ， 然后查找并输出这 100 个数中的最大值 Max 和最小值 Min ，请填空。
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.Private Sub Commandl. Click( )For I=1 To 10R = Int (Rnd * 76 + 11)Print R;If【 】Then PrintNext IEnd Sub
下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a()a=Array(678，45，324，528，439，387，87，875，273，823)Fori＝【 】Forj= 【 】If a(j)【 】a(j+1)Thena1=a(j)a(j)＝a(j+1)a(j+1)=alEnd lfNextjNext iFor i＝1 To 10Print a(i)Next iEnd Sub
在文件IN3.DAT中有200个正整数，且每个数均在1000至9999之间。函数readDat()的功能是读取这200个数存放到数组aa中。请编制函数JsSort()，该函数的功能是：要求按每个数的后3位的大小进行降序排列，将排序后的前10个数存入数组b中，如果数组b中出现后3位相等的数，则对这些数按原始4位数据进行升序排列。最后调用函数writeDat()把结果bb输出到文件OUT3.DAT中。例如：处理前 9012 5099 6012 7025 8088处理后 5099 8088 7025 6012 9012注意：部分源程序已给出。请勿改动主函数main()、读函数readDat()和写函数writeDat()的内容。试题程序：include ＜stdio.h＞include ＜string.h＞include ＜conio.h＞int aa[200], bb[10];void jsSort({}main ( ){readDat );jsSort( ;writeDat();}readDat ( ){FILE *in;int i;in = fopen("IN3.DAT", "r");for(i = 0; i ＜ 200; i++) fscanf(in, "%d,", aa[i]);fclose(in);}writeDat ( ){FILE *out;int i;ut = fopen("OUT3.DAT", "w");clrscr ( );for (i = 0; i ＜ 10; i++){printf("i=%d,%d\n", i+1, bb[i]fprintf(out, "%d\n", bb[i]);}fclose (out);}
阅读以下说明和C++程序，将应填(n)处的字句写在对应栏内。[说明]设计一程序，输入10个整数到一个数组中，调整这10个数在数组中的位置，使得其中最小的一个数成为数组的首元素，最大的一个数成为数组的末元素。[C++程序]include ＜iostream.h＞define SIZE 10void main ( ){int data [SIZE];int m;cout＜＜"请输入"＜＜SIZE＜＜"个整数:";for ( m=0;m＜SIZE; m++ ) (1);int j=0,k=0;for ( int i=1;i＜SIZE; i++ )if ((2)) j=i;else if ( data[i]＜data[k] ) (3);if (j＞0 ) {int d=data[0];(4);data[k]=d;}if ( k＜SIZE-1 ){int d=data [SIZE- 1 ];data[SIZE- 1 ]=data[j];(5);}cout＜＜end1＜＜" 排序后: ";for ( m=0;m＜SIZE; m++ ) cout＜＜data[m]＜＜" " ;}
在考生文件夹中有一个工程文件execise30.vbp，相应的窗体文件为execise30.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“输出均值”的命令按钮。其功能足产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮，即可求出其平均值，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。要求：程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
以下程序的功能是：先将随机产生的10个不同的整数放人数组a中，再将这10个数按升序方式输出。请填空。Private Sub Form. Click()Dim a(10)As Integer，i AS IntegerRandomizei=0Donum=Int(Rnd*90)+10For j=1 To i 检查新产生的随机数是否与以前的相同，相同的无效If num=a(j)ThenExit ForEnd IfNextjIfji Theni=i+1a(i)=End IfLoop Whilei10For i=1 To 9For j= To 10If a(i)a(j)Then temp=a(i)：a(i)一a(j)：NextjNext iFor i=1 To 10Print a(i)Next iEnd Sub
以下程序用来输出20个在开区间(10，87)上的随机整数R，每行输出4个整数。请完成空白处。Private Sub Command1 Click()For I=1 To 10R=Int(Rnd*76+11)Print R；If【 】Then PrintNext IEnd Sub
在考生文件夹中有一个工程文件execise32.vbp，相应的窗体文件为execise32.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“小于500的整数之和”的命令按钮。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form. Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor I = 1 To 10Arr(i) = Int (Rnd * 1000)Next iMax= ______For i = 2 To 10If______ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub
在文件in．dat中已存有200个正整数，且每个数均在1 000至9999之间。函数readDat是读取这200个数存放到数组aa中。请编制函数jsSort，其函数的功能是：要求按每个数的后三位的大小进行降序排列，如果出现后三位相等的数值，则对这些数值按原始4位数据进行升序排列，将排序后的前10个数存入数组bb中。 最后调用函数writeDat把结果bb输出到文件out．dat中。
在数据文件in．dat中有200个正整数，且每个数都在1000至9999之间。函数readDat是读取这200个数存放到数组 aa中。请编制函数isSort，其函数的功能是：要求按每个数的后三位的大小进行升序排列，如果出现后三位相等的数值，则对这些数值按原始4位数据进行降序排列，将排序后的前10个数存入数组bb中。最后调用函数writeDat把结果bb输出到文件out．dat中。 例：处理前60125099901270258088 处理后 90126012702580885099 注意：部分源程序存在test．c文件中。 请勿改动数据文件in．dat中的任何数据、主函数main、读函数readDat和写函数writeDat的内容。
在考生文件夹中有一个工程文件execise37.vbp，相应的窗体文件为execise37.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“输出大于1000的整数之和”的命令按钮。其功能是产生40个0～2000的随机整数，放入一个数组中，然后输出这40个整数中大于1000的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后；按原文件名并在原文件夹中保存修改后的文件。
在考生文件夹中有一个工程文件exeeise119.vbp，相应的窗体文件为exeeise119.frm。在名为Form1的窗体上有一个命令按钮(名称为Cmd1，标题为“求和”)，其功能是产生30个0～1000的随机整数，放入一个数组中，然后输出它们的和。程序运行后，单击命令按钮，即可求出其和，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
在考生文件夹中有一个工程文件execise108.vbp，相应的窗体文件为execise108.frm。在名为Form1的窗体中有一个名称为Cmd1，标题为“输出最小随机数”的命令按钮(如下图所示)。其功能是产生50个0～2000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮，即可求出其最小值，并在窗体上显示出来。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
在文件IN6.DAT中有200个正整数，且每个数均在1000至9999之间。函数readDat()的功能是读取这200个数存放到数组aa中。请编制函数jsSort()，该函数的功能是：要求按每个数的后3位的大小进行降序排列，将排序后的前10个数存入数组b中，如果数组b中出现后3位相等的数，则对这些数按原始4位数据进行升序排列。最后调用函数writeDat()把结果bb输出到文件OUT6.DAT中。例如：处理前 9012 5099 6012 7025 8088处理后 5099 8088 7025 6012 9012注意：部分源程序已给出。请勿改动主函数main()、读函数readDat()和写函数writeDat()的内容。
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。
阅读以下C代码，回答问题（1）~（6），将解答填入答题纸的对应栏内。【说明】函数insertElem的功能是在元素升序排列的数组中加入一个新元素并保持数组元素升序排列的特点。在main函数中输入若干表示价格的实数，输入为0或负数或实数个数超出限定数量时终止，调用insertElem将价格按升序保存在数组pdata中，最后输出所输入的实数
问答题编一个程序，定义一个数组，用for语句输入10个实数存入这个数组，然后按逆序重新存放后再输出。