vb高职考
职高一年级VB月考试题
职高一年级VB月考试题一、选择题（共25题，每空1分，计25分）1、Visual Basic 是一种面向（）的程序设计语言。
A、过程B、用户C、方法D、对象2、与传统的程序设计语言相比，VB最突出的特点是（）。
A、结构化程序设计B、跨平台程序开发环境C、事件驱动编程机制D、程序调试技术3、VB具有除（）之外的版本。
A、学习版B、专业版C、企业版D、网络版4、从功能上来讲，VB的3种版本中（）。
A、学习版>专业版>企业版B、企业版>专业版>学习版C、专业版>企业版>学习版D、学习版>企业版>专业版5、启动VB的方法中，一般不推荐使用（）。
A、从“开始”菜单中启动程序B、双击桌面上的VB图标C、双击需要打开的工程文件D、双击需要打开的窗体文件6、双击窗体中的对象后，VB将显示的窗口是（）。
A、项目（工程）窗口B、工具箱C、代码窗口D、属性窗口7、用户可以通过（）模拟屏幕的小图像来布置窗体在屏幕上的位置。
A、窗体设计器B、快捷菜单C、立即窗口D、窗体布局窗口8、窗体设计器的主要功能是（）。
A、建立用户界面B、编写源程序代码C、画图D、文字编辑9、VB中称对象的数据为（）。
A、属性B、方法C、事件D、封装10、下列说法中，错误的是（）。
A、VB采用了事件驱动的编程机制B、VB是面向过程的程序设计语言C、VB是可视化的程序设计语言D、VB是面向对象的程序设计语言11、以下关于属性设置的说法中，正确的是（）。
A、在属性窗口中可以设置所有属性的值B、在程序代码中可以设置所有属性的值C、属性的名称由VB事先定义，用户不能改变D、所有对象的属性都是可见的12、以下说法中，（）是VB应用程序的设计方法A、面向对象，顺序驱动B、面向过程，事件驱动C、面向过程，顺序驱动D、面向对象，事件驱动13、对象可以识别与响应某些操作的行为称为（）。
A、属性B、方法C、特征D、事件14、对象是一个逻辑实体，它是（）的集合。
最新中职计算机专业VB期末考试卷
高中部期末考试 《VB 》试题一、 1、 VB 模块分为__________、____________、____________3种类型。
2、 代码窗口分为左右两栏，左边一栏称为________，右边一栏称为____________。
3、 在VB 中，从________菜单中，选择____________命令可以运行程序。
4、 在保存VB 应用应用程序时，窗体文件扩展名为____________，工程文件扩展名为____________。
5、 VB 中有____________、____________、____________三种工作模式。
6、 如果在集成开发环境中，按下____________键，或在“________”菜单中，选择“属性窗口”命令，可打开属性窗口。
7、 窗体模块的扩展名为____________；标准模块的扩展名为____________；类模块的扩展名为________________。
8、 在for 循环中提前结束循环的语句是_____________________________。
9、 工程文件的扩展名是_____________；cls 为________________的扩展名。
二、 选择题。
（每小题2分，共30分） 1、 执行下面的程序后，X 的值为：________。
X=5For i=1 to 20 step 2 x=x+i\5 next iA 、21B 、22C 、23D 、242、函数inputbox(prompt,title ,default ,xpos ,ypos,helpfile,context)，________参数是必选的。
A 、prompt B 、title C 、default D 、context3、如果A 、B 、C 的值分别为3、2、-3，则表达式，ABS （A-B*C ）+B*int(RND)的值是________。
A 、8 B 、9 C 、10 D 、114、下列语句书写规则中，____________是错误的。
高三高职单招计算机月考VB部分
(2011.12.2)高职单招计算机专业第一次月考卷(VB部分)(总计150分)班级____________ 姓名________________ 座号_____ 成绩______一、单项选择题（在每小题的四个备选答案中，选出一个正确答案，并将正确答案的序号填在题干的括号内。
每小题3分*5，共21分）1．单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（）事件。
A）Scroll B）KeyDown C）Change D）DragOver2．下列可以作为Visual Basic变量名的是（）。
A）7$Print B）Click C）Printbc D） 5bc_773．设a=5，b=4,c=3,d=2,表达式3>2*b or a=c and b<>c or c>d的值是（）。
A）True B）False C）–1 D）14. 要使文本框显示滚动条，需先设置属性。
A）AutoSize B）Multiline C）Alignment D）ScrollBars 5. 要清除PictureBox控件中的图形，必须用哪条命令？A）Picture1.Picture=LoadPicture ( )B）Kill Picture1.PictureC）Picture1.Picture=LoadPicture("")D）Picture1.Picture=""6.选中复选框控件时，Value属性的值为。
A) True B) False C) 0 D) 17. 以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件C）VisualBasic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发，由代码间接触发。
二、填空题（每空4分*5，共20分）1．表达式Fix(–31.18)+Int(–62.93)的值为____ ________。
高职vb复习题答案-2011
一、单项选择题（共10小题，每题2分，共20分）1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是_________A.属性、控件和方法B.属性、事件和方法C.窗体、控件和过程D.控件、过程和模块2.当运行程序时，系统自动执行启动窗体的某个事件过程。
这个事件过程是__________A. LoadB. ClickC. Unload D .GotFocus3.下面的变量名合法的是________A. k_nameB. k ameC. nameD. k-name4.Print方法可以在窗体、桌面、标题栏、立即窗口、图片框、状态栏、打印机、代码窗口中的____个对象上输出数据。
A. 3B. 4C .5 D. 65.VB中可用_____________语句产生一消息框。
Ａ. InputBoxＢ. ShiftＣ. BothＤ. MsgBox6.无论何控件，都具有一个共同属性。
这个属性是________A. TextB. FontC. NameD. Caption7.计时器控件的__________属性用于设置Timer事件发生的时间间隔。
Ａ. StretchＢ. IntervalＣ. Value Ｄ. Length8.在窗体上有一个名称为Command1的命令按钮，在其单击事件Command1_Click()的事件过程代码中只有一句：Move 500, 500 ，则程序运行后，单击该命令按钮，执行的操作为________。
A. 窗体向右、下方向各移动500B. 窗体移动到距屏幕左边界、上边界各500的位置C. 命令按钮向右、下方向各移动500D. 命令按钮移动到距窗体右边界、下边界各500的位置9.假定列表框（Listl）中已有三个数据项，那么把数据项“Shanghai”添加到列表框的最后，应使用语句________。
A. Listl.AddItem 3,"Shanghai"B. Listl. AddItem "Shanghai",4C. Listl. AddItem "Shanghai",3D. Listl. AddItem 4,"Shanghai"10. 使文本框获得焦点的方法是________。
中职计算机专业对口升学《VB》期末试题
2022-2023学年第一学期期末考试《VB》试题说明：本试卷共四道大题。
满分为100分，考试时间为90分钟。
选择题涂卡，其它题答案一律写在答案专页上。
一、选择题。
（2*30＝60）1. 下面合法的变量名为( )A、 x_yzB、 123abcC、 integer D 、X-Y2、函数mid(“AbCDef89”，3,4)的值是（）A、”Def”B、”CDef”C、”AbCD”D、”ef89”3、表达式 abs(-12)+24 的值是（）A 24B 12C 36D -124、产生[10，40]之间的随机整数的VB表达式是( )A．Int(Rnd * 30) + 10 B．Int(Rnd * 31) + 10C．Int(Rnd * 30) + 11 D．Int(Rnd * 30) + 125、双精度实型(double)数据的尾符为( )A %B #C !D &6、若要使文本框内的文本能够多行显示，应将（）属性值设为true。
A．text B. visible C. forecolor D. multiline7、窗体文件的扩展名为( )A .bmpB .vbpC .frmD .bas8、下列表达式的值为真的是（）A 5>3 and 4<3B 3<7 or 4>9C not 8>1D 4 mod 2 9、下列表达式中，值为True的是( )A．UCase("ABCD")>="abcd"B．14／2＼3>10 Mod 4C．Mid("ABCD"，2，2)>Left("ABCD"，2)D．Not(Sqr(4)-3>=-2)10、以下能够打开属性窗口的快捷键是（）A F4B F5C F7D F211、能够将文本框隐藏起来的属性是（）。
A、 VisibleB、ClearC、 ClsD、 Hide12、若要使标签的大小自动适应所显示的文本，可通过设置（）属性来实现。
高职招考考试VB算法总结
VB 算法（一）累加与连乘累加形式：Sum=Sum+t ，是将t 的所有取值累加到一起，结果存放在Sum 中 连乘形式：P=P*t ，是将t 的所有取值连续相乘，结果存放在P 中 其中：t 为递增表达式 常见题型：1、求前N 项的和 Sum = 0 For i = 1 To n Sum = Sum + i Next i 例：1）练习：S=8-7+6-5+4-3+2-1S=0 : C=1 S=0For i = to For i = to 或Next iNext i2、求N 的阶乘N! P = 1 For i = 1 To n P = P * i Next i3）求2+3/2+4/3+5/4+......+n+1/n （n 为偶数）思考：求2-3/2+4/3-5/4+......，1-1/2+1/3-1/4+......，1/2+2/3+3/4+......,12+22+32+...... 12-22+32-42......练习：求S ＝2-3/2+4/3-5/4+6/5-7/6+8/7S=0 S ＝0 : C=1For I=1 to 或 For I=2 to S=S+ Next I Next i 4思考：N=1+(1-3)+(1-3+5)+ (1-3+5-7)......，N=1+(1-2)+(1-2+3)+ (1-2+3-4)..... N=1+(1*3)+(1*3*5)+ (1*3*5*7)......练习：求N=1+(1*3)+(1*3*5)+ (1*3*5*7)+...+(1*3*5*7* (19)或S=0 : P= For i= 1 to Step 2 P= S= Next i S=0 : P= : m=1 DoP= S= m=m+2Loop Until5）求：1！+2！+3！+ (20)思考：1！+3！+5！+......，1！-2！+3！-4！+......，m1！+m2！+m3！+.....+n ！ 1+1/2！+1/3！+......练习：求： 1/4！-1/7！+1/10！-1/13!+1/16! 6）求临界值： ①显示满足2+4+6+......+X<80中的最大X 的值 S=0 :X=0 DOX=X+2 : S=S+X LOOP Until S>=80 Print “X=”；X-2② T=1*2*3*......*N,求T 不大于1000时最大N 的值 T=1 ：N=1 DO WHILE T<=1000 N=N+1 ：T=T*N LOOP Print “N=”; N-1思考：3+5+7+9+...+X<100，3*5*7*9*......*X<100S=0For i= toP=1For j= 1 to P=P* Next jS=S+PNext i7）求近似值①求∏的近似值，直到最后一项的绝对值小于10-6（∏/4=1-1/3+1/5-1/7+1/9...）=1+1/1！+1/2！+1/3！+......+1/n!,直到最后一项的值小于10-6②求自然底数e的近似值，e x个数之和（1，1，2，3，5，8，13，......）最值问题1、算法说明在若干数中求最大值，一般先取第一个数为最大值的初值（即假设第一个数为最大值），然后，在循环体内将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值，直到循环结束。
高职单招计算机VB部分测试
高职第三次测试座号：__________姓名：__________成绩：__________一、阅读分析题(阅读分析下面VB程序，将正确的运行结果填入指定的下划线上。
每题6分，共72分)1、窗体上有一个名为Command1的命令按钮，并有下面的程序：Private Sub Command1_Click()a = 24:b =32a = a + bb = a - ba = a - bPrint a, bEnd Sub程序运行时，单击命令按钮后，则显示的结果是：2、窗体上有一个名为Command1的命令按钮，并有下面的程序：Private Sub Command1_Click()a = "123":b = "456"c = Val(a) + Val(b)Print c \ 100End Sub程序运行时，单击命令按钮后，则显示的结果是：3、窗体上有一个名为Command1的命令按钮，并有下面的程序：Private Sub Command1_Click()Dim a, b As Integera = 13b = 6Print Abs(a \ b - a)End Sub程序运行时，单击命令按钮后，则显示的结果是：。
4．有如下程序：Private Sub Form_Click()A=24b=328select case b\10case 0c=a*10+bcase 1 to 9c=a*100+bcase 10 to 99c=a*1000+bend selectEnd Sub程序运行后，单击窗体，输出结果为_______。
5．在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = 5y = -20If Not x > 0 Thenx = y - 3Elsey = x + 3Print x - y; y -xEnd IfEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容_______。
vb中专考试题及答案
vb中专考试题及答案一、选择题（每题2分，共10分）1. VB中，以下哪个关键字用于声明变量？A. DimB. LetC. SetD. Const答案：A2. VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. StrConv答案：A3. VB中，以下哪个属性用于获取或设置一个控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor答案：A4. VB中，以下哪个事件用于响应表单加载？A. ClickB. LoadC. DblClickD. Unload答案：B5. VB中，以下哪个运算符用于比较两个字符串是否相同？A. =B. <>C. LikeD. Is答案：B二、填空题（每题2分，共10分）1. VB中，使用________关键字可以声明一个数组。
答案：Dim2. VB中，________函数用于计算字符串的长度。
答案：Len3. VB中，________属性用于获取或设置一个控件的背景颜色。
答案：BackColor4. VB中，使用________事件可以响应文本框内容的更改。
答案：Change5. VB中，________函数用于将一个数值转换为字符串。
答案：Str三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，在这种范式中，程序的执行流程由外部事件（如用户操作、消息等）触发，而不是按照预先定义的顺序执行代码。
2. 在VB中，如何使用循环结构来遍历一个数组？答案：可以使用For循环或For Each循环来遍历数组。
例如，使用For循环遍历数组的语法为：```Dim arr(3) As IntegerFor i = LBound(arr) To UBound(arr)' 访问数组元素 arr(i)Next i```四、编程题（每题5分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
中职vb考试题目及答案
中职vb考试题目及答案一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim aB. Dim b As IntegerC. Dim c As StringD. Dim d As String, e As Integer答案：B2. Visual Basic中，以下哪个是合法的函数名？A. 1nameB. name1C. _nameD. name$答案：B3. 在Visual Basic中，以下哪个是合法的常量声明？A. Const pi = 3.14159B. Const pi = "3.14159"C. Const pi = 3.14159DD. Const pi = 3.14159F答案：A4. 在Visual Basic中，以下哪个是合法的数组声明？A. Dim arr(10)B. Dim arr(0 To 10)C. Dim arr(10 To 20)D. Dim arr(1 To 10) As Integer答案：D5. Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1 Step 1D. All of the above答案：D6. Visual Basic中，以下哪个是正确的条件判断语句？A. If x > 0 ThenB. If x > 0 Then ElseC. If x > 0 Then End IfD. If x > 0 Then Else If x < 0 Then答案：A7. 在Visual Basic中，以下哪个是正确的子程序声明？A. Sub mySub()B. Function mySub()C. Sub mySub(x As Integer)D. All of the above答案：D8. Visual Basic中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Private Function Form_Click()D. Public Function Form_Click()答案：A9. 在Visual Basic中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. Visual Basic中，以下哪个是正确的控件属性？A. TextB. CaptionC. ValueD. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量并赋值为10，应使用语句：Dim a As Integer; a = _______。
河南对口升学高职高专VB6.0考试试卷1
河南对口升学高职高专VB6.0考试试卷1永城市职教中心2013学年第二学期期中二年级计算机专业VB6.0试卷(满分100分)班级姓名考号分数一：单项选择题（每题2分，共50分）1．在设计阶段，双击窗体上的某个控件时所打开的窗口是（）A．工程资源管理器窗口B．工具箱窗口C．代码窗口D．属性窗口2．整型（Integer）数据占字节的内存空间。
A．1B．2C．4D．8 3．可以作为Visual Basic中变量名。
A．a+b B．abc C．2a D．Then 4．符合Visual Basic6.0规范的表达式是（）A．a2+ab B．a(a+b)C．a*[a+b]D．a*(a+b)5．表示x位于闭区间[-3，3]的Visual Basic表达式是（）A．-3<=x<=3B．x>=-3Or x<=3C．x>=-3And x<=3D．x>=-3Xor x<=3 6．程序执行过程中其值不变的量称为（）A．表达式B．常量C．变量D．函数7．表达式Abs(-10)+Sqr(16)的值是（）A．6B．-6C．26D．14 8．设a="abcdefghij"，则表达式Mid （a,5,3）&Right（a,3）的值是（）A．"efg"B．"hij"C．"efghij"D．"hijefg"9．假设变量a=5，b=3，执行t=a:a=b:b=t语句以后，a和b的值分别是（）A．3和5B．5和3C．3和3D．5和5 10．获得当前系统日期的函数是（）A．Hour B．Time11．程序段：s=1For i=1T o10Step2s=s*ii=i+1Next iPrint s,i执行结束后，输出的结果是（）A．28013B．28011C．94511D．9451312．在窗体上画一个名称为Command1的命令按钮，然后编写如下过程：Private Sub Command1_Click()x=0n=Val(InputBox(""))For i=1T o nFor j=1To ix=x+jNext jNext iPrint xEnd Sub运行后，单击命令按钮，输入4以后的输出结果是（）A．9B．10C．19D．20 13．Sub过程与Function过程最根本的区别是（）A．Sub过程可以直接使用过程名调用，而Function过程不可以B．Function过程可以有参数，而Sub过程不能有参数C．两种过程的参数的传递方式不同D．Function过程能通过过程名返回值，Sub过程不能通过过程名返回值14．既有输出功能，又有计算功能。
高职VB期末考试试卷(C)
学号：姓名：班级：装订线青岛恒星职业技术学院2008-2009第一学期期末考试Visual Basic程序设计试卷（Ｃ）（考试时间100分钟，满分100分）注意事项1．考生应严格遵守考场规定，得到人员指令后方可答题。
2．考生拿到试卷后应首先填写密封线内各项内容（学号、姓名、专业），不得填出密封线外。
3．注意字迹清楚、保持卷面整洁。
4．考试结束将试卷放在桌上，不得带走。
待监考人员收毕清点后，方可离场。
一、单项选择题（本大题共20小题，每小题2分，共40分）1、设有如下语句：Dim a，b As Integerc="VisualBasic"d=#7／20／2005#以下关于这段代码的叙述中，错误的是（）A) a被定义为Integer类型变量B) b被定义为Integer类型变量C) c中的数据是字符串D) d中的数据是日期类型2、设a=4，b=3，c=2，d=1，下列表达式的值是（）a>b+1 Or c<d And b Mod cA)True B)1 C)-1 D)03、以下可以作为VisualBasic变量名的是（）A) A#A B) counstA C)3A D)？AA4、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A) Print A=x+y B) Print "A="；x+yC) Print "A="+Str(x+y) D) Print "A="&x+y5、当组合框的Style属性设置为何值时，组合框称为简单组合框（）A．0 B．1 C．2 D．36、在参数传递过程中，使用关键字（）来修饰参数，可以按值传递A．ByVal B．ByRef C．Value D．Reference7、在VB中，要将一个窗体装入内存，应使用的语句是（）A．UnLoad B．Hide C．Show D．Load8、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（）A．选择图片框，然后按Del键B．执行语句Picture1.Picture=LoadPicture(“”)C．执行语句Picture1.Picture=”” D．选择图片框，在属性窗口中选择Picture属性，9、Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (a)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为（）A．1 2 3 B．2 3 4 C．4 5 6 D．1 4 610、下列数组定义语句错误的是（）A．k%=10Dim Arr(k)B．Const k%=10Dim Arr(k)C．Dim Arr1(10) As IntegerDim Arr2 (10)D．Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)11 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性（）A．Value B．Visible C．Default D．Enabled12 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（）A．设置Enabled的值为TrueB．设置TabIndex的值为1C．设置TabIndex的值为0D．设置Index的值为013下列几项中，属于合法的日期型常量的是（）A．"10/10/02" B．10/10/02C．{10/10/02} D．#10/10/02#14、下列程序段的执行结果为（）A=2B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A．True B．False C．-1 D．115、标签控件能够显示文本信息，决定其文本内容的属性是（）A．Alignment B．Caption C．Visible D．BorderStyle16、在属性窗口中，加载指定的图形放入当前对象中的属性是（）A．CurrentY B．Picture C．CurrentX D．Caption17、在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun ( ByVal m As Integer )If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)Next ｉPrint sEnd Sub程序运行后,单击命令按钮,则窗体上显示的是（）A．6 B．7 C．8 D．918、在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr(i, j) = i * jNext jNext iLabel1.Caption = Str(arr(2, 2) + arr(3, 3))End Sub程序运行后,单击窗体,在标签中显示的内容是（）A．12 B．13 C．14 D．1519、下列程序段的执行结果为（）I=1x=5DoI=I + 1x=x + 2Loop Until I >=7Print "I="; I ,Print "x="; xA．I＝4 x＝5 B．I＝7 x＝15 C．I＝6 x＝8 D．I＝7 x＝17 20、根据变量的作用域，可以将变量分为3类，分别为（）A．局部变量、模块变量和全局变量B．局部变量、模块变量和标准变量C．局部变量、模块变量和窗体变量D．局部变量、标准变量和全局变量二、填空题（本大题共5小题，每小题3分，共15分）1、随机产生10到1000之间的整数（包括10和1000）。
福建高职单招vb试题及答案
福建高职单招vb试题及答案福建高职单招VB试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类变量？A. DimB. StaticC. PublicD. Private答案：C2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 转换大小写C. 返回字符串中的一部分D. 连接字符串答案：C3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. ImageD. ComboBox答案：C4. 如果要在VB中实现一个按钮，当用户点击时弹出一个消息框显示“Hello World”，应该使用哪个事件？A. ClickB. LoadC. ChangeD. DblClick答案：A5. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C6. VB中的“Len”函数返回什么？A. 数组的长度B. 字符串的长度C. 对象的引用D. 文件的大小答案：B7. 在VB中，以下哪个不是窗体的属性？A. NameB. TextC. VisibleD. Color答案：D8. VB中的“Print”方法用于什么？A. 在文本框中显示文本B. 在标签上显示文本C. 在窗体上显示文本D. 打印文档答案：C9. 在VB中，以下哪个不是控制结构？A. IfB. ForC. DoD. Sub答案：D10. VB中的“UBound”函数返回什么？A. 数组的下界B. 数组的上界C. 数组的元素个数D. 数组的维度数答案：B二、填空题（每题2分，共20分）11. VB中的“________”函数可以将字符串转换为大写。
答案：UCase12. 当你想要在VB中定义一个函数时，应该使用关键字________。
答案：Function13. 在VB中，使用________方法可以获取当前系统时间。
答案：Now14. 如果一个变量在VB中被声明为Static，则它________。
温州职高学考VB试题描述
温州职高学考VB试题描述说明：VB操作题共分4小题（基本题2小题、应用题2小题），每小题有6套。
标题的格式表示是ItemId/ExamId(即素材文件夹)/工程文件名153(197 test1-1.vbp第1套基本操作1)1、打开答题目录下的工程文件“test1-1.vbp”，完成下列操作（总计12分）（1）在窗体Form1中添加标签对象Label1，在属性窗口中将标签Label1的Caption属性值设置为“欢迎进入VB世界”（3分）、Height属性值设置为“600”（2分）、Width属性值设置为“3000”（2分）；（2）添加命令按钮对象Command1,属性窗口中Caption属性值为“显示”（3分）。
（3）保存原窗体文件和原工程文件，并在当前目录下生成test1-1.exe文件（2分）。
154(198 test1-1.vbp第2套基本操作1)1.打开答题目录下的工程文件“test1-1.vbp”，完成下列操作（总计12分）（1）在窗体Form1中添加标签对象Label1，在属性窗口中将标签Label1的Caption属性值设置为“密码”（2分）。
（2）添加文本框控件Text1（2分），属性窗口中Height设置为“600”（1分），Width设置为“2500”（1分），设置Text属性值为空字符串（2分）。
（3）在属性窗口中修改Form1的Caption属性为“登录”（2分）。
（4）保存原窗体文件和原工程文件，并在当前目录下生成test1-1.exe文件（2分）。
155(199 test1-1.vbp第3套基本操作1)1.打开答题目录下的工程文件“test1-1.vbp”，完成下列操作（总计12分）（1）在窗体Form1中添加标签对象Label1，在属性窗口中将标签Label1的Caption属性值设置为“红”（2分），BackColor属性值设置为“&H000000FF&”（2分）,Height属性值设置为“600”（2分）,Width属性值设置为“600”（2分）。
高三高职单招计算机月考VB部分
(2012.3.9)高职单招计算机专业卷(VB部分)(总计150分) 出卷人：薛传谷班级____________ 姓名________________ 座号_____ 成绩______ 一、单项选择题（在每小题的四个备选答案中，选出一个正确答案，并将正确答案的序号填在题干的括号内。
每小题3分*10，共30分）1.命令按钮Command1设置为无效，应修改该命令按钮的属性。
[A] Visible [B]Value [C] Caption [D] Enabled2.要把“XXX”成为列表框List1中的第1项，可以执行语句。
[A] List1.AddItem “XXX”,1[B] List1.AddItem “XXX”,0[C] List1.AddItem 1,“XXX”[D] List1.AddItem 0,“XXX”3.以下对象不能响应Click事件[A] 窗体 [B] 图片框 [C]列表框 [D] 定时器4.要声明一个长度为50个字符的定长字符串变量str，语句是正确的。
[A] Dim str as String [B] Dim str as String(50)[C] Dim str as String[50] [D] Dim str as String*505.以下哪种控件不可以包含其他控件。
[A] PictureBox [B] Frame [C] Image [D] Form6. 设在菜单编辑器里定义了一个菜单项，名为menu1。
为了在运行时隐藏该菜单项，应使用的语句是____。
[A] menu1.Enabled = True [B] menu1.Enabled = False[C] menu1.Visible = True [D] menu1.Visible = False7．____ 对象能使用Print方法[A]文本框[B]图片框[C]列表框[D]框架8、下列哪一个是合法的VB变量名称？（）(A) MyName (B) CLS (C) 5XY (D) Friend.My9、下列数组声明语句，正确的是（）(A) Dim a[3,4] As Integer (B) Dim a(3,4) As Integer(C) Dim a(n,n) As Integer (D) Dim a(3 4) As Integer10.以下哪个程序段的执行结果为"OK”.(A) (B)Dim y As Integer Dim y As Integery=10 y=20Select Case y Select Case yCase 11 To 1 Case Is>20,Is<20Print "OK “ Print "OK”End Select End Select(C) (D)Dim y As Integer Dim y As Integery=6 y=10Select Case y Select Case yCase Is>6,1,2 to 5 Case 1,3,Is>6Print "OK” Print "OK”End Select End Select二、判断题（每小题2分*5，共10分）1.在一个过程中使用Static语句声明的静态变量，能在该过程结束后仍然保留该变量，所以可以在其他模块中引用该变量。
职高二年级vb期末考试试题
职高二年级vb期末考试试题一、选择题15*3=451、Visual Basic中窗体文件的扩展名是（）A、.VBWB、.FRMC、.VBPD、.PDM2、在设计应用程序时，通过（）可以调节窗体出现在屏幕的位置。
A、属性窗口B、代码窗口C、窗体设计窗口D、窗体布局窗口3、求Len（“123程序设计ABC”）的值是（）A、10B、14C、20D、174、表达式16/4-2^5*8/4 mod 5\2的值为（）A、14B、4C、20D、25、不能作为容器使用的对象是（）A、窗体B、框架C、图片框D、图像框6、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（）A、Timer1.Interval=0.5B、Timer1.Interval=5C、Timer1.Interval=50D、Timer1.Interval=5007、当一个工程个复选框被选中时，它的Value属性的值是（）A、0B、1C、TrueD、False8、语句：if表达式Then….中的表达式不可以是（）表达式。
A、算数B、逻辑C、关系D、字符9、关于Do…Loop循环结构执行循环体次数的描述正确的是（）A、Do While…Loop循环和Do…Loop Until循环至少都执行一次。
B、Do While…Loop循环可能不执行， Do…Loop Until循环至少执行一次。
C、Do While…Loop循环和Do…Loop Until循环都不执行一次。
D、Do While…Loop循环至少执行一次，Do…Loop Until循环可能不执行。
10、下面的程序段，显示的结果是（）。
x= Int(Rnd） + 5Select Case xCase 5 Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA、不及格B、良好C、及格D、优秀11、以下能够正确计算n!的程序是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic程序设计试卷（Ｃ）（考试时间100分钟，满分100分）注意事项1．考生应严格遵守考场规定，得到人员指令后方可答题。
2．考生拿到试卷后应首先填写密封线内各项内容（学号、姓名、专业），不得填出密封线外。
3．注意字迹清楚、保持卷面整洁。
4．考试结束将试卷放在桌上，不得带走。
待监考人员收毕清点后，方可离场。
题号一二三四五六七八总分阅卷人分数一、单项选择题（本大题共20小题，每小题2分，共40分） 1、设有如下语句： Dim a，b As Integer c="VisualBasic" d=#7／20／2005# 以下关于这段代码的叙述中，错误的是（） A) a被定义为Integer类型变量 B) b被定义为Integer类型变量C) c中的数据是字符串 D) d中的数据是日期类型2、设a=4，b=3，c=2，d=1，下列表达式的值是（） a>b+1 Or c<d And b Mod cA)True B)1 C)-1 D)03、以下可以作为VisualBasic变量名的是（） A) A#A B) counstA C)3A D)？AA4、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A) Print A=x+y B) Print "A="；x+yC) Print "A="+Str(x+y) D) Print "A="&x+y5、当组合框的Style属性设置为何值时，组合框称为简单组合框（） A．0 B．1 C．2 D．36、在参数传递过程中，使用关键字（）来修饰参数，可以按值传递 A．ByVal B．ByRef C．Value D．Reference7、在VB中，要将一个窗体装入内存，应使用的语句是（）A．UnLoad B．Hide C．Show D．Load 8、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（） A．选择图片框，然后按Del键 B．执行语句Picture1.Picture=LoadPicture(“”) C．执行语句Picture1.Picture=”” D．选择图片框，在属性窗口中选择Picture属性，9、Private Sub Command1_Click() Dim a As Integer a=2For i=1 To 3 Print Gad (a) Next i End SubFunction Gad (a As Integer) b=0 Static c b=b + 1 c=c + 1Gad=a + b + c End Function运行上面的程序后，单击命令按钮，输出结果为（）A．1 2 3 B．2 3 4 C．4 5 6 D．1 4 6 10、下列数组定义语句错误的是（） A．k%=10 Dim Arr(k) B．Const k%=10 Dim Arr(k)C．Dim Arr1(10) As Integer Dim Arr2 (10) D．Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)11 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性（）A．Value B．Visible C．Default D．Enabled12 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（）A．设置Enabled的值为True B．设置TabIndex的值为1 C．设置TabIndex的值为0 D．设置Index的值为013下列几项中，属于合法的日期型常量的是（）A．"10/10/02" B．10/10/02 C．{10/10/02} D．#10/10/02# 14、下列程序段的执行结果为（）A=2 B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A．True B．False C．-1 D．115、标签控件能够显示文本信息，决定其文本内容的属性是（）A．Alignment B．Caption C．Visible D．BorderStyle16、在属性窗口中，加载指定的图形放入当前对象中的属性是（）A．CurrentY B．Picture C．CurrentX D．Caption 17、在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun ( ByVal m As Integer ) If m Mod 2 = 0 Thenfun = 2Elsefun = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0For i = 1 To 5s = s + fun(i)Next ｉ Print s End Sub程序运行后,单击命令按钮,则窗体上显示的是（） A．6 B．7 C．8 D．918、在窗体上画一个名称为Label1的标签,然后编写如下事件过程: Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next jNext iLabel1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub程序运行后,单击窗体,在标签中显示的内容是（） A．12 B．13 C．14 D．15 19、下列程序段的执行结果为（）I=1 x=5 DoI=I + 1 x=x + 2Loop Until I >=7 Print "I="; I , Print "x="; xA．I＝4 x＝5 B． I＝7 x＝15 C．I＝6 x＝8 D．I＝7 x＝17 20、根据变量的作用域，可以将变量分为3类，分别为（）A．局部变量、模块变量和全局变量 B．局部变量、模块变量和标准变量 C．局部变量、模块变量和窗体变量 D．局部变量、标准变量和全局变量二、填空题（本大题共5小题，每小题3分，共15分）1、随机产生10到1000之间的整数（包括10和1000）。
2、表达式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是。
3、当对象得到焦点时，会触发事件，当对象失去焦点时将触发事件。
4、3、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click() Text1.Text = "VB程序设计" End SubPrivate Sub Text1_Change()Picture1.Print "VBProgramming" End Sub程序运行后,单击窗体,在文本框中显示的内容是，而在图片框中显示的内容是。
5、x+y小于10且x-y要大于0的逻辑表达式是。
三、完善程序题（本大题共3小题，第一小题5分，共15分） 1、下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
Sub GASR() Dim mm=Array(10, 1, 5, 6, 7) For i=0 To 3For j= If m(i) >=m(j) Thenm(i) =m(j) m(j) =tEnd If Next jFor i=0 To 4 Print m(i) Next i End Sub2、我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。
请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click() Dim Cock As Integer Dim Hen As Integer Dim Chick As IntegerForm1.Print "公鸡数", "母鸡数", "雏鸡数"For Cock=0 To 20 For Hen=0 To 33 For Chick=0 To 100If ThenForm1.Print Cock, Hen, Chick End If Next Chick Next HenNext Cock End Sub3、新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下： Private Sub Command1_Click() .Hide Form2. End Sub4、四、编写程序题（本大题共3小题，每小题10分，共30分） 1、编程序计算下面分段函数 2ln x>0 0 x=03x51 x<0xexYx5、6、7、8、9、2、输出Fibonacci数列：1，1，2，3，5，8，……的前20个数，即Fib（1）=1，Fib (2)=1, Fib (n)=Fib (n-1)+Fib (n-2) (n>=3)10、3、编写程序，打印如下图形。
11、 *12、 * * *13、* * * * *14、* * * * * * *。