二级VB分类习题

二级VB分类习题

第一章

1.在Visual Basic设计界面中不能隐藏的窗口是 A 。

A)工程窗口

B)属性窗口

C)立即窗口

D)窗体窗口

2.以下可以构成语句的一项是 B 。

A)对象名.属性

B)对象名.方法名

C)对象名.事件名

D)对象名.函数名

VB集成的主窗口中不包括（）

A)属性窗口

B)标题栏

C)菜单栏

D)工具栏

3.以下不是 Visual Basic 的特点的选项是 B 。

A)可视编程

B)算法设计

C)事件驱动

D)面向对象

4.在Visual Basic中通过属性来设置字体的颜色 A 。

A)FontColor

B)ClipControl

C)BackColor

D)ShowColor

5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用属性 D 。

A)ControlBox

B)ClipControl

C)BordeStyle

D)AutoRedraw

6.Move方法的一般形式是［对象名.］Move A［,B［,C［,D］］］,其中B指的是 B 。

A)Left

B)Top

C)Width

D)Height

7. C 是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A)文件

B)属性

C)方法

D)窗体

8.以下不属于同类的是 A 。

A)Click

B)Name

C)Caption

D)Top

9.当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是 B 。

A)AutoSize属性

B)Resize事件

C)AutoRedraw属性

D)Stretch方法

10.对象可以识别和响应的某些行为称为 D 。

A)属性

B)方法

C)继承

D)事件

11.与传统的程序设计语言相比，Visual Basic最突出的特点是 C 。

A)结构化程序设计

B)程序开发环境

C)事件驱动编程机制

D)程序调试技术

12.在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Basic的是 D 。

A)通过“开始”菜单中的“程序”命令

B)通过“我的电脑”找到vb6.exe，双击该文件名

C)通过“开始”菜单中的“运行”命令

D)进入DOS方式，执行vb6.exe文件

13.为了用键盘打开菜单和执行菜单命令，第一步应按的键是 A 。

A)功能键F10或Alt键

B)Shift+功能键F4

C)Ctrl或功能键F8

D)Ctrl+Alt键

14.Visual Basic 6.0集成环境的主窗口中不包括 C 。

A)标题栏

B)菜单栏

C)状态栏

D)工具栏

15.用标准工具栏中的工具按钮不能执行的操作是 B 。

A)添加工程

B)打印源程序

C)运行程序

D)打开程序

16.Visual Basic窗体设计器的主要功能是 A 。

A)建立用户界面

B)编写源程序代码

C)画图

D)显示文字

17.在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是 B 。

A)编写代码

B)新建一个工程

C)打开属性窗口

D)进入Visual Basic环境

18.下列不属于Visual Basic特点的是 C 。

A)对象的链接与嵌入

B)结构化程序设计

C)编写跨平台应用程序

D)事件驱动程序编程机制

19.下列不是Visual Basic 6.0中打开工程的方法为 A 。

A)按Alt+O组合键

B)执行"文件"菜单中的"打开工程"命令

C)按Ctrl+O组合键

D)单击标准工具栏上的"打开工程"按钮

20.下面关于Visual Basic 6.0工具栏的说法不正确的是 B 。

A)工具栏的位置可以任意改变

B)工具栏一定在菜单栏的下方

C)工具栏可以显示或隐藏

D)Visual Basic有多个工具栏

1.在对象名与事件名之间用 _- 符号连接。窗体的对象名用表示 Form 。

2.Visual Basic的窗体和控件是具有自己的属性、事件和方法的对象。

3.窗体和控件的大部分属性可以通过属性窗口设置，也可以通过事件代码设置。

4.在面向对象程序设计中，对象是一个由代码和事件组成的概念。

5.Visual Basic中的对象包括窗体、控件和可访问的实体。

https://www.360docs.net/doc/f05317292.html,属性的含义是对象的名称，窗体的默认Name属性是 Form1 。

10.窗体对象可以识别KeyPress，KeyUp，KeyDown事件，在按下某键时，这3个事件发生的顺序是：KeyDown 、 KeyPress 、 KeyUp 。

11.传统的程序设计语言主要是面向过程式的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向对象进行程序设计的。

