第五章VB数组与自定类型10

Visual

Basic程序设计第5章 数组和自定义类型数组的概念数组的基本操作自定义类型及其数组综合应用常见错误Visual

Basic程序设计5.1

数组的概念5.1.1数组的概念1.引例例5.1求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下：aver

=

0For

i

=

1

To

100mark=InputBox("输入学生成绩")aver=aver+markNext

iaver

=

aver

/

100由于循环体内变量mark只能放一个学生的成绩，无法统计高于平均分的人数。若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。Visual

Basic程序设计用数组解决问题的程序如下：Dim

mark(99)As

Integer"声明数组markDim

ave!,n%,i%ave

=

0For

i=0

To

99

"输入成绩，求分数和mark(i)=InputBox("输入学生的成绩")

ave=ave+mark(i)Next

i"求100人的平均分ave

=

ave

/

100n

=

0For

i

=

0

To

99"统计高于平均分的人数If

mark(i)

>

ave

Then

n

=

n

+

1Next

iMsgBox("平均分:"&

ave

&"高于平均分人数:"&

n)Visual

Basic程序设计2.数组的概念概念：在VB中，把一组相互关系密切的数据放在一起并用一个统一的名字作为标志，就是数组。一般来说，数组就是一组相同类型的变量的集合。数组的分类：按数组的大小分为定长数组和变长数组。按元素的类型分为数值型、字符型、日期型、变体数组等。按数组的维数分为一维数组、二维数组、多维数组。按对象不同分为菜单对象数组和控件数组。数组必须先声明后使用。声明数组名、类型、维数和数组大小。使用数组元素时，下标不能超出上下界范围，下标可以是整型的常数、变量、表达式，甚至是一个数组元素。Visual

Basic程序设计5.1.2

定长数组及声明在声明时确定了大小的数组称为定长数组。定长数组从建立到消亡整个阶段中数组的大小是固定的。定长数组的声明形式：Dim 数组名(下标1[,下标2…])

[As类型]声明了数组的名、维数、大小、类型（省略时为变体类型）维数：几个下标为几维数组，最多60维。下标：[下界To]上界省略下界为0，必须为常数。每一维大小：上界－下界+1数组大小：每一维大小的乘积例：Dim

mark(1

to

100)

As

IntegerVisual

Basic程序设计Dim

lArray(

0

To

3，

0

To

4)

As

Long

共有

4×5个元素等价于:

Dim

lArray(3，

4)

As

Long注意：(1)下界缺省为0，也可重新定义数组的下界。例如：Option

Base

1错误的声明：下标是变量n

