几道简单的vb题，帮忙做做！

来源：百度知道 编辑：UC知道 时间：2024/05/22 12:22:00
做三道就可以了，多谢了啊！

完成下列一维数组的程序设计:
1．输入一批数求其平均值、最大最小值、找出与平均值最接近的数；
2．输入一批数，求每相邻N个数的平均值；
3．随机产生N个数，放入数组并按每行10个数输出；
4．随机产生N个互不相等的数，放入数组并按每行10个数输出；；
5．输入一批成绩放入数组，用数组指针完成统计工作(优秀、良好、中、合格和不合格的个数)；
6．随机产生100个数，放入数组，完成从小到大的排序并按每行10个数输出(采用线性排序法、选择排序法和气泡排序法等)；
7. 随机产生n(>2000)个数，放入数组，试验比较线性排序法、选择排序法、气泡排序法和改进的气泡排序法的排序效率；
8. 用筛选法求4—10000之间的所有素数;
9. 用筛选法求1000个互不相等的数;
10. 应用题: 已知12个运动员的编号, 姓名, 专业和百米跑的比赛成绩, 请进行名次排列并输出(考虑有相同名次的情况);
完成下列二维数组的程序设计:
1. 用随机函数产生数据给二维数组a(n,m) 赋予初值, 并按n行m 列输出;
2. 用随机函数产生数据给二维数组a(n,m) 赋予初值, 并按n行m 列输出, 并求对角线元素之和;
3. 用随机函数产生数据给二维数组a(n+1,m+1) 赋予初值, 并按n行m 列输出, 并分别求每行和每列的元素平均值, 并按n+1行m+1 列输出;
4. 用随机函数产生数据给二维数组a(n,m) 赋予初值, 并按n行m 列输出, 并求出该数组中的“鞍点”(即行中最大而列中最小的元素);

5. 用随机函数产生数据给二维数组a(n,m) 赋予初值, 并按n行m 列输出, 然后对该二维数组进行排序, 并按n行m 列输出;
完成下列字符串处理程序的设计:
1. 从键盘输入一行字符，统计其中有多少个单词；
2. 从键盘输入N个字符串，找出其中最大者；

我帮你做第一题
Private Sub Command1_Click()
Dim a() As Single, A1() As Single '定义动态数组
Dim sum As Single, pjz As Single, max As Single, min As Single, min1 As Single
Dim n As Integer

Do
n = n + 1 '数组下标加1 ,从1开始
b = InputBox("输入数据,数据为空则结束数据输入" & Chr(13) & "第" & n & "个数据", "输数据")
If b = "" Then Exit Do
ReDim Preserve a(n) '设置数组元素,保持原来的数据
a(n) = Val(b)
sum = sum + a(n) '求和

Loop Until b = "" '符合条件退出循环
ReDim A1(n - 1)
If n > 1 Then
pjz = sum / (n - 1)
Else
Exit Sub
End If
For i = 1 To n - 1
A1(i) = Abs(a(i) - pjz)
Next
max = a(1)
min = a(1)
min1 = 1
For i = 2 To n - 1
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
If A1(i) < A1(min1) Then min1 = i
Next
Print "平