12.Visual Basic 6.0分为3种版本，这3种版本是学习版、专业版和企业

版。其中，最完整的是企业版。

13.可以通过 Alt+F4 快捷键或 Alt+Q 快捷键退出Visual Basic。

14.Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在设计状态或

运行状态或中断状态。

15.窗体布局窗口的主要功能是设置程序运行时各个窗体在屏幕上的显示位置。

16.菜单命令中有“…”标记表示该命令是一个打开对话框的命令。

17.默认情况下，工具箱中只显示内部控件控件。

18.在Visual Basic中，所有窗体或控件的大小都是以缇 Twip 为单位的。

19.Visual Basic使用的是 Unicode 字符集。

20 使用Visual Basic 6.0开发的应用程序，最多可以有 255 个窗体。

第二章

1.设置标签边框的属性是 A 。

A）BorderStyle

B）BackStyle

C）AutoSize

D）Alignment

2.要使标签所在处透明显示背景，应把其BackStyle属性设置为 A 。

A）0

B）1

C）True

D）False

3.以下不具有Picture属性的对象是 D 。

A）窗体

B）图片框

C）图像框

D）文本框

4.决定控件上文字的字体、字形、字号、效果的属性是 D 。

A）Text

B）Caption

C）Name

D）Font

5.决定一个窗体有无控制菜单的属性是 D 。

A）MinButton

B）Caption

C）MaxButton

D）ControlBox

6.任何控件都具有 C 属性。

A）Text

B）Caption

C）Name

D）ForeColor

7.为了把焦点移到某个指定的控件，所使用的方法是 A 。

A）SetFocus

B）Visible

C）Refresh

D）GetFocus

8.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是 C 。

B）Change

C）Scroll

D）Setfocus

9.假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是 A 。

A）单击窗体上没有控件的地方

B）单击任一个控件

C）不执行任何操作

D）双击窗体的标题栏

10.为了把窗体上的某个控件变为活动的，应执行的操作是 B 。

A）单击窗体的边框

B）单击该控件的内部

C）双击该控件

D）双击窗体

11.确定一个控件在窗体上的位置的属性是 D 。

A）Width或Height

B)Width和Height

C)Top或Left

D)Top和Left

14.能够获得一个文本框中被选取文本的内容的属性是 C 。

A)Text

B)Length

C)Seltext

D)SelStart

15.要使标签能够显示所需要的文本，则在程序中应设置 A 属性的值。

A)Caption

B)Text

C)Name

D)AutoSize

16.要使一个命令按钮成为图形命令按钮，则应设置其 B 属性值。

A)Picture

B)Style

C)DownPicture

D)DisabledPicture

17.要使标签中的文本靠右显示，则应将其Alignment属性设置为 B 。

A)0

B)1

C)2

D)3

18.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 D 。

A)Value

B)Cancel

C)Enabled

19.下列语句中正确的是 D 。

A)txt1.Text+txt2.Text=txt3.Text

B)https://www.360docs.net/doc/f05317292.html,=cmdOK

C)12Label.Caption=1234

D)Text1="123"

20.如果要在文本框中输入字符时，只显示某个字符，如星号（*），应设置文本框的 B 属性。

A)Caption

B)PassWordChar

C)Text

D)Char

1.Visual Basic中的控件分为3类，它们是标准控件、 ActiveX控件和可插入对象。

2.一个控件在窗体上的位置由和属性决定，其大小由和属性决定。

4．要想在文本框中显示垂直滚动条，必须把 ScollBars 属性设置决定为2，同时还应把属性 Multiline 设置为 True 。

5．窗体、图片框或图像框中的图形通过对象的 Picture 属性设置。

6．计时器事件时间的间隔通过 InterVal 属性设置。

7．有时候需要暂时关闭计时器，这可以通过 Enabled 属性来实现。

8．为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图片框的Stretch 属性设置为 True 。

10．能够改变窗体边框线类型的属性是 Bordstyle 。

17．要把一个命令按钮设置成无效，应设置 Enabled 属性值。

第三章

1.有如下程序：

m="ABC"

n="abc"

k=LCase(m)

j=UCase(n)

