VisualBasic程序设计复习题定稿

1Visual Basic 复习题 一、选择题 1.Visual Basic 的三种工作模式是【C】 。（A）编辑、运行、中断 （B）编译、中断、设计（C）运行、设计、中断 （D）编辑、编译、运行2. 如果要使窗体的最大化按钮变成暗灰色（不起作用） ，应设置窗体的【C】属性。（A）Caption （B）Icon （C）MaxButton （D）MinButton3. 在设计阶段，双击窗体 Form1 的空白处，打开代码窗口，显示【 B 】事件过程模板。（A）Form_Click（B）Form_Load （C）Form1_Click （D）Form1_Load4.设在窗体上有两个命令按扭，其中一个命令按钮的名称为 cmda，则另一个命令按钮的名称不能是【 C 】 。（A）cmdc （B）cmdb（C）cmdA （D）Command15.以下可以作为Visual Basic变量名的是【 C】。（A）F1.1 （B）（C）F2A （D）2FA6假设某一工程文件的工程资源管理器窗口如图 2-3 所示，则该工程文件的磁盘文件名为【 B 】 。图 2-3 某工程的工程资源管理器窗口（A）工程 1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.frm7假设某一工程文件的工程资源管理器窗口如图 2-3 所示，则窗体文件的磁盘文件名为【 D 】 。图 2-3 某工程的工程资源管理器窗口（A）工程 1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.frm8假设某一工程文件的工程资源管理器窗口如图 2-3 所示，则标准模块文件的磁盘文件名为【 D 】 。2图 2-3 某工程的工程资源管理器窗口（A）工程 1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.bas9 Visual Basic 程序设计语言属于【 C 】 。（A）面向过程的语言 （B）面向问题的语言（C）面向对象的语言 （D）面向机器的语言10当将窗体的【 C 】属性值设置为 False 时，将不显示窗体的控制菜单、最大化/最小化及关闭按钮。（A）MaxButton （B）MinButton（C）ControlBox （D）WindowState11要在窗体上显示图片，需设置窗体的【 C 】属性。（A）Caption （B）Icon （C）Picture （D）ControlBox12如果设计时在属性窗口将命令按钮的【 B 】属性设置为 False，则运行时按钮不起作用。（A）Visible（B）Enabled （C）DisabledPicture （D）Default13语句X=X+1的正确含义是【 C 】。（A）变量X的值与X+1的值相等（B）将变量X的值存到X+1中去（C）将变量 X 的值加 1 后赋给变量 X （D）变量 X 的值为 114变量未赋值时，数值型变量的值为【 A 】。（A）0（B）空串“ （C）Null （D）没任何值15显示如图4-1所示的输入框的语句是【 A 】。（A）A = InputBox(“请输入一个正整数“, “示例“, “1“)（B）A = InputBox(“示例“, “请输入一个正整数“, “1“)（C）A = InputBox(“1“, “示例“, “请输入一个正整数“)（D）A = InputBox(“请输入一个正整数“, “1“, “示例“)图4-1 输入框（一）16将文本框的【 A 】属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。（A）MultiLine（B）ScrollBars （C）Text （D）Enabled17如果将文本框的【 A 】属性设置为True，则运行时不能对文本框中的内容进行编辑。（A）Locked （B）MultiLine （C）TabStop （D）Visible18在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控3件的【 C 】事件过程模板。（A）Click （B）DblClick（C）Change （D）GotFocus19下面程序段的功能是【 D 】。A = 10.5B = Int(A + 0.5)Debug.Print B（A）求平均值（B）将一实数四舍五入取整（C）求绝对值 （D）舍去一实数的小数部分20以下【 C 】程序段可以实现 X，Y 变量值的交换。（A）Y = X: X = Y （B）Z = X: Y = Z: X = Y（C）Z = X: X = Y: Y = Z （D）Z = X: W = Y: Y = Z: X = Y21语句 Print “Sgn(-26)=“; Sgn(-26)的输出结果为【 C 】。（A）Sgn(-26)=26 （B）Sgn(-26)=-26（C）Sgn(-26)=-1 （D）Sgn(-26)=122下列程序段的执行结果为【 B 】。X=2.4:Z=3:K=5Print “A(“;X+Z*K;“)“（A）A( 17 ) （B）A( 17.4 )（C）A( 18 ) （D）A( 2.4+3*5 )23下列程序段的执行结果为【 A 】。X=0Print X-1X=3（A）-1（B）3（C）2 （D）024若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的【 D 】属性。（A）BackColor （B）BorderStyle （C）ForeColor（D）BackStyle25下列叙述不正确的是【 B 】。（A）注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译（B）注释语句可以放在代码中的任何位置（C）注释语句不能放在续行符的后面（D）代码中加入注释语句的目的是提高程序的可读性26下列语句正确的是【 D 】 。（A）If AB Then T=A A=B B=T （B）If AB Then T=A;A=B;B=T（C）If A=B Then T=A A=B B=T（D）If A=B Then T=A:A=B:B=T27. 下列语句正确的是【 A 】 。（A）If XY Then Y=X3 （B）If XY Then Y=X 3（C）If XY Then Y=X3 （D）If XY Then Y=X*328关于语句 If x = l Then y = 1，下列说法正确的是【 C 】 。（A）x=1 和 y=1 均为赋值语句 （B）x=1 和 y=1 均为关系表达式（C）x=1 为关系表达式，y=1 为赋值语句（D）x=1 为赋值语句，y=1 为关系表达式29下列程序段【 D 】能够正确实现条件：如果 X=0 And x=1 And x= 0, Is = 1, Is = 2y = 3End Select5K = K + 1Next INext JPrint K（A） 10 （B） 6 （C） 11 （D） 16 34下列程序段的执行结果为【 C 】 。For X = 5 To 1 Step -1For Y = 1 To 6 - XPrint Tab(Y + 5); “*“;Next YPrintNext X（A）* （B）* （C）* （D）* * * * * * * * * * * * *35用于设置粗体字的属性是【 C 】 。（A）FontName （B）FontSize（C）FontBold （D）FontItalic36用于设置斜体字的属性是【 D 】 。（A）FontName （B）FontSize （C）FontBold（D）FontItalic37用于设置删除线的属性是【 A 】 。（A）FontStrikethru （B）FontSize （C）FontBold （D）FontItalic38用于设置下划线的属性是【 B 】 。（A）FontName（B）FontUnderline （C）FontBold （D）FontItalic39运行时，要清除图片框 P1 中的图像，应使用语句【 B 】 。（A）Picture1.Picture =“（B）P1.Picture = LoadPicture()（C）Picture1.Picture = LoadPicture（D）Picture = LoadPicture(“C:WINDOWSClouds.bmp“)40默认情况下，运行时窗体最小化图标为 ，如果要改变为其他图标，需设置窗体的【 B 】属性。（A）Caption （B）Icon （C）MaxButton （D）MinButton41.下列【 B 】程序段能删除列表框 List1 中的所有项。42定时器的 Interval 属性以【 C 】为单位指定 Timer 事件之间的时间间隔。（A）Private Sub Command3_Click()For I=0 To List1.ListCount-1List1.RemoveItem INext I End Sub（B）Private Sub Command3_Click()For I=0 To List1.ListCount-1List1.RemoveItem 0Next IEnd Sub（C）Private Sub Command3_Click()For I=0 To List1.ListCount-1List1.RemoveItem 1Next I End Sub（D）Private Sub Command3_Click()For I=0 To List1.ListCountList1.RemoveItem 0Next I End Sub6（A）分 （B）秒 （C）毫秒 （D）微秒43下面的数组声明语句中【 B 】是正确的。（A）Dim A3, 4 As Integer（B）Dim A(3, 4) As Integer（C）Dim A3; 4 As Integer （D）Dim A(3:4) As Integer44设有数组声明语句：Option Base 0Dim B(-1To 10,2 To 9,20) As Integer则数组 B 中共有【C】个元素。（A）1800 （B）1848 （C）2016（D）231045为了添加 ComboBox 控件中的项目，需要使用【C】方法。（A）Add（B）Remove（C）AddItem （D）RemoveItem46为了删除 ComboBox 控件中的项目，需要使用【 D 】方法。（A）Add（B）Remove （C）AddItem（D）RemoveItem47要想在过程调用后返回两个结果，下面的过程定义语句合法的是【 C 】 。（A）Sub Proc1(ByVal n, ByVal m) （B）Sub Proc1(n, ByVal m)（C）Sub Proc1(n, m) （D）Sub Proc1(ByVal n, m)48Sub 过程与 Function 过程最根本的区别是【D】 。（A）Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以（B）Function 过程可以有参数，Sub 过程不可以（C）两种过程参数的传递方式不同（D）Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值49在参数传递过程中，使用关键字【 A 】来修饰参数，可以使之按值传递。（A）ByVal （B）ByRef （C）Value （D）Reference50通用过程可以通过执行“工具”菜单中的【 A 】命令来建立。（A）添加过程（B）通用过程 （C）添加窗体 （D）添加模块51执行“工程”菜单中的【 D 】命令，可以添加一个标准模块。（A）添加过程 （B）通用过程 （C）添加窗体 （D）添加模块52在窗体模块的通用声明段中声明变量时，不能使用【 D 】关键字。（A）Dim （B）Public （C）Private （D）Static53使用 Public Const 语句声明一个全局的符号常量时，该语句应放在【 C 】 。（A）过程中 （B）窗体模块的通用声明段（C）标准模块的通用声明段 （D）窗体模块或标准模块的通用声明段54可以在窗体模块的通用声明段中声明【 A 】 。（A）全局变量 （B）全局常量（C）全局数组 （D）全局用户自定义类型55在用菜单编辑器设计菜单时，必须输入的项是【 D 】 。（A）快捷键 （B）标题 （C）索引 （D）名称56执行语句 Form1.ScaleLeft = 100：Form1.ScaleTop = 200 之后，窗体 Form1 的左上角坐标为【 C 】 。（A）(0,0) （B）(200,100)（C）(100,200) （D）视 ScaleMode 属性的当前值而定57Cls 方法可以清除窗体或图片框中的【 C 】内容。（A）在设计阶段使用 Picture 属性设置的背景位图（B）在设计阶段放置的控件（C）在运行阶段产生的图形和文字（D）以上全部内容58通过设置 Shape 控件的【 A 】属性可以绘制多种形状的图形。7（A）Shape （B）BorderStyle （C）FillStyle （D）Style59以下不合法的常量是【 A 】。（A）102 （B）100 （C）100.0 （D）10E+0160Visual Basic中的数据也可以以十六进制或八进制表示，十六进制数据以【 D 】符号开头。（A）$E （B）$H （C） MaxPrint “最小数为“; MinEnd Sub14下面的事件过程实现从键盘输入两个变量的值，交换这两个变量的值，并将交换后的结果显示在立即窗口中。Private Sub Form_Load()Dim a As Double, b As Double, c As Doublea = Val(InputBox(“请 输 入 a“)b = AADebug.Print aAEnd Sub供选择的答案：（ 1） （ A） Val(InputBox(“请 输 入 b“) （ B） (InputBox(“请 输 入 b“)（ C） Val(InputBox(“请 输 入 a“) （ D） (InputBox(“请 输 入 a“)（ 2） （ A） c = a : a = b : b = c （ B） a = b : b = a（ C） c = a : b = c: a = b （ D） b = a : a = b（ 3） （ A） Debug.Printb （ B） Form1.Print b（ C） Picture1.Print b （ D） Print b15以下程序用来产生 20 个(0,99)之间的随机整数，并将其中的偶数打印出来。Private Sub Command1_Click()RandomizeFor I = 1 To 20X = Int(Rnd*98 + 1)If X / 2 = Int(X / 2) 或 X 2Then Print XNext IEnd Sub916设某个程序中要用到一个二维数组,要求：数组名为 A，类型为字符串类型，第一维下标从 1 到 5，第二维下标从-2 到 6，则相应的数组声明语句为：Dim A(1 To 5, -2 To 6) As String17设有数组声明语句：Dim A(-1To 2,2) As Integer，则数组 A 中包括的所有元素有：A(-1,0) A(-1,1) A(-1,2) A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) A(2,0) A(2,1) A(2,2)18设有数组声明语句：Dim A(-1To 2,-1 To 1) As Long，则数组 A 中包括的所有元素有：A(-1,0) A(-1,1) A(-1,2) A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) A(2,0) A(2,1) A(2,2)19定义动态数组需要分两步进行，首先在模块级或过程级定义一个没有下标的数组，然后再使用 ReDim 语句定义数组的实际元素个数。20菜单分为下拉式菜单和弹出式菜单，菜单总与窗体相关联，设计菜单需要在菜单编辑器中设计。21不可以给顶级菜单设置快捷键。22菜单控件只包含一个 click 事件。23菜单编辑器的“标题”选项对应于菜单控件的 Caption 属性。菜单编辑器的“名称”框对应于菜单控件的 Name 属性。菜单编辑器的“索引”选项对应于菜单控件的 Index 属性。菜单编辑器的“复选”选项对应于菜单控件的 Checked 属性。菜单编辑器的“有效”选项对应于菜单控件的 Enabled 属性。菜单编辑器的“可见”选项对应于菜单控件的 Visible 属性。24要在菜单中建立分隔符条，应在菜单编辑器的标题选项中键入一个-符号。25表示控件与窗体顶部距离的属性是 TOP。表示控件与窗体左侧距离的属性是 Left。表示控件宽度的属性是 Width。表示控件高度的属性是 Height。26要同时选定多个控件，可以按住 Ctrl 或 Shift 键，再用鼠标依次单击各个控件。27要对选定的多个控件调整格式，如对齐、调整间距、统一尺寸等，可以使用格式菜单下的命令。28要运行当前工程，可以按键盘上的 F5 键。三、简答题1设窗体 Form1 上有两个命令按钮 C1 和 C2，简单说明以下各段事件代码的作用（说明当发生什么事件时完成什么功能） 。（1）Private Sub C1_KeyDown(KeyCode As Integer, Shift As Integer)Form1.BackColor = vbRedEnd Sub当焦点在命令按钮 C1 上时，按下键盘上的任一键时，将窗体 Form1 的背景颜色设置成红色。（2）Private Sub C1_KeyUp(KeyCode As Integer, Shift As Integer)Form1.BackColor = vbBlueEnd Sub当焦点在命令按钮 C1 上时，抬起键盘上的任一键时，将窗体 Form1 的背景颜色