vb程序题(6)
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程序设计习题集一、选择题1. 一个工程必须包含的文件的类型是:AA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas2. 以下不能在“工程资源管理器”窗口中列出的文件类型是：DA、．basB、．resC、．fnnD、．ocx3. 下列不能打开工具箱窗口的操作是: BA、招待“视图”菜单中的“工具箱”命令B、按Alt+F8键C、单击工具栏上的“工具箱”按钮D、按Alt+V，然后按Alt+X键4. 不能作为容器使用的对象是：DA、窗体B、框架C、图片框D、图像框5. 在Visual Basic中传递参数的方法有__ B ___方式。
A、一种B、两种C、三种D、四种6. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是:BA、属性、控件和方法B、属性、事件和方法C、窗体、控件和过程D、控件、过程和模块7. 创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④8. 要将名为MyForm的窗体显示出来，正确的使用方法是:AA、MyForm.ShowB、Show.MyFormC、MyForm LoadD、MyForm Show9. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 : BA. ValueB. DefaultC. CancelD. Enabled10. 如果在立即窗口中执行以下操作(<CR>是回车键)：Ca=8<CR>b=9<CR>print a>b<CR>则输出结果是：A)-1B) 0 C)False D)True11. 在设计应用程序时，通过___D___窗口可以查看到应用程序工程中的所有组成部分。
VB试题 (6)
题型：填空、判断、选择、程序填空、程序设计和窗体设计VB的特点：面向对象、可视化、事件驱动对象具有属性、事件和方法三要素.属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置.N所有控件都具有的共同属性是【1】属性.name写出清除标签Label1的显示信息的语句为【1】. Label1.caption=""（清除文本框的内容、在标签上显示信息、在文本框中显示信息）窗体的Enabled属性值为False时,该窗体上的按钮、文本框等控件就不会响应用户的操作。
Y 当运行程序时,系统自动启动窗体的事件过程是().A (Enabled是否失效，Visible是否可见) A:Load B:Click C:UnLoad（关闭窗体时启动） D:GotFocus控件是对象,而窗体不是对象,它只是控件对象的窗口.N一个程序只能有一个窗体。
Nvb程序运行时窗体上对象的名称可以随时修改。
N如果要使命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】。
退出(&X)设置控件背景颜色的属性名称是【1】. Backcolor（前景色（字体颜色）：Forecolor）要在垂直位置上移动控件,应利用控件的()属性. CA:Left（左右移动时，利用该属性） B:Width C:Top D:Height确定一个窗体或控件大小的属性是().AA:Width 和Height B:Width 和TopC:Top 和right D:Top 和 LeftVisual Basic中的文本框中要使该框不允许多行输入,应设置【1】属性为false.MultiLine能够获得一个文本框中被选取文本的内容的属性是Seltext。
Y若要使标签控件显示时不覆盖其背景内容,要对()属性进行设置. DA:BackColor B:BorderStyle C:ForeColor D:BackStyleVisual_basic是合法的变量名.（标识符以字母开头，后可跟字母、数字或下划线）答案：Y在VB代码中，将多个语句合并写在一行上的语句分隔符是【1】冒号基本数据类型：Integer(%)、Long(&)、Single(!)、Double(#)、String($)下面()是日期型常量. CA:"12/19/99" B:12/19/99 C:#12/19/99# D:{12/19/99}变量未赋值时,数值型变量的值为().A (字符串变量的值为空串)A:0 B:空 C:1 D:无任何值Dim i, j as integer 表明i和j都是整型变量.N要强制声明变量,可在窗体模块或标准模块的声明段中加入语句().A:Option Base 0 B:Option ExplicitC:Option Base 1 D:Option Compare答案：B为了给三个变量赋初值1，赋值语句是：x=y=z=1。
VB程序设计考试题库(6)
VB程序设计考试题库（6）一、单选题（每题1分，共50题）1.以下不是Visual Basic的特点的选项是（未填）。
错误正确答案：BA.可视编程B.算法设计C.事件驱动D.面向对象2.Visual Basic应用程序的运行是（未填）。
错误正确答案：CA.从一个建立的窗体模块开始执行B.以最后建立的窗体模块结束C.程序执行顺序不是预先完全确定好的D.执行顺序是预先确定好的3.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（未填）。
错误正确答案：DA.单击鼠标B.双击文本框C.鼠标滑过D.按键盘上的某个键4.确定一个控件的宽度的属性是（未填）错误正确答案：CA.TopB.LeftC.widthD.Height5.下列控件对象中，属于文本框控件对象是（未填）。
错误正确答案：CMAND1BEL2C.TEXT3D.OPTION46.标准模块文件的扩展名是（未填）。
错误正确答案：CA.frmB.vbpC.basD.vbg7.为了描述x>y和y>z同时成立，则下述选项中，正确的是（未填）。
错误正确答案：DA.x>y .and Y>zB.x>y>zC.x>y and >zD.x>y and y>z8.下面（未填）是合法的单精度型变量。
错误正确答案：AA.num!B.sum%C.xint$D.mm#9.表达式Int(5*Rnd+1)*Int(5*Rnd-1)的值的范围是（未填）。
错误正确答案：DA.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]10.下列符号中哪个是VB程序中合法的变量名（未填）。
错误正确答案：AA.ab7B.7abC.IfD.a*bc11.Abc%，abc!，abc$，abc#分别声明abc是（未填）。
VB试题6
1. 计算机网络最突出的优点是_B_____。
A、运算速度快B、共享资源C、容量大D、精度高2.下列选项中，不属于显示器主要技术指标的是__A____。
A、重量B、像素的点距C、显示器的尺寸D、分辨率3.在计算机内部用来传送、存储、加工处理的数据或指令都是以__B____形式进行的。
A、八进制码B、二进制码C、十进制码D、十六进制码4.计算机软件分系统软件和应用软件两大类，其中____B__是系统软件的核心。
A、数据库管理系统B、操作系统C、程序语言系统D、财务管理系统5.计算机存储器中，一个字节由__B___位二进制位组成。
A、32B、8C、4D、16母a的十进制码值是__dWord__d__。
A、91B、95C、96D、977.应用程序窗口中的各种工具栏可以通过(D )进行增减.A、"文件"菜单的"页面设置"命令B、"工具"菜单的"选项"命令C、"文件"菜单的"属性"命令D、"视图"菜单的"工具栏"命令8. 在EXCEL 中单元格的条件格式在(D )菜单中.A、文件B、编辑C、视图D、格式9.在Windows中,文件名MM.txt和mm.txt(C ).A、是两个文件B、不是同一个文件C、是同一个文件D、有时候是同一个文件10. 为网络提供公享资源进行管理的计算机称谓(B )A、网卡B、服务器C、网桥D、工作站11. 符号%是声明__A____类型变量的类型定义符。
B、StringC、SingleD、Integer12. 在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Fun1(ByVal a As Integer,b As Integer) As Integer Dim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx=10Print Fun1(Fun1(x,(Fun1 BA、11B、0C、21D、1013. 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是___C___。
VB程序设计习题
VB程序设计习题练习一一、多项选择题1、下面列出的程序设计语言中（a）是面向问题的语言。
a、机器语言b、汇编语言c、高级语言D，0，1二进制语言解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言2、下面列出的程序设计语言中（c）不是面向对象的语言。
a、cb、c++c、javad、vb3、下列（d）不属于vb6.0的版本。
a、学习版b、专业版C、企业版D、共享版解释：vb6.0共有三个版本：标准版、专业版、企业版。
而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。
二、填空题1.从编程语言的发展过程来看，计算机编程语言分为机器语言、汇编语言和高级语言。
2、 vb6。
0采用面向对象和事件驱动（可视化编程）的编程机制。
3、启动vb6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。
练习2一、选择题1.如果表单对象的名称是forma1，backcolor是表单对象的一个属性，用于设置表单的背景色，那么将表单背景色设置为蓝色的正确语句是（a）a和forma1backcolor=vbblue、backcolor=vbbluec、forma1=vbblued、forma1′sbackcolorisvbblue.2.在以下方法中，无法打开代码编辑器（d）A.单击“视图”菜单上的“代码窗口”命令。
b、在窗体设计器中双击窗体或控件。
c、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。
d、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。
3、保存vb应用程序时，下列方法中正确的是（ａ）a、先保存窗体文件，再保存工程文件。
b、先保存工程文件，再保存窗体文件c、如果直接保存表单文件，系统将自动先保存表单文件，然后依次保存项目文件。
d、如果直接保存表单文件，系统将自动先保存项目文件，然后依次保存表单文件。
2、填空1、vb工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。
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程序设计"分别代表（）。
6.职业学校vb试题
一、选择题（每题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的常数，则一次也不执行循环体。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分,31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”,正确的语句是：aA．Form1。
Caption=“正在复制文件…”B．Form1。
Title=“正在复制文件…”C．Form1。
Text=“正在复制文件…”D．Form1.名称=“正在复制文件…”如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：aA．1000B．100C．10D．13、下列关于控件的基本操作中,错误的是A）当控件处于活动状态时,可以对控件进行缩放B）在设计阶段不能移动控件C) Visual Basic 6.0 允许对画好的控件进行复制和删除D）可以通过属性窗口改变控件的位置和大小4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是：A) ①②③B）①③②C) ③②①D）③①②5、为使文本框只能显示不能输入,即只读，应设置文本框的属性是：cA．MaxLength设置为0B．Cancel设置为TrueC．Locked设置为True D．Read设置为True6、InputBox函数返回值的类型为。
BA．数值B．字符串C．变体D．数值或字符串（视输入的数据而定)7、为了把焦点移到某个指定的控件，所使用的方法是：AA．SetFocus B．Visible C．ReFresh D．GetFocus8、函数String（3，”str”)的功能是：bA．把数值型数据转换成字符串B．返回有3个字符串组成的字符串C．从字符串中第3个字符D．从字符串中第3个字符的位置开始取字符串9、双击窗体中的对象后,Visual Basic将显示的窗口是：cA．项目（工程)窗口B．工具箱C．代码窗口D．属性窗口10、用于获得字符串s最左边4个字符的函数是：aA．Left(s，4）B．Left（1,4）C．LeftStr(s）D．LeftStr（3，4）11、以下程序段的输出结果是：da=Sqr（3）b=Sqr(2）c=a>bPrint cA．-1 B．0 C．False D．True12、用下面语句定义的数组的元素个数是：cDim A （—4 to 6) As IntegerA．6 B．7 C．11 D．913、若x=—5，执行If x Then x=0 Else x=1的结果为：dA．实时错误B．编译错误C．x=1 D．x=0列程序段的循环结构执行后，i的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA．25 B．10 C．11 D．因为y的初值不知道，所以不确定15、可以用作其他控件容器的控件有: cA．窗体、列表框、图像框B．窗体、文本框、框架C．窗体、框架、图片框D．窗体、标签、图片框16、以下不属于Visual Basic 支持的循环结构的是：dA．For …Next B．For Each …NextC．Do …Loop D．While …End17、下列可以打开立即窗口的操作是:DA．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G18、下列可作为Visual Basic变量名的是A）A_3 B）4A C）?xy D）Integer19、设a=8,b=5，执行语句Print a>b后，窗体上显示的是A）True B)False C）1 D）出错信息20、以下能够触发文本框Change事件的操作是A）文本框失去焦点B) 文本框获得焦点C) 设置文本框的焦点D）改变文本框的内容21、列表框图标的英文名称是A）ListBox B)ComboBoxC）Frame D)CommonDialog22、下列类型说明符中表示整型的是A) ％B) ！C) $ D) &23、执行下列语句a$ = "abcdefg”：Print Len(a＄)后,在窗体上输出的结果是A） 1 B） 2 C）7 D) 1424、文本框不具有的属性是A) Caption B）text C) left D)font25、设a=6，则执行x=IIf（a〉5，1,2)后,x 的值为：A）1 B)2 C)5 D）026、语句Print 5/4＊6\5 Mod 2的输出结果是A) 0B) 1C）2 D）327、滚动条控件的largeChange属性所设置的是A）滚动条所能表示的最小值B）滚动条所能表示的最大值C）单击滚动条中滚动框前面或后面的部位时，Value属性增加或减小的增量值D）单击滚动条两端的箭头时，Value属性增加或减小的增量值28、按钮控件数组元素是：cA．共享一个事件过程的B．只共享一个Click事件过程的C．共享该控件的所有事件过程D．各自有自己的部分事件过程有如下的记录类型Type studentid As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是：BA．student。
VB教材习题_参考答案1-6章
Visual Basic程序设计教程（李杰主编清华大学出版社 2011.2）习题答案习题2参考答案2.2 单选题1、B2、C3、A4、D5、A6、B7、D8、C9、B 10、D2.3 填空题1、事件驱动2、Cancel3、Name4、Private Sub Form1_Click()5、运行程序6、代码窗口7、Text1.Text = "我是一个学生"8、LostFocus()事件9、Label1.Caption = "请输入用户名"Label1.ForeColor = vbGreen10、(Text1.Text)*22.4 事件练习题1、①该事件的对象是标签Label1，单击标签触发该事件。
②缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。
③Label1.AutoSize = True语句使标签的大小自动随文字的多少而改变。
2、程序运行后，单击命令按钮，在Text1文本框显示"知音海外版"，在Text2文本框显示"计算机世界"。
3、单击“显示文本框”命令按钮触发的事件过程Private Sub Command1_Click()Text1.Visible = TrueText1.ForeColor = vbRedText1.Text = "VB程序设计"End Sub单击“隐藏文本框”命令按钮触发的事件过程Private Sub Command2_Click()Text1.Visible = FalseEnd Sub习题3参考答案3.2 单选题1 C2 C3 D4 B5 B6 B7 B8 C9 D3.3填空题1.REM(或‘) _ ：2 双引号（“”）#3 $ %4 UCASE()5.(log(1+d*d)-exp(2))^(5/2) [ 还有一种理解方式：(log(1+d*d)-e*e)^(5/2)]6. &O113 &H4B习题4参考答案4.2 单选题BDCBD4.3 填空题1.MsgBox("是否删除？ ", vbOkCancel + vbQuestion, "删除")2.The Length of 12345=53. 变量或表达式4. 15. loop4.4 程序设计题1.Private Sub Command1_Click()If Text1.Text = "asdf" ThenMsgBox "密码正确！"ElseMsgBox "密码错误", vbRetryCancel, "错误"End IfEnd Sub2. < 题目中的“连续产生n*n个字母”应该改为“连续产生n个字母”> Private Sub Command1_Click()Dim n%, y%, i%n = Val(Text1.Text)If n > 10 Or n<=0 ThenMsgBox "数据超界！"Text1.Text=””Text1.SetFocusElsey = Int((90 - 65 + 1) * Rnd) + 65For i = 1 To nPrint Chr(y + i)Next iEnd IfEnd Sub3．Private Sub Form_Click()Dim a!, b!, c!, x1!, x21, d!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b * b - 4 * a * cIf d >= 0 Thenx1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Print x1; X2ElsePrint "没有实根"End IfEnd Sub4.Private Sub Form_Click()Dim i%, j%, s%, n%,q%n = InputBox("enter n:")q = 0For i = 1 To ns = 0For j = 1 To is = s + jNext jq = q + sNext iPrint qEnd Sub5.Private Sub Form_Click()Dim i%, j%, n%, k%n = 0For i = 1 To 3For j = 1 To 3For k = 1 To 3Print i & j & k,n = n + 1If n Mod 5 = 0 Then PrintNext kNext jNext iPrintPrint "n="; nEnd Sub6.Private Sub Form_Click()Dim i%, j%, n%, k%For i = 1 To 9For j = 0 To 9For k = 0 To 9n = i * 100 + j * 10 + kIf n = i ^ 3 + j ^ 3 + k ^ 3 Then Print n,Next kNext jNext iEnd Sub习题5参考答案5.2 单选题1 A2 B3 C4 C5 D6 D7 A8 C9 D 10 A 11 A 12 B 5.3 填空题1．False2．Caption3．0 ListCount-14．Print List1.List(3)5．Combo1.ReMoveItem 36．LargeChange7．Timer8．5009．Shape10．Borderstyle5.4 程序设计题1．Dim op1, op2, result As SingleDim operator As IntegerPrivate Sub Command1_Click(Index As Integer)If Index >= 0 And Index <= 10 ThenIf txt1.Text = "" Thentxt1.Text = CStr(Index + 1)Elsetxt1.Text = txt1.Text + CStr(Index + 1) End IfEnd IfIf Index >= 12 And Index <= 15 Thenop1 = CDbl(txt1.Text)operator = Indextxt1.Text = ""End IfIf Index = 11 Thenop2 = CDbl(txt1.Text)Select Case operatorCase 12result = op1 + op2Case 13result = op1 - op2Case 14result = op1 * op2Case 15result = op1 / op2End Selecttxt1.Text = CStr(result)End IfEnd SubPrivate Sub Command2_Click()op1 = 0op2 = 0result = 0txt1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub2．Private Sub chkBold_Click()If chkBold.Value = vbChecked ThenTxt1.FontBold = TrueElseTxt1.FontBold = FalseEnd IfEnd SubPrivate Sub chkUnderline_Click()If chkUnderline.Value = vbChecked Then Txt1.FontUnderline = TrueElseTxt1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Opt18_Click()Txt1.FontSize = 18End SubPrivate Sub Opt22_Click()Txt1.FontSize = 22End Sub3．Private Sub Form_Load()List1.AddItem "上海"List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "广东"List1.AddItem "辽宁"List1.AddItem "陕西"List1.AddItem "河南"List1.AddItem "深圳"List1.AddItem "四川"List1.AddItem "重庆"End SubPrivate Sub List1_DblClick()For i = 0 To 9If List1.ListIndex = i ThenList2.AddItem List1.List(i)List1.RemoveItem iEnd IfNext iEnd Sub4．Private Sub Command1_Click（）Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”End SubPrivate Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m<0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”，0，“倒计时”Frame1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit SubEnd Ifn1=Format（m Mod 60,“00”）n2=Format（m \ 60）Mod 60,“00：”）n3=Format（m \ 3600）,“00：”）Text1.Text=n3&n2&n1End Sub习题6参考答案6.1单选题1.C2.C3.B4.B5.B6.D7.B8.B9.A 10.A6.2 填空题1.Option Base 12.变体类型3.preserve (注意：教材上面写成perserve, 教材错误)4.Variant变体类型5.96.相同，索引号7.1）.通过复制粘贴的方式创建控件数组2）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。
VB习题(一～六)
习题一1．运行Visual Basic 6.0需要什么样的最小硬件环境?【答】只要能运行Windows 9x或Windows NT即可。
2．当正常安装Visual Basic 6.0后，误把Windows 98子目录删除。
当重新安装Windows 98后，是否要再安装Visual Basic 6.0？【答】要再安装Visual Basic 6.0，因为安装Visual Basic 6.0时，有些VB程序系统自动安装在Windows 98子目录下，所以一旦删除了Windows 98子目录，就必须再次安装。
3．Visual Basic 6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？【答】在启动Visual Basic 6.0的启动封面上，能显示对应的版本，见教材例1.1。
4．Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？【答】执行[视图][代码窗口]命令或“工程资源管理器”窗口的“查看代码”按钮。
5．如何使各窗口显示或不显示？【答】执行[视图]菜单的对应窗口命令，显示相应的窗口；关闭窗口则不显示该窗口。
6．叙述Visual Basic的特点。
【答】见本章1.3小节“知识要点”习题二1．叙述建立一个完整的应用程序的过程。
【答】创建界面、设置属性、编写事件过程代码、保存并运行程序。
2．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？若不这样做，系统会出现什么信息？【答】涉及到两个文件，应先保存窗体文件（.frm），再保存工程文件（.vbp）。
若是先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
3．假定在Windows 98环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？【答】是VB98。
4．为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？【答】将Visible属性设为False。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、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〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 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= “副教授〞 Thenn=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=0引用列表框 (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 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔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经典例题(附答案)
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
高三计算机专业VB试题(六)1
高三年级计算机专业VB试题（六）一、选择题1、设计了以下函数fun，功能是返回整形参数a中数值的位数：( )Function fun(a As Integer) As IntegerDim n%n = 1While a \ 10 >= 0n = n + 1a = a \ 10Wendfun = nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改，下列修改方案中正确的是（）A.把语句n=1改为n=0B.把循环条件a\10>=0改为a\10>0C.把语句a=a\10改为a=a mod 10D.把语句fun=n改为fun=a2、下列关于过程叙述不正确的是（）A.过程的传值调用是将实参的具体数值传递给形参B.过程的传址调用是将实参的在内存的地址传递给形参C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D.无论过程的传值调用还是传址调用，参数的传递都是双向的3、假定有下列两个过程Private Sub ppa(a As Single, b As Single)a = a + bPrint a, bb = a + bPrint a, bEnd SubPrivate Sub Form_Activate()x = 18Call ppp((x), (x))Print xEnd Sub则下列说法不正确的是（）A.形参是a和b，两个实参（x）和（x）允许重名B.形参是a和b，实参（x）表示地址调用C.形参是a和b，实参（x）表示是非地址调用D.形参是a和b，两个实参（x）和（x）不允许重名4、为达到把a、b中的值交换后输出的目的，编程如下：Private Sub Command1_Click()a% = 20b% = 10Call swap(a, b)Print a, bEnd SubPrivate Sub swap(ByV al a As Integer, ByV al b As Integer)c = aa = bb = cEnd Sub在运行时发现输出结果错了，需要修改。
VB语言程序设计试题库
VB 程序设计一、判断题1. 同一Form 窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
（ X ）2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（）3. 单选按钮与复选框对象的 Value 属性类型不同，且只能取值 True 和False。
（√）4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。
（）5. 图片框的Move 方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。
（√）6. “A=B=C”是一个合法的 Visual Basic 语句。
（）7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（）8. Visual Basic 程序的运行可以从 Main （）过程启动，也可以从某个窗体启动。
（√）9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
（）10. 对于文件系统控件，当驱动器控件 Drivel 中的驱动器符改变时，文件夹列表控件 Dir1 中显示的文件夹也作相应的改变，可以在Drive1 中的Change 事件中使用如下命令。
Dir1. Path＝ Drive1. Drive（√）11. 滚动条控件可作为用户输入数据的一种方法。
（√）12. 单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全相同。
（）13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
（√）14. Visual Basic 提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√）15．注释语句 REM 可自成一语句。
（√）16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （）17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。
VB程序设计题型示例答案
Visual Basic6.0程序设计题型示例参考答案一、选择题（每小题中只有一个选项是正确的）1．A2．C3．C4．C5．D6．B7．D8．B 9．A10．A11．C12．B13．D14．D15．A16．C 17．B18．A19．A20．D21．A22．A23．C24．C 25．A26．C27．D28．D29．C30．C31．C32．B 33．B34．C35．B36．C37．D38．D39．C40．C 41．C42．D43．B44．A45．C46．C47．B48．D 49．D50．D51．B52．C53．B54．D55．D56．C 57．A58．D59．A60．A61．D62．C63．A64．C 65．A66．D67．D68．A69．C70．A71．A72．D 73．C74．A75．D76．B77．D78．B79．A80．B 81．C82．A83．B84．D85．B86．B87．B88．B 89．B90．C91．C92．A93．A94．D95．C96．C 97．D98．C99．D100．D101．A102．D103．D104．C 105．C106．C107．A108．A109．D110．A111．A112．D 113．B114．B115．C116．B117．B118．B119．B120．D 121．C122．B123．D124．C125．C126．D127．D128．D 129．D130．C131．D132．B133．C134．A135．D136．C 137．A138．A139．C140．A141．B142．B143．C144．B 145．A146．A147．B148．D149．D150．B151．D152．C 153．D154．A155．B156．D157．B158．D159．C160．A 161．B162．A163．A164．C165．A166．D167．D168．A 169．D170．A171．B172．D173．A174．C175．D176．B 177．B178．B179．C180．A181．B182．B183．D184．D 185．B186．A187．A188．A189．D190．D191．B192．B 193．B194．A195．B196．D197．C198．B199．C200．D第四部分参考答案201．B202．D203．D204．A205．B206．C207．A208．C 209．B210．B211．B212．C213．D214．D215．B216．D 217．B218．A219．D220．D221．B222．C223．D224．D 225．C226．D227．C228．B229．C230．B231．A232．C 233．A234．B235．D236．C237．A238．B239．C240．B 241．C242．B243．C244．B245．D246．B247．C248．B 249．C250．C251．D252．D253．D254．C255．D256．B 257．B258．A259．B260．B261．C262．A263．B264．B 265．B266．C267．D268．B269．A270．A271．A272．B 273．D274．B275．A276．A277．C278．C279．D280．D 281．B282．A283．C284．A285．D286．B287．C288．A 289．A290．B291．D292．A293．C294．B295．D296．D 297．B298．D299．D300．D301．B302．C303．B304．B 305．D306．B307．C308．B309．A310．A311．B312．D 313．D314．C315．D316．D317．B318．C319．B320．A 321．B322．D323．D324．A325．B326．A327．A328．C 329．C330．B331．A332．C333．B334．D335．B336．D 337．A338．B339．C340．A341．C342．A343．B344．A 345．D346．C347．D348．B349．C350．C351．D352．D 353．B354．C355．A356．D357．A358．D359．D360．C二、判断题1．√2．×3．√4．√5．√6．√7．×8．×9．√10．√11．√12．√13．√14．×15．√16．√17．√18．×19．×20．√21．×22．√23．×24．√25．√26．√27．√28．×29．√30．√31．√32．√33．√34．√35．√36．×37．×38．×39．×40．√41．√42．×43．√44．√45．×46．√47．×48．×49．×50．√51．√52．√53．√54．×55．√56．√57．√58．×59．×60．×61．√62．√63．×64．×65．√66．×67．√68．×69．√70．√71．√72．×73．×74．×75．×76．×77．×78．×79．√80．×81．×82．√83．×84．√85．√86．×87．√88．√89．×90．√91．√92．√93．×94．√95．×96．×97．√98．×99．×100．√三、名词解释题1．对象是系统中的基本运行实体。
浙江省高中信息技术选考加试题VB专项练习题六及答案
浙江省高中信息技术选考加试题VB专项练习题六及答案1.下列可作为VB变量名的是：（A）a\b（B）False（C）cos（D）sum正确答案：AVB变量名只能由字母、数字和下划线组成，且不能以数字开头，因此只有选项A符合要求。
2.在VB语句dim s(9) as integer中，数组s的变量个数和类型是：（A）9整型（B）10整型（C）9单精度型（D）10单精度型正确答案：Adim s(9) as integer定义了一个包含10个元素的整型数组，因此选项A正确。
3.将数学表达式x2≤y+z写成VB表达式，正确的是：sqr(x)≤y+z（B）x2≤y+z（A）（C）x^2<=y+z（D）x^2≤y+z正确答案：DVB中乘方运算符为^，而不是2，因此选项D正确。
4.VB表达式val(mid(str(3.5),2,1))的值是：（A）1（B）2（C）3（D）5正确答案：Bstr(3.5)将3.5转换为字符串"3.5"，mid(str(3.5),2,1)取出字符串中第2个字符，即"."，val(".")的值为0，因此选项B正确。
5.VB语句Text1.text="浙江省"用于在文本框中显示文字“浙江省”，该语句中的"text"是：（A）类名（B）对象名（C）属性名（D）属性值正确答案：CText1是对象名。
text是文本框控件的属性名，因此选项C正确。
6.VB语句fix(rnd*6)+1所产生数的范围(小括号表示边界值不能取到，中括号表示边界值能取到)是：（A）[2，6]（B）(1，5)（C）[1，6]（D）(2，5)正确答案：Crnd函数返回0到1之间的随机数，乘以6后取整，得到0到5之间的整数，加1后得到1到6之间的整数，因此选项C正确。
7.某VB程序代码如下：a = 3b = 4c = 5If a。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.列表框。
实现追加、插入、修改、删除、清空等5个按钮的功
能
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
i = List1.ListIndex
With List1
If i>= 0 Andi<= .ListCount - 1 Then .AddItem Text1.Text, i
End With
End Sub
Private Sub Command3_Click()
i = List1.ListIndex
If i>= 0 Andi<= List1.ListCount - 1 Then
List1.List(i) = Text1.Text
End If
End Sub
Private Sub Command4_Click()
With List1
If .ListIndex> -1 Then .RemoveItem .ListIndex
End With
End Sub
Private Sub Command5_Click()
List1.Clear
End Sub
Private Sub Form_Load()
List1.Clear: List1.AddItem "语文": List1.AddItem "数学": List1.AddItem "英语"
End Sub
2单选按钮。
用户在数和算法两个框架中各选一个单选按钮，点击命令按钮Command1，程序根据选中单选按钮进行相应的计算，结果放入文本框Text1中。
Private Sub Command1_Click()
Dim a%, b%, c%, d%, k&, t%, i%
k = 1: t = 0
a = Val(Option1.Caption)
b = Val(Option2.Caption)
If Option1.Value And Option3.Value Then For i = 1 To a
k = k * i
Next i
Text1.Text = k
ElseIf Option1.Value And Option4.Value Then For i = 1 To a
t = t + i
Next i
Text1.Text = t
ElseIf Option2.Value And Option3.Value Then
For i = 1 To b
k = k * i
Next i
Text1.Text = k
ElseIf Option2.Value And Option4.Value Then
For i = 1 To b
t = t + i
Next i
Text1.Text = t
End If
End Sub
复选框。
用户选择复选框后，点击命令按钮Command1，程序根据复选框对文本框Text1中的字体进行相应的设置。
Private Sub Command1_Click()
If Check1.Value = 1 Then text1.FontBold = True
If Check2.Value = 1 Then text1.FontItalic = True
If Check3.Value = 1 Then text1.FontUnderline = True
End Sub
3复选框。
窗体中4个复选框分别代表4各班级，复选框中的标题文字代表班级人数，用户选择复选框后，点击命令按钮Command1，程序计算出所选班级的总人数，结果放入文本框
Text1中。
Option Explicit
Private Sub Command1_Click()
Dim s%
If Check1.Value = 1 Then
s = s + Val(Check1.Caption)
End If
If Check2.Value = 1 Then
s = s + Val(Check2.Caption)
End If
If Check3.Value = 1 Then
s = s + Val(Check3.Caption)
End If
If Check4.Value = 1 Then
s = s + Val(Check4.Caption)
End If
Text1.Text = str(s)
End Sub
Private Sub Form_Load()
Check1.Caption = 30
Check2.Caption = 28
Check3.Caption = 31
Check4.Caption = 29
Text1.Text = ""
End Sub
4.单选按钮。
用户在性别和身份两个框架中各选一个单选按钮，点击命令按钮Command1，程序根据选中单选按钮生成相应的文字放入文本框Text1中。
Option Explicit
Private Sub Command1_Click()
If Option1.Value And Option3.Value Then Text1.Text = "男" & "教师"
ElseIf Option1.Value And Option4.Value Then Text1.Text = "男" & "学生
ElseIf Option2.Value And Option3.Value Then Text1.Text = "女" & "教师"
ElseIf Option2.Value And Option4.Value Then Text1.Text = "女" & "学生"
End If
End Sub。