Print Asc(k+j)

End

运行后输出的结果是 D 。

A）abcabc

B）ABCABC

C）65

D）97

2.有如下程序：

a=6;b=8

F=Sqr(a*a+b*b)

Print F

运行后输出的结果是 C 。

A）6

B）8

C）10

D）14

3.有如下程序：

Dim a As String,b As String

a="12345",b="abcde"

For i=1 To 5

c=c+Left(a,i)+Right(b,i)

Next i

Print c

运行后输出的结果是 D 。

A)a1b2c3d4e5

B)1a2b3c4de5

C)e1d2c4b5e1d2c3b4a5

D)1e12de123cde1234bcde12345abcde

4.下面表达式中， D 的运算结果与其他3个不同。

A)log(Exp(-3.5))

B)Int(-3.5)+0.5

C)-Abs(-3.5)

D)Sin(30*3.14/180)

5.设m，n是整数，且n>m,在以下4个语句中，能将x赋值为一个m～n之间（含m，n）任意整数，即满足m≥x≥n的是 C 。

A）X=INT（RND*（N-M+1））+M

B）X=Int(Rnd*n)+m

C)X=Int(Rnd*m)+n

D)X=Int(Rnd*(n-m)+m

6.在以下4个逻辑表达式中，其逻辑值为"真"的是 D 。

A）Not (3+4<4+6)

B）2>1 And 3<2

C)1>2 Or 2>3

D)Not (1>2)

7.执行以下程序段后，变量C＄的值为 D 。

A＄="Visual Basic Programing"

B＄="Quick"

C＄=B& & Ucase(Mid&(A&,7,6)) & Right&(A$,11)

A)Visual BASIC Programing

B)QuickBasic Programing

C)QUICK Basic Programing

D)Quick BASIC Programing

8.语句X=X+1的正确含义是 C 。

A）变量X的值与X+1的值相等

B）将变量X的值存到X+1中去

C）将变量X的值加1后赋给变量X

D）变量X 的值为1

10.如下程序：

Private Sub Form_Click()

a=20:b=20:c=120:d=120

Form.Line(a,b)-(c,d),,BF

End Sub

单击窗体后，窗体上显示的是 C 。

A）一条直线

B）一个矩形空框

C）一个填充了颜色的矩形

D）无任何图形

14.执行以下语句的输出结果是 C 。

Print Format(32548.5, "000,000.00")

A)32548.5

B)32,548.5

C)032,548.50

D)32,548.50

16 表达式Left("how are you",3)的值是 A 。A）how

B）are

C）you

D）how are you

17.表达式Abs(-5)+Len("ABCDE")的值是 C 。A）5ABCDE

B）-5ABCDE

C）10

D）0

18.函数Int(Rnd*6+1)的取值范围是 C 。

A）从1到7共7个整数

B）从0到7共8个整数

C）从1到6共6个整数

D）从0到6共7个整数

19.有如下程序：

a=3:b=4

Print b>a

End

运行后，输出结果是 A 。

A）Ture

B）False

C）4>3

D）显示出错信息

20.有如下程序：

DefStr X-Z

X="123"

Y="456"

Z=X＄+Y＄

Print Z＄

End

运行后，输出结果是 B 。

A）显示出错信息

B）123456

C）“579”

D）579

1.窗体上有一个按钮和一个列表框（Sorted属性为True），执行下列过程后的输出结果为。Private Sub Command1_Click()

List1.AddItem "China"

List1.AddItem "Great"

List1.AddItem "Is",1

List1.AddItem "!",3

Print List1.List(2)

End Sub

A）China

B）Great

C）Is

D）!

2.使用方法不能让控件获得焦点。

A）通过Tab切换

B）单击该控件

C）使用SetFocus方法

D）使用键盘上的方向键

3.若想要建立一个学生管理系统的输入界面，其中要求选择学生的性别/政治面貌（党/团/群众）及选课情况（共有5门课，可任选），下列设置方法正确的是。

A）将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选按钮来表示

B）将5门课程用一组5个选择框来表示，用两个框架分别将性别用两个单选按钮，政治面貌用3个单选按钮来表示

