用vb编写*利用随机函数产生20个10~99之间（包括10和99）的随机整数存入一维数组A，

'只须在窗体内忝加一个command即可
Private Sub Command1_Click()
Cls
Dim a(1 To 20), b(1 To 19)
Randomize
Print "随机生成的这组数是："
For i = 1 To 20
a(i) = Int(Rnd * 90) + 10
Print a(i);
If i = 10 Then Print
Next
Print
Print
Print "这组数按从大到小的顺序排列每10人一行输出如下："
For i = 1 To 20
For j = i + 1 To 20
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next
Print a(i);
If i Mod 10 = 0 Then Print
Next
For i = 1 To 19
b(i) = a(i) - a(i + 1)
Next
x = b(1)
For i = 1 To 19
If x < b(i) Then x = b(i)
Next
Print
Print "相邻两个数的最大差值是：" & x
End Sub

#include#include#define N 20int main(){int a[N];int i, count = 0;double mean = 0.0;srand(time(NULL));for(i=0;i mean && !(a[i] & 1)) // 偶数判断 (!(x&1)){count++;}}printf("统计个数：%d
", count);return 0;} 纯手打未编译版本

#include<stdio.h>
#include<stdlib.h>
#define N 20
int main()
{
int a[N];
int i, count = 0;
double mean = 0.0;
srand(time(NULL));
for(i=0;i<N;i++)
{
a[i] = rand() % 90 + 10;
mean += (double) a[i]; // 在此处求和
printf("第%d个数：%d
", i, a[i]);
}
mean /= N; // 平均数
printf("平均数：%lf
", mean);
for(i = 0; i < N; ++i)
{
if(a[i] > mean && !(a[i] & 1))  // 偶数判断 (!(x&1))
{
count++;
}
}
printf("统计个数：%d
", count);
return 0;
}

纯手打未编译版本

利用随机函数产生80个10～99之间的随机整数,将其中的奇数按由小到大的...
Picture1.Print "随机生成的80个整数如下：："Picture2.Print "其中的奇数按从小到大的顺序排列，每10个一行如下："Dim a(1 To 80) As Integer Randomize For i = 1 To 80 a(i) = Int(Rnd * 90) + 10 '随机生成两们数的整数 Picture1.Print a(i);If i Mod 10 = 0 Then Picture1...

用C语言编写程序: * 利用随机函数产生100个10～99之间(包括10和99...
include "stdio.h"include"windows.h"void main(){ int i,A[100];for(i=0;i<100;i++){ A[i] = rand()%90 + 10;printf("%d ", A[i]);} }

C语言。用随机函数rand产生50个10-99的互不相同的整数放入数组a,按...
include<stdio.h>#include include<stdlib.h> int tab[50];int num=50;void print(void){ int i=0,j=0;for(i=0;i<num;i++) { printf("%5d ",tab[i]);j++;if(j%10==0)putchar('\\n');} putchar('\\n');} void init(void){ int i=0,j=0,k=0,m=0,temp;int a[10...

Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整...
窗体中加命令按钮，单击事件代码如下：Private Sub Command1_Click()Randomize Dim a(1 To 20) As Integer Dim s As Double For i = 1 To 20 a(i) = Int(Rnd() * 40 + 10)s = s + a(i)Next i Print s \/ 20 End Sub 运行过程观察数组a的值 ...

在vb中利用随机函数产生100个10～99之间的随机整数,找出其中的素数,并...
Dim a(1 To 100) As Integer, prime(1 To 100) As Integer, np As Integer, sp As Integer 'a数组存放100个随机整数，prime数组存放素数，np存放素数个数，sp存放素数总和 Randomize np = 0 sp = 0 Print "100个随机整数为"For i = 1 To 100 a(i) = 10 + Int(90 * Rnd)Print a...

c语言:用随机函数产生100个[10,99]的整数保存到一个10乘10的二维数组...
include "stdio.h"#include <stdlib.h>#include "time.h"void f(char *p){char i,j,k;for(i=0;i<9;i++){for(k=i,j=k+1;j<10;j++)if(p[k]>p[j])k=j;if(k!=i)j=p[k],p[k]=p[i],p[i]=j;}}int main(int argv,char *argc[]){char v[10][10],i,j;int ...

使用随机函数rand()产生50个10~99的互不相同的随机整数放入数组a中...
char* p;p=new char[90];for(i=0;i<90;i++) p[i]=0;for(i=0;i<50;i++){ t=rand()%(90-i); b=0; for(k=0;k<90;k++){ if(b==t)break; if(p[k]==0)b++; } p[k]=1; a[i]=k+10;}delete []p;...

随机产生20个100以内的数,输出;按从小到大的顺序排序,输出。(用C语言...
include <stdio.h> include <stdlib.h> include int main(){ int a[20];int i, j, t;srand(time(NULL));for (i = 0; i < 20; i++)a[i] = rand() % 100;for (i = 0; i < 19; i++)for (j = i + 1; j < 20; j++)if (a[i]<a[j]){ t = a[i];a[i...

vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中...
private sub command1_click()for i=1 to 15 a=int(Rnd*20)+80 if i=1 then max=a:min=a if maxa then min=a print a;if i=7 or i=15 then print next print "最大值："; max print "最小值："; min end sub

关于VB填空题答案!急用!求高手解答!能做的给出答案,不能的略过_百度...
___ For j = 1 To 10 Print "___*___"; Next j Print Next iEnd Sub---3、* 利用随机函数产生20个10～99之间的随机整数存入一维数组A，然后分四行用标准打印格式打印输出，每行五个数。Private Sub Form_Click() Dim __...