VB题库1.docx

1、VB题库1一、 单选1.下列程序段的执行结果是D。 Dim m(10) For i=0 to 10 m(i)=2*i Next i Print m(m(i3) A. 3 B. 6 C. 9 D. 12 2.鼠标移动经过控件时,将触发控件C事件。 A. MouseUp B. MouseDown C. MouseMove D. MousePress 3.MsgBox函数返回值的类型为A。 A. 数值 B. 字符串 C. 变体 D. 数值或字符串 4.若想在菜单中使用热键,得采用的操作是C。 A. 在标题后添加%符号和想用的热键字母 B. 在标题后添加#符号和想用的热键字母 C. 在标题后添加&符号

2、和想用的热键字母 D. 在标题后添加$符号和想用的热键字母 5.为了确定一个控件是否可见，需要将D属性设置为False。 A. Name B. Cancle C. Enabled D. Visible 6.禁用计时器控件，需将C属性设置为False。 A. Name B. Cancle C. Enabled D. Visuble 7.图片框控件和图像控件都能显示下述A图片文件 A. GIF B. TXT C. DAT D. WFM 8.若执行如下语句，窗体上显示的是D。 a=9.8596 Print Format(a,$00,00.00) A. 0,009.86 B. $9.86 C. 9.8

3、6 D. $0,009.86 9.语句Dim P1(-3 to 2,3) As Integer定义的数组元素有C。 A. 15 B. 20 C. 24 D. 18 10.设时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，Timer事件结束后变量x的值为D。 Dim x as Integer Private Sub Timer1_Timer() For I=1 to 10 x=x+1 Next I End Sub A. 1000 B. 10000 C. 55 D. 不确定 11.如下数组声明语句，正确的是D。 A. Dim a 2, 4 As Int

4、eger B. Dim a(2 4) As Integer C. Dim a(n；n) As Integer D. Dim a(2, 4) As Integer 12.设a=库尔勒香梨 KelXL , 则以下使变量b的值为香梨的语句是D。 A. b=Left(a,4,2) B. b=Mid(a,2) C. b=Right(a,4,2) D. b=Mid(a,4,2) 13.在VB中，要从一个Sub过程中退出，应该使用语句D。 A. Exit Sub B. Exit C. Clear D. End sub 14.下列可作为Visual Basic变量名的是C。 A. F?D B. 2ab C.

5、MaxG D. x#xy 15.Visual Basic 是一种面向对象的程序设计语言，控件的三要素是A。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 16.函数Rnd的值的范围是B。 A. 0,1 区间内的整数 B. 0,1)区间内的整数 C. (0,1) 区间内的整数 D. (0,1 区间内的整数 17.在代码窗口内将Text1的“text”属性设置为“时钟”，正确的书写形式是B。 A. 时钟 B. text1=时钟 C. text=时钟 D. (时钟) 18.关闭程序中打开的所有文件，应使用的语句是D。 A. Close 1 B. Cl

6、ose *.* C. Close all D. Close 19.以下选项中，不是Visual Basic默认控件名的是C。 A. Command1 B. Text1 C. Time1 D. Label1 20.在用菜单编辑器设计菜单时,必须输入的项是D。 A. 快捷键 B. 标题 C. 索引 D. 名称 21.下列不能接收焦点的控件是D。 A. 命令按钮 B. 文本框 C. 标签 D. 列表框 22.在VB中，要将一个窗体载入内存进行预处理，但不显示，应该使用语句B。 A. Show B. Hide C. Load D. Unload 23.要将一个组合框设置为简单组合框(Simple Co

7、mbo),则应将其Style属性设置为B。 A. 0 B. 1 C. 2 D. 3 24.VB有三种工作模式是A。 A. 设计模式、运行模式、中断模式 B. 设计模式、运行模式、编辑模式 C. 运行模式、编辑模式、界面模式 D. 运行模式、中断模式、界面模式 25.要删除ComoBox控件中的某个项目，需要使用C方法。 A. Clear B. AddItemC. RemoveItem D. Move 二、多选 1.下列控件中能够获得焦点的控件有_。ABCD A. 文本框TextBox B. 命令按钮CommandButtonC. 标签Label D. 框架Frame E. 计时器Timer 2

8、.Shape控件能绘制的图形有_B、C、D、E_。 A. 五角形 B. 圆角正方形C. 圆角长方形 D. 椭圆形 E. 圆形 3.属于VB关系运算符的有_。ABCD A. B. =C. = D. E. Or 4.下列选项中属于选项按钮OptionButton控件的属性有_。A、B、C、D A. BackColor B. Caption C. Picture D. Value E. Text 5.下列表达式中能从当前时间中取出小时数的表达式有_。CD A. Hour(Date) B. HourC. Hour(Time) D. Hour(Now) E. Hour(Year)三、判断 1.VB是一种

9、面向过程的程序设计语言。 2.属性是用来描述和反映对象特征的参数，对象的属性既可以在属性窗口中设置，又可以在程序代码中设置。 3.用于获得字符串长度的函数是StrLen()。 4.只能用来显示字符信息而不能进行编辑的控件是文本框。 5.VB中能加载对象的方法是Visible。 6.VB的Double类型数据，可以精确表示其数值范围内的所有实数。 7.设置框架的Enabled属性为False，框架内的所有对象均被禁用。 8.注释语句可以使用单引号或Rem，被注释的语句也可被执行。 9.可以利用Shape控件的Shape属性画圆角正方形。 10.For.Next循环里可以再放另一个循环是允许的。

10、四、填空 1.在窗体中添加一个定时器控件Timer1，并将其间隔设成10。程序启动后将窗体背景色设成蓝色；然后在Timer事件中，以窗体的中心为圆心用不同颜色、不同半径（半径不超过窗体高度的一半）画圆。窗体单击后，清除所画的图形。请将程序补充完整。(注意：答案必须用西文半角字母填写，要区分大小写字母，且不能出现空格和多余字符！) Private Sub Form_Load() Me._ BackColor _ = vbBlue End Sub Private Sub Form_Click() Me.Cls End Sub Private Sub Timer1_Timer() Me.ForeCo

11、lor = 256 3 * Rnd r = Rnd * Me.ScaleHeight / 2 * Rnd Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), r End Sub 2.Private Sub Command1_Click() Dim a, b As String Dim i As Integer a = abcdefghijklmn For i = 1 To Len(a) Step 4 b = Mid(a, i, 1) & b Next i Print b End Sub 执行上面程序段后，所输出的内容为_ miea _。(注意：

12、答案必须用西文半角字母填写，要区分大小写字母，且不能出现空格和多余字符！) 3.窗体中有一组文件系统控件，分别是驱动器列表框Drive1目录列表框Dir1和文件列表框File1，另外还有一个文本框Text1。要求当选择某一目录时，能显示出该目录中的文件个数（也就是相应文件列表框中的文件的个数）。请将程序补充完整。(注意：答案必须用西文半角字母填写，要区分大小写字母，且不能出现空格和多余字符！) Private Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = 文件数为： & File1.ListCount End Sub Private