C）将5门课程用一组5个单选按钮来表示，将性别和政治面貌用5个选择框来表示

D）用一组10个选择框来表示课程、性别和政治面貌

4.下列不是标准控件的是。

A）图像框

B）图片框

C）框架

D）对话框

5.列表框中TabIndex属性表示的意义是。

A）被选中列表项的序号

B）列表框的项的总数

C）列表框获取Tab焦点的序号

D）无此属性

6.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是。

Private Sub Command1_Click()

Picture1.Picture=LoadPicture("c:＼1.jpg")

Picture1.Cls

Picture1.Print "Test"

End Sub

A)窗体无显示，图片框显示图片和文字Test

B)窗体上出现Test文本，图片框无显示

C)窗体上出现Test文本，图片框显示图片1.jpg

D)窗体无显示，图片框只显示Test文字

7.以下不属于标签属性的是。

A）Font

B）Value

C）Caption

D）Index

8.窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输

出结果为。

Private Sub Command1_Click()

Dim A As Integer,B As Integer

Text1. SelStart=2

Text1.SelLength=2

A=Val(Text1.SelText)

B=Len(Text1.Text)

Print A*B

End Sub

A）68

B）115

C）170

D）1170

9.以下控件没有Click事件是。

A)TextBox

B)Label

C)Timer

D)Image

10.可以接受焦点的控件是。

A）Frame

B）Command

C）Label

D）Timer

11.给程序的空白行选择适当的语句。

窗体上有一个命令按钮Command2和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：

Private Sub Command2_Click（）。

Dim Ind As Integer

Ind=

List1.Remove Ind

End Sub

A）List1.Index

B）List1.ListIndex

C）List1.Text

D）List1.ListCount

12.下列关于图片框的语句中错误的是。

A）Picture1.Picture=Picture2.Picture

B）Picture1.Picture=LoadPicture("C:＼vb60＼Arw04Up.ico")

C）Picture1.Print Tab(20); CurrentX, CurrentY

D）Picture1.Stretch=True

13.关于Image控件和PictureBox控件的说明，其中错误的是。

A）Image控件和PictureBox控件都有Picture属性

B）Image控件和PictureBox控件都支持Print方法

C）Image控件和PictureBox控件都可以用LoadPicture函数把图形文件装入控件中

D)Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件

14.许多常用控件都有Value属性，Value属性的作用是。

A）确定控件的属性

B）确定控件的位置

C）确定控件的状态和位置

D）确定控件的状态、内容及位置

15.窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性能设置为。

A）Label1.BackStyle=0

Label1.BorderStyle=0

B）Label1.BackStyle=1

Label1.BorderStyle=1

C）Label1.BackStyle=true

Label1.BorderStyle=true

D）Label1.BackStyle=False

Label1.BorderStyle=False

16.窗体上有一个列表框和一个文本框，编写如下两个事件过程：

Private Sub Form_Load()

List1.AddItem "Beijing"

List1.AddItem "Tianjin"

List1.AddItem "Shanghai"

Text1.Text=""

End Sub

Private Sub List1_Click()

x=List1.Text

Print x+Text1.Text

End Sub

程序运行后，在文本框中输入“China”，然后单击列表框中的“Shanghai”，则输出结果为。A）China Beijing

B）China Tianjin

C）China Shanghai

D）Shanghai China

17.为了暂时关闭计时器，应把该计时器控件的属性设置为False。

A）Visible

B）Timer

C）Enabled

D）Interval

18.下列各控件不包含有滚动条的控件是。

A）ListBox

B）ComboBox

C）TextBox

D）LabelBox

19.下列每组控件中，都包含有滚动条的一组控件是。

A）ListBox和LabelBox

B）TextBox和DriveListBox

C）ComboBox和CheckBox

D）FileListBox和DirListBox

20.给程序的空白行选择适当的语句。

程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。程序如下：

Do While List2.ListCount

List2.RemoveItem 0

Loop

A）List1.AddItem List2.List(0)

B）List1.AddItem List2.Text

C）List2.AddItem List1.List(0)

D）List2.AddItem List1.Text

1.使用Timer控件和Label控件来显示时间（每隔1秒显示一次），完成此程序。

