1、VB模拟试题1一选择：1.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示(B)事件过程模板.A、Form1_LoadB、Form_LoadC、Form1_ClickD、Form_Click2.VisualBasic是一种()程序设计语言.(A)A、非过程式B、低级C、机器D、过程式3.将焦点主动设置到指定的控件或窗体上,应采用(A)方法.A、SetFocusB、SetDataC、SetTextD、GetGata4.语句PRINT“SGN(-26)=“;SGN(-26)的输出结果为(B).A、SGN(-26)=+1B、SGN(-26)=-1C、SGN(-26)=26D、SGN(-26
2、)=-265.骰子是一个正六面体,分别用16 代表这六个面,掷一次骰子出现的数可表示为(C).A、int(rnd*7)B、int(rnd(6)+1)C、int(rnd*6+1)D、int(rnd*6)6.组合框控件是将()组合成一个控件.AA、列表框控件和文本框控件B、标签控件和文本框控件C、复选框控件和选项按钮控件D、标签控件和列表框控件7.下列可缩放图片的属性是(C).A、OleDrawModeB、autosizeC、stretchD、picture8.工具栏中的“启动“按钮的作用是(B).A、打开被选中对象的代码窗口B、运行一个应用程序C、工程管理窗口D、运行一个窗体9.函数Ucase(
3、Mid(“visual basic“,8,8)的值为(B).A、VISUALB、BASICC、basicD、visual10.下面(A)控件不具有Caption属性.A、文本框B、单选钮C、标签框D、命令按钮11.要把一个命令按钮设置成无效,应设置其哪一属性值(D).A、VisibleB、CancelC、DefaultD、Enabled12.(C)对象不能作为控件的容器.A、FormB、FrameC、ShapeD、PictureBox13.以下关于焦点的叙述中,错误的是(C).A、当文本框失去焦点时,触发LostFocus事件B、当文本框的Enabled属性为False时,其Tab顺序不起作用
4、C、如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据D、可以用TabIndex属性改变Tab顺序14.下列对变量的定义中,不能定义A为变体变量的是(C).A、DIM A AS VARIANTB、A=24C、DIM A AS DOUBLED、DIM A15.删除字符串前导和尾随空格的函数是(A).A、Trim()B、LcaseC、Rtrim( )D、Ltrim()16.以下(A)方式打开的文件只能读不能写.A、InputB、OutputC、RandomD、Append17.计时器的interval属性为0时,表示(A).A、计时器失效B、相隔0 毫秒C、计时器的enabl
5、ed属性为falseD、相隔0秒18.以下不具有Picture属性对象是(D).A、图片框B、窗体C、图像框D、文本框19.清除列表框的所有选项应选择下列哪种方法(A).A、ClearB、ClsC、ClearItemD、RemoveItem20.启动VisualBasic后,系统为用户新建的工程起一个名为(A)的临时名称.A、工程1B、窗体1C、窗体D、工程21.要使一个标签透明且不具有边框,则应(D).A、将其BackStyle属性设置 为1,BorderStyle属性设置为1B、将其BackStyle属性设置为0,BorderStyle属性设置为1C、将其BackStyle属性设置为1,B
6、orderStyle属性设置为0D、将其BackStyle属性设置为0,BorderStyle属性设置为022.设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是(A).A、cmdAB、cmdcC、cmdbD、Command123.将命令按钮Command1设置为不可见,应修改该命令按钮的(A)属性.A、VisibleB、EnabledC、ValueD、Caption24.下列对象中没有焦点属性的是(B).A、单选框控件B、窗口控件C、文本框控件D、命令按钮控件25.下列关于设置控件属性的叙述正确的是(D).A、用户必须设置属性值B、所有的属性值都可以由用
7、户随意设定C、不同控件的属性项都完全一样D、属性值不必一一重新设置26.要在垂直位置上移动控件,应利用控件的(C)属性.A、LeftB、HeightC、TopD、Width27.函数InStr(“VB程序设计教程“,“程序“)的值为(D).A、4B、2C、1D、328.如果TAB函数的参数小于1,则打印位置在第(A)列.A、1B、2C、0D、329.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(D).A、*Error*If rnddat / 2 = 0 Thensum = sum + rnddatEnd IfNext iLabel1.Caption = sumEnd IfEn
8、d Sub2.【程序改错】题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。注意：不可增加或删除程序行，也不可以更改程序结构-Private Sub CreateRND()Dim Temp As IntegerDim I As IntegerDim N As IntegerDim X(10) As IntegerDim J As IntegerN = 10Print “数据：“For I = 1 To N*Error*X(I) = Int(Rnd() * 90)Print X(I);Next IPrintPrint “排序：“For I = 0 To N - 1For J = I
9、 + 1 To N*Error*If X(I) X(J) Then*Error*Temp = X(I)X(J) = X(I)X(I) = TempEnd IfNext JPrint X(I);Next IPrintEnd SubPrivate Sub Command1_Click()CreateRNDEnd -四程序填空：1.程序填空：题目：程序输出结果为：n=3 x=42 y=9请在【】处填入正确的内容Private Sub Command1_Click()Dim n, x, y As Integer*Fill*n = 0: x =【?】: y = 0 Do While x 0 且n= 30
10、 n = Val(InputBox(“n=“, “请重输入“)Loopsum = 0k = 0Do*Fill*k =【?】 sum = sum + 1 / (k * (k + 1)*Fill*Loop Until k 【?】 Label1.Caption = “Sum=“ + Str(sum)End Sub五窗体设计（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生20个0999的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮（名称为Command1，标题为“输出大于500的整数之和“），即可求
11、出这些整数的和，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ？改为正确的内容， 使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。*（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序， 其中计算不能被7整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。答案：【事件】Private Sub Command1_Click()标准答案： 1000 0 arrN(i) 500 Sum + arrN(i)学生答案： Dim arrN(20) As IntegerDim Sum As IntegerRandomizeFor i = 1 To 20 arrN(i) = Int(Rnd * ?)Next i Sum = ?For i = 1 To 20 If ? Then Sum = ?End IfNext iPrint Sum