=Inputbox("输入n"）：Dim

x(n)As

Single在数组声明中的下标说明了数组的整体，即每维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。例如： Dim

x(10)

As

Integerx(10)=100"声明了x数组有11个元素"对x(10)这个数组元素赋值Visual

Basic程序设计Private

Sub

Command1_Click()Dim

grade(1

To

10)

As

SingleDim

i%For

i

=

1

To

10grade(i)

=

int(Rnd()

*

101)Next

iFor

i

=

1

To

10Print

grade(i)Next

iEnd

Sub对数组的输入与输出Visual

Basic程序设计Private

Sub

Command2_Click()Dim

grade(1

To

10)

As

Single,

sum!,

avg!Dim

i%For

i

=

1

To

10grade(i)

=

int(Rnd()

*

101)Next

Isum

=

0！For

i

=

1

To

10sum

=

sum

+

grade(i)Next

iavg

=

sum

/

10Print

sum,

avgEnd

Sub计算总和和平均值Visual

Basic程序设计5.1.3变长数组及声明变长数组指在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小。建立变长数组要分两步：用Dim语句声明数组，但不能指定数组大小

Dim数组名()As数据类型用ReDim语句动态地分配元素个数ReDim数组名(下标[,下标2…])[As类型]例：Dim

s()As

SingleSub

Form_Load(

)…ReDim

s(4，8)…End

SubVisual

Basic程序设计定义变长数组大小注意：Dim是说明语句，可出现在程序的任何地方，而ReDim是执行语句，只能在过程 中。在过程中可多次使用ReDim语句来改变数组的大小和维数，但不能改变类型。可在ReDim后加Preserve参数用来保留数组中的数据，若使用Preserve参数后， 只能改变最后一维的大小。Dim语句中的下标只能是常量，ReDim中的下标可以是常量，也可以是有了确定值的变量或表达式。定长数组在程序编译时分配存储单元，变长数组在运行时分配存储单元。Visual

Basic程序设计Option

ExplicitPrivate

Sub

Command1_Click()Dim

a%(),

i%,

j%ReDim

a(1

To

3,

1

To

4)For

i

=

1

To

3For

j

=

1

To

4a(i,

j)

=

Int(Rnd()

*

31

+

20)Next

jNext

iFor

i

=

1

To

3For

j

=

1

To

4Print

a(i,

j),Next

jPrintNext

iEnd

Sub变长数组例子1Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a()

As

IntegerDim

i%,

j%ReDim

a(2,

3)For

i

=

0

To

2For

j

=

0

To

3a(i,

j)

=

i

*

4

+

jNext

jNext

iReDim

Preserve

a(2,

4)For

i

=

0

To

2For

j

=

0

To

4Print

a(i,

j),Next

jPrintNext

iEnd

Sub变长数组例子2Visual

Basic程序设计例5.2

编一个程序，显示有n个数的非波那契数序列。Private

Sub

Command1_Click()Dim

fib()

As

LongDim

i%ReDim

fib(1

To

10)

As

Longfib(1)

=

1fib(2)

=

1For

i

=

3

To

10fib(i)

=

fib(i

-

1)

+

fib(i

-

2)Next

iFor

i

=

1

To

10

Print

fib(i)

Next

iEnd

SubVisual

Basic程序设计计算5个人的平均分和高于平均分的人数。Private

Sub

Command2_Click()Dim

grade()

As

Single,

avg!Dim

i%,

overavg%ReDim

grade(1

To

5)For

i

=

1

To

5grade(i)=InputBox("请输入第"&

i

&"个数")Next

iavg

=

0For

i

=

1

To

5avg

=

avg

+

grade(i)Next

iavg

=

avg

/

5overavg

=

0For

i

=

1

To

5If

grade(i)

>

avg

Then

overavg

=

overavg

+

1Next

iPrint

avg,

overavgEnd

SubVisual

Basic程序设计1.数组赋初值

(1)用循环Fori

=

1

To

10A(i)=i+3Next

i注意：利用Array对数组各元素赋值，声明的数组是变长数组或连圆括号都可省的变量，并且其类型只能是Variant。数组的下界为零，也可由Option

Base决定。上界可由Array函数括号内的参数个数决定，也可通过函数Ubound获得。格式：UBound(数组名[，N]）其中N指定返回哪一维的上界。(2)Array函数(只能是一维变体数组)Dim

b

As

Variantb

=

Array("abc",

"def",

"67")For

i

=

0

To

UBound(b)Print

b(i);

"

";Next

i5.2数组的基本操作Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a

As

Variant,

b

As

VariantDim

i%a

=

Array(1,

2,

3,

4,

5)b

=

Array("aaa",

"bbb",

"ccc",

"ddd")For

i

=

0

To

UBound(a)Print

a(i)Next

iFor

i

=

LBound(b)

To

UBound(b)Print

b(i)Next

iEnd

Sub数组赋值示例Visual

Basic程序设计2.数组的整体赋值在VB6.0中，提供了数组直接对数组的赋值。例如：Dim

a()As

Variant,b()As

Variant,i%a

=

Array(1,

2,

3,

4,

5)b

=

aReDim

b(UBound(a))For

i

=

0

To

UBound(a)b(i)

=

a(i)Next

i注意：赋值号两边的数据类型必须一致。赋值号左边的数组只能声明为变长数组。如果赋值号左边是一个定长数组，则数组赋值出错。Visual

Basic程序设计Private

Sub

Command2_Click()Dim

a(1

To

5)

As

Integer,

i%Dim

b()

As

Integera(1)

=

1:

a(2)

=

2:

a(3)

=

3:

a(4)

=

4:

a(5)

=

5b

=

aFor

i

=

1

To

5Print

b(i)Next

iEnd

Sub数组间直接赋值Visual

Basic程序设计3.数组的输入对于数组的输入，可用文本框加些技术处理，也可用InputBox函数。例如：For

i=0

to

3for

j=0

to

4a(i,j)=InputBox(“输入”&

i

&“,”&

j

&“的值”)next

jNext

iVisual

Basic程序设计4.数组的输出例5.3

形成5×5的方阵，分别输出方阵中各元素、上三角和下三角元素。方阵规律：第一行的元素为0~4，以后每一行是前一行对应元素增加5,即s(i,j)=

i*5+j上三角规律:每一行的起始列与行号相同,只要控制内循环的初值。用Tab函数或Space定位控制输出的空格。Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a(0

To

4,

0

To

4)

As

IntegerDim

i%,

j%For

i

=

0

To

4For

j

=

0

To

4a(i,

j)

=

i

*

5

+

jNext

jNext

iFor

i

=

0

To

4For

j

=

i

To

4Print

Tab(j

*

7

+

1);

a(i,

j);Next

jPrintNext

iEnd

SubVisual

Basic程序设计两个3*3矩阵相加Private

Sub

Command1_Click()Dim

a(1

To

3,

1

To

3)

As

SingleDim

b(1

To

3,

1

To

3)

As

SingleDim

c(1

To

3,

1

To

3)

As

SingleDim

i%,

j%For

i

=

1

To

3For

j

=

1

To

3a(i,

j)

=

Rnd()

*

10:

b(i,

j)

=

Rnd()

*

10c(i,

j)

=

a(i,

j)

+

b(i,

j)Next

jNext

iFor

i

=

1

To

3For

j

=

1

To

3Print

c(i,

j),Next

jPrintNext

iEnd

SubVisual

Basic程序设计5.求数组和、最值、位置例5.4

求一维数组中各元素之和、最小数组元素，并将最小值数组元素与数组中第一个元素交换。求元素和：通过循环将每个元素进行累加。求数组中最小元素：假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现小于最小值，就用新值替换最小值，同时记录下标值。求最大值的方法与求最小值相似。Visual

Basic程序设计Private

Sub

Command2_Click()Dim

a,

i%Dim

max,

maxia

=

Array(10,

1,

9,

3,

99,

12)For

i

=

0

To

UBound(a)Print

a(i)Next

imax

=

a(0):

maxi

=

0For

i

=

1

To

UBound(a)If

a(i)

>

max

Then

max

=

a(i):

maxi

=

iNext

iPrint

maxi,

maxEnd

Sub求若干个数的最大值及其所在下标Visual

Basic程序设计4、逆序元素012345678926436187331937597669下标初值下标交换012345678969765937193387614326本章目Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a(1

To

9)

As

Integer,

i%,

t%RandomizeFor

i

=

1

To

9a(i)

=

Int(Rnd()

*

10)Print

a(i),Next

iPrintFor

i

=

1

To

9

\

2t

=

a(i)a(i)

=

a(10

-

i)a(10

-

i)

=

tNext

iFor

i

=

1

To

9Print

a(i),

Next

iPrintEnd

Sub逆序一个数组Visual

Basic程序设计按下图交换，怎么处理012345678926436187331937597669下标初值下标交换012345678919436187332637597669本章目Visual

Basic程序设计5.3控件数组1控件数组的概念控件数组由一组相同类型的控件组成。它们共用一个控件名，通过索引加以区别。第一个控件的index为0.Visual

Basic程序设计2控件数组的建立（1）在设计时建立①

先在窗体上画出某控件。②

选中该控件，进行copy和paste操作。③

进行控件的事件编程。Visual

Basic程序设计Visual

Basic程序设计Private

Sub

Command1_Click(Index

As

Integer)Select

Case

IndexCase

0Label1.Caption="第一个按钮"Case

1Label1.Caption="第二个按钮"Case

2Label1.Caption="第三个按钮"Case

3Label1.Caption="第四个按钮"End

SelectEnd

SubVisual

Basic程序设计2控件数组的建立（2）运行时添加控件数组①

先在窗体上画出某控件，设置它的index为0。②

用load方法添加其余的若干个元素。③

对新加进的控件设置其属性。Visual

Basic程序设计例5.4建立一个国际象棋棋盘。Visual

Basic程序设计Private

Sub

Form_Load()Dim

i%,

c%,

r%For

i

=

1

To

64r

=

(i

-

1)

\

8

c

=

(i

-

1)

Mod

8Load

Label1(i)Label1(i).Caption

=

iLabel1(i).Visible

=

TrueLabel1(i).Top

=

r

*

50Label1(i).Left

=

c

*

50Label1(i).BackColor

=

IIf((r

+

c)

Mod

2

=

0,

&HFFFFFF,

&H0)Next

iLabel1(0).Visible

=

FalseEnd

SubVisual

Basic程序设计Private

Sub

Label1_Click(Index

As

Integer)Dim

i%Label1(i).Caption

=

iFor

i

=

1

To

64If

Label1(i).BackColor

=

&H0

ThenLabel1(i).BackColor

=

&HFFFFFFElseLabel1(i).BackColor

=

&H0End

IfNext

iEnd

SubVisual

Basic程序设计5.4

自定义类型及数组5.4.1自定义类型的定义数组存放性质相同的数据集合。若不同类型信息作为一个整体来描述，例如姓名、性别、出生年月等，通过Type语句来实现。Type自定义类型名元素名1

As类型名…元素名n

As类型名End

Type其中：元素名：表示自定义类型中的一个成员，可以是简单变量，也可以是数组。类型名：可以是标准类型，也可以是自定义类型。Visual

Basic程序设计例如，定义一个有关学生信息的类型：Type

StudTypeName

As

String*5Sex

As

String*1Telephone

As

Long"StudType为自定义类型名"姓名"性别"电话School

As

String*10"学校

End

Type自定义类型不能在过程内定义，一般放在标准模块文件，默认为Public；若在窗体模块的通用声明段定义，必须加Private。自定义类型中的元素类型可以是字符串，但应是定长字符串。Visual

Basic程序设计5.4.2自定义类型变量的使用1.自定义类型变量的声明定义了自定义类型，就可在变量的声明时使用。Dim变量名As自定义类型名例如，如下语句：Dim

S1

As

StudType，S2

As

StudType声明S1、S2为两个同种类型的变量

注意：不要混淆StudType和S1，前者如同Integer等的类型名，后者根据该类型分配所需的内存空间，存储各成员数据。类型变量和数组相同之处它们都是由若干个成员组成；不同之处，前者的成员代表不同性质、不同类型的数据，以各个不同的成员名表示；而数组一般存放的是同种性质、同种类型的数据，以下标表示不同的元素。Visual

Basic程序设计2.自定义类型变量成员的引用引用自定义类型变量中的某个成员，形式如下：自定义类型变量名.成员名例如，S1.NameS1.SexS1变量中的姓名性别可利用With语句简化成员引用：With结构变量对象名语句块End

WithWith

S1.Name="张华".Sex="男".School="同济大学"End

WithVisual

Basic程序设计自定义类型一般在标准模块中定义Visual

Basic程序设计然后在窗体代码中定义该类型的变量Private

Sub

Command1_Click()Dim

s1

As

studTypeDim

i%s1.no

=

123

=

"aaa"s1.mark(1)

=

70s1.mark(2)

=

89s1.mark(3)

=

94Print

s1.noPrint

For

i

=

1

To

3Print

s1.mark(i)Next

iEnd

SubVisual

Basic程序设计5.4.3自定义类型数组及应用自定义类型数组就是数组中的每个元素是自定义类型。例5.13用自定义类型数组,查询和显示学生信息。分析：自定义一个记录类型，由姓名、性别、电话、学校组成，声明一个存放100个记录的数组。Visual

Basic程序设计例5.5

p116利用自定义类型数组，编写一模拟数据库记录输入、显示和查询的程序Visual

Basic程序设计Private

Type

StudName

As

String

*

10Special

As

String

*

10Total

As

SingleEnd

TypeDim

stu(1

To

20)

As

StudDim

n%,

i%Visual

Basic程序设计Private

Sub

Command1_Click(Index

As

Integer)Select

Case

IndexCase

0If

n

<

20

Thenn

=

n

+

1stu(n).Name

=

Text1.Textstu(n).Special

=

Text2.Textstu(n).Total

=

Val(Text3.Text)End

IfText1.Text

=

""Text2.Text

=

""Text3.Text

=

""Case

1If

i

>

1

Then

i

=

i

-

1If

i

>=

1

ThenText1.Text

=

stu(i).NameText2.Text

=

stu(i).SpecialText3.Text

=

stu(i).TotalEnd

IfVisual

Basic程序设计Case

2If

i

<

n

Then

i

=

i

+

1If

i

<=

n

ThenText1.Text

=

stu(i).NameText2.Text

=

stu(i).SpecialText3.Text

=

stu(i).TotalEnd

IfCase

3End

SelectLabel4.Caption

=

i

&

"/"

&

nEnd

SubVisual

Basic程序设计5.5 常用算法（二）1.分类统计将一批数据按条件统计每一类中包含的个数。例如，统计学生成绩优、良、中、及格、不及格人数。这类问题要掌握分类条件表达式的书写和使用计数变量保存相应的计数。Visual

Basic程序设计例5.6输入一个字符串，分别统计字母字符、数字字符和其他字符出现的次数。Private

Sub

Command1_Click()Dim

s

As

String,

c

As

String

*

1Dim

i%,

m%,

n%,

k%m

=

0:

n

=

0:

k

=

0s

=

Text1.TextFor

i

=

1

To

Len(s)c

=

Mid(s,

i,

1)If

c

>=

"a"

And

c

<=

"z"

Or

c

>=

"A"

And

c

<=

"Z"

Thenm

=

m

+

1ElseIf

c

>=

"0"

And

c

<=

"9"

Thenn

=

n

+

1Elsek

=

k

+

1End

IfNext

iPrint

m,

n,

kEnd

SubVisual

Basic程序设计2.大量数据的输入和编辑在财务、工程计算中，经常需要对大量的数据进行输入和编辑。可利用文本框通过编程来实现。例5.15输入一系列的数据，输入结束将它们按分隔符分离后存放在数组中。对输入的数据允许修改和自动识别非数字数据。利用文本框输入和编辑数据；利用Replace函数去除重复输入的分隔符。利用Split函数将输入的内容分离到数组中。Visual

Basic程序设计P120字符数据的分拆与合并Visual

Basic程序设计Dim

a()

As

StringPrivate

Sub

Command1_Click()Dim

s

As

StringDim

i%s

=

Text1.Texts

=

Replace(s,

",,",

",")a

=

Split(s,

",")For

i

=

0

To

UBound(a)Picture1.Print

a(i)Next

iEnd

SubPrivate

Sub

Command2_Click()Text2.Text

=

Join(a,

"

")

End

SubVisual

Basic程序设计Private

Sub

Text1_KeyPress(KeyAscii

As

Integer)Dim

s

As

String

*

1s

=

Chr(KeyAscii)Select

Case

sCase

"0"

To

"9",

","•Case

ElseKeyAscii

=

0End

SelectEnd

Sub输入数字，取出非法字符Visual

Basic程序设计3.数组排序排序是将一组数按递增或递减的次序排列，例如按学生的成绩、球赛积分等排序。排序的算法有许多，常用的有选择法、冒泡法、插入法、合并排序等。（1）选择法排序基本思想：每次在若干个无序数中找最小(大)数，并放在相应的位置。Visual

Basic程序设计n个数的序列，用选择法按递增次序排序的步骤：从n个数中找出最小数的下标，出了内循环，最小数与第1个数交换位置；通过这一 轮排序，第1个数已确定好。除已排序的数外，其余数再按步骤1)的方法选出最小的数，与未排序数中的第1个数交换位置。重复步骤2)，最后构成递增序列。Visual

Basic程序设计例5.5

对已知存放在数组中的6个数，用选择法按递增顺序排序。选择法排序过程示意选择法演示Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a()

As

VariantDim

n%,

i%,

j%,

t%,

imin%a

=

Array(1,

5,

13,

8,

3,

2,

4)n

=

UBound(a)For

i=0

To

n‘输出原数组Print

a(i),Next

iPrintFor

i

=

0

To

n-1imin

=

iFor

j

=

i

+

1

To

nIf

a(j)

<

a(imin)

Then

imin

=

jNext

jt

=

a(i)a(i)

=

a(imin)a(imin)

=

tNext

iFor

i=0

To

n‘输出排序后的数组Print

a(i),Next

iPrintEnd

Sub选择排序Visual

Basic程序设计（2）冒泡法排序基本思想是：从第一个元素开始，对数组中两两相邻的元素比较，将值较小的元素放在前面，值较大的元素放在后面，一轮比较比较完毕，一个最大的数沉底成为数组中的最后一个元素，一些较小的数如同气泡一样上浮一个位置。n个数，经过n-1轮比较后完成排序。Visual

Basic程序设计例5.6

用冒泡排序法实现例5.5的问题。冒泡法演示Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a

As

VariantDim

i%,

j%,

n%,

t%a

=

Array(3,

78,

5,

4,

12,

7,

1)n

=

UBound(a)For

i=0

To

n"排序前Print

a(i),Next

iPrintFor

i=0

To

n-1"走n趟For

j=0

To

n-1If

a(j)>a(j+1)Then"前一个比后一个大t

=

a(j):

a(j)

=

a(j

+

1):

a(j

+

1)

=

tEnd

IfNext

jNext

iFor

i=0

To

n"排序后Print

a(i),Next

iPrintEnd

Sub冒泡排序Visual

Basic程序设计7.在有序数组中插入数据插入数据基本思想是：首先查找待插入数据在数组中的位置k；然后从最后一个元素开始往前到下标为k的元素依次往后移动一个位置；3)第k个元素的位置腾出，将数据插入。Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a

