VB习题(2016)讲解 下载本文

一、单项选择题

1、以下说法错误的是( A )。

A.Visual Basic是面向过程的编程语言 B.Visual Basic是一种可视化编程工具 C.Visual Basic是结构化程序设计语言 D.Visual Basic采用事件驱动编程机制

2、窗体和控件的描述及其属性的设置保存在(

B )文件中。

A.工程 B.窗体 C.窗体二进制数据 D.标准模块

3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该 应用程序,以下正确的操作是( C )。

A.只保存窗体模块和标准模块文件 B.只保存窗体模块文件 C.分别保存窗体模块、标准模块和工程文件 D.只保存工程文件 4、以下叙述中错误的是( A )。

A.事件都是由用户的键盘操作或鼠标操作触发的 B.在Visual Basic的窗体中,一个命令按钮是一个对象 C.事件是能够被对象识别的状态变化或动作 D.不同的对象可以具有相同的方法 5、以下叙述中,错误的是( B )。

A.一个Visual Basic应用程序可以含有多个标准模块文件 B.标准模块文件可以属于某个指定的窗体文件 C.一个Visual Basic工程可以含有多个窗体文件 D.标准模块文件的扩展名为.bas

6、Visual Basic的窗体设计器主要是用来( A )。 A.建立用户界面 B.添加图形、图像、数据等控件 C.编写程序源代码 D.设计窗体的布局

7、Visual Basic是一种结构化高级程序设计语言,它采用的是( D )驱动方式。 A.键盘 B.鼠标 C.函数 D.事件

8、与传统的程序设计语言相比,Visual Basic最突出的特点是( B ) A.结构化程序设计 B.可视化、面向对象、事件驱动编程机制 C.程序开发环境 D.程序调试技术 9、用来描述对象状态的是( C )

A.过程 B.类 C.属性 D.对象 10、Visual Basic中对象窗口的主要功能是( B )

A.书写代码 B.设计用户界面 C.接受事件 D.显示文字 11、一个Visual Basic应用程序至少应该包含(C )

A、 .frm文件和.exe文件 B、 .frm文件.bas文件 C、 .frm文件和.vbp文件 D、 .frx文件和.vbp文件

12、将窗体文件移出工程后,该文件( C )。

A.还存在于硬盘中 B.已从硬盘上删除 C.A和B都有可能 D.A和B都不可能 13、Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是( C )。 A.窗体、控件、过程 B.窗体、控件、模块 C.属性、事件、方法 D.控件、属性、事件 14、Visual Basic主要用于( B )。

A.制作视频文件 B.开发应用程序 C.图像处理 D.文字处理 15、下列叙述错误的是( B )。

A.单条语句可分行书写 B.不允许使用行号与标号 C.同一行上可以书写多条语句 D.VB代码不区分字母的大小写 16、下列( C )是合法的字符常量。

A. 'ABC' B.ABC C.\17、下列可作为Visual Basic变量名的是( A )。 A. Alpha B.ABπ C.254D D.Print 18、以下合法的一组Visual Basic用户标识符是( )。

A.Sum 和 8abc B.a#x 和 Pi C.Const 和 DoWhile D.ForLoop 和 Total 19、函数Len(\程序设计\的结果是( C )。 A.9 B.11 C.7 D.13

20、VB中运算符的优先顺序是( A )。

A.算术运算符>字符串运算符>关系运算符>逻辑运算符 B.算术运算符>关系运算符>字符串运算符>逻辑运算符 C.算术运算符>逻辑运算符>关系运算符>字符串运算符 D.算术运算符>关系运算符>逻辑运算符>字符串运算符

21、设a=2,b=3,c=4,d=5,表达式:a>b and c<=d or 2*a>c 的值是( C )。 A.-1 B.1 C.FALSE D.TRUE

22、表达式sgn(10 mod 6)& 20的值是( A )。 A.120 B.1 C.20 D.21

