200902二级Visual Basic 语言上机考试题(第一套参考答案)
计算机程序设计-VisualBasic【VB】考试试题(1)
A、 AutoSize B、 Visible C、 Enabled D、 WordWrap 正确答案： A 解析：
42、当文本框的 MaxLength 属性值取________时，该文本框能容纳的字符数最多。
A、 256 B、 512 C、 0 D、 -1 正确答案： C 解析：
43、在一行语句内写多条语句时，每个语句之间用_____ ___符号分隔。
A、 ； B、 : C、 ， D、 、 正确答案： B 解析：
44、结构化程序由三种基本结构组成，下面术语中是三种基本结构之一的是______ _。
A、 递归结构 B、 选择结构 C、 输入输出结构 D、 过程结构 正确答案： B 解析：
45、在默认情况下，InputBox() 函数返回值的类型为______ __。
8、下列关于 VB 编程的说法中，不正确的是（ ）。
A、 事件是能被对象识别的动作 B、 方法指示对象的行为 C、 属性是描述对象特征的数据 D、 VB 程序采用的运行机制是面向对象 正确答案： D 解析：
9、下面所列符号中，_________不是数据类型说明符。
A、 !
B、 % C、 ？ D、 # 正确答案： C 解析：
A、 0.01*Int(100*(x+0.005)) B、 0.01*Int(x+0.005) C、 0.01*Int(100*(x+0.05)) D、 0.01*Int(x+0.05) 正确答案： A 解析：
24、从字符串变量 Cstr 中取左边 4 个字符，应使用________。
A、 Left(Cstr，4) B、 Left(Cstr，1，4) C、 Mid(Cstr，3，4) D、 Mid(Cstr，4，3) 正确答案： A 解析：
浙江省09年春二级vb考试试卷及答案
浙江省2009年春二级VB考试试卷及答案2009年春浙江省高等学校计算机等级考试试卷(二级Visual Basic) 试题1 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】输入n后，计算并显示下列表达式的值。
1?1111????? 234n运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示，按“计算”按钮后的界面如下图右所示。
【程序】Dim n As Integer Private Sub Form_Load() Command1. (1)End Sub Private Sub Text1_(2)(K As Integer) If K 13 Then Exit Sub(3) If n > 0 Then = True= False Else = \ End If End Sub Private Sub Command1_Click() Dim yAs Single, i As Integer For i = 1 To n (4)Next i = y= False = True= \ 1 End Sub 【供选择的答案】(1) A、Enabled=True B、Enabled=False C、Visible=True D、Visible=False (2)A、KeyPressB、ClickC、Change(3) A、k=B、k = 13C、n = 13D、KeyDown D、n = (4) A、y = y + 1/n B、y = y + 1\\n C、y = y + 1/i D、y = y + 1\\i 试题2 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】运行时输入10个数后，输出其中较小的5个数。
【程序】Private Sub Command1_Click() Dim a(10) As Single, t As Single, i As Byte, j As Byte, k As Byte For i = 1 To 10 a(i) = InputBox( (5)) Next i Fori = 1 To 9(6)For j = i +1 To 10 If (7)Then k = j Next j t = a(i): a(i) = a(k): a(k) = tNext i For i = (8)Print a(i) Next i End Sub 【供选择的答案】(5) A、\、\C、\、\(6) A、k = i B、i = k C、k = i + 1D、i = k + 1 (7) A、a(j) a(i)C、a(j) > a(k)D、a(j) D、5 To 10 试题3 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
国家二级VB机试(上机操作)模拟试卷300(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。
再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
计算机二级考试VB练习题及答案
计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。
Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。
二级VF机试真题2009年3月
[真题] 二级VF机试真题2009年3月一、基本操作题第1题：(1)将数据库stu添加到项目my当中。
(2)在数据库stu中建立数据库表“比赛安排”，表结构为：场次字符型(20)时间日期型裁判字符型(15)(3)为数据库stu中的表“住址”建立“候选”索引，索引名称和索引表达式为“电话”。
(4)设置表“比赛安排”的字段“裁判”的默认值为tyw。
______参考答案：(1)步骤1：单击工具栏上的[打开]按钮，在弹出的对话框中选择项目文件“my.pjx”单击[确定]按钮。
步骤2：在[项目管理器]对话框中，选择[全部]选项卡，展开“数据”，再展开“数据库”，单击[添加]按钮。
在弹出的对话框中选择“stu.dbc”，单击[确定]按钮。
(2)双击[项目管理器]对话框的[全部]选项卡中展开数据库，展开“stu”后，选择“表”，在弹出的[新建表]对话框中单击[新建表]按钮，此时在打开的对话框中输入表名“比赛安排”，然后单击[保存]按钮打开表设计器。
在弹出的表设计器中对字段、类型、宽度进行设置。
单击[确定]按钮，在弹出的对话框中选择否(现在不输入数据)。
(3)在[项目管理器]对话框的[全部]选项卡中展开数据库，展开“tu”后，双击“住址”，在打开的[表设计器]对话框中选择[索引]选项，在索引名和表达式中均输入“电话”，在类型中选择为“候选索引”，单击[确定]按钮。
(4)在[项目管理器]对话框的[全部]选项卡中展开数据库，展开“stu”，双击“比赛安排”，在打开的[表设计器]对话框中选择[字段]选项卡，选中“裁判”字段，在[字段有效性]组合框中的[默认值]一栏输入“tyw”，单击[确定]按钮。
本大题首先考虑到它存在项目文件，可使用项目管理器来操作；数据库添加可以通过项目管理器中的[命令]按钮，打开相应的设计器直接管理；建立索引可以在数据表设计器中完成；字段的有效性规则建立可在“字段”选项卡中完成。
二、简单应用题第2题：(1)请按要求修改modil.prg程序文件中的错误并使之能够正确运行，注意：不可增加或删除程序。
09年春浙江省高校VB二级计算机等级考试真题试卷(含答案)
2009年春浙江省高等学校【程序说明】输入n 后，计算并显示下列表达式的值。
n 14131211+++++ 运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示(输入数若小于1则清空文本框，需重新输入)，按“计算”按钮后的界面如下图右所示。
【程序】Dim n As IntegerPrivate Sub Form_Load()Command1. Enabled=False 1End SubPrivate Sub Text1_KeyPress 2 (K As Integer)If K <> 13 Then Exit Sub n=Text1.Text 3If n > 0 ThenCommand1.Enabled = TrueText1.Enabled = FalseElseText1.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim y As Single, i As IntegerFor i = 1 To ny=y+1/i （4）Next iLabel3.Caption = yCommand1.Enabled = FalseText1.Enabled = TrueText1.Text = " "Text1.SetFocusEnd Sub【程序说明】运行时输入10个数后，输出其中较小的5个数。
【程序】Private Sub Command1_Click()Dim a(10) As Single, t As Single, i As Byte, j As Byte, k As ByteFor i = 1 To 10a(i) = InputBox("a(" & i & ")=" （5）)Next iFor i = 1 To 9k=i （6）For j = i + 1 To 10If a(j)<a(k) （7）Then k = jNext jt = a(i): a(i) = a(k): a(k) = tNext iFor i = 1 To 5 （8）Print a(i)Next iEnd Sub【（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
江苏省计算机等级考试visual basic 2009年(春)笔试试卷(附答案)
第一部分计算机基础知识1．在下列有关现代信息技术的一些叙述中，正确的是 1 。
A．集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生B．集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件C．目前所有数字通信均不再需要使用调制解调技术和载波技术D．光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量2．最大的10位无符号二进制整数转换成八进制数是 2 。
A．1023 B．1777 C．1000 D．10243．在下列有关目前PC机CPU的叙述中，错误的是 3 。
A．CPU芯片主要是由Intel公司和AMD公司提供的B．“双核”是指PC机主板上含有两个独立的CPU芯片C．Pentium 4微处理器的指令系统由数百条指令组成D．Pentium 4微处理器中包含一定容量的Cache存储器4．在下列有关当前PC机主板和内存的叙述中，正确的是 4 。
A．主板上的BIOS芯片是一种只读存储器，其内容不可在线改写B．绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条C．内存条上的存储器芯片属于SRAM(静态随机存取存储器)D．目前内存的存取时间大多在几个到十几个ns(纳秒)之间5．在下列有关PC机辅助存储器的叙述中，正确的是 5 。
A．硬盘的内部传输速率远远大于外部传输速率B．对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度C．使用USB 2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节D．CD-ROM的数据传输速率一般比USB 2.0还快6．在下列PC机I／O接口中，数据传输速率最快的是 6 。
A．USB 2.0 B．IEEE_1394 C．IrDA(红外) D．SATA7．计算机软件可分为商品软件、共享软件和自由软件等类型。
在下列叙述中，错误的是7 。
A．通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的B．共享软件通常是一种“买前免费试用”的具有版权的软件C．自由软件的原则是用户可共享，并允许拷贝和自由传播D．软件许可证是一种法律合同，它确定了用户对软件的使用权限8．人们通常将计算机软件划分为系统软件和应用软件。
VB考试题库,二级习题(含答案)
VB考试一1、能够获得一个文本框中被选取文本的内容的属性是______。
A：SelStart B：SelLength C：SelText D：Text参考答案：C2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
A：= False B：C：D：= False参考答案：D3、对于语句If x=1 Then y=1, 下列说法正确的是____。
A：x=1和y=1 均为赋值语句B：x=1和y=1 均为关系表达式C：x=1为赋值语句，y=1为关系表达式D：x=1为关系表达式，y=1 为赋值语句参考答案：D4、以下变量名中，______是不符合Visual Basic的命名规范的。
A：_mnu_Open_234 B：Abc901 C：price_ D：K参考答案：A5、MsgBox 函数返回值的类型是__________。
A：数值或字符串 B：字符串C：变体D：整型数值参考答案：D6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。
A：进入中断模式B：进入运行模式C：进入设计模式D：不用进入任何模式参考答案：A7、设a=6，则执行x=IIF(a>5,-1,0) 后，x的值为______。
A：-1 B：6 C：0 D：5参考答案：A8、可以同时删除字符前导和尾部空白的函数是______。
A：Mid B：Rtrim C：Trim D：Ltrim参考答案：C9、以下语句的输出结果是______。
Print Format$("","000,")A：32, B：C：032, D：32,参考答案：C10、设有如下声明：Dim X As Integer如果Sgn(X)的值为-1，则X的值是______。
A：等于0的整数B：大于0的整数C：整数D：小于0的整数参考答案：D11、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是______。
visual basic 程序设计课后习题参考答案
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题3第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
5VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
计算机二级考试《VB》单选试题及答案
计算机二级考试《VB》单选试题及答案1). 为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为( )A.OB.1C.2D.False正确答案：C答案解析：复选框的Value属性可以设置为0、l或2。
O表示没有选择该复选框，l表示选中该复选框，2表示该复选框被禁用(灰色显示)。
2). 一个教师可讲授多门课程，一门课程可由多个教师讲授。
则实体教师和课程间的联系是( )A.1∶1联系B.1∶m联系C.m∶1联系D.m∶n联系正确答案：D答案解析：因为一个教师可讲授多门课程，而一门课程又能由多个老师讲授，所以它们之间是多对多的关系，可以表示为m∶n。
3). 窗体上有名称为Listl的列表框。
以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是( )A.Listl.Addltem“Basic”B.Listl.List( Listl.Listlndex)=“Basic”C.Listl.Text=“Basic”D.以上都可以正确答案：B答案解析：Addltem用于将列表项添加到列表框。
Text属性是被选定的选项的文本内容。
列表框的List属性用来列出表项的内容，也可以改变数组中的已有值，属性List-Index用于返回当前选择的列表项的索引号。
选项B正确。
4). 下列关于利用通用对话框产生的`文件对话框的相关属性的描述中，错误的是( ).A.InitDir属性用于设置对话框中显示的起始目录B.Filter属性用于设置对话框默认的过滤器C.DefaultExt属性用于设置对话框中默认的文件类型D.FileTitle属性用于存放对话框中所选择的文件名正确答案：B答案解析：通用对话框的InitDir属性用于设置对话框中显示的起始目录，Filter属性用来指定在对话框中显示的文件类型，FilterIndex 用于设置对话框默认的过滤器，DefaultExt属性用于设置对话框中默认的文件类型，FileTitle属性用于存放对话框中所选择的文件名。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
200902二级Visual Basic语言上机考试题（第一套）参考答案及评分标准 第 1 页 共 2 页
二级Visual Basic 语言上机考试题（第一套）
参考答案及评分标准
第一题答案：
Private Sub Command1_Click()
x = Val(Text1.Text)
If Option1 = True Then
Label3.Caption = "计算结果是：" & x * x
Else
If x >= 0 Then
Label3.Caption = "计算结果是：" & Sqr(x)
Else
Label3.Caption = "负数不能计算平方根"
End If
End If
End Sub
评分标准：
界面设计 15分
事件过程 5分
输入数据 5分
功能实现 10分
文件名正确保存 5分
第二题答案：
Private Sub Form_Click()
Dim n As Integer
n = Val(InputBox("请输入一个正整数"))
s = 1
k = 0
For i = 1 To n
k = k + i
s = s * k
Next i
Print "计算结果为："; s
End Sub
评分标准：
初始化 4分
循环控制 10分
计算结果 8分
输出 3分
文件名 3分
200902二级Visual Basic语言上机考试题（第一套）参考答案及评分标准 第 2 页 共 2 页
第三题答案：
Dim a(10) As Integer
Private Sub Command1_Click()
s = "生成10个二位的随机正整数：" + vbCrLf
For k = 1 To 10
a(k) = Int(Rnd * 90 + 10)
s = s & " " & a(k)
Next k
Label1 = s
End Sub
Private Sub Command2_Click()
For k = 1 To 10
If a(k) > 50 Then
Picture1.Print a(k);
End If
Next k
End Sub
评分标准
改正每处错误 6分
正确保存文件 6分