VB期末复习题.doc

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中规定工程文件的扩展名是：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代码窗口中，多行语句书写在同一行，应在语句之间加英文状态下的( ) 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的顺序文件，应先使用( )语句：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" 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、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、标签控件能显示文本，应对（ ）属性进行设置。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.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.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、结构化程序中的三种基本结构是： 顺序 、 选择 和循环 。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、编程实现两个数中的较大（较小）的一个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 = 5Call 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 = 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 "最高分:" max Print "最低分:" minPrint "平均分:" aveEnd Sub利用列表框和命令按钮等控件编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。写出窗体的装载事件。 Private Sub Command1_Click()添加项 Dim str As String str = InputBox(“请输入要添加的项目”) 输入要添加的项 List1.AddItem str添加 Command2.Enabled = True 使删除及全部删除按钮可用 Command3.Enabled = TrueEnd 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全部删除按钮不可用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的值为" n - 1End Sub求分段函数： 2X5 (当X5时) Y= 5X2 (当X < 5时) Private Sub Form_Click() Dim X!, Y As Single X = Val(InputBox("请输入自变量X的值", "求分段函数") If X >= 5 Then Y = 2 * X + 5 Print "y=" Y Else Y = 5 * X - 2 Print "y=" Y End IfEnd Sub 7 是 种 设" 言言 - "" > )数函"值的入请 = ( 时 ( ) 数函 - 值 0 " 继00乘0< * 加+ ( 0于乘个。 程 乘出输 . = 到到 值赋= 取获) ( ,% ( _ = = 可按使 . 机算 学数 . 理物 . 事事体 _ 可可除部 . 可可按 = . 部中框 删全( = . = . 可钮全除项框 =< . 中选 除 _ . 可钮部及 . 添 . 的添要”项添入 加 。的体能的项、目、加现序，件钮令框 :均 :最" "高 - - > = + =) =:分评 第"= = = = = ):分个入请 = , % % ( 。数低分均出计低和最个去委0 , = 0 , , , =: = %( - 0 += = ( 和素线值小大赋元、值部。算维程编。数分实一的（较数实程。换的现数 不阶个 程编。独为属 _的有其同个这属多所组框框是组 访二和问机 问 为法件问种提 和 别， 传 过函的 子开 过自 =” ( 数 环和 序 结种的化结构结多较于句 了提 值 . 函 果示上， 钮按击， + = + : ( 、 、 0、 ）值 " 达-. . 置设 其则隔分中菜果 . 方方 使据数文顺 、 变、级模局统统、 为量变作量按 . 是数文否判以文文 件、 .件文 件窗 和文件个保时序 以不都 可 、 ），信或信一给，运程 、 0 0、 0）为性 的 器时，件次发秒 、 置置属（应本件控 的都控是）列、 （ 运表、 、 -（ 结表 、 、 是的0 + 式 * （确书列 、 、 的事单中下 在 的件入表以中 、 ) 为，接义量一果窗属 口码 箱、 ）工)是窗将 后中双 " . : 、 # . " 句句 (先容文顺 个夹前从 " " : # " " " 句语 使，序的 立下件盘 、 、 性）的体窗需标窗果件 、 控 控 件 是变小大控件 、 件 件 本示用，户接于控列?（ ）（ ）号、 ）号) 态状间语行同句多中码 ?（、 号 号冒 ）号逗)态英加应时释以条将，代 方，象性 事象对事事方象 法方性象 (是、色则袋球台 、 是名件块中 、 是展件文规. 、 、 是展的窗中0 字八 节 字、 节一 空存中内型精字字、 节四 节个 字一 是储的存量辑个 （程种发于 对、 、 件事 户