vb模拟题.docx
- 文档编号:4276955
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:17
- 大小:35.82KB
vb模拟题.docx
《vb模拟题.docx》由会员分享,可在线阅读,更多相关《vb模拟题.docx(17页珍藏版)》请在冰豆网上搜索。
vb模拟题
2008-5-16Vb模拟题
一、程序填空:
1、以下程序的功能是:
依次从弹出对话框中输入10个数字并输出到窗体中,将它们的最大值输出。
PrivateSubCommand1_Click()
max=0
Fori=1To10
x=Val(____
(1)____)
Printx
If____
(2)____Then____(3)____
Nexti
PrintMax
EndSub
1)InputBox("")2)x>max@max 2、"下面程序的功能是: 随机产生25个两位的随机数,将其组成一个五行五列的矩阵输出,并计算其右对角线元素之和。 请将程序补充完整。 PrivateSubCommand1_Click() Dimx(1To5,1To5) s=0 Fori=1To5 Forj=1To5 x(i,j)=____ (1)____ Printx(i,j); If____ (2)____Thens=s+x(i,j) Nextj Print Nexti Prints EndSub 1)Int(Rnd*90+10)2)i=j 3.下面程序的功能是: 设计一个选课运行界面,如下图所示。 它包含两个列表框,左边列表框list1为已可供选择的课程名,当单击某课程名后,将该课程加入到右边的列表框list2中,同时在左边列表框中删除。 当右边课程数已满5门时,不允许再加入。 请将程序补充完整。 PrivateSubForm_Load() List1.Clear List1.AddItem""大学计算机基础"" List1.AddItem""VB程序设计"" List1.AddItem""数据库技术与应用"" List1.AddItem""C程序设计"" List1.AddItem""多媒体技术"" List1.AddItem""硬件技术基础"" List1.AddItem""网络技术与应用"" List1.AddItem""WEB程序设计"" EndSub PrivateSubList1_Click() If____ (1)____Then MsgBox""超过5门课程,不能再选! "" ExitSub Else ____ (2)____ List1.RemoveItemList1.ListIndex EndIf EndSub 1)List2.ListCount>=52)List2.AddItemList1.Text 4."下面程序的功能是: 随机产生20个两位的随机数,将其组成一个四行五列的矩阵并输出。 请将程序补充完整。 PrivateSubCommand1_Click() Dimx(1To4,1to5) Fori=1To5 forj=1to4 x(i,j)=____ (1)____ Printx(i,j); Nextj ____ (2)____ nexti EndSub 1)Int(Rnd*90+10)2)Print 5、"下面程序的功能是: 找出被3、5、7除,余数均为1的最小的5个正整数。 请将程序补充完整。 PrivateSubCommand1_Click() Dimcount%,n% count=____ (1)____ n=1 Do n=____ (2)____ IfnMod3=1OrnMod5=1OrnMod7=1Then Printn count=count+1 EndIf Loop____(3)____ EndSub 1)02)n+13)Untilcount=5(whilecount<5) 6、"下面程序的功能是: 将输入的字符串以反序显示,如输入""ASDFGHJKL"",显示""LKJHGFDSA""。 请将程序补充完整。 PrivateSubCommand1_Click() s=InputBox(""输入字符串: "") Fori=____ (1)____To1Step-1 Print____ (2)____; Nexti EndSub 1)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、为了使文本框同时具有水平和垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为________。 A、0B、1C、2D、3(D) 6、为了取消窗体的最大化功能,需要设置_________属性为False。 (D) A、ControlBoxB、MinButtonC、EnabledD、MaxButton 7、文本框(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的标题栏中显示"正在复制文件…",以下正确的语句是________。 A、Form1.Caption="正在复制文件…" B、Form1.title="正在复制文件…" C、Form1.Text="正在复制文件…" D、Form1.名称="正在复制文件…"(A) 12、要判断在文本框是否按了Enter键,应在文本框的_________事件中判断。 A、ChangeB、KeyDown C、ClickD、KeyPress(D) 13、能够将文本框控件隐藏起来的属性是__________。 A、ClearB、VisibleC、HideD、New(B) 14、下列表达式中,值为"True"的是________。 A、"1"+2="12"B、"1"+"2"="3" C、"1"&2="12"D、"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)+1 C、int(Rnd+1)*3D、int(Rnd*3)+1(D) 17、获得系统日期的函数是_________。 A、data()B、time()C、date()D、gettime()(C) 18、一个变量要保存-32786,不应定义成__________型变量。 A、integerB、longC、singleD、double(A) 19、已知A$="4567124",表达式val(mid(A,2,3)+right(A,3))的值是_________。 A、567124B、"567124"C、699D、456124(A) 20、在VisualBasic代码中,将多个语句合并在一行上的并行符是_________。 A、撇号(')B、冒号(: ) C、感叹号(! )D、问号(? )(B) 21下列程序段执行的结果是__________。 x=10: y=20 Ifx>20ThenIfy>20Thenx=x*3Elsex=x\2 Printx A、10B、20C、5D、30(A) 22、下面语句正确的是________。 A、Ifx≠ythenprint"x不等于y" B、Ifx≠yprint"x不等于y" C、Ifx<>ythenprint"x不等于y" D、Ifx≠yprint"x不等于y"(C) 23、以下关于多重循环语句的使用的描述中。 错误的是___________。 (C) A、内循环变量和外循环变量不能同名 B、外循环必须完全包含内循环,不能交叉 C、在外循环中可以使用Goto语句转向内循环中的任何语句 D、在内循环中可以使用Goto语句转向外循环中的任何语句" 24、语句PrintFormat$(232548.5,""000,000.00"")的输出结果是_____。 (C) A、32548.5B、232,548.5C、232,548.50D、32,548.50 25、以下关于数组的说法,不正确的是______。 A、动态数组在声明时大小可以不确定 B、默认情况下数组的下界为0 C、运行时可改变动态数组或静态数组的大小 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+M C、单击工具栏中的"菜单编辑器"按钮 D、执行"工具"菜单中的"菜单编辑器"命令(B) 30、在KeyDown/KeyUp的事件过程中,能用来检查Ctrl和F3是否同时按下的表达式为__________。 (B) A、KeyCode=vbKeyControl+vbKeyF3 B、(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、MouseMove C、MouseDownD、MouseUp(A) 34、当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件,这三个事件发生的顺序是________。 A、KeyPress、KeyDown、KeyUp B、KeyDown、KeyUp、KeyPress C、KeyDown、KeyPress、KeyUp D、没有规律(C) 35、在窗体上有一个名称为TxtTime的文本框,一个名称为Timerl的计时器控件,要求每一秒钟在文本框中显示一次当前的时间。 程序为: PrivateSubTimer1________() TxtTime.Text=Time EndSub 在下划线上应填入的内容是__________。 " 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、如果文本框的Enabled属性设为False,则________。 A、文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上。 B、文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容。 C、文本框的文本将变成灰色,用户仍然能改变文本框中的内容。 D、文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容。 (A) 41、要求改变窗体的标题时,应当在属性窗口中改变的属性是_________。 A、CaptionB、NameC、TextD、Label(A) 42、_________语句将按钮(Command1)的标题赋值给文本框(Text1)的Text属性。 .A、Text1=Command1 B、Text1=Command1.Caption C、Text1.Text=Command1 D、Text1.Text=CStr(Command1)(B) 43、下列控件中可用于接受用户输入文本,又可用于显示文本的是_________。 A、Label控件B、TextBox控件 C、Timer控件D、CommandButton控件(B) 44、要使窗体在运行时不可改变大小,需对其_________属性进行设置。 (C) A、ControlBoxB、HeightC、BorderStyleD、Width 45、使文本框获得焦点的方法是__________。 A、ChangeB、GotFocusC、SetFocusD、LostFocus(C) 46、要使命令按钮Command1在运行时不显示,应对_________属性进行设置。 A、BackColorB、HideC、EnabeldD、Visible(D) 47、在VisualBasic中,Print、Cls属于__________。 A、属性B、对象C、事件D、方法(D) 48、在窗体上画一个名称为Txta的文本框,然后编写如下的事件过程: PrivateSubTxta_KeyPress(Keyasciiasinteger) ... EndSub 若焦点位于文本框中,则能够触发KeyPress事件的操作是_________。 A、单击鼠标B、双击文本框 C、鼠标滑过文本框D、按下键盘上的某个键(D) 49、窗体能响应的下面事件是_________。 A、ActiveFromB、DriveC、LoadD、Change(C) 50、表达式#11/22/2007#-10的运算结果是__________。 A、2007-1-22B、1997-11-12 C、不能运算D、2007-11-12(D) 50、下列各组变量声明正确的是_________。 A、DimabcAsInteger,numAsSingle B、DimI%,N$AsInteger C、Dima%,b%,c%,a$ D、PublicDimn%(A) 51、声明一个长度为10个字节的字符串变量mstr,应使用_________。 A、DimmstrAs10 B、Dimmstr(10)AsString C、DimmstrAsString*10 D、DimmstrAsString(10)(C) 52、在VB中,下面四个数作为字符串常量,正确的是________。 A、“ASDFG”B、"ASDFG" C、ASDFGD、'ASDFG'(B) 53下列函数中,_________函数返回的值是数值型的。 A、Chr()B、Mid()C、Space()D、Instr()(D) 54、表达式 Len(str(23)+Trim(str(81))+""123"")的值是__________。 A、7B、8C、9D、10(B) 55、在VisualBasic中注释语句使用___________符号来标志。 A、#B、*C、'(单引号)D、@@(C) 56、从循环体DoWhile...Loop中退出,继续执行循环体后面的命令,应使用_________。 (B) A、ExitB、ExitDoC、ExitDoWhileD、ExitLoop 57、InputBox函数返回值的类型为__________。 A、数值B、字符串 C、变体D、数值或字符串(视输入的数据而定)(B) 58、执行语句receive=MsgBox("AAAA",,"BBBB","",5)后,所产生的信息框的标题是_________。 (A) A、BBBBB、空C、AAAAD、出错,不能产生信息框 59、下面正确的赋值语句是__________。 A、x+y=30B、x*x+y*y=z*z C、y=y+30D、3y=x(C) 60、控件数组Text1中的各个对象是通过___________属性来区分的。 A、ListIndexB、TabIndexC、IndexD、Name(C) 61、下面数组声明语句错误的是__________。 A、Dima%(-5to-3)B、Dima%(-1to2,3) C、Dimn%,a%(n)D、Dima(-1to0)asInteger(C) 62、用Static关键字定义过程是指_________。 A、声明过程名是静态的 B、声明过程中的局部变量是静态的 C、声明虚参是静态的 D、声明函数过程的返回值是静态的(B) 63、根据变量的作用域,可以将变量分为三类,它们是_________。 A、局部变量、窗体/模块级变量和标准变量 B、局部变量、窗体/模块级变量和全局变量 C、局部变量、模块变量和标准变量 D、局部变量、窗体变量和全局变量(B) 64、复选框的Value属性为1时,表示__________。 A、复选框未被选中B、复选框被选中 C、复选框内有灰色的勾D、复选框操作有错误(B) 65、在用通用对话框控件建立打开文件对话框时,在文件列表框只允许显示文本文件类型的文件,则Filter属性的正确设置是_________。 A、Text(.txt)|*.txtB、Text(.txt)(*.txt) C、文本文件|(.txt)D、Text(.txt)||*.txt(A) 66、能够改变复选框中背景颜色的属性是_________。 A、ValueB、FontcolorC、BackcolorD、Font(C) 67、在下列关于通用对话框的叙述中,正确的写法是_________。 A、CommonDialog1.Filter="AllFiles|*.*|Pictures(*.Bmp)|*.Bmp B、CommonDialog1.Filter=|AllFiles|*.*|Pictures(*.Bmp)|*.Bmp| C、CommonDialog1.Filter=“AllFiles”|“*.*”|“Pictures(*.Bmp)”|“*.Bmp” D、CommonDialog1.Filter=AllFiles|*.*|Pictures(*.Bmp)|*.Bmp(A) 68、如果有五个单选按钮,其中两个在一个框架中,另外三个在窗体上,则运行时,可以同时选中________个单选按钮。 A、2B、3C、4D、5(A) 69、为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是_________。 A、EnabledB、VisibleC、TimerD、Interval(A) 70、将数据项""China""添加到列表框(List1)中成为第二项应使用_________语句。 A、List1.AddItem"China",0 B、List1.AddItem"China",1 C、List1.AddItem0,"China" D、List1.AddItem1,"China"(B) 三、填空: 1、文本框的默认属性是_________。 (Text) 2、要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置了__________的属性为True。 (Locked) 3、标签的Alignment属性值设置为1的含义是__________。 (右对齐) 4、表达式Ucase(Mid(""abcdefgh"",3,4))的值是__________。 (CDEF)@"CDEF" 5、将条件“M,N不同时为0”写成VB
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 模拟