vb模拟题

12008-5-16Vb模拟题一、程序填空：1、以下程序的功能是：依次从弹出对话框中输入10个数字并输出到窗体中，将它们的最大值输出。PrivateSubCommand1_Click()max=0Fori=1To10x=Val(____(1)____)PrintxIf____(2)____Then____(3)____NextiPrintMaxEndSub1）InputBox()2）xmax@maxx3）Max=x2、下面程序的功能是：随机产生25个两位的随机数，将其组成一个五行五列的矩阵输出，并计算其右对角线元素之和。请将程序补充完整。PrivateSubCommand1_Click()Dimx(1To5,1To5)s=0Fori=1To5Forj=1To52x(i,j)=____(1)____Printx(i,j);If____(2)____Thens=s+x(i,j)NextjPrintNextiPrintsEndSub1）Int(Rnd*90+10)2）i=j3.下面程序的功能是：设计一个选课运行界面，如下图所示。它包含两个列表框，左边列表框list1为已可供选择的课程名，当单击某课程名后，将该课程加入到右边的列表框list2中，同时在左边列表框中删除。当右边课程数已满5门时，不允许再加入。请将程序补充完整。PrivateSubForm_Load()List1.ClearList1.AddItem大学计算机基础List1.AddItemVB程序设计List1.AddItem数据库技术与应用List1.AddItemC程序设计List1.AddItem多媒体技术List1.AddItem硬件技术基础3List1.AddItem网络技术与应用List1.AddItemWEB程序设计EndSubPrivateSubList1_Click()If____(1)____ThenMsgBox超过5门课程，不能再选！ExitSubElse____(2)____List1.RemoveItemList1.ListIndexEndIfEndSub1）List2.ListCount=52）List2.AddItemList1.Text4.下面程序的功能是：随机产生20个两位的随机数，将其组成一个四行五列的矩阵并输出。请将程序补充完整。PrivateSubCommand1_Click()Dimx(1To4,1to5)Fori=1To5forj=1to44x(i,j)=____(1)____Printx(i,j);Nextj____(2)____nextiEndSub1)Int(Rnd*90+10)2)Print5、下面程序的功能是：找出被3、5、7除，余数均为1的最小的5个正整数。请将程序补充完整。PrivateSubCommand1_Click()Dimcount%,n%count=____(1)____n=1Don=____(2)____IfnMod3=1OrnMod5=1OrnMod7=1ThenPrintncount=count+1EndIfLoop____(3)____EndSub51）02）n+13）Untilcount=5（whilecount5）6、下面程序的功能是：将输入的字符串以反序显示，如输入ASDFGHJKL，显示LKJHGFDSA。请将程序补充完整。PrivateSubCommand1_Click()s=InputBox(输入字符串：)Fori=____(1)____To1Step-1Print____(2)____;NextiEndSub1）Len(s)2）Mid(s,i,1)二、选择题：1、在VisualBasic中称对象的数据为__________。A、属性B、方法C、事件D、封装（A）2、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是__________。A、单选按钮B、图片框C、通用对话框D、文本框（C）3、双击窗体中的对象后，VisualBasic将显示的窗口是_（C）___。A、项目（工程）B、窗口工具箱C、代码窗口D、属性窗口4、VB是一种_________的可视化编程程序。A、面向对象B、面向过程C、A和BD、面向机器（A）5、为了使文本框同时具有水平和垂直滚动条，应先把MultiLine6属性设置为True，然后再把ScrollBars属性设置为________。A、0B、1C、2D、3（D）6、为了取消窗体的最大化功能，需要设置_________属性为False。（D）A、ControlBoxB、MinButtonC、EnabledD、MaxButton77、文本框(Text1)中有选定的文本，执行Text1.SelText=Hello的结果是_________。A、Hello将替换掉原来选定的文本B、Hello将插入到原来选定的文本之前C、Text1.SelLength为5D、文本框中只有Hello（A）8、为了使标签覆盖背景，应把BackStyle属性设置为_________。A、0B、1C、TrueD、False（B）9、要使某控件在运行时不可显示，应对__________属性进行设置。A、EnabledB、VisibleC、BackColorD、Caption（B）10、以下能够触发文本框Change事件的操作是_________。A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容（D）11、当运行程序时，系统自动执行启动窗体的_________事件过程。A、ClickB、UnLoadC、LoadD、GotFocus（C）12、要使窗体Form1的标题栏中显示正在复制文件…，以下正7确的语句是________。A、Form1.Caption=正在复制文件…B、Form1.title=正在复制文件…C、Form1.Text=正在复制文件…D、Form1.名称=正在复制文件…（A）12、要判断在文本框是否按了Enter键，应在文本框的_________事件中判断。A、ChangeB、KeyDownC、ClickD、KeyPress（D）13、能够将文本框控件隐藏起来的属性是__________。A、ClearB、VisibleC、HideD、New（B）14、下列表达式中，值为True的是________。A、1+2=12B、1+2=3C、1&&2=12D、1&&2=3（C）15、下列各函数值的数据类型为整数的是_________。A、Sqr(9)B、Rnd(5)C、Sin(0)D、Asc(A)（D）16、下列各表达式能产生[1，3]随机整数的是_________。A、Rnd*3+1B、int(Rnd*2)+1C、int(Rnd+1)*3D、int(Rnd*3)+1（D）17、获得系统日期的函数是_________。A、data()B、time()C、date()D、gettime()（C）18、一个变量要保存-32786，不应定义成__________型变量。8A、integerB、longC、singleD、double（A）19、已知A$=4567124,表达式val(mid(A,2,3)+right(A,3))的值是_________。A、567124B、567124C、699D、456124（A）20、在VisualBasic代码中，将多个语句合并在一行上的并行符是_________。A、撇号（'）B、冒号（：）C、感叹号（！）D、问号（?）（B）21下列程序段执行的结果是__________。x=10:y=20Ifx20ThenIfy20Thenx=x*3Elsex=x\2PrintxA、10B、20C、5D、30（A）22、下面语句正确的是________。A、Ifx≠ythenprintx不等于yB、Ifx≠yprintx不等于yC、Ifxythenprintx不等于yD、Ifx≠yprintx不等于y（C）23、以下关于多重循环语句的使用的描述中。错误的是___________。（C）A、内循环变量和外循环变量不能同名B、外循环必须完全包含内循环，不能交叉9C、在外循环中可以使用Goto语句转向内循环中的任何语句D、在内循环中可以使用Goto语句转向外循环中的任何语句24、语句PrintFormat$(232548.5,000,000.00)的输出结果是_____。（C）A、32548.5B、232,548.5C、232,548.50D、32,548.5025、以下关于数组的说法，不正确的是______。A、动态数组在声明时大小可以不确定B、默认情况下数组的下界为0C、运行时可改变动态数组或静态数组的大小D、静态数组在声明时大小必须固定（C）26、在声明DimX(0to3,3to4)后，X数组可存放元素____个。A、4B、6C、8D、12（C）27、要定义一个过程为局部过程，应使用_______关键字。A、StaticB、PublicC、PrivateD、Sub（C）28、若要编写一些sub子过程，并能从多个窗体中访问这些过程，最好应将它们放在__________中。A、标准模块B、窗体C、类模块D、以上都不是（A）29、下列不能打开菜单编辑器的操作是________。A、按Ctrl+EB、按Shift+Alt+MC、单击工具栏中的菜单编辑器按钮D、执行工具菜单中的菜单编辑器命令（B）1030、在KeyDown/KeyUp的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为__________。（B）A、KeyCode=vbKeyControl+vbKeyF3B、(KeyCode=vbKeyF3)And(Shift=vbCtrlMask)C、(ShiftAndvbCtrlMask)And(KeyCodeandvbKeyF3)D、(Button=vbCtrlMask)And(KeyCode=vbKeyF3)31、在通用对话框的使用过程中，设置Flags属性对于__________是必需的。A、文件对话框B、颜色对话框C、字体对话框D、打印对话框（C）32、若要使单选按钮具有图形特性可通过______属性来进行。A、AppearanceB、BackStyleC、BordestyleD、Style（D）33、下面哪一种不属于鼠标事件__________。A、MouseIconB、MouseMoveC、MouseDownD、MouseUp（A）34、当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是________。A、KeyPress、KeyDown、KeyUpB、KeyDown、KeyUp、KeyPressC、KeyDown、KeyPress、KeyUpD、没有规律（C）35、在窗体上有一个名称为TxtTime的文本框，一个名称为Timerl11的计时器控件，要求每一秒钟在文本框中显示一次当前的时间。程序为：PrivateSubTimer1________()TxtTime.Text=TimeEndSub在下划线上应填入的内容是__________。A、EnabledB、VisibleC、IntervalD、Timer（D）36、VisualBasic是一种面向对象的程序设计语言，________不是面向对象系统所包含的三要素。A、变量B、事件C、属性D、方法（A）37、如一个简单的VB应用程序被设计后，至少需要建立________文件。A、窗体文件和工程文件B、工程组文件C、资源文件和工程文件D、窗体文件和文本文件（A）38、用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为_________。A、可视画化程序设计B、事件驱动编程机制C、过程化程序实际方法D、非过程化程序设计语言（B）39、类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为_________。A、对象B、容器C、实体D、类（A）40、如果文本框