Private Sub Form_Load()

=10000

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

End Sub

2.若要求输入密码时文本框中只显示*号，则应当在此文本框的属性窗口中设置属性。

3.图像框和图片框在使用时有所不同，这两种控件中，能作为容器容纳其他控件的是。

4.设计两个CheckBox，一个显示粗体，一个显示斜体，通过对CheckBox的选择，在一个文本框中显示相应效果的文本，完成下列程序。

Private Sub Form_Load()

Check1.Caption="显示粗体"

Check2.Caption="显示斜体"

Text1.Text="Visual Basic 6.0"

End Sub

Private Sub Check1_Click()

If =1 Then

Text1.FontBold=True

Else

Text1.FontBold=False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value=1 Then

Text1. =True

Else

Text1. =False

End If

End Sub

5.某程序列表框中有许多项，现在用Timer控件控制时间，100毫秒删除一项，直到删完为止，用一滚动条来显示已删除的项目，完成此程序。

Private Sub Command1_Click()

Hscroll1.Min=0

HScroll1.Max=

HScroll1.Value=0

Timer1. =100

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If List.ListCount>0 Then

List1.RemoveItem(0)

HScroll1.Value= -List1.ListCount

Else

Timer1.Enabled=False

MsgBox "全部删除！"

End If

End Sub

6.在程序中动态地给图片框加载图像文件的函数为。

7.为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True。

8.编程实现加法计算，在两个文本框中Text1和Text2输入加数，用标签Label1表示结果，单击按钮进行计算，完成下列计算过程。

Private Sub Command1_Click()

Dim A As Integer,B As Integer

A=

B=Val(Text2.Text)

=A+B

End Sub

9.为了使标签自动调整大小以显示全部文本内容，应把标签的属性设置为True。

10.要想在文本框中显示垂直滚动条，必须把属性设置为2，同时还应把属性设置为。

11.假定一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是。

12.为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为，并把Backstyle属性设置为。

13.窗体、图片框或图像框中的图形通过对象的属性设置。

14.计时器事件之间的间隔通过属性设置。

15.有时候需要暂时关闭计时器，这可以通过属性来实现。

16.在窗体上画一个列表，然后编写如下两个事件过程：

Private Sub Form_Click()

List1.RemoveItem 1

List1.RemoveItem 2

End Sub

Private Sub Form_Load()

List1.AddItem "ItemA"

List1.AddItem "ItemB"

List1.AddItem "ItemC"

List1.AddItem "ItemD"

List1.AddItem "ItemE"

End Sub

运行上面的程序，然后单击窗体，列表框中显示的项目是。

17.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Text1.Text="VB程序设计"

End Sub

Private Sub Text1_Change()

Picture1.Print "VB Programming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容

是。

18.Text文本框接受的最长字符数有文本框的属性确定。

19.把“Visual Basic程序设计”添加到列表框lstBooks的语句为。

20.程序运行时，单击水平滚动条右边的箭头时，滚动条的Value属性值将。

1.如下程序运行后输出的结果是。

x=0

For k=3 To 5

x=x+2

s=s+x

Next k

Print s

A）3

B）12

C）6

D）9

2.下述程序的功能是。

x="((a+B)*A)-(a*b+C)"

n=Len(x)

m=0

For k=1 To n

p&=Mid(x,k,1)

If p&="(" Then

m=m-1

ElseIf p&=")" Then

m=m+1

End If

If m>0 Then

Print ":-p"

End If

Next k

Print ":-)"

A）统计输入的字符串中括号的总数

B）统计输入的字符串中匹配的括号的对数

C）检查输入的字符串中的括号是否能够匹配

D）删除字符串的括号

3.下述程序段中，与其他3个程序段作用不同的是。A）s=0

i=0

While i>100

s=s+i

Wend

B）s=0

i=0

While i<100

i=i+1

Wend

C）s=0

i=1

Do While i<100

s=s+1

Loop

D）s=0

i=0

Do Until i>100

s=s+1

Loop

4.下列程序段的执行结果为。a=0:b=1

Do

a=a+b

b=b+1

Loop While a<10

Print a;b

A）10 5

B）a b