As

Variant,

i%,

n%,

x%,

j%a

=

Array(1,

2,

6,

9,

14,

18,

21,

0)x

=

5n

=

UBound(a)n=n-1"不算最后的0For

i=0

To

n"输出原数组Print

a(i),Next

iPrintFor

i=0

To

n"找到插入的位置If

x<a(i)Then

Exit

For

Next

iFor

j

=

n

To

i

Step

-1a(j

+

1)

=

a(j)Next

ja(i)=x"插入xFor

i=0

To

n+1"输出原数组Print

a(i),Next

iPrintEnd

Sub在有序数组中插入一个元素Visual

Basic程序设计Private

Sub

Form_Click()Dim

a(),

i%,

k%,

x%,

n%a

=

Array(1,

4,

7,

9,

12,

23,

56)n

=

UBound(a)x=InputBox("输入要插入的数")For

k=0

To

n

"查找欲插入数x在数组中的位置"数组增加一个元素"数组元素后移一位，腾出位置If

x

<

a(k)

Then

Exit

ForNext

kReDim

Preserve

a(n

+

1)For

i

=

n

To

k

Step

-1a(i

+

1)

=

a(i)Next

i"数x插入在对应的位置，使数组保持有序

"显示插入后的各数组元素a(k)

=

xFor

i

=

0

To

n

+

1Print

a(i);Next

iEnd

Sub例5.7在有序数组a中插入数值x。另做Visual

Basic程序设计8.删除数据删除操作首先也是要找到欲删除的元素的位置k；然后从k+1到n个位置开始向前移动；最后将数组元素减1。例5.8将任意输入的值进行判断是否存在，若存在就将此元素删除。数据删除演示Visual

Basic程序设计Private

Sub

Command1_Click()Dim

a()

As

Variant,

x%,

i%,

n%,

j%a

=

Array(1,

7,

5,

9,

8,

13,

100)n

=

UBound(a)For

j=0

To

n’输出原数组Print

a(j),Next

jPrintx

=

5For

i=0

To

n"找到元素所在位置If

a(i)=x

Then

Exit

ForNext

iIf

i>n

Then

Print"找不到",xExit

Sub"退出

End

IfFor

j

=

i

To

n

-

1a(j)

=

a(j

+

1)NextFor

j=0

To

n–1‘输出现数组Print

a(j),Next

jPrintEnd

SubVisual

Basic程序设