vb电子版章一维数组.pptxVIP

VisualBasic语言程序设计; 第一节一维数组;动态数组在定义

例:Dima()asLong

Dimnasinteger

n=Text1.text

ReDimPreservea(n)asLong

测试数组的函数

Lbound(数组名[,维])返回下界值

Ubound(数组名[,维])返回上界值

控件数组.

特点:具有相同的事件过程和对象名,但可通过下标来判别.index参数代表下标.;Array函数

数组变量名=array(数组各元素值)

说明:数组变量名必须是变体型.

不定义使用或定义成Variant.

例:a=array(1,2,3,4)

?a(0);a(1);a(2),a(3)

;强化训练1;2.窗体上有单选按钮和列表框控件。单击名称为option1、标题为”国家”的单选按钮，向列表框中添加国家名称,如下图所示

;Option1的单击事件过程如下:

Privatesuboption1_click()

Dimarr

arr=array(“中国”,”日本”,”德国”,”美国”,”澳大利亚”)

List1.clear

Fori=0toUbound(arr)

List1.AddItemarr(i)

Next

Endsub

以下关于上述代码的叙述中,正确的是

A.程序有错,没有声明数组的维数及上下界

B.只有一维数组才能使用array为数组赋初值

C.for循环的终值应为List1count-1

D.for循环的初值应为1

;3.编写如下程序:

Privatesubform_click()

Dima

a=array(1,2,3,4,5,6,7,8,9,10)

n=inputbox(“请输入一个小于10的正整数”)

i=Ubound(a)

Fork=nto(i-n)/2+n

x=a(k)

a(k)=a(i)

a(i)=x

i=i-1

Nextk

Fork=0toubound(a)

Printa(k);

Nextk

Endsub

运行程序后,单击窗体，并输入4，则输出结果是

A.10987654321

B.12345109876

C.12341098765

D.12345678910;4.设有下面程序代码:

OptionBase1

PrivateSubCommand1_click()

Dimx(6)

a=Array(4,2,5,1,6,3)

a(1)a(2)a(3)a(4)a(5)a(6)

b=Array(64,24,98,27,58,41)

b(1)b(2)b(3)b(4)b(5)b(6)

Fork=1to6k=12...

x(a(k))=b(k)x(4)=64x(2)=24...

Nextk

Fork=1to6

printx(k);

Nextk

Endsub

程序运行时的输出是

A.986458412724

B.242741586498

C.642498275841

D.272441649858;5.设有下面程序代码:

PrivateSubCommand1_Click()

Dimaasvariant

a=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)

m=a(0)

n=m

Fork=1toubound(a)

Ifa(k)mthen

n=m

m=a(k)

Elseifa(k)nanda(k)mthen

n=a(k)

Endif

Nextk

Printn

EndSub

程序运行时的输出是

A.数组中最大的数(即98) B.数组中第1个数(即22)

C.数组中最小的数(即12) D