C）0 1

D）10 30

5.下列程序的运行结果是。

s=0:t=0:u=0

For x=1 To 3

For y=1 To x

For z=y To 3

s=s+1

Next z

t=t+1

Next y

u=u+1

Next x

Print s;t;u

A）3 6 14

B）14 6 3

C）14 3 6

D）16 4 3

6.下述程序的运行结果是。

j=0

Do While j<30

j=(j+1)*(j+2)

k=k+1

Loop

Print k;j

A）0 1

B）3 182

C）30 30

D）4 30

7.下列程序的执行结果为。

n=0

j=1

Do Until n>2

n=n+1

j=j+n*(n+1)

Loop

Print n;j

A）0 1

B）3 7

C）3 21

D）3 13

8.在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1，输出结果为。

Private Sub Command1_Click()

x=0

Do Until x=-1

a=Val(InputBox("请输入A的值"))

b=Val(InputBox("请输入B的值"))

x=Val(InputBox("请输入X的值"))

a=a+b+x

Loop

Print a

End Sub

A）2

B）3

C）14

D）15

9.下面的数组声明语句中是正确的。

A）Dim A［3,4］As Integer

B）Dim A（3,4）As Integer

C）Dim A［3；4］As Integer

D）Dim A（3；4）As Integer

10.下述语句的运行结果是。

Dim a

i=0

a=Array (1,-2,9,0,-1,9)

Do

K=a(i)

For m=10 To k Step-2

n=k+m

Next m

Print n+m

i=i+1

Loop While Abs(m+n)<>27

A）3 -8 27

B）3 27 -8

C）-8 27 3

D）-8 3 27

11.下列程序段的执行结果为。Dim M(2)

For i=1 To 2

M(i)=0

Next i

k=2

For i=1 To k

For j=1 To k

M(j)=M(i)+1

Print M(k);

Next j

Next i

A）1 2 2 3

B）1 2 3 4

C）0 2 2 3

D）0 1 2 3

12.有如下程序：

Dim arr (3,3)

For j=1 To 3

For k=1 To 3

arr(j,k)=(j-1)*3+k

Next k

Next j

For j=2 To 3

For k=2 To 3

Print arr(k,j);

Next k

Print

Next j

运行后，输出的结果是。

A）2 5

3 6

B）5 8

6 9

C）4 7

5 8

D）5 9

6 8

13.语句Dim abc(-2 To 4,0 To 4,5)As Long 定义的三维数组，其数组元素有。A）96个

B）112个

C）140个

D）210个

14 下列程序段的执行结果为。

Dim A(4)

n=3

A(1)=1

For k=0 To n-1

For l=1 To k+1

X=k+2-1

A(X)=A(X)+A(X-1)

If k

Print A(X);

Next 1

Next k

A）1 2 1

B）1 2 3

C）2 4 6

D）1 3 1

15.有如下程序，运行后输出的是。

Option Base 1

Private Sub Command1_Click()

Dim aj(1 To 10)

For j=6 To 10

aj(j)=j*2

Next j

Print aj(1)+aj(j)

End Sub

A）5

B）20

C）22

D）显示出错信息

16.下列程序的输出结果为。

Private Sub Command1_Click()

Dim a(20)

For j=1 To 20 Step 2

a(j)=j

Next j

Print a(1)+a(2)+a(3)

End Sub

A）4

B）5

C）6

D）7

17.使用ReDim Preserve可以改变数组的。A）最后一维的大小

B）第一维的大小

C）所有维的大小

D）改变维数和所有维的大小

18.以下程序的输出结果是。

Private Sub Command1_Click()

Dim a(-5 To 6)

For i=LBound (a,1) To UBound (a,1)

a(i)=i

Next i

Print a(LBound(a,1));a(UBound(a,1)) End Sub

A）0 0

B）-5 0

C）-5 6

D）0 6

19.下列程序段的执行结果为。

K=0

For J=1 To 2

For I=1 To 3

K=I+1

Next I

For I=1 To 7

K=K+1

Next I

Next J

Print K

A）10

B）6

C）11

D）16

20.下列程序段的执行结果为。

x=Int(Rnd+4)

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"