richtextbox获取某行_richtextbox 光标_richtextbox和textbox(18)

还可以使用public、static、private等语句来声明数组

数组

设定下界的方法 option base 1 dim data(10) as single

设定下界为1 下标号从1～10

array函数 使用array函数可以为数组元素赋值 示例 dim d as variant 定义数组名(变体类型) d = array(1, 2, 3, 4) 执行结果：1→d(0)，2→d(1), 3→d(2), 4→d(3)

数组的应用

例3.15 输入某小组10个同学的成绩，计算总分和平均分.

本例利用inputbox函数来输入成绩，输入完毕后经过计算，再采用 print直接在窗体上输出结果 option base 1 private sub command1_click() dim a(10) as integer dim i ,sum as integer sum=0 for i = 1 to 10 输入成绩 a(i) = inputbox(―请输入整数”) print a(i); sum=sum+a(i) next i print print ―总分：” ;sum print ―平均分：” ;sum/10 end sub

例3.16

数组中有10个数.要求按“选择排序法”由小到大的顺 序对数组中的数据进行排序,并将排序前后的数据显示在窗体上.

按值从小到大进行排序。排序方法： 将10个数放入数组a中，对下列下标变量进行排序处理： a(1), a(2), a(3), … ，a(10) ① 从这10个下标变量中，选出最小值，通过交换把该值存入 a(1)中 ② 除a(1)之外(a(1)已存放最小值)，从其余9个下标变量中选出 最小值(即10个数中的次小值)，通过交换把该值存入a(2)中 ③ 选出a(3)～a(10)中的最小值，通过交换，把该值存入a(3)中 ④ 重复上述处理，至a(8)，可使a(1)～a(8)按小到大排列 ⑤ 第9次处理，选出a(9)及a(10)中的最小值，通过交换把该值 存入a(9)中，此时a(10)存放的就是最大值

方法:

排列要求 示例： 小 大 a(1) a(2) a(3) a(4) 90 64 65 59 1. a(1)与a(2) ～a(4)比较，选出最小值，结果 59 64 65 90 2. a(2)与a(3) ～a(4)比较，选出次小值，结果 59 64 65 90 3. a(3)与a(4)比较，选出较小值，结果 59 64 65 90 i=1 j=2, 3, 4 i=2 j=3, 4 i=3 j=4 程序结构 :

for i=1 to 3 for j=i+1 to 4 …… next j

next i

程序代码如下:

完成比较及排序处理过程，可以采用两重

option base 1 循环结构，外循环的循环变量i从1到9，共循环 private sub command1_click() 九次；内循环的循环变量j从i+1到10。 dim a as variant a=array(10,5,30,45,2,9,52,19,52,3) 排序 for i = 1 to 9 k=i k用来记录每次选择的最小值的下标 for j = i + 1 to 10 if a(j) > a(k) then k=j end if next j if k<>i then t = a(k): a(k) = a(i): a(i) = t 交换位置 next i 变量k记录每一次选出的最小值 for i=1 to 10 的下标，在本次比较结束后， print a(i); 如果k不等于i,使a(i)与a(k)一次 next i 换位即可 end sub

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-18.html