以下程序的功能是:先将随机产生的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

以下程序的功能是:先将随机产生的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=1 To i 检查新产生的随机数是否与以前的相同,相同的无效

If num=a(j)Then

Exit For

End If

Nextj

Ifj>i Then

i=i+1

a(i)=

End If

Loop Whilei<10

For i=1 To 9

For j= To 10

If a(i)>a(j)Then temp=a(i):a(i)一a(j):

Nextj

Next i

For i=1 To 10

Print a(i)

Next i

End Sub


相关考题:

以下程序的功能是,产生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中。

在文件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,请填空。

下面程序的功能是:从输入的正整数中选3个数进行输出,要求这些数都是2的倍数,请填空。

(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

利用随机函数产生整数给含100个元素数组赋值,输出该数组,按每行5个元素的形式安排输出,统计能被3或7整除的元素的个数并输出统计结果

设计程序,先将10个整数按从大到小排序,然后把一个整数按大小插入到已排序的数组中。10个整数通过数组初始化赋值给数组元素, 如 int a[11]={127,3,6,28,54,68,87,105,162,18}; 将29插入数组中。 输入格式: “%d” 输出格式: "%4d" 输入样例: 29 输出样例: 162 127 105 87 68 54 28 18 6 3 162 127 105 87 68 54 29 28 18 6 3

从键盘读入5个整数,放入长度为5的数组中,再将这5个数逆序输出。