Question

VB编程将0,11,22,33,55,66,77,88,99,100存入一个数组中,现输入一个数,插入数组中 数组中数据仍然由小到大排序

Answer 1

问：VB编程将0,11,22,33,55,66,77,88,99,100存入一个数组中,现输入一个数,插入数组中 数组中数据仍然由小到大排序

答：1.定义一个数组，其实就是让系统在内存中分配一个连续的区域，用来存储数组的元素。其格式为：Dim 数组名字 （下界 To 上界） As 类型。Dim MarkVB(1 To 30) As Integer '定义一个一维数组 上界30 下界是1 共30个元素。 也可以Dim MarkVB(29) As integer，此定义下表从0开始，元素也是30个。 加上Option Base 1 ,Dim MarkVB(30) As integer这个语句也是30个元素，下标从1开始。数组大小=上界-下界+1。2.动态数组 ，不能定义数组的维数和个数。Dim Mark() As Integer 使用的时候重新声明 redim Mark(n)即可。使用关键字Pereserve可以保存之前的数组内容。3. ReDim 语句的下标可以是常量，也可以是有确定值的变量，程序书写时可以多次使用ReDim来改变数组的大小，但是每次使用Redim语句都会造成数组之前数据的丢失，使用Preserve选项对数组进行重新说明时，将会保留数组中原来的数据，但是该参数只能改变最后一维的大小。4.数组输入函数 Array(),此函数只能对一维数组进行赋初值，并且这个数组必须为Variant变体型，不能声明数组的大小和类型。Dim Mark() ,Mark=Array(1,2,3) ,此时可以利用Ubound()函数确定数组的上界，比如Ubound(Mark)=2,利用For循环可以输出数组元素。5.Val()是一个类型转换函数 ，可以把字符串转换成相应的整数，Val("-3")=-3 VAL("vb5.0")=0 VAL("12 bC")=12 VAL与CSTR功能相反,CSTR将数值表达式的值换成字符串 CSTR(125)="125"————————————————版权声明：本文为CSDN博主「HopesunIce」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。原文链接：https://blog.csdn.net/HopesunIce/article/details/94727454

问：我要的是编程 程序代码

答：程序如下：Private Sub Form_Activate()Dim a(1 To 10) As Integer '定义存放10个小于等于100的整数数组Dim sum, i, max, min As Integer '定义sum存放10个数的和，min放10个数中最小值，max放最大值，i循环控制变量Dim aver As Single '定义aver放平均值sum = 0max = 0min = 100RandomizeFor i = 1 To 10 '生成随机数存入数组，并求出和、最大值、最小值 a(i) = Int(Rnd * 100 + 1) sum = sum + a(i) Print a(i) If a(i) > max Then max = a(i) If a(i) < min Then min = a(i)Next iaver = sum / 10Print "平均数是" & averFor i = 1 To 10 '逐渐改变最大值、最小值与平均值最接近的If (a(i) aver) Then max = a(i)If (a(i) >= min) And (a(i) < aver) Then min = a(i)Next iIf (max - aver) > (aver - min) Then '找到最接近的值 Print "最接近平均值得数是" & minElse If (max - aver) < (aver - min) Then Print "最接近平均值得数是" & max Else Print "最接近平均值得数是" & min & vbTab & max End IfEnd IfEnd Sub