2011年江苏省计算机二级VB试题库

江苏省计算机二级VB试题库

一、选择题

1．能被对象所识别的动作与对象可执行的活动分别称为对象的_a_______。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、方法 2. 在过程中可以用__b______语句定义变量。

A．Dim、Private B．Dim、Static C．Dim、Public D．Dim、Static、Private 3．用窗体的___c_____属性来设置窗体的标题。 A．style B．Text C．Caption D．Name

4．若在应用程序中用“Private Sub Sub1(X As Integer，Y As Single)”定义了子程序Sub1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是________。 ①Call Sub1(I，I) ②Call Sub1(3.1415，I) ③Call Sub1(3.14，234) ④Call Sub1(\，\ A．①③ B．③④ C．①②③ D．无 6．以下有关对象属性的说法中正确的是________。 A．对象所有的属性都罗列在属性窗口列表中 B．不同对象不可能有同名属性

C．不同对象的同名属性取值一定相同

D．对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变 8． VB集成开发环境有三种工作状态，不属于三种工作状态之一的是________。

A．设计状态 B．编写代码状态 C．运行状态 D．中断状态

9．若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label等控件，则运行该程序显示窗体时，________会首先获得焦点。

A．窗体 B．CommandButton C．Label D．TextBox 10．在窗体模块的通用声明处用下面的语句声明变量、数组，正确的语句有________个。 ① Public A(5) As Integer ② Public N As Integer ③ Public St As String*10 ④ Private b() As Integer A．2 B．3 C．4 D．1 11．单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。

A．框架控件（Frame）或图像控件（Image） B．组合框（ComboBox）或图像控件（Image） C．组合框（ComboBox）或图片框控件（PictureBox）

D．框架控件（Frame）或图片框控件（PictureBox）

12．下面的语句或方法中错误的有________个（其中m和n都为Integer型变量）。 ① Dim Arry(m, n) As Integer ② n=32764+5

③ Print m=m+n;m+n ④ ChDrive \

A．1 B．2 C．3 D．4 13．下列说法不正确的是________。

A．VB允许将一个数字字符串赋值给一个数值型的变量 B．VB允许使用未经说明的变量，其类型都是Variant类型 C．Cls方法只清除运行时在窗体或图形框中显示的文本或图形

1

D．事件过程既可建在窗体模块中，也可建在标准模块中 15．VB集成开发环境可以________。

A．编辑、调试、运行程序，但不能生成可执行程序 B．编辑、生成可执行程序、运行程序，但不能调试程序 C．编辑、调试、生成可执行程序，但不能运行程序 D．编辑、调试、运行程序，也能生成可执行程序

16．在VB中最基本的对象是_________，它是应用程序的基石，也是其他控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签

17．应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，窗体和命令按钮的Click事件过程名分别为_________。

A．Form_Click()、Command1_Click() B．Frm1_Click()、Command1_Click() C．Form_Click()、Cmd1_Click() D．Frm1_Click()、Cmd1_Click()

18．多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把_________指定为启动窗体。 A．不包含任何控件的窗体 B．设计时的第一个窗体 C．命名为Frm1的窗体 D．包含控件最多的窗体 19．使用________方法可将新的列表项添加到一个列表框中。 A．Print B．AddItem C．Clear D．RemoveItem

20．若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用________关键字在该过程中定义局部变量。

A．Dim B．Private C．Public D．Static 21．下列表达式中，值为True的是________。

A．Ucase(\ B．14／2＼3<10 Mod 4 C．Mid(\ D．Not(Sqr(4)-3>=-2) 22．下列_________说法是不正确的。

A．当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭

B．在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C．可以用不同的文件号同时打开一个随机文件

D．用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 24．在程序中可以通过复选框和单选按钮的____b______属性值来判断它们的当前状态。 A．Caption B．Value C．Checked D．Selected 25．在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入____b_____符号，那么在运行程序时按【Alt】键和该字母键就可打开该命令菜单。 A．下划线 B．& C．$ D．@ 26．在多窗体程序中，可以在标准模块或某个窗体模块的通用声明处，分别用_______语句定义一个在所有窗体模块都可以引用的变量IntA。 A．Private IntA As Integer Public IntA As Integer B．Public IntA As Integer Private IntA As Integer C．Public IntA As Integer Public IntA As Integer D．Private IntA As Integer Private IntA As Integer

27．在应用程序中用“Private Function Fun(x As Integer，y As Single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是_______。

①Fun(I，J) ②Call Fun(I，3.65) ③Fun(3.14，234) ④Fun(\，\ A．①③ B．②③④ C．①②③ D．①②③④ 28．若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用“Public G As Integer”、“Private G As Integer”和“Dim G As Integer”语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=3596”，则

2

该语句是给在________说明部分定义的变量G赋值。 A．标准模块 B．过程Sub1 C．窗体模块 D．标准模块、窗体模块和过程Sub1

29．有程序代码“Text1．Text=\，其中的Text1、Text和\分别代表___c______。 A．对象、值、属性 B．对象、方法、属性 C．对象、属性、值 D．属性、对象、值 30．VB工程文件的扩展名是________。

A．.frm B．.vbp C．.bas D．.frx

31．窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。

A．Text1．Text=\ B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True

32．在程序中分别将变量Inta、B1、St和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是________。

A．Inta=4.6 B．B1=#True# C．St=5 ＆ 123.5 D．D=#10／05／01#

33．在窗体Form1中用“Public Sub Fun(x As Integer，Y As Single)”定义过程Fun，在窗体Form2中定义了变量i为Integer，J为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中正确的语句有_________个。

①Call Fun(i，j) ②Call Form1．Fun(i，i) ③Form1．Fun (i)，j ④Form1．Fun i + 1，(j)

A．1 B．2 C．3 D．4 34．以下有关变量作用域的说法中，错误的是__________。

A．只有在标准模块中用Public语句说明的变量才是全局变量 B．在过程中不能使用Public语句说明全局变量

C．在标准模块的通用声明处可用Private语句说明模块级变量 D．在窗体的通用声明处可用Private语句说明窗体级变量 35．语句Print \输出的结果是_________。 A．\ B．出现错误信息 C．5*20 D．100

36．在代码窗口中，当从对象列表框中选定了某一对象后，在________中会列出适用该对象的事件。

A．过程框 B．属性窗口 C．事件列表框 D．工具栏 37．若磁盘文件C:\\Data1.Dat不存在，下列打开文件语句中，会产生错误的是________。

A．Open \ As #1 B．Open \ As # 2 C．Open \ As # 3 D．Open \ As # 4 38．不能作为容器使用的对象是__________。

A．图像框 B．框架 C．图片框 D．窗体 39．以下有关数组的说明中，错误的是__________。

A．根据数组说明的方式，可将数组分为动态数组和静态数组 B．在过程中，不能用Private语句定义数组

C．利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型 D．数组重新定维后，原有的数组元素内容将不予保留

40．窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用“Public K As Integer”和“Dim K As Integer”声明了两个同名变量K，则在过程Sub1中要访问窗体模块变量K，可采用_________。

3

A．Frm1．K B．Form．K C．Form1．K D．K

41．名为Sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是________。 A．Private Sub Sort(A() As Integer) B．Private Sub Sort(A(10) As Integer) C．Private Sub Sort(ByVal A() As Integer) D．Private Sub Sort(A( ，) As Integer)

42．可以在_________中，使用语句Public PubStr As String*20定义一个定长字符串。 A．窗体模块 B．标准模块 C．类模块 D．三者均可 43．以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是_______。 A．在缺省情况下，设计时的第一个窗体被指定为启动窗体 B．通过人为设置，可指定任一窗体为启动窗体

C．通过人为设置，可指定标准模块中的Main()过程为启动过程 D．通过人为设置，可指定窗体模块中的Main()过程为启动过程

44．在过程中有语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_______会影响循环执行的次数。

①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 A．①② B．①②③ C．③ D．①②③④

45．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是________。

A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 46．在以下有关对象属性的叙述中，错误的是_________。 A．一个对象的属性可分为外观、行为等若干类 B．不同属性可能具有不同的数据类型

C．一个对象的所有属性都可在属性窗口的列表中进行设置 D．属性窗口中的属性列表既可按字母排列也可按类别排列 48．表示“X>Y>Z”，正确的VB逻辑表达式是__a_______。 A．X>Y And Y>Z B．X>Y>Z C．X>Y Or Y>Z D．X>Y And >Z

49．窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下的_c_____语句可以使文本框内显示的内容为：5+ 7=12 A．Text1．Text=a+b=c B．Text1．Text=\

C．Text1=a & \ D．Text1=\

50．调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是___d______。 A．Call Convert((X)) B．Call Convert(X*1) C．Convert (X) D．Convert X

51．程序中的不同过程之间，不能通过________进行数据传递。

①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 A．①②④ B．①②③ C．②④ D．④ 52．下列关于数组的叙述中，错误的是__________。 A．在过程中可以用Dim语句对形参数组进行声明 B．数组是同类变量的一个有序的集合 C．数组元素可以是控件

D．数组在使用之前，必须先用数组说明语句进行说明

53．要向已有数据的c:\\test\\test．txt文件添加数据，正确的文件打开命令是________。

4

A．Open \ As #512 B．Open \ As #511 C．Open \ As #512 D．Open \ As #51l 54．以下_____a___情况不会进入中断状态。 A．在程序运行中，按【Ctrl】+【C】键 B．程序运行中，发生了运行错误

C．用户在程序中设置了断点，当程序运行到断点时 D．采用单步调试方式，每运行一个可执行代码行后

55．使用____d_____方法，可以将列表框List1中的所有项删除掉。 A．Listl.Text=\ B．AddItem C．RemoveItem D．Clear 56．某过程的说明语句中，正确的数组说明语句是__________。 Const N As Integer=4 Dim L As Integer

①Dim X(L) AS Integer ②Dim A(K) As Integer Const K As Integer=3 ③Dim B(N) As Integer

④Dim Y(2000 to 2008) As Integer A．①②④ B．①③④ C．③④ D．②③

57．在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中___b______一定可以将Hello显示在当前窗体上。 A．Form.Print \ B．Me.Print \ C．Debug.Print \ D．Form2.Print \ 58．执行以下语句后，a的值是__________。 Dim a As Integer a=l

Do Until a=100

a=a+2 Loop

A．99 B．100 C．溢出 D．101 59．以下语句中，不能正确执行的是_________。

A．If Option1.Value Then B．If Option1.Value=True Then C．Check1.Value=0 D．Check1.Value=True 60．以下使用方法的代码中，正确的是________。 A．Label1.SetFocus B．Form1.Clear C．Text1.SetFocus D．Combo1.Cls

61．在程序中将变量Inta、Bl、St和D分别定义为Integer型、Boolean型、String型和Date型，下列赋值语句中，正确的是_________。

A．Inta=\ B．D=#10／05／01# C．St=5+\ D．B1=#True# 62．以下使用方法的语句中，正确的是_________。 A．List1．Clear B．Form1．C1ear C．Combo1．Cls D．Picture1．C1ear

5

63．以下所列的7个控件中，具有Caption属性的有_________个。

PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮)、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)

A．3 B．4 C．2 D．5 64．以下有关对象属性的说法中错误的是________。 A．所有的对象都具有Name(名称)属性

B．只能在执行时设置或改变的属性为执行时属性

C．对象的某些属性只能在设计时设定，不能使用代码改变 D．Enabled属性值设为False的控件对象在窗体上将不可见 65．在窗体的通用声明处有语句“Dim A() As Single”，以下在某事件过程中重定义此数组的一组正确语句是_________。

A．ReDim A(3，3) B．ReDim A(3，3)

ReDim A(4，4) As Integer ReDim Preserve A(4, 4) C．ReDim A(3) D．ReDim A(3, 3)

ReDim A(3，3) As Integer ReDim Preserve A(3, 4) 66．下面有关数组的说法中，正确的是 。 A．数组的维下界不可以是负数

B．模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5)会与之冲突 C．模块通用声明处有Option Base 1，模块中有Dim A(0 T0 5)，则A数组第一维维下界为0 D．模块通用声明处有Option Base 1，模块中有Dim A(0 To 5)，则A数组第一维维下界为1

67．在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，只有_______可使文本框Text3中显示46。

A．Text3．Text=Text1．Text ＆ Text2．Text

B．Text3．Text=Val(Text1．Text)+Val(Text2．Text) C．Text3．Text=Text1．Text+Text2．Text

D．Text3．Text=Val(Text1．Text) & Val(Text2．Text)

68．在窗体模块的通用声明处有如下语句，会产生错误的语句是__________。 ①Const A As Integer=25 ②Public St As String*8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10 A．①② B．①③ C．①②③ D．②③④ 69．下列定义Sub过程的语句中，正确的语句是_________。

①Private Sub Test(St As String*8) ②Private Sub Test(Sarray() As String*5) ③Private Sub Test(Sarray() As String) ④Private Sub Test(St As String) A．①② B．①④ C．②③④ D．①②③④ 70．VB中利用Circle方法不可以画__________。

A．圆 B．直线 C．弧 D．椭圆 71．在窗体模块的通用声明段中声明变量时，不能使用________关键字。 A．Dim B．Public C．Private D．Static 72．日期类型(Date)在程序中运用时，日期类型必须用__a______符号括起来。 A．# B．@ C．$ D．％ 73．有如下程序：

Private Sub Command1_Click() S=Fix(-23.1) E=Int(23.1)

6

Print Sin(E+S) End Sub

运行时输出的结果是_________。

A．-1 B．0 C．1 D．23 74．有如下程序：

Private Sub Command1_Click() X=10

Print IIf(X>5，1，5) End Sub

运行后的输出结果是________。

A．5 B．1 C．2 D．6 75．VB表达式Sqr(a+b)^ 3*2中优先进行运算的是__c______。 A．Sqr函数 B．+ C．^ D．* 76．在VB中可以作为容器的是 。

A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBoX、Label D．PictureBox、TextBox、ListBox

77．VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有 。

①PictureBox ②Image ③TextBox ④CommandButton ⑤OptionButton ⑥Label A．①②③④ B．①②⑤⑥ C．①②④⑤ D．①②④⑥ 78．针对语句If I=1 Then J=1，下列说法正确的是________。

A．I=1和J=1均为赋值语句 B．I=1和J=1均为关系表达式

C．I=1为关系表达式，J=1为赋值语句 D．I=1为赋值语句，J=1为关系表达式

79．在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 ________。

A．s=2*a+1 B．s=\ C．s=2*a>3 D．a=2:s=16400*a 80．下面所列四组数据中，全部是正确的VB常数的是________。

A．32768,1.34D2, \B．3276, 123.56, 1.2E-2, #True#

C．&HABCE, 02-03-2002, False, D-3 D．ABCDE, #02-02-2002#, E-2

81．下面有关数组处理的叙述中，错误的是________。

①在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。 ②在过程中，可以使用Dim、Private和Static语句定义数组。

③用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。 ④可用Public语句在窗体模块的通用说明处定义一个全局数组。 A．①②③④ B．①③④ C．①②③ D．②④ 82．第一次显示某窗体时，将引发一系列事件，事件发生的正确顺序是________。

A．Load - Initialize - Activate B．Initialize - Load - Activate C．Load - Activate- Initialize D．Initialize - Activate - Load

83．定义两个过程Private Sub1(St() As String)和Private Sub2(Ch() As String*6)，在调用过程中用Dim S(3) As String*6, A(3) As String定义了两个字符串数组。下面调用语句中正确的有________。

7

①Call Sub1(S) ②Call Sub1(A) ③Call Sub2(A) ④Call Sub2(S) A．①② B．①③ C．②③ D．②④ 84．运行下面程序，单击命令按钮Command1，则立即窗口上显示的结果是________。

Private Sub Command1_Click()

Dim A As Integer, B As Boolean, C As Integer, D As Integer A=20/3 : B=True : C=B : D=A+C Debug. Print A, D, A=A + C

End Sub

A．7 6 False B．6.6 5.6 False C．7 6 A=6 D．7 8 A=8 85．要设置窗体上各控件的属性，可在________中进行。

A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口

86．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是________。

A． Picture1.Picture = \B． Picture1.image = \

C． Picture1.Picture = LoadPicture(\D． LoadPicture(\87．若编写的过程要被多个窗体及其对象调用，应将这些过程放在哪一类模块中？

A. 窗体模块 B. 标准模块 C. 工程 D. 类模块 88．要设置定时器控件的定时时间，需设置的属性是_________。

A．Interva1 B．Enabled A．Show B．Unload

C．Value

D．Text D．Hide

89．若要将窗体从内存中卸载，其实现的方法是_________。

C．Load

90．在程序运行过程中，要想使可操作的按钮变成看得见但不可操作，则应设置为False的属性是_________。 A. Visable B. Enabled C. Default D. Cancled 91．无法响应Click事件的控件是________。 Ａ．Label Ｂ．Timer Ｃ．TextBox Ｄ．DriveListBox 92．下列表达式能产生1～6自然数的是__________。

A．Int(Rnd(6)+1) B．Int(Rnd*6) C．Int(Rnd*7) D．Int(Rnd*6+1) 93．对于某对象的SetFocus和GotFocus描述中，正确的是________。

Ａ．SetFocus是方法，GotFocus事件 Ｂ．SetFocus是事件，GotFocus是事件 Ｃ．SetFocus是方法，GotFocus是方法 Ｄ．SetFocus是事件，GotFocus是方法

94．设a为Integer型变量，s为Single变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a＝s:Text1=a的结果相同的有________个。

①a=Int(s):Text1=a ② a=Fix(s):Text1=a

③a=CInt(s):Text1=a ④ a=Format(s, \Ａ．１ Ｂ．２ Ｃ．３ Ｄ．４ 95．下列语句运行时系统给出错误提示的是________。

Ａ．Print -32000-769 Ｂ．Print \Ｃ．Print \ Ｄ．Print 3=2=4 96．描述Ｘ、Ｙ中有一个小于Ｚ的逻辑表达式是________。

Ａ．X

8

Ａ．控件数组由一组具有共同名称和相同类型的控件组成 Ｂ．控件数组中的每一个控件共享同样的事件过程

Ｃ．控件数组中的每个元素的下标由控件的Index属性指定 Ｄ．同一控件数组中的元素只能有相同的属性设置值 98．以下有关数组作为形参的说明中，错误的是________。

A．调用过程时，只需把要传递的数组名填入实参表

B．使用动态数组时，可用ReDim语句改变形参数组的维界 C．在过程中也可用Dim语句对形参数组进行说明

Ｄ．形参数组只能按地址传递

99．下列能够正确表示条件“x≤Y

C．X≤Y or Y

Ａ．在Sub或Function过程中不能再定义其他Sub或Function过程

Ｂ．在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合 Ｃ．递归过程既可以是递归Function过程，也可以是递归Sub过程 Ｄ．在调用过程时，形参为数组的参数对应的实参只能是数组 102．方法Print \10+6=\10+6输出的结果是_________。

A.10+6=10+6 B. 10+6=16 C. 16=10+6 D. \10+6=\10+6 103．若要将窗体隐藏，其实现的方法是________。

A．Show B．Unload C．Load 104．VB6.0表达式Cos(0)+Abs(1)+Int(rnd(1))的值是__________。

D．Hide

A. 2 B.–1 C. 0 D. 1

105．在下图中，要在窗体Form1标题栏出现“小程序”字样，窗体属性应设置为________。

A．Form1．Name=\小程序\

B．Form1．Visible=\小程序\

C．Form1．Caption=\小程序\ D．Form1．Show=\小程序\106．在VB中，下列关于控件的属性或方法中，搭配错误的有________个。

①Timer1.Interval ②List1.Cls ③Text1.Print ④List1.RemoveItem ⑤VScroll1.Value ⑥Picture1.Print A．0 B．1 C．2 D．3

107．下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。 A．List1.ListCount B．Text1.Index C．Dir1.Path D．Label1.Visible

108．下面________语句，可以将列表框List1中的当前选定的列表项的值替换成\。 A．List1.AddItem \ B．List1.Text=\

C．List1.List(List1.ListIndex)= \ D．前三项均可 109．函数CInt(-3.5),Int(-3.5),Fix(-3.5)的值分别是________。

A．-3,-4 , -3 B．-4, -4, -3 C．-3,-4 , -4 D．-4, -3, -3

110．设整型变量a、b 的当前取值分别为200与20，以下赋值语句中不能正确执行的是_________。 A．Text1 = a/b*a B．Text1 = a*a/b

9

C．Text1 = \ D．Text1 = a & b & a 111．对正实数X 的第四位小数四舍五入的VB表达式是________。 A．0.001*Int(x+0.005) B．0.001*(1000*x+0.5)

C．0.001*Int(1000*x+5) D．0.001*Int(1000*(x+0.0005)) 112．下列有关数组的说法中，不正确的是________。

A．在窗体模块中不可以定义全局数组

B．可以使用Erase语句释放所有数组所占据的存储空间

C．语句Dim X(3.6+2) As Integer定义了一个维上界是6的一维整型数组 D．形参数组的类型可以是定长字符串类型 113．以下关于事件的说法中，正确的是________。

A．事件是由系统预先定义好的，能够被对象识别的动作 B．事件过程都是无参(没有形式参数)的过程 C．在事件过程中可以声明全局变量

D．不同类型的对象所能识别的事件一定不相同

114．窗体上放置有名为Drive1与Dir1的驱动器列表框与文件夹列表框，需要在选定驱动器列表框中的列表项时，文件夹列表框中的内容随之改变，正确的语句及语句的位置是________。

A．Dir1.Path = Drive1.Path ?位于Drive1_Change()过程 B．Dir1.Path = Drive1.Path ?位于Dir1_Change()过程 C．Dir1.Path = Drive1.Drive ?位于Drive1_Change()过程 D．Dir1.Path = Drive1.Drive ?位于Dir1_Change()过程 115．执行下面的程序段，结果是________。

X = Width/2:Y = Height/2

Picture1.Line (X, Y)-(X, Y-2000) Picture1.Line (X, Y+2000)-(X, Y) Picture1.Line –(X–2000, Y)

A．在图片框中画形如┫的交叉直线 B．在图片框中画形如┣的交叉直线 C．在图片框中画形如┳的交叉直线 D．在图片框中画形如┻的交叉直线 116．用来设置窗体背景图片的属性是__________。

A.Moveable B.Picture C.ForeColor D.WindowState 117．下面的四个VB6.0表达式语法正确的是__________。

A.a>b .and. b<>c B.a>b>c C. a>b And b<>c D. a>b And <> c 118．设S是字符型变量，以下语句正确的是__________。 A．S=List1．Caption B．S=Timer1．Caption C．S=Text1．Caption D．S=Label1．Caption

119．表达式x Mod y＼z>5 And A+B+C>=36中最先被执行的运算是_________。 A．+ B．And C．Mod D．＼ 120．下列没有类型说明符的变量是________。

A．日期型 B．长整型

C．字符型

D．货币型 D. 1*E+6

121. 下列四个选项，是VB数值常量的是_________。

A. 1E6 B. 1*E6 C. 1*E-6 122．扩展名为．vbp的工程文件中包含有__________。 A．工程中所有模块的有关信息

B．每个窗体模块中的所有控件的有关信息 C．每个模块中所有变量的有关信息

10

D．每个模块中所有过程的有关信息

123．在窗体的通用说明部分有以下说明语句，其中正确的是__________。 A．Private Const A As Integer=235／2 B．Const B As Integer=Cint(2.53) C．Dim Const C As Integer=3579 D．Public Const S As Boolean=True

124．以下控件对象中，具有Picture属性的是__________。

①PictureBox ②Frame ③OptionButton ④CommandButton ⑤ListBox ⑥CheckBox ⑦Label A．①③④⑥ B．①②⑤⑥⑦ C．①③④⑤⑥ D．①②③④⑤⑥

125．在过程中已说明a、b、c均为Integer型变量，且均已被赋值，其中a=30、b=40、C=50，如再执行下面的语句，可正常执行的是___________。 A．Print a*b*c B．Print a*b*c*1& C．Print 1&*a*b*c D．Print a*b*c*1! 126．下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是_________。

A. Top B. Width C. Left D. Enabled 127．以下有关事件过程的说法中，错误的是___________。 A．标准模块中不能包含事件过程

B．事件过程都是无参(没有形式参数)的过程 C．事件过程也可以通过Call语句调用执行 D．在事件过程中不能声明全局变量

128．以下有关ReDim语句用法的说明中，错误的是__________。 A．ReDim可用于定义一个新数组

B．ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C．无Perserve关键字的ReDim语句，可重新定义动态数组的维数 D．在ReDim语句中，可使用变量说明动态数组的大小

129．窗体上有3个按钮Command1、Command2和Command3，如下代码的功能是________。 Private Sub Command1_Click() Command2．Enabled=False Command3．Visible=False End Sub

A．当单击按钮Command1时，按钮2和按钮3都不可用 B．当单击按钮Command1时，按钮2和按钮3都不可见 C．当单击按钮Command1时，按钮2不可用和按钮3不可见

D．当单击按钮Command1时，按钮2不可见和按钮3不可用 130．下面语句中，可以在窗体上绘制正方形的语句是__________。

①Shape1.Shape=1 ②Line(500, 1500)-(1200, 2000) ③Shape1.Shape=0 ④Line(500,1500)-(1000,2000), ,B A．③② B．①② C．③④ D．①④. 131．如果一个变量未指明数据类型，那么，VB默认这个变量为_________变量。 A．变体型 B．整型 C．公共 D．字符串型 132．窗体文件的扩展名是__________。

A. frm B. vbp

C. bas

11

D. frx

133．不能打开属性窗口的操作是_________。

A. 击工具栏中的“属性窗口”按钮

B. 选取“视图” 菜单中的“属性窗口”子菜单项

C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项 D．选取“工程”菜单中的“属性窗口”子菜单项 134．MsgBox( )函数的格式为：MsgBox(A[，B][，C][，D，F])。若出现下图所示的信息对话框中，应设置________。

A．A=\学习\，C=\

B．B=\学习\，A=\

C．C=\学习\ D．D=\学习\135．下列语句的输出结果为________。

Print Format(1234.5648, \

A．1234.57 B．1234.56 C．1,234.56 D．12,34.57 136．以下关于方法的叙述中，错误的是__________。 A．方法是构成对象实体的一个部分 B．方法是一种特殊的过程或函数

C．调用方法的一般格式是：对象名称．方法名称 [参数] D．在调用方法时，对象名称是不可缺少的

137．创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是__________。

A．该命令按钮的Value属性被设置为False B．该命令按钮的Enabled属性被设置为False C．该命令按钮的Visible属性被设置为False D．该命令按钮的Default属性被设置为True

138．若需要在同一窗体内安排两组相互独立的单选按钮(0ptionButton)，可使用__________控件将它们分隔开。 ①TextBox ②Picture ③Image ④Frame

A．①② B．②③ C．②④ D．③④

139．单击滚动条两端的箭头时，滚动条Value属性值的改变量由__________属性值决定。 A．LargeChange B．Max C．SmallChange D．Min 140．设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不能执行的是___________。 A．D=#12：30：00 PM# B．A=\ C．S=Now D．L=\

141．对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做_______过程。 A．方法 B．事件 C．调用 D．编译

142．在Select Case x结构中，描述判断条件3≤X≤7的测试项应该写成__________。 A．Case 3<=X<=7 B．Case 3<=X，X<=7 C．Case Is<=7，Is>=3 D．Case 3 To 7 143．下面关于过程参数的说法，错误的是___________。

12

A．过程的形参不可以是定长字符串类型的变量

B．形参是定长字符串型的数组，则对应的实参必须是定长字符串型数组，且长度相同 C．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合 D．按值传递参数，形参和实参的类型可以不同，只要相容即可 144．下面有关文件管理控件的说法，正确的是___________。

A．ChDir语句的作用是指明新的缺省工作目录，同时也改变目录列表框的Path属性值

B．改变文件列表框的FileName属性值，仅改变列表框中显示的文件名，不会引发其它事件 C．改变驱动器列表框的ListIndex属性值，会改变Drive属性值并触发Change事件 D．单击目录列表框中某一项，会触发Change事件

145．以下有关Line划线方法的说明，错误的是___________。

A．Line方法既可用于单个划线，也可用于连续划线

B．Line方法中的Step选项用于指定由CurrentX、CurrentY属性决定的图形坐标位置 C．Line方法划线的宽度由DrawWidth属性决定 D．当使用F选项时，Line方法可用于绘制矩形 146．VB6．0的控件有________三类。

A．标准控件、对象控件和Windows控件 B．内部控件、ActiveX控件和可插入的对象 C．数据库控件、Activex控件和可插入的对象 D．内部控件、ActiveX控件和图形控件

147．下列函数中，返回值是字符串的是_________。

A. Chr B. Str C. Val D. Asc 148．下列语句的输出结果是_________。

Form1.print right(mid(\常熟理工学院\,3,4),2)

A.常熟 B.理工 C.学院 D.出错

149．要使定时器控件可以使用，需设置的属性是_________。

A.Interval B. Enabled C. Value D. Text 150．只能由系统触发的是________事件。

A．Resize B．Dbl Click C．Timer D．Click 151．Visual Basic 6．0的菜单除了可通过鼠标单击打开外，也可以用键盘打开，以下操作方法正确的是________。 A．按菜单项后面括号中的字母键

B．先按F10或Alt键，然后再按菜单项后面括号中的字母键 C．Shift键+菜单项后面括号中的字母键 D．Ctrl键+菜单项后面括号中的字母键

152．关于窗体Name属性的叙述，正确的是_______。 A．窗体Name属性可以具有与别的对象相同的名字 B．窗体Name属性和变量定义一样

C．窗体Name属性的值最长可达40个字符

D．窗体Name属性不能具有与别的对象相同的名字 153．在一个工程中，可以有多个________。

A．资源文件 B．工程文件 C．标准模块文件 D．机器代码文件 154．若要设置文本框的背景颜色，使用的属性是_________。

A. Fillcolor B. BackColor C. ForeColor D. BackStyle 155．在一个语句行内写多条语句，语句之间应该用________分隔。

A．逗号 B．分号 C．顿号 D．冒号 156．一个应用程序________窗体。

13

A．只许有一个 B．可以没有 C．应该有两个 D．可包括多个

157．不能正确表示“两个整型变量x和y之一为0，但不能同时为0”的逻辑表达式是________。

A．x * y = 0 And x<>y B．(x = 0 Or y = 0) And x<>y C．x = 0 And y<>0 Or x<>0 And y = 0 D．x * y = 0 And (x = 0 Or y = 0) 158．用于除去字符串左侧的空格的函数是_________。

A．Rtrim( ) B．Ltrim( ) C．Lefttim( ) D．Trim( ) 159．代数表达式为(ln1?d?e)，其对应的VB表达式是_________。

A．Log(sqr(1 + d * d) – Exp(2)) ^ (7/3)

B．Ln(sqr(1 + d * d) – e ^ 2) ^ 7/3

C．(Log(sqr(1 + d * d)) – Exp(2)) ^ (7/3) D．Log(sqr(1 + d * d) – e ^ 2) ^ 7/3 160．下列语句所声明的数组的元素个数为_________。

Dim a(3 To 6, - 2 To 2) A．20 B．16 C．24 D．25

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

A．Value B．Default Ｃ．Cancel Ｄ．Enabled 162．产生[10，40]之间的随机整数的VB表达式是________。

A．Int(Rnd * 30) + 10 B．Int(Rnd * 31) + 10 C．Int(Rnd * 30) + 11 D．Int(Rnd * 30) + 12 163．将数2.567E-12写成普通的十进制数是 。 A．0.000000000002567 B．0.0000000002567

Ｃ．0.0000000000002567 Ｄ．0.00000000000002567 164．设a=5,b=6,c=7,d=8，则执行以下语句后，x的值为 。

x=iff((a>b) and (c>d),10,20) A．10 B．20 Ｃ．30 Ｄ．300 165．下面表达式中，__________的值是整型(Integer或Long)。 ①36+4/2 ②123 +Fix(6.61) ③57+5.5\\2.5 ④356 & 21 ⑤\ ⑥4.5 Mod 1.5

A．①②④⑥ B．③④⑤⑥ C．②④⑤⑥ D．③⑥ 166．以下________操作不能打开属性窗口。

A．按下F4键 B．单击工具栏上的“属性窗口”按钮 C．执行“视图”菜单中的“属性窗口”命令 D．双击任何一个对象 167．在Visual Basic执行应用程序期间，用________临时存储数值。 A．对象 B．函数 C．变量 D．过程 168．假设有一个菜单项，其名为Menu1，为了在运行时该菜单项失效（变灰），应使用的语句是_________。 A．Menu1.Visible = False B．Menu1.Visible = True C．Menu1.Enabled = False D．Menu1.Enabled = True 169．VB集成开发环境开发的应用程序不适宜的运行环境是________。

A．Windows32 B．Windows 9X C．WindowsNT D．Windows2000

170．在窗体Form1中有框架Frame1、单选按钮Option1和命令按钮Command1，若将框架的标题设置为“主课”，通过________语句实现。

A．Frame1．Caption=\主课\ B．Option1．Caption=\主课\C．Form1．Caption=\主课\ D．Command1．Caption=\主课\171．在一个工程中，可以有多个_________。

14

2273 A．资源文件 B．工程文件 C．机器代码文件 D．窗体文件 172．一只白色的足球被踢进球门，则白色、足球、踢、进球门是________。

A．属性、对象、方法、事件 B．属性、对象、事件、方法. C．对象、属性、方法、事件 D．对象、属性、事件、方法 173．窗体Form1的名称属性是frm，它的Load事件过程名是_______。 A．Form1_Load B．frm_Load 174．VB6.0变量名abc#的类型是________。

C．Form_Load D．Me_Load

A.字符串类型 B.单精度类型 C.整型 D.双精度类型 175．语句Print Sgn(-6^ 2)+Abs(-6^2)+Int(-6^ 2)的输出结果是_________。

A．-36 B．1 C．-1 D．-72 176．如果x=4，那么以下运算结果为False的表达式是_________。 A．（x<=4） And (x>=6) B．（x >=4） Or (x>=6) C．（x >=4） Xor (x>=6) D．Not (x<>4)

177．如果要求设置定时器时间间隔为0.5秒，那么它的Interval属性应该等于_________。 A．5 B．50 C．500 D．5000 178．以下程序段执行后，整型变量n 的值为 。

y=2001

n=y \\ 4 + y \\ 400 – y \\ 100 A．495 B．505 C．500 D．485 179．要使程序运行时文本框能输入多行数据应设置的属性是 。 A．Text B．Locked C．Hide D．MultiLine

180．可用Print方法在窗体中显示文本信息，若想清除这些信息，可用的方法是_________。 A. Cls B. Clear C. RemoveItem D. Delete 181．_______操作可以打开属性窗口。 A．按下F4键 B．单击鼠标右键 C．双击代码窗口 D．双击任何一个对象 182．日期类型(Date)在程序中运用时，日期类型必须用________符号括起来。 A．# B．@ C．$ D．％ 183．下列窗体名中哪个是合法的? A．_aform B．3frm C．f_1 D．frm 4 184．要把一个命令按钮设置成无效，应设置其________属性值。 A．Visual B．Enabled C．Default D．Cancel 185．执行语句“Print Format(1234.567, \”，正确的输出结果是_________。

A．1234.57 B．1,234.57 C．1,234.567 D．01,234.57 186．设有如下语句：

str1 = InputBox(\输入\练习\

从键盘上输入字符串\示例\后，str1的值是________。 A．\输入\ B．\ C．\练习\ D．\示例\187．以下有关文件的说法中，正确的是_________。 A．打开随机文件时，参数Len的值可任意设置

B．若以Output、Append、Random或Binary方式打开一个不存在的文件，系统会出错 C．在Input方式下，不能使用不同文件号同时打开同一个文件

D．在一个过程中，一个文件号有可能被用于打开不同的文件

（在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。

15

A．数组是有序变量的集合，序列中的变量类型可以不同

B．数组下标用以确定数组元素在数组中的位置，下标取值只能是0或1 C．在一定条件下动态数组可以反复改变其维数与大小

D．固定大小数组也可使用ReDim语句改变其大小 250．以下有关过程的说法中，错误的是________。

A．在Sub或Function过程中不能再定义其他Sub或Function过程

B．调用过程时，形参为数组的参数对应的实参既可以是固定大小数组也可以是动态数组 C．过程的形式参数不能再在过程中用Dim语句进行说明

D．使用ByRef说明的形式参数在形实结合时，总是按地址传递方式进行结合的 251．以下有关图片框PictureBox用法的叙述，错误的是________。

A．图片框可用作其他控件的容器

B．图片框可以显示不同种类与格式的图形或图像文件

C．用户可以从其他绘图软件中把一幅图形或图片剪切／复制，再粘贴到图片框中 D．不需任何设置，图片框就能自动适应加载图片的大小

252．窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行语句Text3=Text1 + Text2后，则在Text3中显示________。

A．434 B．45678 C．溢出 D．语法错误 253．如果窗体上有命令按钮“确定”，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮控件的名称属性和Caption属性分别为________。

A．“OK”和“确定” B．“确定” 和 C．“Command1” 和“确定” D．“Command1” 和“OK” 254．下面定义Sub子过程的各个语句中，正确的语句是________。 ① Private Sub Sub1(A( ) As String) ② Private Sub Sub1(A(1 To 10 ) As String*8) ③ Private Sub Sub1(S As String) ④ Private Sub Sub1(S As String*8) A．①②③④ B．①②③ C．①③④ D．①③ 255．执行赋值语句________后，会触发相应控件的Change事件（控件名均为缺省名）。

A．Dir1.ListIndex = -2 B．Drive1.ListIndex = 2 C．Lise1.ListIndex = 3 D．File1.ListIndex = 3 256．假设变量BOOL是一个布尔型变量，则下列中，正确的是________。

A．BOOL = ?True? B．BOOL = .TRUE. C．BOOL = #TRUE# D．BOOL = True 257．表达式6.5 * 5 Mod 28 \\ 8的值是________。

A．0 B．1 C．2 D．3 258．下面有关数组的说法中，错误的是________。

A． 数组必须先定义后使用

B． 数组形参可以是定长字符串类型

C． Erase语句的作用是对已定义数组的值重新初始化 D． 定义数组时，数组维界值可以不是整数

259．可以把变长字符串S中的第一个“ABC”子串，替换成“1234”的语句是________。

A．S = Left(S, InStr(S, \– Instr(S, \– 2) B．Mid(S, InStr(S, \C．Mid(S, InStr(S, \

21

D．S = Left(S, InStr(S, \– Instr(S, \– 2)

注意：Mid(字符串，m[，n])=子字符串 该语句用“子字符串”替换“字符串”中从m开始的与“子字符串”等长的一串字符。若使用参数n，则用“子字符串”左起n个字符来替换“字符串”中从m开始的n个字符。例如，假设S=\ABCDE\，执行语句Mid(S，3)= \99\后，s的值为\AB99E\。

260．以下关于子过程或函数的定义中，正确的是 。 A．Sub f1(n As String*1) B．Sub f1(n As Integer)As Integer

C．Function f1(f1 As Integer)As Integer D．Function f1(ByVal n As Integer) 261．执行下面语句后，Len函数值最大的是________。

Dim IA As Integer, B As Single, S As String*5, Ch As String IA=32767:B=23.5:S=\A．Len(IA) B．Len(B) C．Len(S) D．Len(ch) 262．假设变量Lng为长整型变量，下面不能正常执行的语句是________。 A．Lng=16384*2 B．Lng=4*0.5*16384 C．Lng=190^2 D．Lng=32768* 2

263．设Mys1，Mys2均为字符串型变量，Mys1=\Basic\，Mys2=\，则下面关系表达式中结果为True的是________。

A．Len(Mys1)<>2* InStr(Mys1, \B．Mid(Mys1, 8, 1)>Mys2

C．Chr(98) ＆ Right(Mys1, 4) = \

D．InStr(Left(Mys1, 6), \

264．设A=7，B=4，C=6，则表达式A Mod 3 + B ^ 3 / C \\ 5的值为________。 A．1 B．2 C．3 D．出错 265．下列定义Sub过程的语句中，正确的是________。

A．Private Sub Sub1(A())

B．Private Sub Sub1(A As String*5)

C．Private Sub Sub1(ByVal A() As Integer) D．Private Sub Sub1(A(10)As Integer)

266．程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String* 6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是________。

①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(st(6)) A．①② B．①③ C．②③ D．②④ 267．DrawStyle属性用于设置图形方法输出的线型，它受________属性的限制。

A．FillStyle B．FillColor C．BorderStyle D．DrawWidth 268．Print方法可在 上输出数据。

①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口

A．①③⑥ B．②③⑤ C．①②⑤ D．⑧④⑥ 270．以下有关数组参数的说明中，正确的是 。 A．在过程中也可用Dim语句对形参数组进行说明

B．动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C．调用过程时，数组名不能作为实参

D．数组可以按地址传递也可以按值传递 271．窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要将该按钮的________属性设置为True。

22

A．Enabled B．Default C．Cancle D．Visible 272．执行以下语句时，会出现错误提示的是________。

A．Print \ B．Print \C．Print \ D．Print \

274．以下的4个表达式中，有________个能够对Single类型变量x（正数）的第3位小数正确地进行四舍五入计算。

Format(x, \ Int(100 * (x + 0.005)) / 100 CInt(100 * (x + 0.005)) / 100 Fix(100 * (x + 0.005)) / 100 A．1个 B．2个 C．3个 D．4个 275．下面有关数组处理的叙述中，正确的是________。

A．在过程中使用ReDim语句可以改变动态数组的数据类型 B．在过程中，可以使用Dim、Private和Static语句来定义数组

C．用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D．不可以用Public语句在窗体模块的通用处说明一个全局数组 276．下列关于菜单的说法中，错误的是________。

A．每一个菜单项就是一个对象，并且可设置自己的属性和事件 B．菜单项不可以响应DblClick事件 C．VB6.0允许创建超过四级的子菜单

D．程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False 277．以下关于Function过程的说法中，错误的是________。

A．Function过程名可以有一个或多个返回值

B．在Function过程内部不得再定义Function过程 C．Function过程中可以包含多个Exit Function语句 D．可以像调用Sub过程一样调用Function过程 278．以下Case语句含有错误的是________。

A．Case 0 To 10 B．Case Is > 10 C．Case Is > 10 And Is < 50 D．Case 3,5,Is > 10 279．下面的表达式中，运算结果为True的是________。

A．\ B．Int(134.69) <= Cint(134.69) C．3 > 2 > 1 D．Mid(\

280．设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其________属性置为True，再将ScrollBar属性设置为3。

A．MultiLine B．AutoSize C．Alignment D．RightToLeft

23

二、填空题

１． 根据下图写出InputBox函数中的参数。

InputBox( （1） , （2） , （3） ) ２． 执行下面的程序，在窗体上显示的输出结果的第一行是 （４） ，第二行是 （５） 。

Option explicit

Private sub form_click()

Dim I as integer, j as integer J=10

For I=1 to j

I = I+1 J = j - i Next I Print I Print j

End Sub ３． 执行下面的程序，在窗体上显示的输出结果的第一行是 （６） ，第三行是 （７） 。

Private sub form_click() Dim a as integer Dim I as integer A=2

For I=1 to 9

Call sub1(I, a) Print I,a Next I End Sub

24

Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step –1 N=n+x X=x+1 Next I Y=y+n End sub ４． 执行下面的程序后，A(1,3)值是（８） ，A(2,2)值是 （９） ，A(3,1)值是（１０） 。

Option explicit

Private sub form_click()

Dim A(3,3) As integer, I as integer

Dim j as integer, k as integer, n as integer For k=1 to 5

If k<=3 then For I=1 to k N=n+1

A(I,k-I+1)=n Next I Else

For I=1 to 6-k N=n+1

A(k-3+I,4-I)=n Next I End if Next k

For k=1 to 3 For I=1 to 3 Print A(k,I); Next I Print Next k

End Sub ５． 执行下面的程序，在窗体上显示的输出结果的第一行是（11） ，第二行是 （12） 。

Option explicit

Private Sub form_click()

Dim I as integer, j as integer I=1:j=2 Call test(I, j) Print I, j Call test(I, j) Print I, j End Sub

25

End Function

32．下面的程序是把给定的十六进制正整数转换为十进制数。

提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。

(an an-1?a1)16=an×16n-1+an-1×16n-2+?+a1×160 Option Explicit

Private Sub Form_Click()

Dim St As String, Dem As Long St=InputBox(\输入一个十六进制数\ Dem=Convert(St) Print St; \End Sub

Private Function Convert(S As String)As Long

Dim N As Integer, I As Integer, Substring As String*l Dim P As Long, K As Long, Asc1 As Integer N= （42） P=16^N

For I=1 To N P=P／16

Substring= （43） Select Case Substring Case \

K=K+P*Val(Substring) Case （44） Asc1=Asc(Substring)-Asc(\

（45） End Select Next I

（46） End Function

33．执行下面的程序，单击窗体后在窗体上显示的结果是 （47） 。 Private Sub Form_Click()

Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1=\ For I=1 To 2

Str2=UCase(Str1) Str1=Str2 & Str1 Str3=Str3 & Str1 Str1=Chr(Asc(Str1)+I) Next I Print Str3

End Sub

34. 下面的程序是采用“冒泡排序”法从键盘上输入10个整数，将10个数从小到大排序。

Private Sub Command1_Click()

31

Dim a(1 To 10) As Integer msg = \输入数：\ msgtitle = \冒泡排序\ For i = 1 To 10

a(i) = （48） Next i

For i = 10 To 2 Step - 1

For j = 1 To （49） If （50） Then

t = a(j+1): a(j+1) = a(j): a(j) = t End If Next j Next i

For i = 1 To 10 Print a(i) Next i End Sub

35．执行下面的程序，在窗体上显示的输出结果的第一行是 （51） ，第二行是 （52） 。

Option Explicit

Private Sub Form_Click()

Dim s As String, i As Integer, flag As Boolean s=\ S=LCase(s) Print s Flag=True

For I=1 to Len(s)

If Mid(s, i, 1)= \ Then flag=True ElseIf flag Then

S=Left(s, I-1) & UCase(Mid(s, i, 1)) ＆ Right(s, len(s)-i) Flag=False End If Next i Print S End Sub 36．执行下面的程序，在窗体上显示的输出结果的第一行是 （53） ，第二行是 （54） ，第三行是 （55） 。

Option Explicit

Dim a As Integer, b As Integer Private Sub Form_Click() Dim c As Integer a=1 b=3 c=5

Print fun(c)

32

Print a, b, C Print fun(c) End Sub

Private Function fun(x As Integer) As Single fun=a+b+x／2 a=a+b b=a+x x=b+a End Function

37．执行下面的程序，在窗体上显示的输出结果的第一行是 （56） ，第二行是 （57） 。

Option Explicit

Private Sub Form_Click()

Dim M As Integer, N As Integer M=1:N=2

Print M+N+Fun1(M, N) M=2：N=1

Print Fun1(M, N)+Fun1(M, N) End Sub

Private Function Fun1(X As Integer, Y As Integer) X=X+Y Y=X+3 Fun1=X+Y End Function 38．执行下面的程序，在窗体上显示的输出结果的第一行是 （58） ，第二行是 （59） ，第四行是 （60） 。

Option Explicit

Private Sub Form_Click()

Dim a(2, 2) As Integer, i As Integer, J As Integer Dim k As Integer For i=1 To 2 For j=1 To 2

a(i, j)=(I-1)*2+J Print a(i, j); Next j Print Next i Print k=(I-1)*2 For i=1 To 2 For j=1 To 2 a(i, J)=k k=k- 1 Print a(i, j); Next j Print

33

Next i End Sub

39．执行下面的程序，在窗体上显示的输出结果的第一行是 （61） ，第三行是 （62） ，Form_Click()事件过程中的第二个For-Next循环共执行了 （63） 次。

Option Explicit Option Base 1

Private Sub Form_Click()

Dim a(5) As Integer, i As Integer, J As Integer For i=1 To 5 a(i)=2*I-1 Print a(i); Next i Print

For j=1 To I-2 Call sub1(a(j), j) Print j Next j End Sub

Public Sub sub1(X As Integer, P As Integer) If x-P<=2 Then P=P+1 Else P=P+2 End If End Sub 40．下面程序的功能是：统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和。

Option Explicit

Private Sub Form_Click()

Dim X As Integer, s1 As Integer, s2 As Integer Dim n1 As Integer, n2 As Integer, i As Integer Randomize For i=1 To l0

X=Int(Rnd*90)+10 Print X;

If （64） then n2=n2+l s2=s2+X Else

（65）

S1=s1+X

End If Next i Print

Print \奇数个数=\偶数个数=\

34

End Sub

41．下面程序的功能是：单击命令按钮Command1，找出100以内的所有约数之和为一个完全平方数的正整数，并按下图中所示的格式将结果显示在图形框Picture1中。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, J As Integer

Dim F() As Integer, sum As Integer For i=3 To 100 （66） If Fac(i, F, sum) Then

Picture1.Print i; \：\ For J=1 To UBound(F)-1 Picture1. Print F(J); \ Next J

Picture1. Print F(J); \ End If Next i End Sub

Private Function Fac(ByVal K As Integer, A() As Integer, sum As Integer) As Boolean Dim N As Integer, J As Integer For N=1 To K

If （67） then J=J+1 （68） A(J)=N

Sum=sum + N End If Next N

If Sum= （69） Then Fac=True End Function

42．下面程序执行后，输出的第一行是 （70） ，第二行是 （71） ，第三行是 （72） 。

Private Sub Form_Click()

Dim a As Integer, b As Integer

35

End Sub 53．执行下面的程序，单击窗体，则在窗体上显示的第一行是 （101） ，第二行是 （102） ，第三行是 （103） Private Sub Form_Click()

Dim a(3, 3) As Integer, i As Integer, j As Integer For i=1 To 3 For j=1 To 3

a(i, j)=(I-1)*2+j Next J Next i

For j=1 To 3 For I=j To 3 Print a(j, i); Next i Print Next j End Sub

54．执行下面的程序，单击命令按钮Command1，则窗体上显示的第一行是 （104） ，第二行是 （105） ，第三行是 （106） 。

Private Sub Command1_Click() Dim S As String, t As String Dim k AS Integer, m AS Integer s=\ k=1: m=k

For k=1 To Len(s) Step m+1

t=t & Chr(Asc(Mid(s, m, 1))+k) k=k+1

If Mid(s, k, 1)= \ Exit For M=m+k Print t Next k Print m End Sub

55．执行下面的程序，单击窗体，在立即窗口上显示的第二行是 （107） ，第三行是 （108） Option Explicit

Dim A As Integer

Private Sub Form_Click() Dim B As Integer Dim D As Integer A=1:B=2

D=fun(A, fun(A, B)) Debug. Print A, B, D End sub

Private Function fun(K As Integer, N As Integer)As Integer Debug. Print K, N,

41

K=N+A+K N=K+A+N fun=K+N

Debug. Print fun End Function

56．执行下面的程序，如果不选中复选框Check1，单击命令按钮Command1，则在文本框Text1中显示的变量a的值是 （109） ，b的值是 （110） ，r的值是 （111） ；如果选中复选框Check1，单击命令按钮Command1，则文本框Text1中显示内容是 （112） (图l为本程序设计界面)。

Private Sub Command1_Click() 图 １ Dim a As Integer, b As Integer, r As Integer a=27: b=12

If Check1. Value=0 Then r=gcd(a, b)

Text1=\＆ CStr(a) & \ ElseIf Check1. Value=1 Then r=gcd((a), (b))

Text1=\ End If End Sub

Private Function gcd(x As Integer, Y As Integer)As Integer Dim r As Integer r=x Mod Y Do While r<>0 X=Y: Y=r r=X Mod Y Loop gcd=Y End Function 57．下面程序的功能是随机产生20个两位数，从中找出最大的元素和最小的元素，请在空格处填入相应的语句，使之完成上述功能。

Option Explicit Option Base 1

Private Sub Command1_Click() Dim D(20) As Integer, I As Integer Dim Max As Integer, Min As Integer Randomize For I=1 to 20

D(i)= （113） Print D(i); Next I Print

42

Max = D(1): Min = D(1) For I=2 To 20

If D(i) > Max Then （114） ElseIf （115） Then Min = D(i)

End If Next I

Print \最大数是：\Print \最小数是：\End Sub

58．下面程序的功能是：将以“12；3；15”形式输入的字符串分解为数字12、3、15，分别赋给3个数组元素，并对其进行简单运算(图2为本程序执行画面)。

Private Sub Command1_Click() Dim a(3) As Integer, i As Integer Dim n As Integer Dim S As String s= （116） For i=l To 2

n=InStr(s, \ a(i)=Left(s, n-1) S= （117） Next I

（118）

Text2. Text=a(1)*a(2)+a(3)

End Sub 图 2

59．本程序是找零巧数。所谓零巧数是指具有下述特性的四位正整数；其百位数为0，如果去掉0，得到一个三位正整数，而该正整数乘以9，等于原数。例如，2025=225×9，所以2025是零巧数(图3)。

Private Function Change(s As String)As String Dim P As String, i As Integer For i=1 To Len(s) If i<>2 Then P= （119） End if Next i

Change=P End function

Private Sub Command1_Click() Dim i As Integer, s As String For i=1000 To 9999 S= （120）

If Mid(s, 2, 1)= \

If Val(Change(s))*9= （121） Then 图 3

43

Text1=text1 & s & change(s) & \

End If

End If Next i End Sub

60．下述程序的功能是实现矩阵的转置（即行列互换）。完善程序。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim I As Integer, j As Integer, D1() As Integer, D2() As Integer Dim m As Integer, n As Integer M=InputBox(\输入数组行数\N=InputBox(\输入数组列数\

（122） D1(m, n) As Integer, D2(n, m) As Integer For I=1 To m For j=1 To n

D1(I,j)= （123） Print D1(I,j); Next j Print

Next I

For I=1 To （124） For j=1 To （125） D2(j,I)=D1(I,j) Next j Next I

For I=1 To n For j=1 To m Print D2(I,j); Next j Print Next I End Sub

61．下列程序运行后输出结果是 （126） 。 Private Sub Form_Click()

K=1

For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S

End sub 62．运行下面的程序，当单击窗体时，文本框 Text1 中的内容是 （127） ，文本框 Text2 中的内容是 （128） 。 Private Sub Form_Click()

Dim St As String

Dim St1 As String, St2 As String

44

St = \

Call Change_String(St, St1, St2) Text1.Text = St1 Text2.Text = St2 End Sub

Private Sub Change_String(S As String, St1 As String, St2 As String) Dim tem As String, i As Integer For i = 1 To Len(S) tem = Mid(S, i, 1) If tem = \ St1 = St1

St2 = St2 & \

ElseIf tem = \

St1 = St1 & \ Exit For

Else

St1 = St1 & tem St2 = St2 & tem

End If Next i End Sub 63．执行下面程序，单击命令按钮Command1 ，则在窗体上显示的第一行是 （129） ，第二行是 （130） ，第三行是 （131） 。

Private Sub Command1_Click( )

Dim s_data As Integer, d_data As String, k As Integer, p As String s_data = 29

Do Until s_data <= 5

p = s_data Mod 5 d_data = d_data & p s_data = s_data \\ 5

Loop

d_data = d_data & s_data Print s_data Print d_data p = \

For k = Len(d_data) To 1 Step -1

p = p & Mid(d_data, k, 1)

Next k Print p End Sub

64．执行下面程序，从键盘输入3，程序运行结束后，A(1, 1)的值是 （132） ，A(2, 2) 的值是 （133） ；A(3, 3)的值是 （134） 。 Private Sub Form_Click()

Dim I As Integer, J As Integer, K As Integer

45

本文来源：https://www.bwwdw.com/article/7udh.html