23、符号%是声明( C )类型变量的类型定义符。 A.Single B.string C.Integer D.Variant 24、以下( )是算术运算符。 A.Mod B.Rnd C.Not D.or

25、表达式Int(-17.4)+sgn(17.4)的值是( D )。 A.-18 B.-16 C.0 D.-17

26、赋值语句:a=123+Mid(\,3,2)执行后,a变量中的值是( )。 A.157 B.\

27、下列可作为VB中所允许的形式的数是( )。

A、10^(1.256) B.D32 C.12E3 D.2.5E 28、有下列语句 Dim a,b As Integer c=\ d=#7/20/2005#

下列关于这段代码的叙述中错误的是( )。

A.a被定义为Integer 类型变量 B.b被定义为Integer 类型变量 C.c中的数据是字符串 D.d中的数据是日期类型

29、设a=\,则下列使变量b 的值为“VisualBasic”的语句是( )。

A. b=Mid(a,11,10) B. b=Mid(a,10) C.b=Left(a,10) D. b=Right(a,10) 30、设a=5,b=10,则执行c=Int((b-a)*Rnd+a)+1 后,c值的范围为( )。 A.6~10 B. 5~10 C.6~9 D.5~9

31、语句 Print Sgn(-5^2) +Abs(-5^2)+int(-5^2)的输出结果是( A ) A.-1 B.35 C.0 D.6 32、语句Print chr(65)的输出结果是B A.a B.A C.65 D.chr(65)

33、可以同时删除字符前导和尾部空白的函数是( D )。 A.Ltrim B. Rtrim C.Mid D.Trim

34、在一行内写多条语句时,每个语句之间用( D )来分隔。 A. , B. 、 C. : D.;

35、以下关于MsgBox的叙述中,错误的是( B )。 A.通过MsgBox函数可以设置信息框中图标和按钮的类型

B.MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量 C.MsgBox函数返回一个整数 D.MsgBox语句没有返回值

36、Inputbox()函数的返回值类型是( B )。 A.数值型 B.字符型 C.逻辑值 D.变体型 37、在窗体上添加一个命令按钮,编写事件过程: Private Sub Command1_Click() Dim a As Integer,b As Integer

