《VB程序设计和应用》课后作业

VB程序设计及应用课后作业说明：建议完成教材中所有的习题，并完成部分Visul Basic程序设计实训及考试指导中的部分习题。作业1一、选择题(1) 从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是_。A) 学习版B) 标准版C) 专业版D) 企业版(2) 与传统的程序设计语言相比，Visual Basic 最突出的特点是_。A) 结构化程序设计B) 程序开发环境C) 事件驱动编程机制D) 程序调试技术(3) 在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic 。以下方式中，不能启动Visual Basic 的是_。A) 通过“开始菜单”中的“程序”命令B) 通过“我的电脑”找到VB6.exe，双击该文件名C) 通过“开始”菜单中的“运行”命令D) 进入DOS方式，执行VB6.exe文件(4) 为了用键盘打开菜单和执行菜单命令，第一步应按的键是_。A) 功能键F10或AltB) Shift+功能键F4C) Ctrl或功能键F8D) Ctrl +Alt(5) Visual Basic 6.0集成环境的主窗口中不包括_。A) 标题栏B) 菜单栏C) 状态栏D) 工具栏(6) 用标准工具栏中的工具按钮不能执行的操作是_。A) 添加工程B) 打印源程序C) 运行程序D) 打开工程(7) Visual Basic 窗体设计器的主要功能是_。A) 建立用户界面B) 编写源程序代码C) 画图D) 显示文字(8) 以下正确的叙述是_。A) 用属性窗口只能设置窗体的属性B) 用属性窗口只能设置控件的属性C) 用属性窗口只能设置窗体和控件的属性D) 用属性窗口只能设置对象的属性(9) 不属于VB三种工作模式的是（ ）。A: 设计模式 B: 运行模式 C: 调试模式 D: 中断模式(10) 从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是( ) 。A: 学习版 B: 免费版 C: 专业版 D: 企业版二、填空题1、 Visual Basic 6.0分为3种版本，这3种版本是_、_和_。2、 可以通过多种方式启动Visual Basic，其中的两种方式是_和_。3、 可以通过_菜单中的_命令退出Visual Basic。4、 退出Visual Basic的快捷键是_。5、 Visual Basic 6.0的菜单栏共有_个主菜单项。6、 快捷键Ctrl+O的功能相当于执行_菜单中的_命令；或者相当于单击工具栏上的_按钮。7、 如果打开了不需要的菜单或对话框，可以用_键关闭。8、 工程文件的扩展名是_，窗体文件的扩展名是_。9、 Visual Basic中的菜单栏有两种形式，分别为_形式和_形式。10、在VB中，最基本的对象是_作业2一、选择题(1) 下列叙述中正确的是_。A) 只有窗体才是Visual Basic中的对象B) 只有控件才是Visual Basic中的对象C) 窗体和控件都是Visual Basic中的对象D) 窗体和控件都不是Visual Basic中的对象(2) 下列可以激活属性窗口的操作是_。A) 用鼠标双击窗体的任何部位B) 执行“工程”菜单中的“属性窗口”命令C) 按Ctrl+F4键D) 按F4键(3) 下列不能打开工具箱窗口的操作是_。A) 执行“视图”菜单中的“工具箱”命令B) 按Alt+F8C) 单击工具栏上的“工具箱”按钮D) 按Alt +V，然后按X键(4) 假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是_。A) 单击窗体上没有控件的地方B) 单击任一个控件C) 不执行任何操作D) 双击窗体的标题栏(5) 为了把窗体上的某个控件变为活动的，应执行的操作是_。A) 单击窗体的边框B) 单击该控件的内部C) 双击该控件D) 双击窗体(6) 确定一个控件在窗体上的位置的属性是_。A) Width或HeightB) Width和HeightC) Top或LeftD) Top和Left(7) 为了确定一个窗体或控件的大小的属性是_。A) Width或HeightB) Width和HeightC) Top或LeftD) Top和Left(8) 为了同时改变一个活动控件的高度和宽度，正确的操作是_。A) 拖拉控件4个角上的某个小方块B) 只能拖拉位于控件右下角的小方块C) 只能拖拉位于控件左下角的小方块D) 不能同时改变控件的高度和宽度(9) 关于VB源代码的编写，下列说法错误的是（ ）。A) VB源代码中不区分字母的大小写B) 同一行可以写多个语句C) 可以适当添加注释有利于程序的维护和调试D) 一个语句必须写在一行中，不可分成多行来书写(10) Visual Basic 窗体设计器的主要功能是（ ）。A) 建立用户界面 B) 编写源程序代码C) 画图D) 显示文字二、填空题1、 属性窗口分为4个部分，这4个部分分别是_、_、_和_。2、 假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello！”，所使用的语句为_。3、 Visual Basic中的控件分为3类，它们是_、_和_。4、 一个控件在窗体上的位置由_和_属性决定，其大小由_和_属性决定。5、 为了选择多个控件，可以按住_键，然后单击每个控件。6、 要同时选中窗体的多个控件，可以按住_或_键，然后依次单击窗体上各个控件。7、 在代码窗口中，输入某行代码并按回车键后，如果代码变成_颜色，该行代码有语法错误。作业3一、选择题(1) 下列可作为Visual Basic的变量名的是_。A) 4*DeltaB) AlphaC) 4ABCD) AB(2) 下列可作为Visual Basic的变量名的是_。A) FilenameB) A(A+B)C) 254DD) Print(3) 下列可作为Visual Basic中所允许的形式的数是_。A) 25.74B) 3.457E-100C) 368D) 1.87E+50(4) 下列可以作为Visual Basic中所允许的形式的数是_。A) 10（1.256）B) D32C) 2.5ED) 12E3(5) 下面的数写成普通的十进制数是_。 8.6787E+8A) B) C) D) (6) 设a=2，b=3，c=4，d=5，下列表达式的值是_。 ab and ccA) True B) FalseC) -1D) 1(7) 设a=2，b=3，c=4，d=5，下列表达式的值是_。 32*b OR a=c AND bc OR cdA) 1B) TrueC) FalseD) -1(8) 设a=2，b=3，c=4，d=5，下列表达式的值是_。 NOT a=c OR 4*c=b2 AND ba+cA) -1B) 1C) TrueD) False(9) 下列不属于常量的是（ ）。A) 12B) “ch” C) abc D) 1.23(10) 下列可作为Visual Basic的变量名的是（）A) AbtB) TABC) IF D) ABT二、填空题1、 下面Visual Basic表达式有错误，其正确的形式是_。CONTT.DE+COS(28)2、 下面Visual Basic表达式有错误，其正确的形式是_。-3/8+INT24.83、 下面Visual Basic表达式有错误，其正确的形式是_。(8+6) (4-2)+SIN(2*)4、 下面Visual Basic表达式有错误，其正确的形式是_。(x+y)+z80-5(C+D)5、 与下列数学式子对应的Visual Basic表达式是_。cos(c+d) (c+d)为弧度6、 与下列数学式子对应的Visual Basic表达式是_。5+(a+b)27、 与下列数学式子对应的Visual Basic表达式是_。cos(x)(sin(x)+1)8、 与下列数学式子对应的Visual Basic表达式是_。e2+29、 与下列数学式子对应的Visual Basic表达式是_。2a(7+b)10、 与下列数学式子对应的Visual Basic表达式是_。8e3ln2(假定以下操作在立即窗口中执行)11、 以下语句的输出结果是_。print chr $ (65) CR为回车，下同12、 以下语句的输出结果是_。Print sgn(2) 13、 执行以下语句后，输出结果是_、_。a $=”Good” b $=”Morning” print a $+b $print a $ &b $ 14、 执行以下语句后，输出结果是_、_。a $=”ABCDEFGHIJK” print left $(s$,4)print right $(s$,4) 15、 执行以下语句后，输出结果是_、_。s $=” ABCDEFGHIJK” b $=”Morning” print mid $ (s $,3,4) print len(s $ ) 16、 自定义的数据类型需要在模块的_中进行声明。17、 设a=2,b=3,c=6,则表达式Not ac or c=b二 and ba+c的值为_。作业4 一、选择题(1) 假定Pictrue1和Text1分别为图片框和文本框的名称，下列不正确的语句是_。A) Print 25B) Pictrue1,Print25C) Text1,Print25D) Debug,Print25(2) 以下程序段的输出结果是_。a=Sqr(3);b=Sqr(2)c=abPrint cA) -1B) 0C) FalseD) True(3) 以下语句的输出结果是_。Print Format(32548.5,”000,000.00”)A) 32548.5B) 32,548.5C) 032,548.50D) 32,548.50(4) 执行以下程序段后，变量c$的值为_。a $=”Visual Basic Programming”b $=”Quick”c $=b $ &UCase(Mid(a$,7,6)&Right$(a$,11)A) Visual BASIC ProgrammingB) Quick Basic ProgrammingC) QUICK Basic ProgrammingD) Quick BASIC Programming(5) 表达式4+56*7/8Mod9的值是_。A) 4B) 5C) 6D) 7(6) 要让菜单项不显示出来，应将（ ）属性值设置为False。A) VisibleB) EnabledC) EnabledD) Checked(7) 可用来清除窗体内容的方法是（ ）。A) PrintB) InputBoxC) ClsD) Clear二、填空题1、 语句Print”25+32=”;25+32的输出结果是_。2、 以下语句的输出结果是_。 s $=”China”; s $=”Beijing” Print s $3、 以下语句的输出结果是_。 a%=3.14156 Print a%4、 阅读程序： Private Sub Form_Click() Dim a, b, c, d As Integer a = 10 b = 15 c = 20 d = 25 Print a; Spc(5); b; Spc(7); c Print a; Space$(8); b; Space$(5); c Print c; Spc(3); +; Spc(3); d; Print Spc(3); =; Spc(3); c + d End Sub运行上面的程序，单击窗体，输出结果是_、_、_。5、 窗体控件的属性一般可在_窗口中可以改变6、 假定程序中有以下语句：I=MsgBox(“String1”,”String2”,”String3”,2)执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则I的值为_。作业5一、选择题(1) 假定有以下程序段For i=1 to 3 For j=5 to 1 Step-1 Print i*jNext j,i则语句Print i*j的执行次数是_。A) 15B) 16C) 17D) 18(2) 以下程序段的输出结果是_。 x=1 y=4 Do Until y4 x=x*y y=y+1 Loop Print xA) 1B) 4C) 8D) 20(3) 设a=6,则执行 x=IIf(a5，-1，0)后，x的值为_。A) 5B) 6C) 0D) -1(4) 执行下面的程序段后，x的值为_。 x=5 For i=1 to 2- Step 2 x=x+i5 Next iA) 21B) 22C) 23D) 24(5) 阅读下面的程序段： For i=1 to 3 For j=1 to i For k=j to 3 a=a+1 Next k Next j Next i执行上面的3重循环后，a的值为_。A) 3B) 9C) 14D) 21(6) 以下不是结构化程序设计的基本控制结构的是（ ）。A) 逆序结构 B) 顺序结构 C) 选择结构 D) 循环结构(7) 以下过程是（ ）事件。Prviate Sub Form_Load( )End SubA) 命令按钮的单击B) 命令按钮的装载C) 窗体的装载D) 窗体的单击二、填空题 (1) 执行下面的程序段后，S的值为_。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i(2) 以下程序段的输出结果是_。 num=0 While num=2 num=num+1 Print num Wend(3) 设有以下的循环： x=1 Do x=x+2 Print x Loop Until_ 运行程序后，要求执行3次循环体，请填空。(4) 以下循环的执行次数是_。 k=0 Do While k=10 k=k+1 Loop三、程序题1. 求200到400间，能被整除但不能被整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim count As IntegerDim x As Integercount = 0x = 200While x = 400 If x Mod 3 = 0 Or x Mod 7 0 Then count = count + 1 End If x = x + 1LoopPrint countEnd Sub2. 编程序求四位数的奇数中，所有各位数字之积（且不为0）是600的倍数的数之和。3. 编程求1到5000之间的能被5整除的前若干个偶数之和，当和大于500时,终止求和，并输出该和。4. 已知S1=1, S2=1+2, S3=1+2+3,., SN=1+2+3+.+N, 求S1,S2,S3,.,S100 中, 有多少个能被3和7整除？作业6 一、选择题(1) 用下面的语句所定义的数组的元素个数是_。 Dim A(-3 to 5) As IntegerA) 6B) 7C) 8D) 9(2) 用下面的语句所定义的数组的元素个数是_。 Dim arr(3 to5,-2 to 2)A) 20B) 12C) 15D) 24(3) 在窗体上添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Opion Base 1 Private Sub Command1_Click() Dim a a=Attry(1,2,3,4) j=1 For i=4 to 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是_。A) 4321B) 12C) 34D) 1234(4) 在窗体上添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 to 4 For j=1 to 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 to 4 For j=3 to 4 Print a(j,i); Next j Print Next i End Sub 运行上面的程序，单击命令按钮，其输出结果是_。A) 6 9 7 10B) 7 10 8 11C) 8 11 9 12D) 9 1210 13(5) 若要将窗体卸载，实现的方法为（ ）。A) UnloadB) LoadC) ShowD) Hide(6) 窗体的背景颜色由（ ）属性设置。A) BorderStyleB) BackColoC) ForeColorD) FillStyle二、填空题1、 控件数组的名字由_属性指定，而数组中的每个元素由_属性指定。2、 由Array函数建立的数组的名字必须是_类型。3、 在窗体上添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k=1 to 10 M(k)=12-k Next kx=6 Print M(2+M(x) End Sub运行程序后，单击命令按钮，输出结果是_。4、 在窗体上添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim a(5,5) For i=1 to 3 For j=1 to 4 a(i,j)=i*j Next j Next i For n=1 to 2 For M=1 to 3 Print a(M,n); Next M Next n End Sub程序运行后，单击命令按钮，输出结果是_。5、 确定一个窗体大小的属性是_和_。6、 改变一个窗体的标题内容，则应该设置_属性的值。三、编程题1、 2、设有如下两组数据：A：2，8，7，6，4，28，70，25B：79，27，32，41，57，66，78，80编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标元素相加，即2+79，8+27，25+80，并把相应的结果放入第3个数组中，最后输出第3 个数组的值。2、 编写程序，建立并输出一个1010的矩阵，该矩阵对角线元素为1，其余元素均为0。作业7 一、选择题1. 决定窗体标题栏显示内容的属性是：（ ）(A)text (B)name (C)Caption (D)BackStyle2. 当窗体最小化时为一个图标，设置这个图标属性是（ ）(A)MouseIcon (B)Icon (C)Picture (D)MousePointer3. 为了取消窗体的最大化功能，需要把它的一个属性设置为false，这个属性是（ ）(A)ControlBox (B)MinButton (C)Enabled (D)MaxButton4. 为了使命令按钮的Picture、DownPicture、DisablePicture属性生效，必须把它的Style的属性设置为（ ）(A)0 (B)1 (C)True (D)False5. 决定窗体有无控制菜单的属性是（ ）(A)ControlBox (B)MinButton (C)Enabled (D)MaxButton6. 为了使文本框同时具有水平和垂直滚动条，应先把Multiline属性设置为True，然后再把ScrollBars属性设置为（ ）(A)0 (B)1 (C)2 (D)37. 使文本框获得焦点的方法是（）(A)Change (B)GetFuocus (C)SetFocus (D)LostFocus8. 决定标签内显示内容的属性是（）(A)Text (B)Name (C)Alignment (D)Caption9. 删除列表框中指定项目所使用的方法是（）(A)Move (B)Remove (C)Clear (D)RemoveItem10. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是( )(A)List (B)ListItem (C)Text (D)ListCount11. 以下选项中，不属于单选按钮属性的是（ ）。(A) Enabled B: Caption C: Name D: Min12. 当滚动条中的滑块位置变化时，将触发其（ ）事件。(A) LostFocus B: SetFocus C: Change D: GetFocus二、填空题1. 假定有一个文本框Text1，为了使该文本框具有焦点，应执行的语句是_。2. 假定当前文件夹下有一个名为Pic1.gif的图形文件，要在运行期间，把该文件装入一个图片框Picture1，应执行的语句为：_。3. 窗体、图片框或图像框中的图形通过对象的_属性设置。4. 计时器事件之间的间隔通过_属性设置。5. 在3种不同类型的组合框中，只能选择不能输入的是_。6. 当焦点进入文本Text1框时，要自动选定文本框内开始的个字符，则需要代码和来实现。三、实训1. 编写程序，用文本框检查口令输入。在窗体上建立1个文本框、1个图片框和3个命令按钮，把文本框的PasswordChar属性设置为“*”，把3个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中，接着在文本框中输入口令，然后单击第2个按钮，检查输入的口令是否正确。如果正确，则在图片框中显示一个图形，否则显示一个信息框，要求重新输入，此时将调用第1个按钮的Click事件过程，再一次在文本框中输入口令，直到输入正确的口令为止。如果单击“结束”按钮，则结束程序。2. 编写程序，根据身高计算标准体重，计算公式如下：男标准体重(kg)身高100女标准体重(kg)身高105要求如下：(1) 单行按钮“男”的Value True(2) 单击“计算”按钮，根据输入的身高和性别计算相应性别的标准体重，并显示在文本框中；(3) 单击“结束”按钮，结束程序运行。(4) 以Myfrm2和Myprj2分别将窗体和工程保存在软件的根目录下。3编程实现下列界面功能，要求院系与专业之间能够联动，按“确定”后，MsgBox给出学生信息提示，按”取消”，则所有录入数据取消，并把焦点移动到学生姓名的文本框。作业8 一、选择题1. 假定在窗体上建立1个通用对话框，其名称为CommonDialog1，用下面的语句可以建立1个对话框：CommonDialog1.Action=2 ，与该语句等价的语句是（ ）(A)CommonDialog1.ShowOpen (B) CommonDialog1.ShowSave(C)CommonDialog1.ShowColor (D) CommonDialog1.ShowFont2. 假定在窗体上建立1个通用对话框，其名称为CommonDialog1，然后再添加1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommandDialog1.Flags=vbOFNHideReadOnlyCommandDialog1.Filter=”All Files(*.*)|*.*|Text Files(*.txt)|*.txt|Batch Files(*.bat)|*.bat”CommandDialog1.FiterIndex=2CommandDialog1.ShowOpenmsgBox.CommandDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）(A) All Files(*.*) (B) Text Files(*.txt)(C) Batch Files(*.bat) (D) 不确定3. 在通过对话框的（ ）属性中，可以设置所打开对话框的“默认路径”。(A) FileName B: InitDir C: Pattern 4. 打开通用对话框的“帮助”对话框的方法是（ ）(A) ShowOpen B: ShowSave C: ShowHelp D: ShowFont 二、填空题1. 设置通用对话框Action的属性为_，可打开“别存为”对话框。2. 设置通用对话框Action的属性为_，可打开“颜色”对话框。3. 设置通用对话框Action的方法为_，可打开“字体”对话框。作业9一、选择题1. 已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的背景颜色为（ ）色。Private Sub Command1_Click() Text1.Text =湖南省 & 计算机 + 等级考试 Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = TrueEnd Sub(A) 红 B: 绿 C: 白 D: 黄2. 在VB的图形属性中，（ ）表示绘图的前景颜色。(A) BackColor B: ForeColor C: FillColor D: PenColor二、填空题1. 利用Shape控件可以设置_种形状的图形。2. 利用Shape控件的Shape属性可以设置圆图形，取值为_。三、实训1. 利用直线控件，在窗体上画出6条粗细不同的水平实线和7条不同类型的垂直线，要求水平线具有不同的颜色，宽度逐渐增加。垂直线具有不同的颜色和线型。2. 利用画圆方法，在窗体上画出一个大圆，并在其中画出4个同心的椭圆。作业10一、选择题1. 下列不能打开菜单编辑器的操作是（）(A)按Ctrl+E 键 (B)单击工具栏中的“菜单编辑器”按钮(C) 执行工具栏菜单中的“菜单编辑器”命令 (D)按Shift+Alt+M键2. 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效，应使用的语句为（）(A) MenuItem.Enabled=False(B) MenuItem.Enabled=True(C) MenuItem.Visible=False (D) MenuItem. Visible =False3. VB中的菜单（ ）。(A) 有组合式菜单和列表式菜单 B: 有下拉式菜单和弹出式菜单C: 只有弹出式菜单 D: 只有下拉式菜单4. 要让菜单项不显示出来，应将（ ）属性值设置为False。(A) Visible B: Enabled C: Checked二、填空题 假定有一个菜单项，名为MenItem，为了在运行时使该菜单项不可用，应使用的正确语句是：_。 建立弹出式菜单必须用PopupMenu方法弹出显示。必须把菜单名（即主菜单项）的“可见”属性，设置为_。三、实训1设计下列菜单，并指定相应的快捷方式系统管理M校系班级管理C帮助H退出X管理员增加A管理员修改E管理员删除D管理员浏览B密码修改P学校信息增加学校信息修改学校信息删除学校信息浏览学校信息配置G帮助L关于A院系信息增加院系信息修改院系信息删除院系信息浏览班级信息增加班级信息修改班级信息删除班级信息浏览作业11 一、选择题1. 要在D盘的当前文件夹下建立一个名为“Stu.txt”的顺序文件，应使用的语句是（）(A) Open “stu.txt” for output as #2(B) Open “d:stu.txt” for Input as #2(C) Open “d:stu.txt” for output as #2 (D) Open “stu.txt” for Input as #22. 改变驱动器列表框的Drive属性值将激活（）事件(A) change(B) Drive(C) Dir (D) Path3. 在文件列表框中，用于设置或返回所选文件的路径和文件名的属性是（）(