6.职业学校vb试题
职业高中vb试题及答案
职业高中vb试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. 下列哪个函数用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Len()答案：B3. 在Visual Basic中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. IfD. For答案：B4. 以下哪个选项是Visual Basic中的循环控制结构？A. DoB. LoopC. WhileD. All of the above5. 在Visual Basic中，以下哪个选项用于声明一个变量？A. DimB. ConstC. OptionD. All of the above答案：D6. 下列哪个选项是Visual Basic中的正确注释方式？A. // This is a commentB. /* This is a comment */C. ' This is a commentD. All of the above答案：C7. 在Visual Basic中，以下哪个选项用于打开文件进行读取？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：A8. 以下哪个选项是Visual Basic中的正确事件处理程序？A. On ClickB. On LoadC. On ErrorD. All of the above答案：D9. 在Visual Basic中，以下哪个选项用于将数值转换为字符串？B. Val()C. Int()D. All of the above答案：A10. 在Visual Basic中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. NamespaceD. Option答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个数组。
中职vb试题及答案
中职vb试题及答案一、选择题（每题2分，共20分）1. VB中的“=”符号表示什么？A. 赋值B. 等于C. 不等于D. 大于答案：A2. 下列哪个是VB中合法的变量名？A. 123nameB. name_123C. _nameD. name?答案：B3. VB中，用于声明变量的关键字是？A. DimB. ConstC. FunctionD. Sub答案：A4. VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. BooleanD. Object答案：D5. VB中，如何表示一个数组？A. Dim arr(10) As IntegerB. Dim arr As Integer(10)C. Dim arr(10,10) As IntegerD. Dim arr As Integer答案：A6. VB中，以下哪个选项是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of the above答案：D7. VB中，以下哪个函数用于将字符串转换为整数？A. StrB. ValC. CIntD. CStr答案：C8. VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Property答案：B9. VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Case...SelectC. For...NextD. While...Wend答案：A10. VB中，以下哪个选项是正确的事件处理程序？A. On ClickB. On LoadC. On ChangeD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以定义一个常量。
答案：Const2. VB中，________关键字用于定义一个函数。
答案：Function3. 在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试题资料
、选择题每小题 2 分，共 50分） 1．（）可以作为Visual Basic 中变量名。
A ．a+b B ． abcC ．2aD ． Then2.符合 Visual Basic 6.0 规范的表达式是(2A . a +abB ．a(a+b) C ．a*[a+b]D ．a*(a+b )A ． -3<=x<=3B ．x>= - 3 Or x<=3 C ． x>= - 3 And x<=3D ．x>= - 3 Xor x<=3 4.表达式16/4—2八5*8/4 MOD 5\2 的值为）。
A. 14B. 4C. 20D. 2 5．下列四个运算符中，优先级别最低的是（）。
A. \B. AndC. ModD. < >6．要使标签控件中的文本水平居中对齐，应将其Align mentA ．0B ．1C ．D ．37．向列表框中添加项目，应调用（方法。
A ．Add B ． AddItemC ．FillD ．FillItem8 .假设变量t=(a\100) Mod 10 后， t 的值是（A .B . 4D . 69.(）不是鼠标事件。
A . MouseUPB . MousePressC . MouseDownD . MouseMove10 .标签控件的（）属性用来设置控件中文本和图形的前景颜色。
B . Font 2014-2015 学年三年级上期期中试题Visual Basic 6.03．表示 x 位于闭区间 [-3， 3] 的 Visual Basic 表达式是（A . BackColor C . ForeColorD . BackStyle11. （ ）控件将文本框控件和列表框控件的特性结合在一起，既可以在控件的文 本框部分输入信息，也可以在控件的列表框部分进行选择。
A .复选框B.菜单C .组合框D.框架12. 要创建一个下拉式组合框（包括一个下拉式列表和一个文本框），应将Style 属性设置为（）A. 0B. 1C. 2D. 31 3 .为了使文本框控件具有垂直滚动条，应把ScrollBars 属性值设置为（）A. 0B. 1C. 2D. 3）用于显示项目列表，从其中可以选择一项或多项。
vb职业高中高一试题及答案
vb职业高中高一试题及答案**VB职业高中高一试题及答案**一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above**答案：D**2. 下列哪个是Visual Basic中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**3. 在Visual Basic中，用于声明变量的关键字是？A. LetB. SetC. DimD. Const**答案：C**4. 在Visual Basic中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp**答案：A**5. 在Visual Basic中，以下哪个选项是正确的事件处理程序的声明方式？A. Sub Button1_Click()B. Function Button1_Click()C. Property Button1_Click()D. Event Button1_Click()**答案：A**6. 在Visual Basic中，以下哪个控件用于显示文本，但不提供文本编辑功能？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**7. 在Visual Basic中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**8. 在Visual Basic中，以下哪个循环结构用于重复执行代码块，直到满足特定条件？A. For...NextB. Do...LoopC. While...WendD. All of the above**答案：D**9. 在Visual Basic中，以下哪个函数用于将字符串转换为数字？A. CIntB. CStrC. CDblD. CLng**答案：A**10. 在Visual Basic中，以下哪个属性用于设置文本框（TextBox）的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine**答案：A**二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量并赋值为10，可以使用语句：Dim ________ As Integer = 10。
职高V B试题
班级_______姓名__________考号_______________商城县职业高级中学2016级计算机专业Visual Basic 试题总分100分2016.10.28请注意：1.姓名，座号书写清楚。
2分2.答案必须书写认真，干净整洁。
8分一、填空题（25×2分=50分）1、Visual Basic 模块分为_____________、____________和______________三种类型。
2、代码窗口分为左右两栏。
左边一栏为____________，右边一栏称为____________。
3、在Visual Basic 中，从___________菜单中选择___________命令可运行应用程序。
4、在保存Visual Basic 应用程序时，窗体文件和工程文件的扩展名分别为____________和____________。
5、一个Visual Basic 窗体最多可以包含____________个名称不同的独立控件。
6.在Visual Basic 中创建一个标准EXE 程序，并在窗体上添加一个标签和两个命令按钮，将命令按钮的标题分别设置为“显示文本”和“隐藏文本”，则应该将_________和_________对象属性的_________值改成“显示文本”和“隐藏文本”；将标签显示的内容清空，则应该将_________控件属性_________值。
要求在单击“显示文本”按钮时，通过标签显示“我喜欢Visual Basic 程序设计”则应该将_____________________对象___________________事件代码为_______________________________________________；在单击“隐藏文本”按钮时，标签文本消失，则应该将________________对象________________事件代码为________________________________________________。
中职VB语言程序设计程序填空题综合练习(六)
VB语言程序设计综合练习：程序填空题41.题目：程序功能：求1+2+3……，直到其和超出3000为止，并输入结果。
'------------------------------------------------ Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei = 1Dos = s + iLoopPrint "从1 到:"; i; "的和是"; sEnd Sub42.题目：以下程序段用于输出100-300的所有素数'------------------------------------------------ Option ExplicitDim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2k = Int(Sqr(n))i = 2If n Mod i = 0 Thenswit = 1ElseEnd IfWendIf swit = 0 ThenPrint n;End IfNext nEnd Sub43.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。
'------------------------------------------------Option ExplicitDim Temp As IntegerDim I As IntegerDim N As IntegerDim X(10) As IntegerDim J As IntegerN = 10Print "数据："For I = 1 To NPrint X(I);Next IPrintPrint "排序："For I = 0 To N - 1For J = I + 1 To NX(J) = X(I) X(I) = Temp End IfNext JPrint X(I);Next IPrintEnd SubPrivate Sub Command1_Click()CreateRNDEnd Sub44.题目:输入两个正整数m和n，求其最大公约数。
vb职业高中高一试题及答案
vb职业高中高一试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. VB中的哪个函数可以用来计算一个数的平方？A. SqrB. PowC. SquareD. None of the above答案：B3. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B4. 如果要在一个VB程序中使用数组，应该如何声明？A. Dim array() As IntegerB. Dim array As Integer()C. Both A and BD. None of the above答案：C5. 在VB中，哪个事件会在窗体加载时触发？A. LoadB. ClickC. DoubleClickD. MouseDown答案：A6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. WhileC. Do WhileD. All of the above答案：D7. VB中，哪个函数可以用来将字符串转换为数字？A. StrB. ValC. CIntD. CStr答案：C8. 在VB中，以下哪个关键字用于定义一个类？A. FunctionB. SubC. ClassD. Module答案：C9. 如果要在一个VB程序中使用模块，应该如何声明？A. Public Module ModuleNameB. Private Module ModuleNameC. Both A and BD. None of the above答案：D10. 在VB中，哪个事件会在按钮被点击时触发？A. LoadB. ClickC. DoubleClickD. MouseDown答案：B二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、选择题（每题2分，共50分）1、在VB中，语句dim A(10) 中定义了一个（）类型数组A 变体B 单精度 C、双精度 D、字符串2、在VB中，“工程资源管理器”窗口中，单击（）可打开代码窗口，显示选中文件中的代码。
A 查看代码B 查看对象C 切换文件夹D 过程查看3、在VB中，以下程序中语句I=i+2的执行次数是（）For i=1 to 25I=i+2Next iPrint iA 8B 9C 10D 114、用于VB程序设计的控件在（）A 工具箱中B 工具菜单中C 工具栏上D 工程窗口中5、退出VB的错误方法是（）A 单击窗口右上角的关闭按钮B 选择“文件”菜单中“退出”命令C 按快捷键 ALT + QD 选择“文件”菜单中“关闭”命令6、在VB中，下列程序运行后输出的结果是（）For j=2 to 15 step 3K=k+jNext jPrint k+jA 16B 40C 55D 577、在VB中，设A=“12345678”，则表达式val(left(a,4)+mid(a,4,2))的值为（）A 123456B 123445C 8D 68、语句 print 7\3*3 运行时输出的结果为（）A 7B 3C 0D 19、以下VB程序输出的结果是（）Private sub form_activate( )Dim A(20)For k=1 to 19A(k)=k^2Next kPrint A(k)End subA 400B 361C 0D 出错10、以下叙述中错误的是（）。
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.bas为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件11、以下关于函数过程的叙述中，正确的是（）。
A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型12、设有以下循环结构Do循环体Loop While <条件>则以下叙述中错误的是（）A）若"条件"是一个为0的常数，则一次也不执行循环体。
B）"条件"可以是关系表达式、逻辑表达式或常数。
C）循环体中可以使用Exit Do语句。
D）如果"条件"总是为True，则不停地执行循环体。
13、在Visual Basic中，y1+z2=a*Sin(b*x+c)+k表达式的类型是__ ____。
A. 算术表达式B. 关系表达式C. 逻辑表达式D. 字符表达式14、Visual Basic表达式Cos(0)+Abs(1)+Int(Rnd)的值是______。
A. 1B. -1C. 0D. 215、在窗体上画一个命令按钮Command1，然后编写如下代码：Private Sub Command1_Click()Dim a,sa = Array(1, 2, 3, 4)For i = 3 To 0 Step -1s = s + Trim(Str(a(i)))Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是_____。
A. 10B. 4321C. 2314D. 123416、表达式23/5.8、23\5.8、23 Mod 5.8的运算结果分别是______。
A. 3、3.9655、3B. 3.9655、3、5C. 4、4、5D. 3.9655、4、317、在窗体上画一个命令按钮，其名称为Command1，然后编写下列事件过程：Private Sub Command1_Click( )Dim i As Integer, x As IntegerFor i= 1 To 6If i=1 Then x=iIf i<=4 Thenx=x+1Elsex=x+2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为（）。
A）9 B）6 C）12 D）1518、Visual Basic中下列符号常量的声明，不合法的是……………( )A．Const a As Single=1.1 B．Const a="OK"C．Const a As Double=Sin(1) D．Const a As Integer="12"19、以下进入代码编辑器的方法中错误的是___________A. 单击控件B. 按下F7键C. 执行[视图]菜单下的[代码窗口命令]D. 单击工程资源管理器窗口中的[查看代码]按钮20、设有下列通用过程：Public Sub Fun(a( )As Integer,x As Integer)For i= 1 To 5x=x+a(i)NextEnd Sub在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮。
然后编写下列事件过程：Private Sub Command1_Click( )Dim arr(5) As Integer, n As IntergerFor i= 1 To 5arr(i)=i+iNextFun arr, nText1.Text=Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（）。
A）30 B）25 C）20 D）1521、以下有关VB语言描述中错误的是（）A、不区分大小写 B 语句是一行一句，以回车键结束C、用“；”分隔一行中的多个语句D、一条语句放在多行中，则在前一行结束处使用续行符“—”连接下一行22、下列程序段错误的是________。
A.Dim a As Integera=array(1，2，3，4)B.Dim a(),b()a=array(1,2,3,4)：b=aC. Dim a As Varianta=array(1,”asd”,true)D. Dim a()A=array(1,2,3,4)23、下列程序的运行结果为Dim a(-1 To 6)For i=LBound(a, 1) To UBound(a, 1)a(i) =iNext iPrint a(LBound(a, 1) ) ; a(UBound(a, 1) )A) 0 0 B) -5 0 C) -1 6 D) 0 624、执行语句Print format(5459.478,"##,0#0.0000")，正确的输出是______。
A 、5459.48B 、5，459.48C 、5，459.4780D 、 5，459.4725、设x=100,Y=1000,（ ）表达式可产生大于X 且小于Y 的随机整数A int(rnd(1)* (Y-X)+X)B INT(RND * (Y-X+1)+X)C INT(RND*(Y-X-1)+X+1)D INT(RND*(Y-X+2)+X-1)二、判断题（每题1分，共6分）（ ）1.过程名前加static ，表示该过程内的局部变量都是静态变量.（ ）2.在if 语句中如果条件表达式成立则执行then 后面的语句，否则执行else 后面的语句。
（ ）3.内循环和外循环的变量名可以相同也可以不同。
（ ）4.在声明数组时，在数组后面附以一个空的维数表，即可将数组声明为动态数组。
（ ）5.option base 语句对array 函数不起作用，使用array 函数所创建数组的下标的下界始终为0（ ）6.在同一行内，续行符后面不能加注释。
三、填空题（每空2分，共14分）1、双精度数用字母_____将尾数与指数分开。
2、 rnd 函数取值范围是_____________3、在Visual Basic 中，下列程序用IIf 函数可改写为 。
x=b : If a>b Then x=a4、在Visual Basic 中表达式（－1）*Sgn(-100+Int(Rnd*100))的值是 。
5、数学式子)3(32222a b b --转换成VB 表达式为_____________________ 6、在VB 中，如果进行按值传递则需要在实参上加__________五、程序分析题（每题5分）1. 运行下面的VB 程序，语句X=X+3执行的次数是For i=1 to 4If i>12 Then Exit ForFor j=1 to 3For k=1 to 2X=x+3Next kNext jNext i六、读程序写结果 (每题5分，共10分)1、Private Sub Command1_Click()Dim A As Integer, K As IntegerA = 2K = Fun((A), A) + Fun(A, A)Print "K = "; KEnd SubPrivate Function Fun(X As Integer, Y As Integer) As IntegerStatic K As IntegerK = K + X + YX = X + YY = Y + KFun = X + YPrint Fun; X; YEnd Function_________________________________2、Option Base 1Dim arr( )As IntegerPrivate Sub Form_Click( )Dim i As Integer, j As IntegerReDim arr(3,2)For i = 1 To 3For j = 1 To 2arr(i,j)=i*2+jNext jNext iReDim Preserve arr(3,4)For j=3 to 4arr(3,j)=j+9Next jPrint arr(3,2)+arr(3,4)End Sub————————————————————七、程序改错（共10分）1.有两个字符串X$="ABCDEKG"和Y$="BDFG"，每个字符串中都没有重复出现的字符,把Y$的字符插入到X$中。
插入方法:从Y$中取出一个字符,然后在X$中查找,若有相同字符,就把它放在该相同字符后,若找不到则放在X$的后面，然后从Y$中取下一个,直到全部处理完,最后X$中的内容为"ABBCDDEKGGF"。
程序中有两行错误,请将改正后的全行写在答题纸上。
Private Sub Command1_Click()Dim X$,Y$,C$,I%,J%,L1%,L2%X$ = "ABCDEKG"Y$ = "BDFG"L2 = LEN(Y$)FOR I = 1 TO L2C$ = MID$(X$, I, 1)L1 = LEN(X$)FOR J = 1 TO L1IF C$ = MID$(X$, J, 1) THEN X$ = MID$(X$,1,J)+C$+MID$(X$,J+1): GOTO 120 NEXT J120 IF J<=L1 THEN X$ = X$ + C$NEXT IPRINT X$End Sub2．以下程序的功能是：单击命令按钮后，在窗体中显示如下方阵1 2 3 4 52 3 4 5 13 4 5 1 24 5 1 2 35 1 2 3 4Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(5, 5) As IntegerFor i = 1 To 5a(1, i) = iNext iFor i = 2 To 5For j = 1 To 5a(i, j) = a(i - 1, j + 1)Next ja(i, j) = a(i - 1, j)Next iFor i = 1 To 5For j = 1 To 5Print a(i, j);Next jPrintNext iEnd Sub八、程序填空题（每空5分，共25分）1. 下面程序的功能是从键盘输入一个整数m，计算并输出满足不等式2222++++<的最大的n，试填空使得程序完整。