a=InputBox(\ b=InputBox(\ Print b+a End Sub

程序运行后,单击命令按钮,先后在两个输入对话框中分别345和678,则输出结果是( A )。

A.1023 B.678345 C.678 D.345 38、有下列的窗体事件过程: Private Sub Form_Click( ) a=\ b=Right(a,5) c=Mid(a,1,9) MsgBox a,34,b,c,5 End Sub

程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是( C)。 A.Microsoft Visual B. Microsoft C. Basic D.5 39、a=Sqr(3)

Print Format(a,\ 以上语句的输出结果是( A )。

A、$$1.732 B、$1.732 C、$1732 D、$$0001.732 40、Print Format$(52648.5,\ 以上语句的输出结果是( D )。

A、52648.5 B、52,648.5 C、052,648.50 D、52,648.50 41、当x=0时,函数iif(x>0,1,iif(x<0,-1,0))的返回值是( )。 A.-1 B.出错 C.0 D.1

42、下面程序段求两个数中的大数,( )不正确。 A. max=x B. if y>=x then max=y if y>=x then max=y max=x C. if x>y then max=x else max=y D. Max=iif(x>y,x,y)

43、下列关于Do…Loop循环结构执行循环次数的描述正确的是( )。 A. Do While…Loop循环和Do…Loop Until循环可能都不执行

B.Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 C.Do While…Loop循环和Do…Loop Until循环至少都执行一次

D.Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 44、以下Case语句中错误的是( )。 A. Case 3,5, Is>10 B.Case 0 to 10 C. Case Is>10 and Is<50 D.Case Is>10

45、为了给x,y,z这3个变量赋初值2,下面正确的是( )。 A.x=2:y=2:z=2 B.x=2;y=2;z=2 C.x=2,y=2,z=2 D.x=y=z=2

46、执行下面的程序段后,变量a的值为( ) a=3

For i=0 to 10 step 3 a=a+i/3 Next i Print a

A.3 B.4 C.9 D.6

47、执行下面的程序段后,循环参数i、j的值分别为( ) For i=1 to 3

For j=4 to 1 setp -1 Print i*j Next j Next i

A.4和0 B.3和4 C.4和1 D.3和0

48、由“For i=1 To 16 Step 3”决定的循环结构被执行( A.6 B.4 C.5 D.7 49、Do 循环体

Loop While<条件>

则以下叙述中错误的是( )。

A.如果“条件”总是为True,则不停地执行循环体 B.若“条件”是一个为0的常数,则一次也不执行循环体 C.“条件”可以是关系表达式、逻辑表达式或常数 D.循环体中可以使用Exit Do语句

50、下面程序段运行后,显示的结果是( )。

Dim x as integer if x then print x else print x+1 A.1 B.0 C.-1 D.显示出错信息 51、下列循环正常结束的是( )。 A、i=1 B、 i=5 Do Do i=i+1 i=i+1

Loop until i=10 Loop until i〈0 C、i=10 D、i=6 Do Do

)次。 i=i+1 i=i-2

Loop while i〉0 Loop until i=1 52、设有如下数组声明语句,________是正确的。

A.Dim a(2 3) As Integer B.Dim a(m,n) As Integer C.Dim a[3,2] As Integer D.Dim a(2,3) As Integer

53、在设定Option Base 1后,经Dim arr(3,4)As Integer 定义的数组arr含有的元 素个数为( )。 A.20 B.19 C.12 D.9

54、有如下程序代码,输出结果是( )。 Dim a(-3 to 6,5) n=Ubound(a,1) print n

A.5 B.-3 C.0 D.6

55、用下面的语句所定义的数组的元素个数是( )。 Dim b(-2 to 5,3 to 5)

A.25 B.11 C.24 D.21

56、用Redim不可以改变动态数组的( )。 A.类型 B.大小 C.维数 D.下标值

57、1 个二维数组可以存放1 个矩阵。在程序开始有语句Option Base 0,则下面定义 的数组中正好可以存放1 个4╳3 矩阵(即只有12 个元素)的是( )。 A.Dim a(4,3)As Integer B.Dim a(-1 To -4,-1 To -3)As Integer C.Dim a(3,2)As Integer D.Dim a(-2 To 0,2)As Integer 58、以下数组定义语句中,错误的是( )。 A.Dim d(-10) B.Static a(10) As Integer C.Dim c(3,1 To 4) D.Dim b(0 To 5, 1 To 3)As Integer 59、Dim a( )

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

for i=Lbound(a)to Ubound(a) print a(i); next i

A.0 1 2 3 4 B.5 4 3 2 1 C.1 2 3 4 5 D.4 3 2 1 0 60、以下定义数组或给数组元素赋值的语句中,正确的是______。 A、Dim a As Variant B、Dim a(10) As Integer a = Array(1,2,3,4,5) a = Array(1,2,3,4,5) C、Dim a%(10) D、Dim a(3),b(3) As Integer a(1) = \

a(1) = 1 a(2) = 2 b = a 61、下列描述不正确的是( )。

A.某个子过程中声明的局部变量,其使用范围仅限定于该子过程内 B.不同子过程中具有相同的名称的局部变量是同一变量

C.某个子过程中声明的局部变量,其生命周期仅限于该子过程被执行的过 D.不同子过程中的局部变量可以具有相同的名称 62、以下关于函数过程的叙述中错误的是( )。 A.函数过程一定有返回值 B.函数过程一定有参数

C.函数过程可以在窗体模块和标准模块中定义 D.函数过程参数的类型与返回值的类型无关

63、有一子程序定义为Public Sub aaa(a As Integer,b As Single),正确的调用形式 是( )。

A.Call aaa 1,1.2 B.Call sub(1,1.2) C.aaa 1,1.2 D.sub 1,1.2 64、下列关于函数过程的叙述中,正确的是( )。 A.函数过程形参的类型与函数返回值的类型没有关系

B.当数组作为函数过程的参数时,既能以传值方式传递,也能以引用方式传递 C.函数过程的返回值可以有多个

D.如果不指明函数过程参数的类型,则该参数没有数据类型 65、在过程定义中用( )表示形参的按值传递。 A.Var B.ByValue C.ByVal D.ByRef

66、在VB的窗体或标准模块的通用声明区用Dim语句声明的变量称为( )。 A.过程变量 B.局部变量 C.模块级变量 D.全局变量 67、Private Sub Command1_Click() Dim x As Integer x=x+2 End sub

单击两次Command1按钮后,x的值为( ) A.4 B.3 C.2 D.5

68、设置标签的( )属性,可改变其文字对齐方式。 A.Alignment B.Justify C.Visible D.以上都不是 69、当文本框的( )属性为True时,ScrollBars属性才有效。 A. MultiLine B.MaxLength C.Enabled D.visible 70、可以控制连续发生的、有规律的事件的控件是( )。

A.列表框 B.进度条 C.时钟控件 D.组合框 71、下列( )不属于组合框的风格。

A.下列式列表框 B.简单列表框 C.下列式组合框 D.简单组合框

72、当运行程序时,系统自动执行启动窗体的某个事件过程,这个事件过程是( )。 A.Click B.Unload C.Load D.GotFocus 73、复选框的Value 属性为1时,表示( )。 A.复选框呈灰色不可用 B.复选框操作有误 C.复选框被选中 D.复选框未被选中 74、以下叙述中正确的是( )。 A.窗体名称必须与窗体文件的名称相同 B.程序一定是从某个窗体开始执行的

C.窗体及窗体上所有控件的事件过程代码都保存在窗体文件中 D.在工程中只有启动窗体可以建立菜单

75、要改变Label控件中文字的颜色,可以设置Label控件的( )属性。 A.ForeColor B.FontColor C.FillColor D.BackColor 76、滚动条控件取值范围最大值的属性是( )。

A.MaxChange B.Value C.Max-Min D.LargeChange

77、将命令按钮的( )属性设置为False,命令按钮在窗体中就看不到了。 A.Visible B.Default C.Cancel D.Enabled

78、假设窗体Form1的Caption属性为Frmm,它的加载事件过程名应该为( ) A.From1_Load B.Frmm_load C.Form_load D.Me_Load 79、如果要改变窗体的标题,需要设置窗体对象的( )属性 A.BorderStyle B.名称 C. Caption D.Title

80、程序运行时,用于自动调整图片框(Picture控件)大小、以适应框中图像大小的属 性是( )

A.AutoSize B. Stretch C.DrawPicture D. Picture 81、窗体中放置的控件是( ) A.属性 B.类 C.对象 D.过程

82、要在程序中加载窗体Form1的背景画面,正确的程序代码是() A.From1.Picture=Load(文件名) B.From1.Picture=LoadPicture(文件名)

C.From1.Picture=SaveLoad(文件名) D.From1.Picture=文件名

83、程序运行时,用于自动调整图像框(Image控件)中内容、适应图像框大小的属性 是( )

A.Stretch B.DrawPicture C.Picture D.AutoSize 84、下列控件中没有Caption属性的是( )。

A.框架 B.复选框 C.列表框 D.单选按钮 85、能清除文本框Text1中内容的语句是( )。

A.Text1.Clear B.Text=\86、命令按钮、单选按钮、复选框上都有Picture属性,可以在控件上显示图片,但需 要通过( )来控制。

A.Style属性 B.Appearance属性 C.DisablePicture属性 D.DownPicture属性 87、用来设置斜体字的属性是( )。

A.FontBold B.FontName C.FontItalic D.FontSize 88、( )不是VB控件。

A.定时器 B.单选框 C.复选框 D.窗体 89、以下不允许用户在程序运行时输入文字的控件是( )。

A.下拉式列表框 B.简单组合框 C.下拉式组合框 D.文本框 90、设置标签Label1不可见的语句是( )。

A.Label1.Visible=False B.Label1.Visible==0 C.Label1.Visible==1 D.Label1.Visible=True 91、把窗体在屏幕上隐藏,并没有卸载,正确的方法是( )。 A.Unload B.Show C.Close D.Hide

92、列表框的Style属性值设为1时,MultiSelect属性值只能设为( )。 A.1 B.-1 C. 2 D.0

93、只有当命令按钮中Style属性值为( )时,其Picture属性指定的图标才能

在命令按钮中显示。

A.0 B.-1 C. 1 D.2 94、单选按钮的默认属性是( )。

A.Value B.Caption C.Name D.Index

95、假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使 用的语句为( )。

A.MenuItem.Visible=True B.MenuItem.Visible=False C.MenuItem.Enabled=False D.MenuItem.Enabled=True

96、如果要在菜单中添加一个分隔线,则应将其Caption属性设置为( )。 A.- B.= C.* D.&

97、下列不能打开菜单编辑器的操作是( )。

A.按Ctrl+E键 B.单击工具栏中的“菜单编辑器”按钮 C.按Shift+Alt+M键 D.执行“工具”菜单中的“菜单编辑器”命令 98、下面两行代码:()的功能是打开“另存为”对话框 第1行:CommandDialog1.Action=2 第2行:CommandDialog1.ShowSave

A. 第1行 B.第2行 D. 两行都是 D. 两行都不是 99、使用菜单编辑器设计菜单项时,必须输入的项目有( ) A.名称 B.快捷键 C.标题 D. 索引 100、执行下面程序代码,表示的是( ) CommandDialog1.FilterIndex=2 CommonDialog1.Filter=

\ A. 默认显示的文件类型为 *.vbp B.默认显示的文件类型为 *.exe C.默认显示的文件类型为 *.frm D.默认显示的文件类型为 *.*

二、判断题

1、 一个工程只能有一个窗体。( )

2、 在程序设计阶段,双击某个控件,所打开的窗口是代码窗口。 ( ) 3、 程序运行前必须先保存。( ) 4、 不同事件触发是有先后顺序的。( )

5、 面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法。( ) 6、 窗体模块和标准模块都是只由代码组成。( ) 7、 方法是预先定义好的、能够被对象识别的动作。( )

8、 工程资源管理器管理文件主要有6类,即窗体文件(.frm)、标准模块文件(.bas)、类模块文件(.cls)、工程文件(.vbp)、工程组文件(vbg)和资源文件(.res)。( )

9、 所有属性都可以在属性窗口设置。( )

10、 在Visual Basic设计界面中,工程窗口是不能隐藏的窗口。( ) 11、 VB中的变量必须先声明才可使用。( )

12、 VB中有两种常量:直接常量和符号常量;两者的区别在于后者在程序运行过程中 可以根据程序执行的要求改变该常量的值。 ( ) 13、 逻辑型数据只有两个值:0和1。( )

14、 在VB中,运算 \的结果是True。( ) 15、 在VB中,运算 \的结果是True。( ) 16、 一条赋值语句只能给一个变量赋值,不能给多个变量赋值。( )

17、 注释语句作为一个独立行,可放在过程、模块的开头作为标题,也可以放在执行 语句的后面。( )

18、 Variant 是一种特殊的数据类型,Variant 类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant 类型变量还可具有Empty、Error 和Null 等特殊值。( )

19、 取模运算符的优先级别高于整除运算符( )

20、 用户定义类型中的元素可以是任何数据类型,如变长字符串型,整型等。( ) 21、 Dim a1,a2 as integer 语句声明变量a1和a2都为整型变量。( ) 22、 在一个语句内写多条语句时,每个语句之间用:符号分隔。( ) 23、 递归结构属于3种控制结构之一。( )

24、 在Select Case语句中,关键字Case后面的取值格式有3种。( ) 25、 在For…Next 循环中,其中 step 步长可以是正数,负数或者零。( ) 26、 在循环体内,循环变量的值不能被改变。( )

27、 赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。( )

28、 if 6>5 then x=5 endif是一条合法语句。( )

29、 在语句中If x=1 Then y=1中,x=1为关系表达式,y=1为赋值语句。( ) 30、 若要退出for循环,可使用Exit语句。( ) 31、 可以使用Lbound 函数来测试数组的下界值。( ) 32、 在同一过程中,数组与简单变量允许同名( ) 33、 数组必须先定义后使用。( )

34、 由Array函数建立的数组必须是Variant类型。( )

35、 在VB中,用DIM定义数组时,数组的每个元素也自动赋相应初值,数值类型数组初值为0。( )

36、 Sub过程分为事件过程和通用Sub过程。( ) 37、 函数过程可以通过函数名返回结果。( )

38、 在VB的工具箱中包括了所有的VB控件,我们不能再加载其他的控件。( ) 39、 所有的控件在程序运行以后都是可见的。( )

40、 若要取消窗体的最大化功能,可设置MaxButton属性为False来实现。( ) 41、 下拉组合框和简单组合框(Style=0/1)时,允许用户输入那些不在列表中的选项。( )

42、 Timer 控件在程序运行时是不可见的。( )

43、 三种方式的组合框都允许用户输入那些不在列表中的选项。( ) 44、 文本框和标签控件有许多共同特点,它们都能显示和输入文本。( ) 45、 PictureBox控件不是“容器”控件。( )

46、 滚动条在改变Value属性(滚动条滑块位置改变)时会触发Change事件。( ) 47、 列表框的Selected属性常用于单项选择,是一个逻辑数组。( ) 48、 菜单一旦建成后,所有的菜单项均可识别Click事件。( )

49、 菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。( )

50、 菜单的Caption属性中输入的文字被用来唯一地标识此菜单项。( )

三、填空题

1、 VB的数值型数据包括整型、浮点型、___________ 和___________ 数据。 2、 在VB中,日期/时间型常量要用_________ 括起来。 3、 表达式:12000 + \的值是_________。 4、 表达式:300 +true 的值是_________。

5、 函数Int(Rnd*100)是在___________ 范围内的整数? 6、 b$ = UCase(\,b$的值是_________。

7、 程序运行时单击第三个命令按扭,Label1的背景色是蓝色,请将下面代码补充完整。 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor=___________ End Select End Sub

8、 下面程序段执行后,共执行了_________次循环体,输出i的值是__________。 For i=1 To 3 y=i Next i Print i

9、下面这段程序执行后是求6的阶乘(6!),请将下面程序补充完整。 f=___________ For i=1 To 6

f=___________ * ___________ Next i Print \=\

10、 执行下面程序段,输出结果是___________。 a=1:b=2 Select Case a+b Case 1 c=10 Case 2 c=20 Case 3

c=30 End Select Print c

11、 下面这段程序执行后是求1~99的平方的和,请将下面代码补充完整。 Private Sub Command1_Click() Dim x As Integer Dim sum As Double x = 1

Do While x <= ___________ sum = ___________ +x*x x = ___________ Loop Print sum End Sub

12、 语句Form1.Print \的输出结果为:___________。 13、 执行下面程序,输出结果是n=___________,j=___________。 Dim j as integer,n as integer j=1:n=0 Do While n<3 j=j * (j+1) n=n+1 Loop

Print n; j

14、 执行下列程序段后,变量A、B的值分别为 ( ) 、( ) A =300:B=500:c=200 C=A : A=B :B=C Print A,B

15、 执行下面程序段的运行结果为:( ) X=8:y=2 If x*y<15 then Y=y-1 Else Y=-1 End if Print y-x>0

16、 执行下面程序段后,输出结果为:( ) X=3:y=1

If x>1 then y=y+1 If x>2 then y=y+1 If x>3 then y=y+1 Print y

17、 有下列程序段: Dim a,b,c a=1:b=2:c=3 a=b=c print a

程序运行后,输出的结果是( )。 18、 num=0 while num<=2 num=num+1 wend print num

以上程序段的输出结果是( )。 19、 s=5

For i=2.6 to 4.9 step 0.6 s=s+1 Next i

以上程序段执行后,s的值为( )。 20、 默认情况下,数组下标的下界是_____

21、 VB中,按照数组的维数分为___________________、___________________、___________________。

22、 如果几个控件具有相同的_____属性,则这些控件称为数组控件。 23、 下面程序段执行后,a(4)的值为___________ Private Sub Command1_Click() Dim a(4) as Integer a(0)=3 For i=1 to 4 a(i)= a(i-1)+i Next i Print a(4) End Sub

24、 执行下面程序,输出结果是___________。 Private Sub Command1_Click() Dim aa As Variant aa=Array(1,2,3,4) Print aa(1) End Sub 25、 有如下程序代码 Dim a() as string

a=split(\武#夷#学#院\ print a(2)

以上程序的执行结果是( )。 26、 有如下程序代码

Private Sub Command1_Click() Dim A(2 To 7) As Integer Dim i As Integer For i = 2 To 7 A(i) = i Next i

print A(i - 2) End Sub

以上程序的执行结果是( )。

27、 执行以下程序段后,x和a的值分别为:( )、( Private Sub Command1_Click() Dim a As Integer, b As Integer a = 10: b = 10 Call mysub(a, b) Print a End Sub

Private Sub mysub(ByVal x As Integer, ByRef y As Integer) x = x * 2 y = y \\ 2 Print x End Sub

28、设有下列函数过程:

Function fun(m As Integer)As Integer Dim k As Integer,sum As Integer

)。 sum=0

For k=m To 1 Step -3 sum=sum+k Next k fun=sum End Function

若在程序中用语句s=fun(9)调用此函数,则s 的值为( )。 29、 有下列程序段:

Private Sub Form_Click() Dim x, y As Integer x =8: y = 12 nc x, y

Print \ End Sub

Private Sub nc(ByVal a%, b%) a = a + b b = a a = a * b End Sub

程序运行后,点击窗体,变量x和y的值分别为 ( )30、 Private Sub Command1_Click() Dim a, b a = 10 b = 20

Call mult((a), b) Print a, b End Sub

Sub mult(ByRef x As Variant, y As Variant) x = x * 2 y = y * 3 End Sub

以上程序的执行结果分别为( )、( 31、 有下列程序段:

Dim x As Single, y As Single Private Sub Command1_Click() x = x + 1

、 ( ) )。 Call test2 End Sub

Private Sub test2() Dim x As Single x = x + 20 Print x End Sub

以上程序的执行结果是( )。 32、 有下列程序段:

Private Sub Command1_Click() Dim a As Integer, b As Integer a = 6 b = 7

Call say(a, b) Print a, b End Sub

Sub say(x As Integer, ByVal y As Integer) Dim a As Integer a = 2 * x + y x = a + 1 y = x + 10 End Sub

以上程序的执行结果分别是( )、( )。

33、 设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1,要使每次单击滚动条两端箭头时,或单击滚动条滑块与两端箭头之间的空白区域时,标签内容能够反映滚动条的值,请将下面代码补充完整。 Private Sub Hscroll1.___________

Label1.Caption = Hscroll1.___________ End Sub

34、在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程: Private Sub Form_Click( ) Text1.Text=\ End Sub

Private Sub Text1_Change( ) Picture1.Print\ End Sub

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