13、 Sub Drive1_Change() Dir1.Path = _ Drive1_.Drive End Sub 4.Dim a(2, -2 To 1, 2 To 3) As Double 一个Double类型数据在内存中占8个字节，则上面数组在内存中占_192_字节。(注意：答案必须用半角阿拉伯数字填写，且不能出现空格、小数点和多余字符！) 5.5 mod 7+21+val(1) 上面表达式的值为_8_。(注意：答案必须用半角阿拉伯数字填写，且不能出现空格、小数点和多余字符！)五、基本操作题1 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件

14、夹下的工程文件project11.vbp，在窗体Form1中完成下列操作： 如图所示，设计一个字符颜色应用程序。其中：窗体的标题为字符颜色。在窗体上画一个标签， Label1，为:&HFF00&)，如果单击Command3命标题分别为程序设计，字号为四号，标签能自动调整大小以显示所有的内容；再画三个命令按钮，其名称分别为Command1、Command2和Command3，标题分别为红、绿、蓝，单击Command1命令按钮，则在标签Label1中字符变为红颜色(ForeColor属性设置为:&HFF&)，如果单击Command2命令按钮，则在标签Label1中字符变为绿颜色(ForeColor

15、属性设置令按钮，则在标签Label1中字符变为蓝颜色(ForeColor属性设置为:&HFF0000)，代码中不能用变量。 注：本题中工程文件名为project11.vbp，工程名为工程1，窗体文件名为Form11.frm，窗体名为Form1。六、基本操作题2 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件夹下的工程文件project12.vbp，在窗体Form1中完成下列操作： 如图所示，设计一个剪切板应用程序。其中：窗体的标题为剪切板。在窗体上画一个标签 Label1，标题分别为剪切板测试，字号为四号，标签能自动调整大小以显示所有的内容；

16、再画一个文本框Text1，字号为四号；再画一个命令按钮Command1，标题为复制，单击命令按钮时，利用剪切板将标签 Label1中的标题字符复制粘贴到文本框Text1中(代码中除了Clipboard外，不能使用其它变量)。 注：本题中工程文件名为project12.vbp，工程名为工程1，窗体文件名为Form12.frm，窗体名为Form1。七、简单应用题 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件夹下的工程文件project2.vbp，在窗体Form1中完成下列操作： 将命令按钮Command1、Command2和Command3的标

17、题分别改为读取数据、计算和保存结果；为计算按钮(Command2)编写适当的事件代码实现下述功能： (1)单击读取数据按钮，把考试文件夹下的文件in1.dat中的100个数读到数组a中（此代码已经给出）；(2)单击计算按钮，计算100个数中正数、负数、0的个数，并分别显示在文本框Text1、Text2、Text3中（要求考生编写代码）；(3)单击保存结果按钮，将文本框Text1、Text2、Text3中的值存入out1.dat文件中（此代码已经给出）。 注意：程序按原文件名存盘。不得修改窗体文件中已经存在的代码。计算出结果之后，必须单击保存结果按钮存储计算结果，否则无成绩。 注：本题中工程文件名为project2.vbp，工程名为工程1，窗体文件名为Form2.frm，窗体名为Form1。答案：Private Sub Command2_Click()For i=1 to 100If a(i)0 then x=x+1If a(i)0 then y=y+1If a(i)=0 then z=z+1Next iText1=x,Text2=y,Text3=zEnd Sub