visual_Basic程序设计教程_课后习题答案及练习
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分2、在工程资源管理器窗口中，主要列出了哪三类文件3、窗体布局窗口的主要用途是什么4、VB的基本特点是什么5、怎样理解可视化设计6、怎要理解事件驱动编程第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是______________________。
5、所有控件都具有的共同属性是__________________属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。
7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。
二、选择题1、以下能够触发文本框Change事件的操作是（）A．文本框失去焦点B．文本框获得焦点C．设置文本框的焦点D．改变文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是（）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件3、VB应用程序的运行模式是（）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式4、任何控件都具有的属性是（）A．TEXT B．CAPTION C．NAME D．FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是（）A．TEXT B．CAPTION C．NAME D．FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A．INDEX B．TABINDEX C．TABSTOP D．ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（）A．该控件的TABSTOP属性值为TRUE B．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUE D．该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（）属性A．BACKCOLOR B．BORDERSTYLEC．FORECOLOR D．BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A．Private Sub Text1_GotFocus( )=0=LenEnd SubB．Private Sub Text1_LostFocus( )=0=LenEnd SubC．Private Sub Text1_Change( )=0=LenEnd SubD．Private Sub Text1_SetFocus( )=0=LenEnd Sub13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A．属性、事件、事件过程B．控件、窗体、事件C．属性、过程、方法D．属性、事件、方法14、决定标签（Label）显示的属性是（）A．Text B．Name C．Caption D．Alignment15、命令按钮的标题文字由（）属性来设置。
A．Text B．Caption C．Name D．(名称)16、若要设置文本的显示颜色，则可用（）属性来实现。
A．BackColor B．Forecolor C．FillColor D．Backstyle17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（）属性为Ture来实现。
A．Enabled B．Value C．Default D．Cancel18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（）属性来实现。
A．SelStart B．SelLenght C．Text D．SelText三、简答题1、事件驱动的含意是什么举例说明。
2、交互式开发方法和传统的应用程序开发过程有什么不同3、文本框在什么情况下使用4、什么是工程5、结构化程序设计的三种基本结构是什么6、对象的三要素是什么并分别进行简单的解释。
7、为什么要生成可执行文件和制作安装盘8、使用变量前先声明有什么好处9、如何使用帮助功能10、结构化程序设计的特点是什么11、为了把焦点移到某个指定的控件，在代码中应使用的方法是什么12、启动Visua Basic后，只创建了一个窗体，若此时保存，需要保存几个文件各是什么文件先保存的是哪一个13、为了防止文本框中的信息运行后被用户修改，应设置什么属性第三章VB基本语言一、填空题1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：__________和____________。
4、在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。
5、在代码模块中加入Option Explicit的目的是_____________________。
6、function aa (a1 as date,optional a2 as boolean) as single，写出optional命令的作用__________________。
7、在VB中，我们用一个简单的______语句就能实现退出程序。
8、生成消息框的命令是____________，生成输入框的命令是____________。
9、通用对话框（commondialog）属activex控件，它可以显示多个标准对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=____________，若要使它显示为打印对话框，则应使用什么方法____________。
10、从字符串中任意位置截取字符的函数是__________。
11、语句For j = 3 To 20 Step 3 使循环体执行了______次。
12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应使用语句__________________________________。
13、在Visual Basic中声明静态变量的关键字是_________________。
14、表达式10 Mod 6 \ 4的值为______。
15、表达式chr(Asc("a") + 5)的值为_________。
16、VB中使用注释有2种方法，即________和________。
17、VB中的数据以四种形式存储：常量、_________、_________和记录。
18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim Juzhen(_ _) as Integer。
19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性__ __来设置下标。
20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和__ __。
21、为了保证程序中必须对变量的强制性定义，需要在代码模块的声明部分加入______________语句。
22、分析For……Next循环结构的实例：For i = 5 To 30 Step 2 中，循环体一共执行了______次。
23、表达式Mid("UniversityOfPetroleum", 8, 4) 的值为_________。
Visual Basic程序设计课后习题答案
习题 11. 填空题(1) Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。
(2) Visual Basic 的对象主要分为 和 两大类。
(3) 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。
(4) 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是： 和 。
(5) 在 Visual Basic 中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的 来实现的。
(6) 在 Visual Basic 中，事件过程的名字由 、 和 所构成。
(7) 若用户单击了窗体 Form1，则此时将被执行的事件过程的名字应为：。
(8) Visual Basic 的集成开发环境主要由6个部分组成，它们分别是： 、 、 、 、 、 。
2.简答题(1) 简述Visual Basic 的特点(2) 什么是对象的属性、事件和方法？(3) Visual Basic 如何完成对用户操作的响应?(4) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程?习题 22.1 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#2.2 下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.3452.3 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π2.4 把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e2.5 写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.5) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"2.6 设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 52.7 写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")2.8 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。
《Visual Basic程序设计基础》教材习题参考答案第六章
第6章图形控件和图形方法一、判断题1．√2．×3．√4．×5．√6．×7．×8．×9．√10．√二、选择题1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B 11．A 12．B 13．B 14．C 15．C三、填空题1．Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性5．形状、矩形6．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")7．图片框、其他控件8．缇、SclaeMode 9．颜色10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1. 转动一条红色直线，其轨迹形成一个圆程序2. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。
程序3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。
五、程序填空题1．（1）Combo1.ListIndex （2）Shape1.BorderStyle （3）Combo2.AddItem Str(i) 2．（1）Call pic （2）False （3）n = n + 1 （4）LoadPicture("c:\windows\1.bmp") （4）LoadPicture(fn)六、程序设计题程序1．界面设计略，过程设计如下：Private Sub Form_Load()Picture1.ScaleMode = 3End SubPrivate Sub Command1_Click()Dim x1 As Single, y1 As Single, x2 As Single, y2 As Singlex1 = InputBox("x1="): y1 = InputBox("y1=")x2 = InputBox("x2="): y2 = InputBox("y2=")Picture1.Line (x1, y1)-(x2, y2), , BEnd Sub程序2．界面设计略，过程设计如下：Private Sub Form_click()Dim r As Single, xo As Single, yo As SingleIf Form1.ScaleHeight < Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End Ifxo = Form1.ScaleLeft + Form1.ScaleWidth / 2yo = Form1.ScaleTop + Form1.ScaleHeight / 2Form1.FillStyle = 0: Form1.FillColor = vbBlueForm1.DrawWidth = 2: Form1.ScaleMode = 6Form1.Circle (xo, yo), r, vbYellowEnd Sub程序3．界面设计略，过程设计如下：Private Sub Form_Load()Dim i As IntegerFor i = 1 To 7: List1.AddItem i: Next iForm1.ScaleMode = 1End SubPrivate Sub List1_Click()Form1.Cls: Form1.ScaleMode = List1.TextForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub。
visual basic程序设计课后编程答案
Dim n As Integern=Text1.TextIF(n Mod 4 =0 And n mod 100< >0 or n mod 400 = 0)Then Text2.text =”闰年”ElseText2.text=”非闰年”End IF求和求积Dim i As integerOpen App.path&”\jsdata.txt”For input As #1For i =1 to 15Input #1,arr(i)Next iIf op1.value=ture thenT1.text=Aaa()End ifIf op2.value=ture thenT1.text=Bbb()End ifClose #1写入文件****Dim i As Integer, j As Integer, n As IntegerOpen app.path &”\zfwj.txt”for output As #1n=val(text1.text)for I =1 to nfor j=1 to iprint #1,”*”;next jprint #1next I close#1计算结果dim n As Integer, I As Integer, s1 As integer,s2 As long n=val(text1.textfor I =1 to ns1=s1+is2=s2+s1next itext2.text=s2求值dim n1 as integer, n2 as integer, n3 as integer,t as integer n1= val(text1.text)n2=val(text2.text)n3=val(text3.text)if n1<n2 then t=n1:n1=n2:n2=tif n2<n3 then t=n2:2=n3:3=tif n1<n2 then t =n1:1=n2:2=ttext4.text=n1text5.text=n3建立文件显示文件Dim num as string,name as srting, I as integerOpen App.path&”\xhxm.txt”for output As #1For I = 1 to 3num=inputbox(“请输入学号：“)name = inputbox(“请输入姓名：“)write #1,num,namenext iclose #1End sub Private sub command2_click()Dim s as string, I as integerOpen app.path &\xhxm.txt” for input as # 1Do While Not EoF(1)Line input # 1,sText1.text= text1.text& s & vbCrLfLoopClose #1第三卷求和输入N值Dim n As integer, I as integer, sum as integerN= val(text1.text)For I = 1 to nIf I mod 3 =0 then sum = sum+ iNext iText2.text=sum输入正整数NDim m As integer, n as integerPrivate sub commad1_click(0Dim c as doubleN=text1.textM=text2.textIf n<=m thenC=fact(m)/(fact(n)* fact(m-n))Text3.text=cElseMsgbox”输入的n必须小于等于m！请重新输入“Text1.text=””Text2.text=””Text1.setfocusEnd ifEnd sub读入数据统计英文字母Dim s as stringOpen app.path&”\yy.txt”for input as #1Do while not EOF(1)Line input #1,sText1.text=text1.text &s &vbCrLfLoopClose #1End subPrivate sub command2_click()Dim n as integer, I as integer, s As integer, c as stringN= Len(text1.text)For I = 1 to nC= mid(text1.text,I,1)If c >=”a”and c <=”z” or c 》=“a” and c <=”z” then s =s+1 Next iLabel1.caption= “共“& s &”个英文字母”End sub第四卷转换十进制Dim n as integer,b as stringN=text1.textB=zh(n)Text2.text=b读取文件加密Dim s1 as stringPrivate sub command1_click()Open app.path &”\jmwb.txt”for input as #1Input #1,s1Text1.text=s1End subPrivate sub command2_click()Dim n As integer, I as integer dim s2 as string, j As stringN=Len(s1)For I =1 to nJ=mid(s1,I,1)J=chr(asc(j)+5)S2=s2&jNext iText2.text=s2生成数组降序排列Option base 1Dim n AS integer,x(15) as integerPrivate Sub command1_Click(0Dim s1 as stringFor N= 1 to 15X(N)=int(91 * Rnd +10)S1=s1 &STR(x(N))Next NText1.text =s1End subPrivate sub command2_click()Dim s2 as stringDim I as integer, j AS integer t as integerFor I =1 to 15For j 1 to 15For j=I +1 to 15If x (i)<x(j) thenT=x(i)X(i)=x(j)X(j)=tEnd ifNext jS2=s2& Str(x(i))Next IText2.text =s2End sub第五卷判断字符还是字母Dim s as stringCall Getchar(s)Text1.text=sIf Asc(s)>= Asc(“A”) and asc (s)<=asc(“z”) or asc (s)>=Asc(“a”) And asc (s)<=asc(“z”) then Label1.caption=”是字母字符“ElseIf asc(s)>=asc(”0”) and asc(s)<= asc(“s)<=asc(“9”) thenLabel1.caption=”是数字字符“ElseLabel1.caption=”是其他字符”End ifEnd sub生成三个随机数Dim n1 as integer, n2 as integern1=val(text1.text)n2=val(text2.text)label1.caption=int((n2-n1+1)*Rnd +n1)label2.caption=int((n2-n1+1)*Rnd+n1)label3.caption=int((n2-n1+1)*Rnd+n1)end sub转换大写小写Dim a as stringPrivate sub command1_click()Text1.text=UCase(a)End subPrivate sub command1_click()Text1.text=LCase(a)End subPrivate sub command3_click()Text1.text=aEnd subPrivate sub text1_keypress(keyascii as integer)If not((keyascii>=65 and keyascii<=90)or (keyascii>= 97 And keyascii<=122)) then BeepKeyascii =0End Ifa=Text1.textend sub。
visual basic 程序设计课后习题参考答案
［Exit Function］ End Function
(4). Function 过程的调用方法： ①直接调用 像使用 VB 内部函数一样，只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程，当用这种方法调用 Function 过程时，将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的，过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类：事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
VisualBasic程序设计教程第版课后部分编程题参考答案(一)
VisualBasic程序设计教程第版课后部分编程题参考答案(一)Visual Basic 程序设计教程是程序员必备的一本教材。
而其第四版中也包含了大量课后编程题，能够帮助读者深入理解 Visual Basic 程序设计的核心内容。
本文就来为大家介绍一下这部分编程题的参考答案。
一、数据类型和运算符1. 将两个整数相加Dim num1, num2, result As Integernum1 = 10num2 = 20result = num1 + num2MsgBox ("The result of adding " & num1 & " and " & num2 & " is " & result & ".")2. 将两个小数相减Dim num1, num2, result As Doublenum1 = 2.5num2 = 1.2result = num1 - num2MsgBox ("The result of subtracting " & num2 & " from " & num1 & " is " & result & ".")3. 将两个字符拼接在一起Dim str1, str2, result As Stringstr1 = "Hello"str2 = "World"result = Str1 + Str2MsgBox ("The result of concatenating " & str1 & " and " & str2 & " is " & result & ".")二、程序结构和函数1. 将两个整数相加并返回结果Public Function Add(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim result As Integerresult = num1 + num2Return resultEnd Function2. 获取当前日期和时间Dim currentDateTime As StringcurrentDateTime = Now()MsgBox ("The current date and time is " & currentDateTime & ".")3. 显示一个消息框并返回用户的选择Dim userInput As IntegeruserInput = MsgBox("This is a prompt. Would you like tocontinue?", vbYesNoCancel, "Message Box Test")MsgBox ("Your choice was " & userInput & ".")三、数组和结构1. 将一个整数数组按照升序排列Dim numArray() As IntegernumArray = {5, 10, 2, 8, 1}Array.Sort(numArray)MsgBox ("The sorted array is " & Join(numArray, ", ") & ".")2. 创建一个结构体表示一个人，包含姓名、年龄和性别字段Public Structure PersonPublic Name As StringPublic Age As IntegerPublic Gender As StringEnd Structure3. 创建一个数组表示一个班级的学生，使用 Person 结构体表示每个学生的信息Dim students(2) As Personstudents(0).Name = "Tom"students(0).Age = 16students(0).Gender = "Male"students(1).Name = "Jane"students(1).Age = 15students(1).Gender = "Female"students(2).Name = "Bob"students(2).Age = 17students(2).Gender = "Male"四、文件和数据库1. 读取一个文本文件中的内容并显示Dim filePath As String ="C:\Users\UserName\Documents\MyFile.txt"Dim fileText As StringfileText = File.ReadAllText(filePath)MsgBox ("The contents of the file are " & fileText & ".")2. 将一个字符串写入到一个新建的文本文件中Dim filePath As String ="C:\Users\UserName\Documents\NewFile.txt"Dim fileContent As StringfileContent = "This is the content of the new file."File.WriteAllText(filePath, fileContent)MsgBox ("The file was created and the following content was written to it: " & fileContent & ".")3. 从一个 SQL 数据库中查询某个表格的内容Dim connectionString As String = "DataSource=myServerName;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Dim query As String = "SELECT * FROM myTable"Dim dataTable As New DataTable()Using connection As New SqlConnection(connectionString)connection.Open()Using command As New SqlCommand(query, connection)Using adapter As New SqlDataAdapter(command)adapter.Fill(dataTable)End UsingEnd UsingEnd UsingMsgBox ("The following records were retrieved from the database: " & vbNewLine & DataTableToString(dataTable))这些编程题的参考答案可以帮助读者理解 Visual Basic 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。
VisualBasic程序设计教程第三版课后习题答案
《VB程序设计》综合复习资料之青柳念文创作第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采纳了__________的编程机制.2、在VB中工程文件的扩大名是____________，窗体文件的扩大名是____________，尺度模块文件的扩大名是____________.3、执行“工程”菜单下的__________饬令，可选择并添加ActiveX控件.4、Visual Basic 6.0用于开辟__________环境下的应用程序.二、选择题1、下面不是VB工作形式的是（）A．设计形式B．运行形式C．汇编形式D．中断形式2、可视化编程的最大优点是（）A．具有尺度工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描绘图形对象D．所见即所得3、下列不克不及打开属性窗口的操纵是（）A．执行“视图”菜单中的“属性窗口”饬令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开当即窗口的操纵是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包含哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体规划窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样懂得可视化设计？6、怎要懂得事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取饬令按钮，应该用______________属性.2、一个控件在窗体的位置由_______和________属性决议，其大小由__________和_________属性决议.3、操纵对象的属性setfocus可获得核心，对于一个对象，只有其visible属性和____________属性为true，才干承受核心.4、设置控件布景颜色的属性称号是______________________.5、所有控件都具有的共同属性是__________________属性.6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________.7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以节制对象的外观和操纵.8、通常情况下，VB中一个工程主要包含如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩大名为.Bas，通常由Basic语言编写，是一个可共用的子程序.9、VB有三种工作形式，分别是设计（Design）形式、_____________和中断（Break）形式.二、选择题1、以下可以触发文本框Change事件的操纵是（）A．文本框失去核心B．文本框获得核心C．设置文本框的核心D．改变文本框的内容2、应用程序设计完成后，应将程序保管，保管的过程是（）A．只保管窗体文件即可B．只保管工程文件即可C．先保管工程文件，之后保管窗体文件D．先保管窗体文件（或尺度模块文件），之后还要保管工程文件3、VB应用程序的运行形式是（）A．诠释运行形式B．编译运行形式C．二者都有D．汇编形式4、任何控件都具有的属性是（）A．TEXTB．CAPTIONC．NAMED．FORECOLOR5、决议控件上文字的字体、字形、大小及效果的属性是（）A．TEXTB．CAPTIONC．NAMED．FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行核心就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A．INDEXB．TABINDEXC．TABSTOPD．ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性停止赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A．CLICKB．DBLCLICKC．GOTFOCUSD．CHANGE8、在运行时，按TAB键跳过了一个可以获得核心的控件（如文本框），则可以是因为（）A．该控件的TABSTOP属性值为TRUEB．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUED．该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其布景内容，应设置标签控件的（）属性A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可以是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框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 Sub13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A．属性、事件、事件过程B．控件、窗体、事件C．属性、过程、方法D．属性、事件、方法14、决议标签（Label）显示的属性是（）A．TextB．NameC．CaptionD．Alignment15、饬令按钮的题目文字由（）属性来设置.A．Text B．Caption C．Name D．(称号)16、若要设置文本的显示颜色，则可用（）属性来实现.A．BackColor B．Forecolor C．FillColor D．Backstyle17、在运行时，若要调用某饬令钮的Click事件过程，则可设置该饬令钮对象的（）属性为Ture来实现.A．Enabled B．Value C．Default D．Cancel18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（）属性来实现.A．SelStart B．SelLenght C．Text D．SelText三、简答题1、事件驱动的含意是什么？举例说明.2、交互式开辟方法和传统的应用程序开辟过程有什么分歧？3、文本框在什么情况下使用？4、什么是工程？5、布局化程序设计的三种基本布局是什么？6、对象的三要素是什么？并分别停止简单的诠释.7、为什么要生成可执行文件和制作装置盘？8、使用变量前先声明有什么好处？9、如何使用帮忙功能？10、布局化程序设计的特点是什么？11、为了把核心移到某个指定的控件，在代码中应使用的方法是什么？12、启动Visua Basic后，只创建了一个窗体，若此时保管，需要保管几个文件？各是什么文件？先保管的是哪个？13、为了防止文本框中的信息运行后被用户修改，应设置什么属性？第三章 VB基本语言一、填空题1、一般可使用__________关键字声明常量.2、______类型也称变体类型，是一种通用的、可变的数据类型，它可暗示或存储任何一种数据类型.3、变量的声明分为两种方法：__________和____________.4、在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界.5、在代码模块中加入Option Explicit的目标是_____________________.6、function aa (a1 as date,optional a2 as boolean) as single，写出optional饬令的作用__________________.7、在VB中，我们用一个简单的______语句就可以实现退出程序.8、生成消息框的饬令是____________，生成输入框的饬令是____________.9、通用对话框（commondialog）属activex控件，它可以显示多个尺度对话框，包含打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=____________，若要使它显示为打印对话框，则应使用什么方法____________.10、从字符串中任意位置截取字符的函数是__________.11、语句For j = 3 To 20 Step 3 使循环体执行了______次.12、对于正在使用的动态数组Arraya()，要增加一个单元，但不克不及破坏数组内的数据，则应使用语句__________________________________.13、在Visual Basic中声明静态变量的关键字是_________________.14、表达式10 Mod 6 \ 4的值为______.15、表达式chr(Asc("a") + 5)的值为_________.16、VB中使用注释有2种方法，即________和________.17、VB中的数据以四种形式存储：常量、_________、_________和记录.18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补偿完整：Dim Juzhen(__) as Integer.19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性____来设置下标.20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和____.21、为了包管程序中必须对变量的强制性定义，需要在代码模块的声明部分加入______________语句.22、分析For……Next循环布局的实例：For i = 5 To 30 Step 2 中，循环体一共执行了______次.23、表达式Mid("UniversityOfPetroleum", 8, 4) 的值为_________.24、常量分为普通常量和__________常量.25、要将大写字母转换为小写字母，可使用____________函数.26、不管核心在哪个控件上，按__________键相当于按了取消按钮.27、执行“工程”菜单下的__________饬令，可选择并添加ActiveX控件.28、__________是程序中VB停止执行的地方.29、逻辑常量为True或__________.30、使用了__________________的声明后，当程序中使用未经声明的变量时，程序运行时会报错.31、要将小写字母转换为大写字母，可使用____________函数.32、自字符串N1位开端向右取N2个字符，要使用_________________函数.33、日期常量暗示时，用符号__________将日期型数据括起来.34、部分变量只能在__________中声明和使用.35、模块级变量的声明关键字是Dim或__________.36、函数Abs(x)的功能是__________.37、表达式3/6*5的值是__________.二、选择题1、以下哪个是合法的变量（）A．right B．abc@123 C．123_abc D．ab123c2、下列说法错误的是（）A．在同一模块分歧过程中的变量可以同名B．分歧模块中定义的全局变量不成以同名C．引用另外一模块中的全局变量时，必须在变量名前加模块名D．同一模块中分歧级的变量可以同名3、把MsgBox的返回值转换为数值应该使用的函数是（）A．LogB．StrC．LenD．Val4、语句DIM AA(3,4,5)中定义的数组有（）个元素A．12 B．60 C．120 D．3455、下面程序运行后输出的成果是（）A$="CHINA"B$=STRING$(3,A$)PRINT B$ENDA．CHI B．CCC C．INA D．AAA6、以下语句的输出成果是（）Print Format$(32548.5, "000,000.00")A．32548.5 B．325,485.00 C．032,548,50 D．32,548,507、以下叙述中错误的是（）A．如果过程被定义为Static类型，则该过程中的部分变量都是Static类型B．Sub过程中不克不及嵌套定义Sub过程C．Sub过程中可以嵌套调用Sub过程D．事件过程可以像通用过程一样由用户定义过程名8、Visual Basic提供的On Error Resume next错误陷阱语句暗示（）A．当发生错误时，使程序转跳到语句标号为0的程序块B．当发生错误时，不使用错误处理程序块C．当发生错误时，忽略错误行，继续执行下一语句D．当发生错误时，终止本过程执行，继续执行下一过程9、在Visual Basic中，若要将节制权交给操纵系统则通过（）的语句.A．End B．Exit Do C．Exit Sub D．DoEvents10、在Visual Basic 中语句的续行号采取（）A．空格与下划线 B．下划线与空格C．空格与短线 D．短线与空格11、假定有以下程序段：For i=1 to 3For j=5 to 1 Step –1Print i*jNext j,i则语句Print i*j的执行次数是（）A．15 B．.16 C．17 D．1812、从键盘上输入两个字符串，分别保管在变量str1、str2中.确定第二个字符串在第一个字符串中起始位置的函数是（）A．LeftB．MidC．StringD．Instr13、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（）A．0B．1C．TRUED．FALSE14、下列叙述不正确的是（）A．注释语句是非执行语句，仅对程序的内容起注释作用，它不被诠释和编译B．注释语句可以放在代码中的任何位置C．注释语句不克不及放在续行符的后面D．代码中加入注释语句的目标是提高程序的可读性15、语句PRINT “INT(13.2)”；INT(13.2)的输出成果为（）C．INT(13.2)= 13D．INT(13.2)= 1416、如果TAB函数的参数小于1，则打印位置在第（）列A．0B．1C．2D．317、变量未赋值时，数值型变量的值为（）A、0B．空C．1D．无任何值18、下列语句中正确的是（）A．txt1.text+txt2.text=txt3.textB．command1.nam e=cmdokC．12label.caption=1234D．a=inputbox(“hello”)19、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是（）A．BOOLVAR=‘TRUE’B．BOOLVAR=.TRUEC．BOOLVAR=#TRUE#D．BOOLVAR=3<420、以下（）程序段可以实施X、Y变量值的变换（）A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21、语句PRINT “SGN(26)=”；SGN(26)的输出成果为（）A．SGN(26)=26B．SGN(26)= 26C．SGN(26)= +1D．SGN(26)= 122、读下面程序段，断定变量Str2的取值是（）Dim Str1, Str2 as StringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23、VB支持自定义数据类型，在某程序中我们定义了如下类型：TypeStudentnumber AsstringnameAsStringageAsIntegerEndType针对上述定义，如下几项用法正确的是（）A．="张三" B．Dim s AsStudent＝"张红"C．DimsAsTypeStudent D．DimsAsType="张三" ="张三"24、一个工程中包含两个称号分别为Form1、Form2的窗体，一个称号为mdlFunc的尺度模块.假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Subfrmfunction1()EndSubForm2中定义的过程：PublicSubfrmfunction2()EndSubmdlFunc中定义的过程：PublicSubmdlFunction()EndSub在调用上述过程的程序中，如果不指明窗体或模块的称号，则以下叙述中正确的是（）A．上述三个过程都可以在工程中的任何窗体或模块中直接被调用B．只有mdlFunction过程可以被工程中各个窗体或模块直接被调用C．frmfunction1只能在form1中调用，而frmfunction2 则可以在所有模块或窗体中被直接调用D．上述三个过程都只能在各自被定义的模块中直接调用25、VB中Do……Loop布局既可以构成当型循环，也可以构成直到型循环，根据下面的代码：Dim i,n as Integern = 20i = 1DoPrint i;i = i + 2Loop Until i >20断定循环布局的类型和循环体的执行次数，正确的选项是（）A．当型循环，20次B．直到型循环，10次C．当型循环，10次D．直到型循环，20次26、在程序中，使用InputBox函数可以承受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（）A．Val B．LenC．Str D．Log27、动态数组因为在程序运行前无法确定数组的大小，所以常常根据程序的运行情况，对数组停止重新定义，以下关于VB中动态数组的叙述中不正确的是（）A．可以用ReDim语句重新定义动态数组，而且可以停止多次重定义B．首次用Dim停止动态数组声明的时候，必须指明它的类型和上下界C．Preserve为ReDim语句的可选参数，用于保存动态数组原来的内容D．当对动态数组使用Erase语句停止释放操纵时，将释放其内存28、VB中的控件也叫做部件或组件，主要包含三类，以下哪一项不属于VB控件的分类（）A．控件B．可拔出对象C．ADO控件 D．ActiveX控件29、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）A．4 B．5 C．6 D．730、可以同时删除字符串前导和尾部空缺的函数是（）A．Ltrim B．Rtrim C．TrimD．Mid三、简答题1、全局变量声明有哪些限制？2、字符串是否可以自动转换为数字类型？3、用Format函数格式化后的字符格式在分歧区域环境下的输出是否相同？为什么？4、在InputBox函数中，哪个参数是必须的？5、在MsgBox函数中哪个参数是必须的？6、在什么情况下使用过程？7、为什么要停止程序调试？8、调试程序有哪些手段？9、用语句Dim A(3 To 5) As Integer定义的数组的元素个数是多少？10、设有如下的Visual Basic表达式：5*x^23*x2*Sin(a)/3，与它对应的数学式是什么？11、数学式)ax+-对应的VB表达式是什么？2(by3)(12、表达式2>3 And 4<=5 Or 4>4的值是什么？13、怎样在程序中设置断点？14、在什么情况下可以设置断点？15、程序出错的类型有哪几种？16、在同一模块、分歧过程中声明的相同变量名，二者是否暗示同一个变量？为什么？17、什么情况下会出现“数组下标越界错误”？18、逐语句和逐过程有什么区别？19、表达式2.75 * 2 \ 3.45的值是什么？20、在程序设计中为什么尽可以不必GoTo语句？四、读程序题1、分析以下程序，写出运行成果.Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub2、读下面的程序，分析其功能，写出运行成果.在窗体上有一个饬令按钮，称号为Command1.然后编写如下程序：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub程序运行后，如果单击饬令按钮，则在窗体上显示的内容是什么？3、阅读下面的程序，分析并写出其功能.Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=201 To n Step –1a(m+1)=a(m)Next ma(n)=xEnd Sub4、分析以下程序，写出运行成果.Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击饬令按钮，输出成果是什么？5、分析以下程序，写出运行成果.Sub sele()Dim n as Integeri=21:n=3Do While i>ni=i－nLoopPrint iEnd Sub6、分析以下程序，写出运行成果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) ThenPrint aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub7、分析以下程序，写出运行成果.Sub swap()Dim x as IntegerDim y as IntegerDim z as Integerx=1:y=2:z=0Print x;y;zx=x+yx=x*zPrint x,y,zEnd Sub8、分析以下程序，写出运行成果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2If(a>=b)and(a>c)Then Print aPrint a,b,cEnd Sub五、编程题1、输入一年号，断定它是否是闰年.界面如下图所示，包含两个标签、一个文本框和一个饬令按钮.提示：如果此年号能被400整除或者不克不及被400除尽，也不克不及被100除尽，但能被4整除，则它是闰年；否则，不是闰年.2、输入两个正整数m、n，求m和n的最大公约数.要求建立如下图所示的窗体，其中主要的控件包含：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）.3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出杰出；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息.4、在窗体中显示从9号字型到16号字型.5、在有序序列中拔出一个数，使拔出后的数列仍然有序（设按由小到大摆列）.6、编程实现二维数组转置.7、随机输入10个100以内的整型数，计算其和及平均值.8、找出所有的水仙花数.水仙花数是个三位数，它的各位数字的立方和等于这个三位数自己.例如371＝33+73+13，则371是水仙花数.9、从键盘输入一个大于2的正整数，断定该数是否是素数.10、求二维数组中的最小值及其所在行号、列号.11、求一元二次方程ax2+bx+c=0的根（包含实根和复根）.12、输入一个正整数n，计算出n!并输出.13、Faibonacci数列为0，1，1，2，3，5，8，13 …，计算并输出第20项以及前20项的和.第四章常常使用控件与窗体一、填空题1、向列表框控件添加新项目标方法是__________.2、在VB中，最主要的两种对象是____________和____________.3、当窗体启动时可通过__________属性节制窗体位于所有者的中心位置.4、若要将窗体Form1隐藏起来，则可通过执行代码_________________来实现.5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________.6、窗体上放置了若干个文本框和饬令按钮，当窗体装入后，要将核心自动定位到文本框Text1上，则在设计时需要将__________控件的_________属性设置为__________.7、在标签控件中通过编程使文字换行用的代码是___________________.8、设置计时器控件只能触发______________________事件.9、设置计时器对象触发事件的时间间隔用_____________________属性.10、滚动条控件主要支持两个事件，它们是_______________事件.11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________.12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能.（1）按下饬令按钮Command1时将列表框第8项的内容显示在窗体上：PrivateSubCommand1_Click()List.__________(7)=TrueEndSub（2）单击列表框某一项时当即将该项打印在窗体上：PrivateSubList1_Click()Print_______________EndSub（3）按下饬令按钮Command1时在窗体上删除第1、3、5、7、9项：PrivateSubCommand1_Click()ForI=1To5NextIEndSub（4）在列表框的每项之后拔出一个新的项：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输入拔出的第”&I&“项内容”)NextIEndSub13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两头箭头时，或单击滚动条滑块与两头箭头之间的空缺区域时，标签内容可以反映滚动条的值，补齐以下代码.PrivateSubHscroll1.__________________()EndSub要使拖动滚动条滑块时标签内容可以反映滚动条的值，补齐以下代码.PrivateSubHscroll1.________________()EndSub14、列表框（ListBox）用于列出可供选择的项目标列表，用户可以选择一个或多个项目.它具有几个非常重要的数组属性，其中____属性存放了列表框中所有项目标值.15、菜单项一般由题目、访问键、快捷键和复选标记等构成，通过对相应的属性停止设置可以改变这些项目标状态，其中与复选标记相对应的属性是____.16、keydown与keypress事件各有其参数，若需获得用户按下 "a" 还是 "A" 需用____________事件.17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件.18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现.19、菜单中的分隔条是一种菜单控件，不响应__________事件，不克不及被选中.二、选择题1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接纳到( )A．MouseDownB．MouseUpC．LoadD．Click2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click3、用于设置通用对话框控件显示文件类型的属性是（）A．Filter B．Path C．Partern D．FoleName4、用于从内存删除窗体的饬令是（）A．Move B．Hide C．Unload D．Delete5、用于返回窗体可用区域宽度的属性是（）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop6、下列关于属性设置的叙述错误的是：（）A．一个控件具有什么属性是VB预先设计好的，用户不克不及改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置，还可以操纵程序代码为其设置新值7、下列说法正确的是（）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才干开端设计应用程序D．只能在“代码窗口”中编写程序代码8、下列关于窗体上控件的基本操纵错误的是（）A．按下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件9、下列关于设置控件属性的叙述正确的是（）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．分歧控件的属性项都完全一样10、不成以通过下列（）操纵将核心赋给对象A．运行时使用TAB键B．在代码中用CALL语句调用C．在代码中用SETFOCUS方法D．用访问键或用鼠标单击选择对象11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（）A．设置窗体的VISIBLE属性B．设置窗体的CAPTIONC．调用窗体的SHOW方法D．设置窗体ENABLED属性12、下面（）对象无CAPTION属性A．FORMB．COMMANDBUTTONC．TEXTBOXD．LABEL13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件停止筛选过滤，后者使用（）属性停止该项设置.A．Pattern B．PathC．Filter D．FileName14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（）A．chkBoy.Checked = trueB．chkBoy.Value = trueC．chkBoy.Selected = trueD．chkBoy.Value = 115、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（）A．IntervalB．SmallChangeC．LargeChange D．Max16、以下关于VB中窗体（Form）的说法中，不正确的描绘为（）A．执行Unload Form语句后，窗体Form消失，但仍在内存中B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操纵都被制止C．窗体的Height、width属性用于设置窗体的高和宽D．窗体的load事件在加载窗体时发生17、关于滚动条控件，下面说法错误的是（）A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件B．拖动滚动框，可以触发Scroll事件C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增D．拖动滚动框，可以触发Change事件，而且是持续触发的18、在窗体上放置一个饬令按钮，称号为Command1.单击饬令按钮时，执行如下事件过程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则在弹出的信息框的题目栏中显示的信息是（）A．softWareandhardware B．softwareC．hardwafe D．出现错误19、在多重窗体程序设计中，关键的问题是要处理分歧窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（）A．Load语句用于加载指定窗体，即在内存中创建该窗体B．Show方法兼具Load语句的功能，可以将窗体显示出来C．Hide方法用于将窗体隐藏起来D．Unload语句用来释放窗体，但窗体并没从内存中消 20、滚动条控件的属性中，暗示取值范围最大值的属性是（）A．MaxB．LargeChangeC．Min D．Value 21、程序中如果需要检测和节制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于暗示拖动事件（）A．DragDrop B．MouseDownC．MouseUpD．MouseMove22、为了使用通用对话框停止打开文件的操纵，应将通用对话框的Action属性设定为（）.A．0 B．1 C．2D．3三、简答题1、什么是单选按钮？什么是复选框？在使用上有什么分歧？2、滚动条的change事件和scroll事件有什么分歧？3、快捷键和访问键有什么区别？4、在程序运行期间，如果拖动滚动条上的滚动块（即滑块），则触发滚动条的什么事件？5、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？6、为了暂时关闭计时器（即时钟控件），应把该计时器的什么属性设置为False？7、单选按钮和复选框（即检查框）各用于什么情况？8、如何为一个菜单项设置热键和快捷键？9、菜单的形式有哪两种？10、在KeyPress事件中，如何取消用户刚输入的字符？11、框架的作用是什么？12、如果要计时器每秒钟发生4个Timer事件，则Interval属性值应设多少？13、在一个窗体的程序代码中可否访问另外一个窗体上控件的属性？若不成则请说明来由；若行则请说明如何访问.14、如何在框架中建立控件？15、组合框有哪几种类型？四、读程序题1、对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出成果是什么？2、阅读下面的程序，写出执行成果.。
visual_Basic程序设计教程_课后习题答案及练习
第三章 VB基本语言
一、填空题
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种
数据类型。
3、变量的声明分为两种方法：__________和____________。 4、在VB中，用___________________语句设定数组的下界，用_____________ 和__________________语句分别返回数组的上、下界。 5、在代码模块中加入Option Explicit的目的是 _____________________。 6、function aa (a1 as date,optional a2 as boolean) as single，写出optional 命令的作用__________________。 7、在VB中，我们用一个简单的______语句就能实现退出程序。 8、生成消息框的命令是____________，生成输入框的命令是 ____________。 9、通用对话框（commondialog）属activex控件，它可以显示多个标准 对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文 件，则应设置其属性filter=____________，若要使它显示为打印对话 框，则应使用什么方法____________。 10、从字符串中任意位置截取字符的函数是__________。 11、语句For j = 3 To 20 Step 3 使循环体执行了______次。 12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应
二、选择题
1、下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 2、可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（ ） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（ ） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（ ） A．可视化 B．面向对象 C．面向图形 D．事件驱动
VisualBasic程序设计教程第三版课后习题答案
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VisualBasic程序设计教程第三版课后习题答案
《VB步调安排》概括复习资料之阳早格格创做第一章 Visual Basic步调安排概括一、挖空题1、VisualBasic是一种里背__________的可视化步调安排谈话，采与了__________的编程体造.2、正在VB中工程文献的扩展名是____________，窗体文献的扩展名是____________，尺度模块文献的扩展名是____________.3、真止“工程”菜单下的__________下令，可采用并增加ActiveX控件.4、Visual Basic 6.0用于开垦__________环境下的应用步调.二、采用题1、底下出有是VB处事模式的是（）A．安排模式B．运止模式C．汇编模式D．中断模式 2、可视化编程的最大便宜是（）A．具备尺度工具箱B．一个工程文献由若搞个窗体文献组成C．出有需要编写洪量代码去形貌图形对付象D．所睹即所得3、下列出有克出有及挨开属性窗心的支配是（）A．真止“视图”菜单中的“属性窗心”下令B．按F4键C．按Ctrl+TD．单打工具栏上的“属性窗心”按钮4、下列不妨挨开坐时窗心的支配是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程体造是（）A．可视化 B．里背对付象 C．里背图形 D．事变启动三、简问题1、代码窗心主要包罗哪几部分？2、正在工程资材管造器窗心中，主要列出了哪三类文献？3、窗体筹备窗心的主要用途是什么？4、VB的基础特性是什么？5、何如明黑可视化安排？6、怎要明黑事变启动编程？第二章简朴的VB步调安排一、挖空题1、树坐是可不妨用Tab键去采用下令按钮，该当用______________属性.2、一个控件正在窗体的位子由_______战________属性决断，其大小由__________战_________属性决断.3、利用对付象的属性setfocus可赢得核心，对付于一个对付象，惟有其visible属性战____________属性为true，才搞担当核心.4、树坐控件背景颜色的属性称呼是______________________.5、所有控件皆具备的共共属性是__________________属性.6、普遍情况下，控件有二个属性项的缺省值是相共的，那二个属性项是_______________.7、VB中的每个对付象（控件）皆有一组特性，那组特性称为__________，咱们通过建改它不妨统造对付象的中瞅战支配.8、常常情况下，VB中一个工程主要包罗如下四个文献：窗体文献、工程文献、类模块文献战_____________文献，后者的扩展名为.Bas，常常由Basic谈话编写，是一个可共用的子步调.9、VB有三种处事模式，分别是安排（Design）模式、_____________战中断（Break）模式.二、采用题1、以下不妨触收文本框Change事变的支配是（）A．文本框得去核心B．文本框赢得核心C．树坐文本框的核心D．改变文本框的真量2、应用步调安排完毕后，应将步调死存，死存的历程是（）A．只死存窗体文献即可B．只死存工程文献即可C．先死存工程文献，之后死存窗体文献D．先死存窗体文献（大概尺度模块文献），之后还要死存工程文献3、VB应用步调的运止模式是（）A．阐明运止模式B．编译运止模式C．二者皆有D．汇编模式4、所有控件皆具备的属性是（）A．TEXTB．CAPTIONC．NAMED．FORECOLOR5、决断控件上笔墨的字体、字形、大小及效验的属性是（）A．TEXTB．CAPTIONC．NAMED．FONT6、正在窗体上建坐了多个控件，如TEXT、LABEL1、COMMAND1，若要使步调一运止核心便定位正在COMMAND1控件上，应将COMMAND1控件的（）树坐为0A．INDEXB．TABINDEXC．TABSTOPD．ENABLED 7、运止时，当用户背文本框输进新的真量，大概正在步调代码中对付文本框的TEXT属性举止赋值进而改变了文本框的TEXT属性值时，将触收文本框的（）事变A．CLICKB．DBLCLICKC．GOTFOCUSD．CHANGE8、正在运止时，按TAB键跳过了一个不妨赢得核心的控件（如文本框），则大概是果为（）A．该控件的TABSTOP属性值为TRUEB．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUED．该控件的ENABLED属性值为FALSE9、为了预防用户随意将光标置于控件上，应（）A．将控件的TABINDEX属性树坐为0B．将控件的TABSTOP属性树坐为TRUEC．将控件的TABSTOP属性树坐为FALSED．将控件的ENABLED属性树坐为FALSE10、若要使标签控件隐现时，出有覆盖其背景真量，应树坐标签控件的（）属性A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE11、如果要正在文本框中输进字符时，只隐现某个字符，如星号（*），运止时，正在文本框中输进的字符仍旧隐现出去，而出有隐现星号，本果大概是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、正在运止阶段，要正在文本框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 Sub13、Visual Basic继启了Basic谈话简朴易用的语法特性，共时支援里背对付象的编程体造，其中形成其控件（对付象）的三果素是（）A．属性、事变、事变历程B．控件、窗体、事变C．属性、历程、要领D．属性、事变、要领14、决断标签（Label）隐现的属性是（）A．TextB．NameC．CaptionD．Alignment15、下令按钮的题目笔墨由（）属性去树坐.A．Text B．Caption C．Name D．(称呼)16、若要树坐文本的隐现颜色，则可用（）属性去真止.A．BackColor B．Forecolor C．FillColor D．Backstyle17、正在运止时，若要调用某下令钮的Click事变历程，则可树坐该下令钮对付象的（）属性为Ture去真止.A．Enabled B．Value C．Default D．Cancel18、正在运止时，若要赢得用户正在文本框中所采用的文本，可通过考察（）属性去真止.A．SelStart B．SelLenght C．Text D．SelText三、简问题1、事变启动的含意是什么？举例证明.2、接互式开垦要领战保守的应用步调开垦历程有什么分歧？3、文本框正在什么情况下使用？4、什么是工程？5、结构化步调安排的三种基础结构是什么？6、对付象的三果素是什么？并分别举止简朴的阐明.7、为什么要死成可真止文献战创造拆置盘？8、使用变量前先声明有什么佳处？9、怎么样使用助闲功能？10、结构化步调安排的特性是什么？11、为了把核心移到某个指定的控件，正在代码中应使用的要领是什么？12、开用Visua Basic后，只创造了一个窗体，若此时死存，需要死存几个文献？各是什么文献？先死存的是哪一个？13、为了预防文本框中的疑息运止后被用户建改，应树坐什么属性？第三章 VB基础谈话一、挖空题1、普遍不妨使用__________关键字声明常量.2、______典型也称变体典型，是一种通用的、可变的数据典型，它可表示大概死存所有一种数据典型.3、变量的声明分为二种要领：__________战____________.4、正在VB中，用___________________语句设定数组的下界，用_____________战__________________语句分别返回数组的上、下界.5、正在代码模块中加进Option Explicit的脚法是_____________________.6、function aa (a1 as date,optional a2 as boolean) as single，写出optional下令的效率__________________.7、正在VB中，咱们用一个简朴的______语句便能真止退出步调.8、死成消息框的下令是____________，死成输进框的下令是____________.9、通用对付话框（commondialog）属activex控件，它不妨隐现多个尺度对付话框，包罗挨开/另存为、字体、挨印等对付话框，若要隐现所有文献，则应树坐其属性filter=____________，若要使它隐现为挨印对付话框，则应使用什么要领____________.10、从字符串中任性位子截与字符的函数是__________.11、语句For j = 3 To 20 Step 3 使循环体真止了______次.12、对付于正正在使用的动背数组Arraya()，要减少一个单元，然而出有克出有及损害数组内的数据，则应使用语句__________________________________.13、正在Visual Basic中声明固态变量的关键字是_________________.14、表黑式10 Mod 6 \ 4的值为______.15、表黑式chr(Asc("a") + 5)的值为_________.16、VB中使用注释有2种要领，即________战________.17、VB中的数据以四种形式死存：常量、_________、_________战记录.18、为了正在VB中死存一个4止5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完备：Dim Juzhen(__) as Integer.19、控件数组由一组相共典型的控件组成，那些控件共用一个相共的控件名，然而是每个控件皆有一个唯一的下标去区别，咱们使用属性____去树坐下标.20、正在历程调用中，真止调用历程的真参战被调用历程的形参之间的数据传播有二种办法：按值传播战____.21、为了包管步调中必须对付变量的强造性定义，需要正在代码模块的声明部分加进______________语句.22、分解For……Next循环结构的真例：For i = 5 To 30 Step 2 中，循环体一共真止了______次.23、表黑式Mid("UniversityOfPetroleum", 8, 4) 的值为_________.24、常量分为普常常量战__________常量.25、要将大写字母变更为小写字母，可使用____________函数.26、出有管核心正在哪个控件上，按__________键相称于按了与消按钮.27、真止“工程”菜单下的__________下令，可采用并增加ActiveX控件.28、__________是步调中VB停止真止的场合.29、逻辑常量为True大概__________.30、使用了__________________的声明后，当步调中使用已经声明的变量时，步调运止时会报错.31、要将小写字母变更为大写字母，可使用____________函数.32、自字符串N1位开初背左与N2个字符，要使用_________________函数.33、日期常量表示时，用标记__________将日期型数据括起去.34、局部变量只可正在__________中声明战使用.35、模块级变量的声明关键字是Dim大概__________.36、函数Abs(x)的功能是__________.37、表黑式3/6*5的值是__________.二、采用题1、以下哪个是合法的变量（）A．right B．abc@123 C．123_abc D．ab123c 2、下列道法过得的是（）A．正在共一模块分歧历程中的变量不妨共名B．分歧模块中定义的局部变量出有成以共名C．引用另一模块中的局部变量时，必须正在变量名前加模块名D．共一模块中分歧级的变量不妨共名3、把MsgBox的返回值变更为数值该当使用的函数是（）A．LogB．StrC．LenD．Val4、语句DIM AA(3,4,5)中定义的数组有（）个元素A．12 B．60 C．120 D．3455、底下步调运止后输出的截止是（）A$="CHINA"B$=STRING$(3,A$)PRINT B$ENDA．CHI B．CCC C．INA D．AAA6、以下语句的输出截止是（）Print Format$(32548.5, "000,000.00")A．32548.5 B．325,485.00 C．032,548,50 D．32,548,507、以下道述中过得的是（）A．如果历程被定义为Static典型，则该历程中的局部变量皆是Static典型B．Sub历程中出有克出有及嵌套定义Sub历程C．Sub历程中不妨嵌套调用Sub历程D．事变历程不妨像通用历程一般由用户定义历程名8、Visual Basic提供的On Error Resume next过得陷阱语句表示（）A．当爆收过得时，使步调转跳到语句标号为0的步调块B．当爆收过得时，出有使用过得处理步调块C．当爆收过得时，忽略过得止，继启真止下一语句D．当爆收过得时，终止本历程真止，继启真止下一历程9、正在Visual Basic中，若要将统造权接给支配系统则通过（）的语句.A．End B．Exit Do C．Exit Sub D．DoEvents 10、正在Visual Basic 中语句的绝止号采与（）A．空格与下划线 B．下划线与空格 C．空格与短线 D．短线与空格11、假定有以下步调段：For i=1 to 3For j=5 to 1 Step –1Print i*jNext j,i则语句Print i*j的真止次数是（）A．15 B．.16 C．17 D．1812、从键盘上输进二个字符串，分别死存正在变量str1、str2中.决定第二个字符串正在第一个字符串中起初位子的函数是（）A．LeftB．MidC．StringD．Instr13、如果将布我常量值TRUE赋值给一个整型变量，则整型变量的值为（）A．0B．1C．TRUED．FALSE14、下列道述出有精确的是（）A．注释语句利害真止语句，仅对付步调的真量起注释效率，它出有被阐明战编译B．注释语句不妨搁正在代码中的所有位子C．注释语句出有克出有及搁正在绝止符的后里D．代码中加进注释语句的脚法是普及步调的可读性15、语句PRINT “INT(13.2)”；INT(13.2)的输出截止为（）C．INT(13.2)= 13D．INT(13.2)= 1416、如果TAB函数的参数小于1，则挨印位子正在第（）列A．0B．1C．2D．317、变量已赋值时，数值型变量的值为（）A、0B．空C．1D．无所有值18、下列语句中精确的是（）A．txt1.text+txt2.text=txt3.textB．=cmd okC．12label.caption=1234D．a=inputbox(“hello”)19、假设变量BOOLV AR是一个布我型变量，则底下精确的赋值语句是（）A．BOOLVAR=‘TRUE’B．BOOLV AR=.TRUEC．BOOLV AR=#TRUE#D．BOOLV AR=3<420、以下（）步调段不妨真施X、Y变量值的变更（）A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21、语句PRINT “SGN(26)=”；SGN(26)的输出截止为（）A．SGN(26)=26B．SGN(26)= 26C．SGN(26)= +1D．SGN(26)= 122、读底下步调段，推断变量Str2的与值是（）Dim Str1, Str2 as StringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23、VB支援自定义数据典型，正在某步调中咱们定义了如下典型：TypeStudentnumber AsstringnameAsStringageAsIntegerEndType针对付上述定义，如下几项用法精确的是（）A．="弛三" B．Dim s AsStudent ＝"弛黑"C．DimsAsTypeStudent D．DimsAsType="弛三" ="弛三"24、一个工程中包罗二个称呼分别为Form1、Form2的窗体，一个称呼为mdlFunc的尺度模块.假定正在Form1、Form2战mdlFunc中分别建坐了自定义历程，其定义要领为：Form1中定义的历程：Private Subfrmfunction1()EndSubForm2中定义的历程：PublicSubfrmfunction2()EndSubmdlFunc中定义的历程：PublicSubmdlFunction()EndSub正在调用上述历程的步调中，如果出有指明窗体大概模块的称呼，则以下道述中精确的是（）A．上述三个历程皆不妨正在工程中的所有窗体大概模块中间接被调用B．惟有mdlFunction历程不妨被工程中各个窗体大概模块间接被调用C．frmfunction1只可正在form1中调用，而frmfunction2 则不妨正在所有模块大概窗体中被间接调用D．上述三个历程皆只可正在各自被定义的模块中间接调用25、VB中Do……Loop结构既不妨形成当型循环，也不妨形成曲到型循环，根据底下的代码：Dim i,n as Integern = 20i = 1DoPrint i;i = i + 2Loop Until i >20推断循环结构的典型战循环体的真止次数，精确的选项是（）A．当型循环，20次B．曲到型循环，10次C．当型循环，10次D．曲到型循环，20次26、正在步调中，使用InputBox函数不妨担当用户的输进，如果要把它的返回值变更为数值型的数据，该当使用的函数是（）A．Val B．LenC．Str D．Log27、动背数组果为正在步调运止前无法决定数组的大小，所以时常根据步调的运止情况，对付数组举止沉新定义，以下关于VB中动背数组的道述中出有精确的是（）A．不妨用ReDim语句沉新定义动背数组，而且不妨举止多次沉定义B．尾次用Dim举止径背数组声明的时间，必须指明它的典型战上下界C．Preserve为ReDim语句的可选参数，用于死存动背数组本去的真量D．当对付动背数组使用Erase语句举止释搁支配时，将释搁其内存28、VB中的控件也喊搞部件大概组件，主要包罗三类，以下哪一项出有属于VB控件的分类（）A．控件B．可拔出对付象C．ADO控件 D．ActiveX控件29、表黑式4+5 \ 6 * 7 / 8 Mod 9 的值是（）A．4 B．5 C．6 D．730、不妨共时简略字符串前导战尾部空黑的函数是（）A．Ltrim B．Rtrim C．Trim D．Mid三、简问题1、局部变量声明有哪些节造？2、字符串是可不妨自动变更为数字典型？3、用Format函数要领化后的字符要领正在分歧天区环境下的输出是可相共？为什么？4、正在InputBox函数中，哪一个参数是必须的？5、正在MsgBox函数中哪一个参数是必须的？6、正在什么情况下使用历程？7、为什么要举止步调调试？8、调试步调有哪些脚法？9、用语句Dim A(3 To 5) As Integer定义的数组的元素个数是几？10、设犹如下的Visual Basic表黑式：5*x^23*x2*Sin(a)/3，与它对付应的数教式是什么？11、数教式)a-对付应的VB表黑式是什么？yx+3)(2(b12、表黑式2>3 And 4<=5 Or 4>4的值是什么？13、何如正在步调中树坐断面？14、正在什么情况下不妨树坐断面？15、步调堕落的典型有哪几种？16、正在共一模块、分歧历程中声明的相共变量名，二者是可表示共一个变量？为什么？17、什么情况下会出现“数组下标越界过得”？18、逐语句战逐历程有什么辨别？19、表黑式2.75 * 2 \ 3.45的值是什么？20、正在步调安排中为什么尽管出有必GoTo语句？四、读步调题1、分解以下步调，写出运止截止.Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub2、读底下的步调，分解其功能，写出运止截止.正在窗体上有一个下令按钮，称呼为Command1.而后编写如下步调：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub步调运止后，如果单打下令按钮，则正在窗体上隐现的真量是什么？3、阅读底下的步调，分解并写出其功能.Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=201 To n Step –1a(m+1)=a(m)Next ma(n)=xEnd Sub4、分解以下步调，写出运止截止.Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub运止上头的步调，单打下令按钮，输出截止是什么？5、分解以下步调，写出运止截止.Sub sele()Dim n as Integeri=21:n=3Do While i>ni=i－nLoopPrint iEnd Sub6、分解以下步调，写出运止截止.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) ThenPrint aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub7、分解以下步调，写出运止截止.Sub swap()Dim x as IntegerDim y as IntegerDim z as Integerx=1:y=2:z=0Print x;y;zx=x+yx=x*zPrint x,y,zEnd Sub8、分解以下步调，写出运止截止.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2If(a>=b)and(a>c)Then Print aPrint a,b,cEnd Sub五、编程题1、输进一年号，推断它是可是闰年.界里如下图所示，包罗二个标签、一个文本框战一个下令按钮.提示：如果此年号能被400整除大概者出有克出有及被400除尽，也出有克出有及被100除尽，然而能被4整除，则它是闰年；可则，出有是闰年.2、输进二个正整数m、n，供m战n的最大契约数.央供建坐如下图所示的窗体，其中主要的控件包罗：二个标签（Lable1、Lable2）、二个文本框（Text1、Text2）战一个按钮（Command1）.3、输进某教死结果（百分造），假如100≥结果≥90输出特出；假如90＞结果≥80输出良佳；假如80＞结果≥70输出中等；假如70＞结果≥60输出及格；假如60＞结果≥0，输出出有及格；假如其余数则输出error疑息.4、正在窗体中隐现从9号字型到16号字型.5、正在有序序列中拔出一个数，使拔出后的数列仍旧有序（设按由小到大排列）.6、编程真止二维数组转置.7、随机输进10个100以内的整型数，估计其战及仄衡值.8、找出所有的火仙花数.火仙花数是个三位数，它的诸位数字的坐圆战等于那个三位数自己.比圆371＝33+73+13，则371是火仙花数.9、从键盘输进一个大于2的正整数，推断该数是可是素数.10、供二维数组中的最小值及其天圆止号、列号.11、供一元二次圆程ax2+bx+c=0的根（包罗真根战复根）.12、输进一个正整数n，估计出n!并输出.13、Faibonacci数列为0，1，1，2，3，5，8，13 …，估计并输出第20项以及前20项的战.第四章时常使用控件与窗体一、挖空题1、背列表框控件增加新名脚法要领是__________.2、正在VB中，最主要的二种对付象是____________战____________.3、当窗体开用时可通过__________属性统造窗体位于所有者的核心位子.4、若要将窗体Form1隐躲起去，则可通过真止代码_________________去真止.5、要使拆进到列表框中的数据项能自动按字母程序排序，应树坐该控件的_________属性为__________.6、窗体上搁置了若搞个文本框战下令按钮，当窗体拆进后，要将核心自动定位到文本框Text1上，则正在安排时需要将__________控件的_________属性树坐为__________.7、正在标签控件中通过编程使笔墨换止用的代码是___________________.8、树坐计时器控件只可触收______________________事变.9、树坐计时器对付象触收事变的时间隔断用_____________________属性.10、滑动条控件主要支援二个事变，它们是_______________事变.11、要使鼠标停顿正在按钮上隐现特殊的鼠标形状，应树坐的属性值是_________________.12、设某列表框公有10项，按题目央供补齐步调，完毕相映的功能.（1）按下下令按钮Command1时将列表框第8项的真量隐现正在窗体上：PrivateSubCommand1_Click()List.__________(7)=True（2）单打列表框某一项时坐将要该项挨印正在窗体上：PrivateSubList1_Click()Print_______________EndSub（3）按下下令按钮Command1时正在窗体上简略第1、3、5、7、9项：PrivateSubCommand1_Click()ForI=1To5NextIEndSub（4）正在列表框的每一项之后拔出一个新的项：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输进拔出的第”&I&“项真量”) NextIEndSub13、设正在界里上搁置了一个滑动条Hscroll1战一个标签控件Label1，要使屡屡单打滑动条二端箭头时，大概单打滑动条滑块与二端箭头之间的空黑天区时，标签真量不妨反映滑动条的值，补齐以下代码.PrivateSubHscroll1.__________________()要使拖动滑动条滑块时标签真量不妨反映滑动条的值，补齐以下代码.PrivateSubHscroll1.________________()EndSub14、列表框（ListBox）用于列出可供采用的名脚法列表，用户不妨采用一个大概多个名目.它具备几个非常要害的数组属性，其中____属性存搁了列表框中所有名脚法值.15、菜单项普遍由题目、考察键、快速键战复选标记等形成，通过对付相映的属性举止树坐不妨改变那些名脚法状态，其中与复选标记相对付应的属性是____.16、keydown与keypress事变各有其参数，若需赢得用户按下 "a" 仍旧 "A" 需用____________事变.17、控件________推拢了文本框战列表框的功能，是VB 中一种功能非常强盛的采用类控件.18、若需要将窗体Form2以模态窗心的形式隐现出去，可通过真止代码_________________去真止.19、菜单中的合并条是一种菜单控件，出有赞同__________事变，出有克出有及被选中.二、采用题1、当步调运止时，正在窗体上单打鼠标，以下哪个事变是窗体出有会接支到( )A．MouseDownB．MouseUpC．LoadD．Click2、窗体Form1的Name属性是Frm1，它的单打事变历程名是（）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_ Click3、用于树坐通用对付话框控件隐现文献典型的属性是（）A．Filter B．Path C．Partern D．FoleName4、用于从内存简略窗体的下令是（）A．Move B．Hide C．Unload D．Delete5、用于返回窗体可用天区宽度的属性是（）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop6、下列关于属性树坐的道述过得的是：（）A．一个控件具备什么属性是VB预先安排佳的，用户出有克出有及改变B．一个控件具备什么属性是VB预先安排佳的，用户不妨改变C．一个控件的属性即不妨正在属性窗心中树坐，也不妨用步调代码树坐D．一个控件的属性正在属性窗心中树坐，还不妨利用步调代码为其树坐新值7、下列道法精确的是（）A．对付象属性只可正在“属性窗心”中树坐B．一个新的工程不妨正在“工程窗心”中建坐C．必须先建坐一个工程，才搞开初安排应用步调D．只可正在“代码窗心”中编写步调代码8、下列关于窗体上控件的基础支配过得的是（）A．按下一次DEL键只可简略一个控件B．按下一次DEL键不妨共时简略多个控件C．按住SHIFT键，而后单打每个要采用的控件，不妨共时选中多个控件D．按住ALT键，而后单打每个要采用的控件，不妨共时选中多个控件9、下列关于树坐控件属性的道述精确的是（）A．用户必须树坐属性值B．所有的属性值皆不妨由用户随意设定C．属性值出有必一一沉新树坐D．分歧控件的属性项皆真足一般10、出有成以通过下列（）支配将核心赋给对付象A．运止时使用TAB键B．正在代码中用CALL语句调用C．正在代码中用SETFOCUS要领D．用考察键大概用鼠标单打采用对付象11、要正在FORM_LOAD事变历程中使用PRINT要领正在窗体上输出一定的真量，应（）A．树坐窗体的VISIBLE属性B．树坐窗体的CAPTIONC．调用窗体的SHOW要领D．树坐窗体ENABLED 属性12、底下（）对付象无CAPTION属性A．FORMB．COMMANDBUTTONC．TEXTBOXD．LABEL13、通用对付话框控件战文献列表框控件中，皆能根据文献的典型对付要隐现的文献举止筛选过滤，后者使用（）属性举止该项树坐.A．Pattern B．Path C．FilterD．FileName14、对付于复选框控件chkBoy，如果正在步调中树坐它为选中状态，底下语句精确的是（）A．chkBoy.Checked = true B．chkBoy.Value = trueC．chkBoy.Selected = true D．chkBoy.Value = 115、计时器（Timer）控件用于每隔一段时间自动触收一次Timer事变，不妨有程序天沉复真止一段步调，它用于树坐二次事变时间隔断的属性是（）A．IntervalB．SmallChangeC．LargeChange D．Max16、以下关于VB中窗体（Form）的道法中，出有精确的形貌为（）A．真止Unload Form语句后，窗体Form消得，然而仍正在内存中B．当窗体的Enabled属性为False时，通过鼠标战键盘对付窗体的支配皆被克制C．窗体的Height、width属性用于树坐窗体的下战宽D．窗体的load事变正在加载窗体时爆收17、关于滑动条控件，底下道法过得的是（）A．面打滑动条的箭头，不妨改变它的value值，进而激励Change事变B．拖动滑动框，不妨触收Scroll事变C．常常，火仄滑动条的值从左背左递加，笔曲滑动条的值自上而下递加D．拖动滑动框，不妨触收Change事变，而且是连绝触收的18、正在窗体上搁置一个下令按钮，称呼为Command1.单打下令按钮时，真止如下事变历程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则正在弹出的疑息框的题目栏中隐现的疑息是（）A．softWareandhardware B．softwareC．hardwafe D．出现过得19、正在多沉窗体步调安排中，关键的问题是要办理分歧窗体之间的贯串战窗体的隐现、关关等问题，以下关于窗体的相关语句战要领的道述中，过得的是（）A．Load语句用于加载指定窗体，即正在内存中创造该窗体B．Show要领兼具Load语句的功能，不妨将窗体隐现出去C．Hide要领用于将窗体隐躲起去D．Unload语句用去释搁窗体，然而窗体并出从内存中消20、滑动条控件的属性中，表示与值范畴最大值的属性是（）A．MaxB．LargeChangeC．Min D．Value21、步调中如果需要检测战统造鼠目标位子战状态的改变，便需要使用鼠标事变，其中底下哪个选项用于表示拖动事变（）A．DragDrop B．MouseDownC．MouseUpD．MouseMove22、为了使用通用对付话框举止挨开文献的支配，应将通用对付话框的Action属性设定为（）.A．0 B．1 C．2 D．3三、简问题1、什么是单选按钮？什么是复选框？正在使用上有什么分歧？2、滑动条的change事变战scroll事变有什么分歧？3、快速键战考察键有什么辨别？4、正在步调运止功夫，如果拖动滑动条上的滑动块（即滑块），则触收滑动条的什么事变？5、假定有一个菜单项，名为MenuItem，为了正在运止时使该菜单项做废（变灰），应使用什么语句？6、为了姑且关关计时器（坐即钟控件），应把该计时器的什么属性树坐为False？。
《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案
第1章1. 按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章1～3题：按要求完成操作练习。
4． Private Sub Command1_Click() '"最大化"按钮Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"还原"按钮Form1.WindowState = 0 '还原End SubPrivate Sub Command3_Click() '"最小化"按钮Form1.WindowState = 1 '最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。