一、选择题：1、Visual Basic是一种面向( )的程序设计语言A、用户B、事件C、程序D、对象2、Visual Basic主要用于开发哪种环境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一个逻辑型变量在内存当中占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节4、在Visual Basic6.0中规定窗体文件的扩展名是：A、frmB、forC、vbpD、bas5、一辆黑色汽车驶进车站，则驾驶、黑色、汽车、进站依次对应__________A、对象，属性，事件，方法B、属性，对象，事件，方法C、方法，属性，对象，事件D、事件，属性，对象，方法6、在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加( )A、逗号（，）B、冒号（：）C、单引号（’）D、问号（?）7、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）A、Label 控件B、TextBox 控件C、Timer 控件D、CommandButton 控件8、如果要改变窗体的标题,需要设置窗体对象的_____属性。
A、CaptionB、NameC、BackColorD、BorderStyle9、要在C盘当前文件夹下建立一个名为Stu1.txt的顺序文件，应先使用( )语句：A、Open " Stu1.txt" For Output As#2B、Open "C：Stu1.txt" For lnput As#2C.、Open "C：Stu1.txt" For Output As#2 D、Open " Stu1.txt " For lnput As#210、Private Sub Command1_Click()Static X As IntegerDim Y As IntegerY = Y + 5 : X = X + 5Print X, YEnd Sub程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为( ) A．5 5 B．15 5 C. 15 15 D．5 1511、在Visual Basic中，以下选项中表示窗体的装入事件的是：A、KeyUpB、ClickC、ActivateD、Load12、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）：A、1000B、100C、10D、113、下列标识符书写正确的是（）A、9xB、X1+X2C、C*D、X614、表达式运算结果Int(-5.2)是（）A、-5B、5C、-6D、615、下列（）属性是每个控件都有的。
A、NameB、CaptionC、FontD、Interval16、保存一个VB程序时需要保存两个文件：A、.vbp文件和 .frm文件B、窗体文件和 .frm文件C、工程文件和 .vbpD、模块文件和 .bas文件17、当程序运行时，需要给用户一些提示信息或警告信息时，应使用（）：A、MsgBoxB、InputBoxC、A和B都可以D、A和B都不可以18、按照变量的作用域可将变量划分为（）A、公有、私有、系统B、全局变量、模块级变量、过程级变量C、动态、常数、静态D、Public、 Private、 Protected19、以下能判断是否到达文件尾的函数是（）A.BOFB.LOCC.LOFD.EOF20、表达式 3^2+10 mod 3-2 的值是（）A.9B.7C.8D.421、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）A、=B、*C、&D、-22、用于清除窗体或图片框上的图形和文本，应用下列哪个方法（）A．Cls B．Move C．Refresh D．show23、如果x是一个已声明的整型变量，则执行赋值语句x=”6”+5之后，变量x的值是什么？A.35B.8C.11D.出错24、表达式Print Val("20efgh")的值为（）：A、1B、20C、20 efghD、efgh25、For i = 1 To 19.8 Step 4i = i + 2Next iPrint iA、21B、20C、25D、22＊＊请将选择题答案填在下表内＊＊二、填空题：1、结构化程序中的三种基本结构是：、和2、VB参数传递有2种方式，分别是：和3、VB中，提供了三种访问文件的类型，分为是、和4、Left(“student”,6)=5、用户自定义过程分Sub开头的和Function开头的6、因为组合框是文本框和列表框的组合，所以其大多数属性都和这两个控件相同。
其中只有一个特殊的 _________属性为其独有。
7、用Dim A (3，1 to 4) As Integer定义数组，则该数组A有______个元素8、使用 ______ 声明一个符号常量。
9、如果不能事先确定变量的数据类型，则可以把它声明为____________类型。
三、完成程序：1、编程获取800以内所有能被18整除的数Dim i%For i = 1 to 800If then End if Next i2、输出两个数中较大的一个数Private Sub Command1_Click()Dim A As Single , B As Single , MAX As SingleA = ‘从输入对话框中接收第1个数B = ‘从输入对话框中接收第2个数IF A > B THEN ELSE PRINT “MAX = “ ; MAX End Sub 3、求分段函数：例如： 2X＋5 (当X ≥5时) Y=5X －2 (当X < 5时) 用InputBox 输入自变量X 的值，输出Y 的值 按右图说明完成： Private Sub Form_Click() Dim X, Y As SingleX = IF Then Print "y="; Y ElsePrint "y="; Y End IfEnd Sub4、对随机产生5个两位数进行排序（升序） Private Sub Command1_Click() Dim a(1 To 5) As IntegerDim i As Integer, j As Integer Dim min As Integer Randomize Print"排序前：" For i = 1 To 5a(i) = print a(i)； Next i printFor i = 1 To 5 -1For j = 1 To 5 - i If Then min = a(j)a(j) = a(j + 1) a(j + 1) = minEnd If Next j Next iPrint "排序后的结果：" For i = 1 To 5 Print a(i); Next i Print End Sub四、读程序写结果下列程序段的运行结果是：1.Private Sub Command1_Click()S = 0For I = 9 To 42 Step 11S = S + INext IIf I > 50 Then S = S + I Else S = S - I Print SEnd Sub结果：_______2.Private Sub Command1_Click()Dim I%, sum%sum = 0I = 0Do While I <= 100 sum = sum + II = I + 20LoopPrint I, sumEnd Sub结果：_______3.当X的输入值为5,-7,0时,读程序段,计算出结果.Private Sub Command1_Click()Dim x As Integerx = InputBox("请输入X的值:")Select Case Sgn(x) + 2Case 1Print "x="; x, "y="; x ^ 2Case 2Print "x="; x, "y="; xCase 3Print "x="; x, "y="; x * 5End SelectEnd Sub结果：_______五、程序编写：1、编写求N！的函数过程fact（n%），调用fact（n%）函数在窗体单击事件中计算5！+8！-3！，并输出2. 单击按钮事件。
编程获取2000以内能被17整除的数并且十个数为一行在窗体上输出。
3.在窗体的单击事件中书写代码，完成一个歌手大赛评分程序。
8位评委打分，除去最高分和最低分,输出歌手的最后得分（平均分）。
4、从键盘上输入10人的考试成绩，输出高于平均成绩的人数。
