Visual Basic案例教材课后答案.docx
- 文档编号:30058038
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:28
- 大小:29.56KB
Visual Basic案例教材课后答案.docx
《Visual Basic案例教材课后答案.docx》由会员分享,可在线阅读,更多相关《Visual Basic案例教材课后答案.docx(28页珍藏版)》请在冰豆网上搜索。
VisualBasic案例教材课后答案
习题1
一、选择题
1.下列不是VB文件的是()。
A.*.frm文件B.*.cls文件C.*.bas文件D.*.dbc文件
2.VisualBasic采用了()编程机制。
A.面向过程B.面向对象C.事件驱动D.可视化
3.VB集成开发环境中不包括()。
A.工具箱窗口B.工程资源管理器窗口C.属性窗口D.命令窗口
4.VB6.0集成开发环境的工作状态有()。
A.一种B.两种C.三种D.四种
5.在设计应用程序时,通过()窗口可以查看到应用程序工程中的所有组成部分。
A.代码B.窗体设计C.属性D.工程资源管理器
6.“一辆小客车在正常行进过程中被一辆大型货车撞坏了”,在这句话中,“客车”、“小”、“行进”和“被一辆大型货车撞坏了”分别对应VB中()。
A.对象、属性、事件、方法B.对象、属性、方法、事件
C.属性、对象、事件、方法D.属性、对象、方法、事件
7.在面向对象方法中,类的实例称为()。
A.集合B.抽象C.对象D.模板
8.对象的行为被称为(),它被事先编写好相应的过程或函数供用户直接调用。
A.属性B.方法C.事件D.消息
习题2
一、选择题
1.窗体文件的扩展名是()。
A..basB..clsC..frmD..res
2.用来标识对象名称的属性是()。
A.CaptionB.ValueC.TextD.Name
3.改变窗体的标题时,应当在属性窗口中改变()的属性。
A.CaptionB.NameC.TextD.Label
4.窗体能响应的事件是()。
A.ActiveFormB.DriveC.LoadD.Change
5.为了使文本框同时具有水平和垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为()。
A.0B.1C.2D.3
6.在为了使标签中的内容居中显示,应把Alignment属性设置为()。
A.0B.1C.2D.3
7.()不能作为VB的合法变量名。
A.XyB.a6C.ConstD.const1
8.要声明一个长度为256个字符的定长字符串变量str,下列语句正确的是()。
A.DimstrAsStringB.DimstrAsString(256)
C.DimstrAsString[256]D.DimstrAsString*256
9.下列日期型数据正确的是()。
A.@January10,1979@B.#January10,1997#
C."January10,1997"D.&January10,1997&
10.如果一个变量未经定义就直接使用,则该变量的类型为()。
A.IntegerB.ByteC.BooleanD.Variant
11.表达式45\67/8Mod9的值是()。
A.4B.5C.6D.7
12.设x=3,则表达式4 A.TrueB.FalseC.1D.0 习题3 一、选择题 1.若要退出For循环,可使用的语句为()。 A.ExitB.ExitDoC.TimeD.ExitFor 2.假定有以下程序段,则语句Printi*j的执行次数是()。 Fori=1to3 Forj=5to1Step–1 Printi*j Nextj,i A.15B.16C.17D.18 3.针对语句Ifi=1Thenj=1,下列说法正确的是()。 A.i=1和j=1均为赋值语句B.均为关系表达式 C.i=1为关系表达式,j=1为赋值语句D.i=1为赋值语句,j=1为关系表达式 4.执行以下语句后,a的值是()。 DimaAsInteger a=1 DoUntila=100 a=a+2 Loop A.99B.100C.溢出D.101 5.在过程中有语句ForI=N1ToN2StepN3,在该循环体内有下列4条语句,其中()会影响循环执行次数。 ①N1=N1+1②N2=N2+N3③I=I+N3④N3=2*N3 A.①②B.①②③C.③D.①②③④ 6.下列程序运行后的结果是()。 PrivatesubCommand_Click() Fori=1To4 X=4 Forj=1To3 X=3 Fork=1To2 X=X+6 Nextk,j,i PrintX EndSub A.7B.15C.157D.538 7.ForNext循环体执行1次是()。 A.初值大于终值,且步长大于0B.初值小于终值,且步长小于0 C.初值等于终值,且步长大于0D.初值小于终值,且步长小于终值与初值之差 8.下列程序段的执行结果为()。 a=75 Ifa>60ThenI=1 Ifa>70ThenI=2 Ifa>80ThenI=3 Ifa<90ThenI=4 Print"I=";I A.I=1B.I=2C.I=3D.I=4 9.有如下过程,程序运行后,依次输入数值30、20、10、1,输出结果为()。 PrivateSubCommand1_Click() b=10 DoUntilb=+1 a=InputBox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(b) a=a*b Loop Printa EndSub A.6000B.10C.200D.6000 10.执行下面的程序段后,x的值为()。 x=5 ForI=1To20Step2 x=x+I\5 NextI A.21B.22C.23D.24 二、填空题 1.分析下列语句,给出执行结果 PrivateSubForm_Click() ConstpiAsSingle=3.14 a%=7 IfaMod4>piThen Print"努力" Else Print"学习" EndIf EndSub 执行结果为___学习_______,其判决条件的值为___假False_______。 2.有如下程序,若你的工资为2988元,则该程序的输出结果为_你应该交纳597.6元税金_。 PrivateSubForm_Click() DimxAsCurrency,yAsCurrency x=Val(InputBox("输入你的工资数目","交税计算窗口",1000)) Ifx<=1000Then y=0 ElseIfx<=2000Then y=x*0.1 Print"你应该缴纳"&y&"元税金" ElseIfx<=3000Then y=x*0.2 Print"你应该缴纳"&y&"元税金" Else y=x*0.3 Print"你应该缴纳"&y&"元税金" EndIf EndSub 3.阅读程序,执行结果为__21______。 PrivateSubForm_Click() DimaAsInteger,bAsInteger a=1: b=0 Do b=b+a*a a=a+1 LoopWhilea<0 Printa,b EndSub 4.有如下程序,该程序的执行结果是____a ac_______。 PrivateSubForm_Click() DimiAsInteger,shAsString,chAsString ch="abc" Fori=1ToLen(ch) sh=sh&Mid(ch,i,1) i=i+1 Printsh Nexti EndSub 5.有如下程序,该程序的执行结果是18118__________。 PrivateSubForm_Click() DimiAsInteger,pAsInteger,nAsInteger p=3: n=20 Fori=1TonStepp p=p+2 n=n-3 i=i+2 Ifp>=10ThenExitFor Nexti Printi,p,n EndSub 6.执行下面程序,单击窗体后在窗体上显示结果是__abdb________。 PrivateSubForm_Click() Dimstr1AsString,str2AsString,iAsInteger str1="ab" Fori=Len(str1)To1Step-1 str1=str1&Chr(Asc(Mid(str1,i,1))+i) Nexti Printstr1 EndSub 7.下面程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入,输出结果。 将程序段补充完整。 Dimx,amax,aminAsSingle x=InputBox("Enterascore") amax=x amin=x DoWhile__x>=0________ Ifx>amaxThen amax=x EndIf If__x amin=x EndIf x=InputBox("enterascore") Loop Print"max=";amax,"min=";amin 8.下面程序的输出结果为______3 4____。 num=2 Whilenum<=3 num=num1 Printnum Wend 9.下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2、5和7整除,如果能则输出该数及平方值。 将程序段补充完整。 PrivateSubCommand1_Click() DimnumXAsInteger numX=Val(InputBox("请输入一个整数")) IfnumXmod2=0andnumXmod5=0andnumXmod7=0_Then Form1.Print_numX,numX*numX_______ EndIf EndSub 10.下面程序是计算Sn的值。 Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个a。 例如,若a=5,n=4,则Sn=5+55+555+5555。 在空白处填入适当的内容,将程序补充完整。 PrivateSubCommand1_Click() DimaAsInteger,nAsInteger,CoutAsInteger DimSnAsLong,TnAsLong Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值: ") n=inputbox(“请输入n的值”) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 _loopwhilecout<=n__________ Printa,n,Sn EndSub 习题4 一、选择题 1.下列数组声明语句中正确的是()。 A.Dima[2;3]AsIntegerB.Dima[2,3]AsInteger C.Dima(2;3)AsIntegerD.Dima(2,3)AsInteger 2.在使用变长数组时,如果要改变数组的大小而又不丢失数组中的数据,应使用关键字()。 A.PrivateB.PreserveC.PublicD.Static 3.控件数组中的名字是由下列哪个属性决定的()。 A.TextB.IndextC.名称D.TabIndex 4.下列关于控件数组的说法中正确的是()。 A.控件数组的每一个成员的Caption属性都不相同 B.控件数组的每一个成员都执行相同的事件过程 C.控件数组的每一个成员的Index属性都相同 D.对于已经建立的多个相同类型的控件不能组成控件数组 5.语句Dimarr(3To,2To6)AsInteger定义的数组元素有()。 A.45个B.40个C.11个D.54个 6.执行以下Command的Click事件过程后,在窗体上显示()。 OptionBase1 PrivateSubCommand1_Click() Dima a=Array("a","b","c","d","e","f","g") Printa (1);a(3);a(5) EndSub A.abcB.bdfC.aceD.出错 7.语句Dima&(1To20),b#(2,-1To1)定义两个数组,其类型分别为()。 A.一维单精度实型数组和二双精度型数组B.一维整型数组和二维单精度实型数组 C.一维单精度实型数组和二维整型数组D.一维长整型数组和二维双精度型数组 8.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程,程序运行后,单击命令按钮,在文本框中显示的值()。 PrivatSubCommand1_Click() Dimarray1(10,10)AsInteger Dimi,jAsInteger Fori=1To3 Forj=2To4 array1(i,j)=i+j Nextj Nexti Text1.Text=array1(2,3)+array1(3,4) EndSub A.12B.13C.14D.15 9.以下关于数组的说法,不正确的是()。 A.数组是一种特殊的数据类型B.一个数组中可存放多种类型的数组 C.数组是一组相同类型的变量的集合D.运行时可改变动态数组或静态数组的大小 10.以下关于数组的说法,错误的是()。 A.静态数组在声明时大小必须固定B.动态数组在声明时大小可以不确定 C.默认情况下数组的下界为0D.运行时可改变动态数组或静态数组的大小 11.假设定义了一个数组arr(1To5,1To10),则UBound(arr,2)的值是()。 A.1B.5C.10D.15 12.下面程序运行后,单击按钮在窗体上显示的是()。 OptionBase0 PrivateSubCommand1_Click() Dimx DimiAsInteger x=Array(1,3,5,7,9,11,13,15) Fori=1To3 Printx(5-i); Nexti EndSub A.531B.753C.975D.1197 13.下面程序运行后输出的结果是()。 OptionBase1 PrivateSubCommand1_Click() Dimx(10) DimiAsInteger Fori=1To10 x(i)=10-i+iMod2 Nexti Fori=10To1Step-2 Printx(i); Nexti EndSub A.02468B.97531 C.86420D.13579 14.在运行下面的程序时会显示出错信息,出错的原因是()。 PrivateSubCommand1_Click() x=5 Dima(x) Form=0To5 a(m)=m+1 Nexti EndSub A.第四行数组元素a(m)下标超过上界B.第二行数组定义语句不能用变量来定义下标 C.第四行不能用循环变量m进行运算D.程序无错,可能是计算机病毒 15.下面说法正确的是()。 A.ReDim语句只能更改数组下标上界B.ReDim语句只能更改数组下标下界 C.ReDim语句不能更改数组维数D.ReDim语句可以更改数组维数 16.下列程序运行后的输出结果是()。 PrivateSubCommand1_Click() Dima(10) DimiAsInteger Fori=1To10 a(i)=i^2 Nexti Printa(i-1) EndSub A.98B.99C.100D.101 二、填空题 1.VB的数组常见有三种类型: 定长数组、变长数组和__控件数组________。 2.在窗体上画一个命令按钮,其Name属性为Command1,然后编写如下代码: OptionBase1 PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4 a(i,j)=(i-1)*3+j Nextj Nexti Fori=3To4 Forj=3To4 Printa(j,i); Nextj Print Nexti EndSub 程序运行后,单击此命令按钮,其输出结果为__912 1013_______。 3.下面程序的输出结果是_94416_______。 Dima a=Array(1,2,3,4,5,6,7,8) i=0 Fork=100To90Step-2 s=a(i)^2 Ifa(i)>3ThenExitFor i=i+1 Nextk Printk;a(i);s 4.下面程序的输出结果为___-56_______。 Constn=-5: ConstM=6 Dima(nToM) Fori=LBound(a,1)ToUBound(a,1) a(i)=i Nexti Printa(LBound(a,1);a(UBound(a,1)) 5.下面程序段的执行结果为__________。 DimA(10),B(5) Fori=1To10 A(i)=i Nexti Forj=1To5 B(j)=j*20 Nextj A(5)=B (2) Print"A(5)=";A(5) 习题5 一、选择题 1.在窗体上画一个名称为Command1的命令按钮和两个名称为Text1、Text2的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Text1.Text SelectCasen Case1To20 x=10 Case2,4,6 x=20 CaseIs<10 x=30 Case10 x=40 EndSelect Text2.Text=x EndSub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是()。 A.10B.20C.30D.40 2.以下关于变量作用域的叙述中,正确的是()。 A.窗体中凡被声明为Private的变量只能在某个指定的过程中使用 B.全局变量必须在标准模块中声明 C.模块级变量只能用Private关键字声明 D.Static类型变量的作用域是它所在的窗体或模块文件 3.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程,程序运行后,如果单击命令按钮,则文本框中显示的是()。 PrivateSubCommand1_Click() Text1.Text="Visual" Me.Text1="Basic" Text1="Program" EndSub A.VisualB.BasicC.ProgramD.出错 4.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PubilcXAsInteger,在Model1中有语句PubilcYAsInteger,则以下叙述中正确的是()。 A.变量X、Y的作用域相同B.Y的作用域是Model1 C.在Form1中可以直接使用XD.在Form2中可以直接使用X和Y 5.使用过程是为了()。 A.使程序模块化B.使程序易于阅读C.提高程序运行速度D.便于系统的编译 6.有一子程序定义为PrivateSubtt(x,y),正确的调用格式是()。 A.Calltt1,2B.Callsub1,2C.tt1,2D.Sub1,2 7.根据变量的作用域,可以将变量分为3类,分别为()。 A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量 C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量 8.在窗体上画一个命令按钮,命令按钮代码如下: PrivateSubCommand4_Click() DimaAsInteger,bAsInteger a=1 b=2 PrintN(a,b) EndSub FunctionN(xAsInteger,yAsInteger)AsInteg
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic案例教材课后答案 Basic 案例 教材 课后 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)