一套VB模拟试题.doc
窗体顶端本卷共有3道大题:窗体底端一、单项选择题（50道小题，共50分）1、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是_。（1分）A、窗体布局窗口B、窗体设计窗口C、属性窗口D、代码窗口2、下面四个语句中，正确的赋值语句是_。（1分）A、a = a + cB、a + c = aC、c + a = aD、a c = a3、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是_。（1分）A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按Del键C、执行语句 Picture1.Picture = LoadPicture("")D、执行语句 Picture1.Picture = ""4、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_。（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle5、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程_。（1分）A、Text1_Change() B、Text1_GotFocus()C、Text1_KeyPress(KeyAscii As Integer)D、Text1_SetFocus()6、Print Format(1234.234, "#.#"); Format(1234.234, "#.#")的显示结果是_。（1分）A、1234.23B、123.23400 1234.234C、123.23400 1234.23D、1234.2347、Visual Basic的编程机制是_。（1分）A、面向过程B、面向对象C、事件驱动D、可视化8、除了系统默认的工具箱之外，还可以通过_方法来增加控件。（1分）A、执行“文件”菜单中的“添加工程”命令B、执行“工程”菜单中的“部件”命令C、在工具箱处执行其快捷菜单中的“添加选项卡”命令D、执行“工程”菜单中的“添加窗体”命令9、能产生10，32之间随机整数的函数表达式为_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+1110、要把一个Image控件对象设置成隐藏，应设置的属性是_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel11、每个对象的事件名称_。（1分）A、都要由用户定义B、有的由用户定义，有的由系统定义C、都是由系统预先定义D、是不固定的12、启动Visual Basic后，VB为用户建立的第一个窗体是_。（1分）A、FormB、Form1C、窗体1D、窗体13、窗体设计器是用于设计_。（1分）A、窗体的代码B、对象的属性C、应用程序的代码D、应用程序的界面14、已知x=2, y=9, z=4，逻辑表达式x>y OR z>x AND NOT z>y的值是_。（1分）A、TrueB、-1C、0D、False15、在程序运行模式能够_。（1分）A、中断程序B、添加程序C、输入程序D、编辑程序16、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，执行后s的值是_（1分）A、10B、11C、12D、1517、窗体文件的扩展名_。（1分）A、.basB、.vbpC、.exeD、.frm18、与传统的程序设计语言相比较，Visual Basic最突出的特点是_。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持19、下列叙述中，正确的是_。（1分）A、工程文件（.vbp）应用程序可以在任何计算机上运行B、打开一个工程文件，系统自动装入与该工程有关的窗体文件C、VB工程文件中可以没有窗体文件D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可20、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是_。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable21、表达式4 + 5 6 * 7 / 8 Mod 9的值是_。（1分）A、4B、5C、6D、722、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为_。（1分）A、Private Sub Command1_Click(): Command1.Caption = "计算机考试": End Sub B、Private Sub Command1_Click(): Text1 = "计算机考试": End SubC、Private Sub Text1_Change(): Command1.Caption = "计算机考试": End SubD、Private Sub Text1_Click(): Text1.Caption = "计算机考试": End Sub23、有一个命令：Text1= "欢迎您！"，表达方式中省略了对象的_。（1分）A、方法B、属性名C、对象名D、标题24、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Click()中能完成这个功能的命令为_。（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 10025、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是_。（1分）A、0B、1C、随机数D、显示出错信息26、执行程序 For n = 1 To 3: Cls: Print "n=" n;: Next n 后, 输出结果是_。（1分）A、123B、3C、n= 3D、n= 1 n= 2 n= 327、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是_。（1分）A、2B、3C、5D、2328、InputBox函数返回值的类型为_。（1分）A、数值B、字符串C、变体D、数值或字符串29、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_。（1分）A、abcabcB、ABCABCC、65D、9730、以下声明语句中，错误的是_。（1分）A、Const varl=123B、Const var2="ABC"C、Public const="计算机等级考试"D、Static var3 as Integer31、语句X = X + 1的正确含义是_。（1分）A、变量X的值与X + 1的值相等B、将变量X的值存到X + 1中去C、将变量X的值加1后赋给变量XD、变量X的值为132、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是_。（1分）A、232 B、232 232C、232.32 232.32D、显示出错信息33、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)34、执行语句age = InputBox("请输入数值", "年龄输入框", "38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是"年龄输入框"C、对话框的默认值是38D、对话框的提示文字为"请输入数值"35、在下列符号常量的声明中，_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As Integer = "ab"C、Const a As Double = 2 * 2D、Const a = "OK"36、在下列逻辑表达式中，逻辑值为"真"的是_。（1分）A、Not (1 > 2)B、Not (3 + 4 < 4 + 6)C、1 > 2 Or 2 > 3D、2 > 1 And 3 < 237、变量未赋值时，数值型变量的值为_。（1分）A、OB、空串""C、NullD、没任何值38、Single（单精度）型数据占_个字节。（1分）A、2B、4C、8D、1039、执行语句Print Format(32548.5, "#,#0.00")，输出结果是_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5040、下列选项中，_不是字符串常量。（1分）A、"你好"B、""C、"True"D、#False#41、语句T = MsgBox("程序执行了非法操作", vbAbortRetryIgnore, "提示信息")的执行后，可以在对话框中显示_个按钮。（1分）A、1B、2C、3D、442、下列声明语句中，错误的是_。（1分）A、Const varl=123B、Dim var2='ABC'C、Const y="计算机等级考试"D、Static var3 as Integer43、执行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，输出的结果是_。（1分）A、6B、8C、10D、1444、下列数据中，_是日期型数据。（1分）A、"01/30/2004"B、Date("01/30/2004")C、#01/30/2004#D、01/30/200445、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是_。（1分）A、T >= 1.7 And W <= 52.5B、T <= 1.7 Or W >= 52.5C、T > 1.7 And W < 52.5D、T > 1.7 Or W < 62546、Print Format(32556, "#"); Format(32556, "#")的输出结果是_。（1分）A、B、3255632556C、32556-325D、-47、变量未赋值时，字符串变量的值为_。（1分）A、OB、空串""C、NullD、没任何值48、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_。（1分）A、输出平均值B、将一个实数四舍五入取整并输出C、输出绝对值D、舍去一个实数的小数部分并输出49、如果将布尔常量值True赋给一个整型变量，则整型变量的值为_。（1分）A、OB、-1C、TrueD、False50、下面表达式中，_的运算结果与其他3个不同。（1分）A、Log(Exp(-3.5)B、Int(-3.5) + 0.5C、-Abs(-3.5)D、Sin(30 * 3.14 / 180)二、填空题（7道小题，共30分）1、* 求7!(7!=1*2*3.*6*7)的值。Private Sub Command1_Click()Dim a As Singlea = 1For i = 1 To 7 a =a * iNext iPrint aEnd Sub（4分）2、* 对10个100以内的整数用选择法按递增顺序排序。 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i) = Int(rnd * 101) Print a(i); Next i: Print For i = 1 To 9 For j = i + 1 To 10 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i For i = 1 To 10 Print a(i); Next i: Print End Sub（4分）3、* 随机产生 n 个两位整数，求出其中的最大值和最小值。 Private Sub Command1_Click() Dim a(100) As Integer, n As Integer, i As Integer Dim min As Integer, max As Integer n = InputBox(vbCrLf + vbCrLf + "n=") Print "产生的随机数为" Randomize For i = 1 To n a(i) = Int(Rnd * 90) + 10 Print a(i); Next i: Print min = a(1): max = min For i = 2 To n If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i Print "最大值为 " max Print "最小值为 " min End Sub（4分）4、*使用双循环实现三角形输出* * * * * * Private Sub Command1_Click() For i = 1 To 5 Print Tab(25 - i); For j = 1 To i Print "*" Next j Print Next i End Sub（4分）5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。* 程序代码如下： Private Sub Command1_Click() Dim sum As Long,n As Integer sum=0 For n = 100 To 999 If duicheng(n) then sum=sum+n Next n End Sub Public Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i 100 If a = c Then duicheng=true Else duicheng=False End If End Function（4分）6、* 下面程序计算1!+3!+5!+.+9!的值，请将其补充完整。* 程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As Integernt = 1For i = 1 To n nt = nt * iNext iEnd SubPrivate Sub Form_Click()Dim sum As Single, n As Integersum = 0For n = 1 To 9 Step 2 aa (n) sum = sum + ntNext nPrint sumEnd Sub（4分）7、* 控件属性改变，如图<x_3.jpg>所示 Private Sub Command1_Click()If Command1.Caption = "字号" ThenLabel1.FontSize = 30Command1.Caption = "颜色" elseLabel1.forecolor = vbRedCommand1.Caption = "字号"End IfEnd Sub【附图2】（6分）三、编程题（2道小题，共20分）1、* 编写程序： * 已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。 * 例如：1,1,2,3,5，.，请求出这个数列前43项的和。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序2、* 编写程序： * 先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中奇数的个数。（【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序privte sub form_load() Autoredraw=true Open “d:kaoshiwenjian.txt” for input as 1 Do while not eof(1) Input #1,i If i mod 2 <> 0 then N=n+1 End if Loop Print n Close #1 End sub 窗体底端考号： 姓名：剩余时间：89:47保存交卷退出帮助 强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览
