VB期末复习题

1、1、Visual Basic是一种面向( )的程序设计语言。A、用户 B、事件 C、程序 D、对象2、Visual Basic主要用于开发哪种环境下的程序（ ）A、DOS B、DOS和Windows C、Windows D、UNIX3、一个逻辑型变量在内存当中占的存储空间是（ ）A、一个字节 B、两个字节 C、四个字节 D、八个字节4、一个双精度型变量在内存当中占的存储空间是（ ）A、一个字节 B、两个字节 C、四个字节 D、八个字节5、在Visual Basic6.0中规定窗体文件的扩展名是：A、frm B、for C、vbp D、bas6、在Visual Basic6.0中规定工程文件的扩

2、展名是：A、frm B、for C、vbp D、bas7、在Visual Basic6.0中标准模块文件的扩展名是：A、frm B、for C、vbp D、bas8、一只黑色的台球被打进袋内，则黑色、台球、打、进袋依次是( )A、对象，属性，事件，方法 B、对象，属性，方法，事件C、属性，对象，方法，事件 D、属性，对象，事件，方法9、在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加英文状态下的( ) A、逗号（，） B、冒号（：） C、单引号（） D、问号（?）10、在Visual Basic代码窗口中，多行语句书写在同一行，应在语句之间加英文状态下的( )

3、A、逗号（，） B、冒号（：） C、单引号（） D、问号（?）11、下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ）A、Label 控件 B、TextBox 控件 C、Timer 控件 D、CommandButton 控件 12、下列控件中大小不能改变的是（ ）A、Label 控件 B、TextBox 控件 C、Timer 控件 D、CommandButton 控件 13、如果要改变窗体的标题,需要设置窗体对象的（ ）属性。A、Caption B、Name C、BackColorD、BorderStyle14、要在C盘当前文件夹下建立一个名为Stu1.txt的顺序文件，应先使用(

4、)语句：A、Open " Stu1.txt" For Output As#2 B、Open " C:Stu1.txt" For lnput As#2 C、Open "C:Stu1.txt" For Output As#2 D、Open " Stu1.txt " For lnput As#2 15、要从C盘当前文件夹下一个名为Stu1.txt的顺序文件读取内容，应先使用( )语句：A、Open " Stu1.txt" For Output As#2 B、Open "C:Stu1.txt&

5、quot; For lnput As#2 C.、Open "C:Stu1.txt" For Output As#2 D、Open " Stu1.txt " For lnput As#2 16、双击窗体中的对象后，Visual Basic将显示的窗口是( )。A、项目（工程）窗口 B、工具箱 C、代码窗口 D、属性窗口17、如果一个变量未经定义直接使用，其类型为( )。A、integer B、byte C、boolean D、variant18、在Visual Basic中，以下选项中表示装入事件的是A、KeyUp B、Click C、Activate D

6、、Load19、在Visual Basic中，以下选项中表示单击事件的是A、KeyUp B、Click C、Activate D、Load20、下列标识符书写正确的是（ ）A、9xB、Y1+X2C、M*D、W621、表达式52*2+3 mod 104的值是（ ）A、50B、51C、52D、5322、表达式运算结果Int(-7.2)是（）A、-7 B、7 C、-8 D、823、表达式运算结果Fix(-7.2)是（）A、-7 B、7 C、-8 D、824、下列（ ）属性是每个控件都有的。A、NameB、CaptionC、FontD、Interval25、标签控件能显示文本，应对（ ）属性进行设置。

7、A、AlignmentB、CaptionC、Visible D、Borderstyle26、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）：A、1000 B、100 C、10 D、1 27、当程序运行时，需要给用户一些提示信息或警告信息时，应使用（）：A、MsgBox B、InputBox C、A和B都可以 D、A和B都不可以 28、保存一个VB程序时需要保存两个文件：A、.vbp文件和 .frm文件 B、窗体文件和 .frm文件C、工程文件和 .vbp D、模块文件和 .bas文件29、以下能判断是否到达文件尾的函数是（ ）A.BOF B.LOC C

8、.LOF D.EOF30、按照变量的作用域可将变量划分为（ ） A、公有、私有、系统B、全局变量、模块级变量、过程级变量 C、动态、常数、静态 D、Public、 Private、 static31、向一个顺序文件中追加数据，应使用（ ）方式A.Output B.Input C.Append D.Random32、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A、.= B、.* C、.& D、.- 33、表达式Print Val("20efgh")的值为（ ）：A、1 B、20 C、20 efgh D、efgh 34、For i = 1 To 19.

