VB程序设计-试题与标准答案-1
VB程序设计1
1．第1题单选题应用程序设计完成后，应将程序保存，保存的过程是（）A、只保存窗体文件即可B、只保存工程文件即可C、先保存工程文件，之后保存窗体文件D、先保存窗体文件（或标准模块文件），之后还要保存工程文标准答案：D您的答案：题目分数：5此题得分：0.0批注：2．第2题单选题下列不能打开属性窗口的操作是（）A、执行“视图”菜单中的“属性窗口”命令B、按F4键C、按Ctrl TD、单击工具栏上的“属性窗口”按钮标准答案：C您的答案：题目分数：5此题得分：0.0批注：3．第3题单选题 Visual Basic的编程机制是（）A、可视化B、面向对象C、面向图形D、事件驱动标准答案：D您的答案：题目分数：5此题得分：0.0批注：4．第4题单选题运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A、CLICKB、DBLCLICKC、GOTFOCUSD、CHANGE标准答案：D您的答案：题目分数：5此题得分：0.0批注：5．第5题单选题下面不是VB工作模式的是（）A、设计模式B、运行模式C、汇编模式D、中断模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：6．第6题单选题为了防止用户随意将光标置于控件上，应（）A、将控件的TABINDEX属性设置为0B、将控件的TABSTOP属性设置为TRUEC、将控件的TABSTOP属性设置为FALSED、将控件的ENABLED属性设置为FALSE标准答案：D您的答案：题目分数：5此题得分：0.0批注：7．第7题单选题在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A、INDEXB、TABINDEXC、TABSTOPD、ENABLED标准答案：B您的答案：题目分数：5此题得分：0.0批注：8．第8题单选题可视化编程的最大优点是（）A、具有标准工具箱B、一个工程文件由若干个窗体文件组成C、不需要编写大量代码来描述图形对象D、所见即所得标准答案：C您的答案：题目分数：5此题得分：0.0批注：9．第9题单选题 VB应用程序的运行模式是（）A、解释运行模式B、编译运行模式C、两者都有D、汇编模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：10．第10题单选题在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A、Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB、Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC、Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD、Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub标准答案：A您的答案：题目分数：5此题得分：0.0批注：11．第11题单选题以下能够触发文本框Change事件的操作是（）A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容标准答案：D您的答案：题目分数：5此题得分：0.0批注：12．第12题单选题如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A、文本框的MULTILINE属性值为TRUEB、文本框的LOCKED属性值为TRUEC、文本框的MULTILINE属性值为FALSED、文本框的LOCKED属性为FALSE标准答案：B您的答案：题目分数：5此题得分：0.0批注：13．第13题单选题决定标签（Label）显示的属性是（）A、TextB、NameC、CaptionD、Alignment标准答案：C您的答案：题目分数：5此题得分：0.0批注：14．第14题单选题 Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A、属性、事件、事件过程B、控件、窗体、事件C、属性、过程、方法D、属性、事件、方法标准答案：D您的答案：题目分数：5此题得分：0.0批注：15．第15题单选题任何控件都具有的属性是（）A、TEXTB、CAPTIONC、NAMED、FORECOLOR标准答案：C您的答案：题目分数：5此题得分：0.0批注：16．第16题单选题命令按钮的标题文字由（）属性来设置。
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（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 Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的方法？A. FunctionB. SubC. PropertyD. Class答案：B2. VB中的单精度浮点数类型是什么？A. IntegerB. SingleC. DoubleD. Long答案：B3. 如果想要在VB中实现多态，可以使用哪种机制？A. 继承B. 接口C. 重载D. 封装答案：B4. 在VB中，以下哪个控件可以用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B5. VB中的“Option Explicit”语句的作用是什么？A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案：B6. 在VB中，如何实现一个事件处理程序？A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案：D7. 如果要使一个变量在多个窗体之间共享，应该使用哪种变量作用域？A. PublicB. PrivateC. FriendD. Protected答案：A8. 在VB中，以下哪个不是标准的控件属性？A. NameB. TextC. VisibleD. Color答案：D9. VB中的“With”语句用于什么目的？A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案：C10. 在VB中，以下哪个不是Visual Basic Power Packs控件？A. LineB. OvalC. ShapeD. DataGrid答案：D二、填空题（每空2分，共20分）11. VB中的“_____”关键字用于定义一个类。
答案：Class12. 当需要在VB中捕获并处理异常时，可以使用“_____”语句。
答案：Try...Catch13. 在VB中，一个窗体的标题可以通过“_____”属性来设置。
vb试题及答案(共10篇)
vb试题及答案（共10篇）篇1：计算机vb试题及答案计算机vb试题及答案(1)下面叙述正确的是(C)A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止D.以上三种描述都不对(2)以下数据结构中不属于线性数据结构的是(C)A.队列B.线性表C.二叉树D.栈(3)在一棵二叉树上第5层的结点数最多是(B)注：由公式2k-1得A.8B.16C.32D.15(4)下面描述中，符合结构化程序设计风格的是(A)A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用goto语句(5)下面概念中，不属于面向对象方法的是(D)A.对象B.继承C.类D.过程调用(6)在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B)A.可行性分析B.需求分析C.详细设计D.程序编码(7)在软件开发中，下面任务不属于设计阶段的是(D)A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型(8)数据库系统的核心是(B)A.数据模型B.数据库管理系统C.软件工具D.数据库(9)下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10)下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A.内模式B.外模式C.概念模式D.逻辑模式(11)算法的时间复杂度是指(C)A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数(12)算法的空间复杂度是指(D)A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间(13)设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A.349B.350C.255D.351(14)结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15)在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)注：即第一个阶段A.概要设计B.详细设计C.可行性分析D.需求分析(16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。
2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建⼯程时系统会⾃动将窗体标题设置为Form1。
5．控件的属性值不可以在程序运⾏时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。
7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。
8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。
9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。
⼆、选择题1．⼯程⽂件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
VB程序设计考试(1)
VB程序设计考试（1）一、单选题（每题1分，共50题）1.Visual Basic 6．0集成环境的主窗口中不包括（ C ）。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是（）模式。
正确答案：AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False，则运行时（）。
正确答案：AA.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容4.控制名称都是系统的默认控件名，下列语句错误是（）。
正确答案：Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是（）。
正确答案：A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%，abc!，abc$，abc#分别声明abc是（）。
正确答案：AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占（ A ）字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真，与它所连接的两个条件必须是（ C ）。
正确A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真9.设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为（ D ）。
VB程序设计试题 及 参考答案
VB程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。
（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。
（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。
（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。
（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。
（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
(完整word版)VB程序设计试题题库及答案.doc
VB程序设计笔试题题库一、选择题1 下列常量中，是 Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . （ A ）A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后， A= （ A ）。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。
A、将 True 转换为 1 ，将 False 转换为 0B、将 True 转换为 1 ，将 False 转换为 -1C、将 True 转换为 0 ，将 False 转换为 -1D、将 True 转换为 -1 ，将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ，则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值（ B ）。
A、不能计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
vb程序设计试题及答案
vb程序设计试题及答案为了帮助大家更好地理解和掌握VB程序设计，下面将为大家提供一套VB程序设计试题及答案。
通过完成这些试题，相信能够对VB程序设计有更深入的了解和应用。
请注意，以下试题中给出的是简要描写，实际编写程序时请适当完善。
试题一：计算两个数字的和与差要求：编写一个VB程序，输入两个数字，然后输出它们的和与差。
答案：```vbPrivate Sub btnCalc_Click()Dim num1, num2, sum, diff As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2diff = num1 - num2lblSum.Caption = "和：" & sumlblDiff.Caption = "差：" & diffEnd Sub```试题二：学生成绩统计要求：编写一个VB程序，输入3位学生的成绩，然后计算并输出平均成绩和最高成绩。
答案：```vbPrivate Sub btnCalc_Click()Dim score1, score2, score3, average, max As Integerscore1 = Val(txtScore1.Text)score2 = Val(txtScore2.Text)score3 = Val(txtScore3.Text)average = (score1 + score2 + score3) / 3max = WorksheetFunction.Max(score1, score2, score3)lblAverage.Caption = "平均成绩：" & averagelblMax.Caption = "最高成绩：" & maxEnd Sub```试题三：简单计算器要求：编写一个VB程序，实现一个简单的计算器功能，包括加减乘除四则运算。
vb程序设计书习题和参考答案
b = "cdef"
e = Right(a, 3)
f = Mid(b, 2, 3)
If e < f Then Print e + f Else Print f + e
End Sub
程序3.请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim i As Integer, j As Integer
2．用Dim c(2 to 5) As Integer语句定义的数组占用个字节的内存空间。
A、4 B、8 C、6 D、10
3．以下是VB合法的数组元素。
A、x9 B、x[9] C、x(9) D、x{9}
4．设有数组声明语句：Dim a(2,3 to 4) As Integer
以上语句所定义的数组a为维数组，共有个元素，第一维下标从到，第二维下标从到。
6.窗体模块的文件扩展名是
A、.exe B、.bas C、.frx D、frm
7
A、FontName B、FontSize C、FontBold D、FontItalic
8.设置窗体的字号用
A、FontName B、FontSize C、FontBold D、FontItalic
2．编程，输入x值，按下式计算并输出y值。
3．计算下式的和，变量x与n的数值用输入对话框输入。
4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
习题四
一、选择题
1．窗体通用部分的语句“Option Base1”，决定本窗体中数组下标界。
A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0
VB程序设计编程考试题和答案解析
VB程序设计编程考试题及答案1.输入3个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox("输入第" & i & "个数"))If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是" ; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 = "方程有根"ElseLabel4 = "方程无根"End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > =60 ThenVal (MsgBox("恭喜！成绩通过！"))ElseVal (MsgBox("抱歉！成绩没有通过！"))End IfEnd Sub4.输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年份")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenVal (MsgBox("闰年！"))ElseVal (MsgBox("平年！"))End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
VB程序设计复习模拟试题一及答案
VB程序设计复习模拟试题一及答案一、选择题(1)执行语句Dim X,Y As Integer 后,（）A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3)执行以下程序段a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change()Label1.Caption=str(Len(Text1.Text))End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。
VB题库 (1)
'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100以内偶数的和，并将结果输出在窗体上。
' 将结果存入变量SUM中'-------------------------------------------------【参考代码】Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum===============【考生代码】'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。
' 结果存入变量L中。
'-------------------------------------------------【参考代码】Dim i As IntegerDim s As LongDim j As Integers = 1For i = 1 To 10s = s * il = l + sNextPrint Str(l)===============【考生代码】'------------------------------------------------'【程序改错】'------------------------------------------------'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程' fact实现'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Long'**********ERROR**********For i = 2 To 8s = s + fact(i)Next iPrint sEnd Sub'**********ERROR**********Public Function fact()Dim t As LongDim i As Integert = 1For i = 1 To nt = t * iNext i'**********ERROR**********fact = iEnd Function【改错1】错误【学生答案】For i = 2 To 8【参考答案】For i=2 To 8 Step 2============================================================【改错2】错误【学生答案】Public Function fact()【参考答案】Public Function fact(ByVal n As Integer)Public Function fact(n As Integer)Public Function fact(n%)Public Function fact(n)Public Function fact(ByVal n%)Public Function fact(ByVal n)============================================================【改错3】错误【学生答案】fact = i【参考答案】fact = t============================================================'------------------------------------------------'【程序改错】'------------------------------------------------'题目：下面程序将10个整数从大到小排序'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10a(m) = Int(10 + Rnd() * 90)Print a(m); " ";Next mPrintFor m = 1 To 9t = m'**********ERROR**********For n = 2 To 10'**********ERROR**********If a(t) > a(n) Then n = tNext n'**********ERROR**********If t = m Thenw = a(m)a(m) = a(t)a(t) = wEnd IfNext mFor m = 1 To 10Print a(m)Next mEnd Sub【改错1】错误【学生答案】For n = 2 To 10【参考答案】For n=m+1 To 10============================================================【改错2】错误【学生答案】If a(t) > a(n) Then n = t【参考答案】If a(t) < a(n) Then t=nIf a(n)>a(t) Then t=n============================================================【改错3】错误【学生答案】If t = m Then【参考答案】If t<>m ThenIf not t=m ThenIf not m=t then============================================================编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB程序设计基础》试题
一、选择题：(每空２分,共20 分）
１. 与传统的程序设计语言相比,Viｓuａl Basic最突出的特点是_＿_________。
Ａ．结构化程序设计 B. 程序开发环境
C. 事件驱动编程机制
D. 程序调试技术
2．Ｖisual Ｂasic 是一种面向对象的程序设计语言,构成对象的三要素是______＿_。
A．属性、事件、方法 B. 控件、属性、事件
C. 窗体、控件、过程
D. 窗体、控件、模块
3. 窗体模块保存在一个扩展名为___＿______的文件中。
A．ｂaｓ B. vbｐC． vbg D． frｍ 4．下面正确的赋值语句是_＿＿______。
Ａ. x+ｙ=30ﻩＢ. y＝π*ｒ*rﻩﻩＣ. y=x+３0ﻩＤ. 3y=x
5. 设Ｓ=“4９2”，表达式Ｒight(S,1)+Lｅft(S，1）+Mid(S，2,1）的值为＿＿__＿___＿_。
A.“492”B．“249” C.“294”D．“429”
6. 将数学表达式a≤b≤c写成Ｖiｓuａl Ｂasiｃ表达式,正确的是_＿____＿＿_＿。
A. ａ<=b＜=c Ｂ．a＜=b Or ｂ<=c
Ｃ． a<＝b And b<=c D. a<=b Not b<=c ７.为了把焦点移到文本框,所使用的方法是____＿______。
A. SetＦocus B．ＶisiｂlｅＣ.Refresｈ D.Ge ｔＦocus
8. INT(100*ＲND）产生的随机整数的闭区间是__＿__＿_______。
ﻫ
A.[0，100]
B.[1，１00]
C.[1，9９] Ｄ.[0，9９］
9． 一个数组说明为Dim a(0 to 5,１ to 5) A ｓ Ｉn ｔeger ，则该数组共有_＿______
＿个元素。
A. 5 Ｂ. 36 C. 30 D. 不确定
10. 下面过程定义语句合法的是___＿__＿__＿__。
A ． Function Ｐ1(P1) B. Ｆun ｃｔi ｏｎ P1(Ｂy Val ｘ Ａｓ In ｔｅｇer ） A ｓ Inte ｇｅr
C ． S ｕb Ｐ１(ｘ As In ｔeg ｅr ）As Si ｎgl ｅ
D ．Su ｂ P1(ＢyVal x （）)
１.找出1０0以内能同时被3、5、7整除的最小5个数据。
Ｐrivate Sub Ｃommand1＿C ｌick()
Dim count ｎ％, n%
n = 1： countn ＝ ０
Do
n ＝ n ＋ １
If _＿＿___＿__＿＿____＿____＿＿__＿______＿__________＿ The ｎ
P ｒｉn ｔ ｎ
c ｏun ｔn = co ｕｎtn ＋ 1
End If
Ｌo ｏp _＿＿____＿＿____＿＿_＿_＿＿___
Ｅnd Sub
二、填空题：（每空 3 分,共 18 分)。