9、8 Step 3 i = i + 2 Next i Print iA、21 B、20 C、18 D、2235、Private Sub Command1_Click() Dim Y As Integer : Static X As IntegerY = Y + 5 ：X = X + 5 ：Print X, YEnd Sub程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为( )A5 5 B15 5 C. 15 15 D5 15 36、函数fix(5.67)的值为（ 5）37、VB提供了（ Select Case）语句用于描述较复杂的多分支结构。38、结构化程序中的三种基本结构是

10、： 顺序 、 选择 和循环 。39、函数Left(“student”,5)= stude ，Right(“Student”,4)= dent 。40、用户自定义过程分Sub开头的 子过程 和Function开头的 函数过程 。41、VB参数传递有2种方式，分别是： ByVal 和ByRef 。42、在VB中，提供了三种访问文件的方法，分为是 顺序访问 、 随机访问 和 二进制访问 。43、因为组合框是文本框和列表框的组合，所以其大多数属性都和这两个控件相同。其中只有一个特殊的_Style_属性为其独有。 44、编程实现N!。求一个阶乘值不大于X的数N45、编程实现两个数的交换。 46、编程实现

11、两个数中的较大（较小）的一个47、编程实现分段函数。 48、编程实现二维数组运算。 如全部数组赋值、对角线元素赋值、最大值、最小值、对角线元素求和。Private Sub Command1_Click() Dim S as integer,I as integer S = 0 For I = 9 To 42 Step 11 S = S + I Next I If I > 50 Then S = S + I Else S = S - I Print S 155 End SubPrivate Sub Form_Click()Dim x%, y%, z%x = 2: y = 3: z = 5C

12、all proc(x, y, z)Print x, y, zCall proc(x, y, z)End Sub 15 20 35Private Sub proc(m, n, g) 15 20 35 m = 3 * g 105 140 245 n = 4 * gg = m + nPrint m, n, gEnd Sub编程实现：10位评委打分，去掉一个最高分和一个最低分，计算输出平均分、最高分及最低分数。 Private Sub Form_Click() Dim min%, max%, score%, i% Dim str As String Dim ave As Single score =

13、Val(InputBox("请输入第1个评委的分数:") max = score min = scoreave = scoreFor i = 2 To 10 str = "请输入第" & i & "个评委的分数:" score = Val(InputBox(str) ave = ave + score If max < score Then max = score If min > score Then min = score Next ave = (ave - max - min) / 8 Print &

14、quot;最高分:" max Print "最低分:" minPrint "平均分:" aveEnd Sub利用列表框和命令按钮等控件编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。写出窗体的装载事件。 Private Sub Command1_Click()添加项 Dim str As String str = InputBox(“请输入要添加的项目”) 输入要添加的项 List1.AddItem str添加 Command2.Enabled = True 使删除及全部删除按钮可用 Command3.Enabled = True

15、End SubPrivate Sub Command2_Click()删除项 List1.RemoveItem List1.ListIndex删除选中项 If List1.ListCount <= 0 Then列表框中无项,删除及全删按钮不可用 Command2.Enabled = False Command3.Enabled = False End IfEnd SubPrivate Sub Command3_Click()全部删除 List1.Clear删除列表框中全部项 Command2.Enabled = False删除按钮不可用 Command3.Enabled = False全

16、部删除按钮不可用End SubPrivate Sub Form_Load()窗体加载事件 List1.AddItem "物理" List1.AddItem "数学" List1.AddItem "计算机" Command1.Enabled = True使命令按钮可用 Command2.Enabled = True Command2.Enabled = TrueEnd Sub编程实现N!。 Private Sub Command1_Click() Dim n%, i%, k% n = Val(Text1.Text)获取n k = 1积赋初值1 For i = 1 To n从1乘到n k = k * i Next i Text2.Text = k输出阶乘值End Sub 编程实现N!。求一个阶乘值不大于5000的数N。 Private Sub Form_Click() Dim i%, s%, n% n = 0 Do n = n + 1n加1 s = 1 For i = 1 To n s = s * i Next Loop While s < 5000阶乘值小于5000继续 Print "N!<5000时，N的值为"