VB作业答案
- 格式:doc
- 大小:42.50 KB
- 文档页数:5
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章(P39)选择题答案:填空题答案:1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意:返回的均是字符型。
第四章课后答案:P79一、选择题答案为:$$41.50010二、填空题三、程序设计题(提示)1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h (兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数,再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式:. a + b + cn 二 ---------2 S 三角形面积=Jh (h - - b )(h - c )P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第]题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件:假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
章节作业--第1次作业:10题1、, Visual Basic的三种工作模式是。
A) 编辑 B) 编译 C) 设计、运行、中断 D) 连接正确答案是: C 你选择的答案是:C √2、, 在Visual Basic中,以下什么方法可以改变窗体的大小。
A) 设计时在窗体布局窗口中进行调整。
B) 运行时设置窗体的Left属性。
C) 运行时调用窗体的Move方法。
D) 设计时在窗体布局窗口中点鼠标右键,在快捷菜单中进行设置。
正确答案是: C 你选择的答案是:C √3、, 如果要使窗体的最小化按钮变成灰色(不起作用),需设置窗体的()属性。
A) Caption B) Icon C) MaxButton D) MinButton正确答案是: D 你选择的答案是:D √4、, 要使窗体上的所有控件具有相同的字体格式,应首先在属性窗口中对()的Font属性进行设置,然后再添加各控件。
A) 所有控件 B) 窗体 C) 标签控件 D) Fontname正确答案是: B 你选择的答案是:B √5、, 在属性窗口设置命令按钮的DownPicture属性,指定按下时显示的图形文件,但在运行时按下命令按钮却没有效果,原因是()。
A) 命令按钮的Default属性为True B) 命令按钮的Style属性为2-PictureC) 命令按钮的Style属性为0-Standard D) 命令按钮的Style属性为1-Graphics正确答案是: C 你选择的答案是:C √6、, 要在窗体上显示图片,需设置窗体的()属性。
A) Caption B) IconC) Picture D) ControlBo正确答案是: C 你选择的答案是:C √7、, “重复”命令是对()命令的反操作。
A) 撤消 B) 查找C) 复制 D) 剪切正确答案是: A 你选择的答案是:A √8、, 运行时,单击窗体(Form1)将窗体的前景色设置为红色的事件过程是()。
1. 选择题(1) 假定窗体的名称(Name属性)为Form1,则把窗体的标题设置为“VB Test”的语句为(B)。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是(D)。
A.双击窗体上的某个控件B.双击窗体C.按F7键D.单击窗体或控件(3) 为了保存一个Visual Basic应用程序,应当(D)。
A.只保存窗体文件(.frm)B.分别保存工程文件和标准模块文件(.bas)C.只保存工程文件(.vbp)D.分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序,应当(C)。
A.只装入窗体文件(.frm)B.分别装入工程文件和标准模块文件(.bas)C.只装入工程文件(.vbp).D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为(A)。
A.1 B.2 C.3 D.42. 填空题(1) 在用Visual Basic开发应用程序时,通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置,不能在运行期间设置。
(3) 代码窗口分为左右两栏,左边一栏称为对象,右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查,必须执行菜单中的命令,打开对话框,然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中,窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存,只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成,即、和。
(8) 在窗体上画两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后,单击命令按钮,两个文本框中显示的内容分别为ABCD 和VB Programming 。
vb测试题及答案一、单项选择题(每题2分,共10分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 下列哪个函数用于计算两个数的和?A. SumB. AvgC. CountD. Max答案:A3. 在VB中,以下哪个关键字用于声明一个变量?A. DimB. ConstC. FunctionD. Sub答案:A4. 在VB中,以下哪个选项是正确的循环结构?A. ForB. WhileC. DoD. All of the above答案:D5. 在VB中,以下哪个选项是正确的条件语句?A. IfB. SelectC. CaseD. All of the above答案:D二、填空题(每题2分,共10分)1. 在VB中,声明一个整型变量并赋值为10,可以使用语句:Dim myVar As Integer; myVar = _______。
答案:102. VB中,用于输出信息到立即窗口的函数是 _______。
答案:Debug.Print3. 在VB中,要创建一个名为“myForm”的新窗体,可以使用语句:Form1. _______ "myForm"。
答案:Load4. VB中,要结束当前程序的执行,可以使用语句:_______。
答案:End5. 在VB中,要声明一个数组,可以使用语句:Dim myArray(10) As _______。
答案:Integer三、简答题(每题5分,共20分)1. 请简述VB中的事件驱动编程是什么?答案:事件驱动编程是一种编程范式,程序的执行流程由事件(如用户操作、系统消息等)触发,而不是由程序代码顺序执行。
2. 描述VB中如何使用If...Then...Else语句进行条件判断。
答案:在VB中,可以使用If...Then...Else语句进行条件判断,如果条件为真,则执行Then后面的代码块,如果条件为假,则执行Else 后面的代码块。
一、单选题1. 一个完整的计算机系统应包括( B )。
(A)主机、键盘、显示器(B) 硬件系统和软件系统(C) 主机和其他外部设备 (D) 系统软件和应用软件2.我们通常说的“U盘”属于计算机部件中的( C )。
(A) 输出设备 (B) 输入设备(C) 存储设备 (D) 打印设备3.在下列存储器中,存储速度最快的是( D )。
(A)软盘 (B)硬盘 (C)光盘(D)内存4. 计算机中采用二进制,是因为( D )。
(A)可降低硬件成本(B)两个状态的系统具有稳定性(C)二进制的运算法则简单(D)上述三个原因5. 是Internet中的( B )。
(A) 硬件编号(B) 域名 (C) 密码 (D) 软件编号6. 下列设备中,(D )不能作为计算机的输出设备(A)打印机(B)显示器(C)绘图仪(D)键盘[标准的输入设备]7. 计算机的主机由(B )部件组成[主机箱内硬件的总称](A)CPU、外存储器、外部设备(B)主机板,CPU和内存储器(C)CPU和存储器系统(D)主机箱、键盘、显示器8. 在Word中将文档中一部分文本内容复制到别处,首先要进行的操作是( C )(A)粘贴(B)复制(C)选择(D)剪切9. Windows系统中,回收站的功能是(B )(A)浏览上网的计算机(B)存放删除文件(C)设置计算机参数(D)收发信件10. 关于电子邮件的叙述正确的是(C )(A)电子邮件只能传输文本(B)电子邮件只能传输文本和图片(C)电子邮件可以传输文本、图片、视像、程序等(D)电子邮件不能传输图片11. 下列关于电子邮件的说法,正确的是(C )(A)收件人必须有E_mail账号,发件人可以没有E_mail账号(B)发件人必须有E_mail账号,收件人可以没有E_mail账号(C)发件人和收件人均必须有E_mail账号(D)发件人必须知道收件人的邮政编码12.下列有关Word的叙述,正确的是(B )(A)Word是一个应用软件,它只能对文字进行编辑处理(B)Word是在Windows环境下运行的应用软件(C)文档的缺省扩展名是.wrd(D)在Word中,一次只能打开一个文档13. 计算机当前的应用领域广泛,但据统计其应用最广泛的领域是(A )(A)数据处理(B)科学计算(C)辅助设计(D)过程控制14. 在计算机的内部所处理的任何信息均是采用(B )。
vb练习题及答案VB练习题及答案一、选择题1. 在VB中,以下哪个是正确的数据类型?A. IntegerB. IntC. Both A and BD. None of the above答案:C2. VB中,哪个关键字用于声明变量?A. DimB. DeclareC. DefineD. Set答案:A3. 在VB中,以下哪个是正确的循环结构?A. ForB. WhileC. RepeatD. All of the above答案:D4. VB中,以下哪个是正确的条件语句?A. IfB. SwitchC. CaseD. A and B only答案:A5. 在VB中,以下哪个是正确的数组声明方式?A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案:A二、填空题1. 在VB中,使用________关键字可以定义一个类。
答案:Class2. VB中,使用________方法可以为控件添加事件处理程序。
答案:AddHandler3. 在VB中,________方法用于结束程序的执行。
答案:End4. VB中,________属性用于获取或设置一个控件的文本。
答案:Text5. 在VB中,________方法用于打开一个文件。
答案:Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案:在VB中,事件是用户或程序触发的特定动作,如按钮点击或键盘敲击。
事件处理程序是一个过程,当特定的事件发生时,会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案:在VB中,For循环用于重复执行一段代码直到满足特定条件。
基本语法是:```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承,并给出一个简单的示例。
一、单选共300题(共计300分)滚动条的( )属性用于指定用户单击滚动条的滚动箭头时,Value属性值的改变量. A:ValueB:LargeChangeC:ChangeD:SmallChange答案:D运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文本框的()事件.A:CLICKB:DBLCLICKC:GOTFOCUSD:CHANGE答案:D要获得用户在组合框输入的内容,应利用的组合框的属性是( ).A:ListB:ListIndexC:SelectedD:Text答案:D输入对话框InputBox的返回值的类型是 .A:长整数B:字符串C:浮点数D:整数案:B要使得标签能自动扩充以满足字体大小则可对其()属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag答案:C假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:BOOLVAR=3<4答案:D运算符"\"两边的操作数若类型不同,则先再运算.A:四舍五入为Byte类型B:取整为Byte类型C:四舍五入为整型D:取整为Integer类型答案:CVisual Basic程序设计时常用的Print、CLS属于( )A:属性B:对象C:方法D:事件答案:C当文本框的属性设置为True时,在运行时文本框不能编辑. A:VisibleB:EnabledC:LockedD:MultiLine答案:C要使标签所在处透明显示背景,应把其Backstyle属性设置为(). A:0B:1C:2D:3答案:AVisual Basic中,实现参数的传值方式的关键字是A:DimB:ByRefC:ReDim语句Print "5*5" 的显示结果是 .A:25B:"5*5"C:出现错误提示D:5*5答案:D若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中设置( ) A:Text属性值为*B:Caption属性值为*C:password属性值为空D:Passwordchar属性值为*答案:D在下列关于通用对话框的叙述中,错误的是( ).A:当Action属性值为3时,显示字体对话框B:CommonDialogl.ShowFont显示字体对话框C:在"打开"或"另存为"对话框中,FileName属性返回所选的文件名及其路径D:在"打开"或"另存为"对话框中,用户选择的文件名可以经FileTitle属性返回答案:AList1.Clear中的Clear是( ).A:属性D:对象答案:C以下不具有Picture属性对象是().A:窗体B:图片框C:图像框D:文本框答案:D设有如下数组定义语句: Dim s(3) as integer 则下列给数组元素赋值的错误语句是().A:S(2)=5*5-3*3B:s(3)=100C:S(3)=val(inputbox( "输入整数"))D:s(3)=array(0,1,2,3)答案:D简单组合框的style值为().A:0B:1C:2D:3答案:B以下()程序段可以实施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=Y答案:C表达式(7\3+1)*(18\5-1)的值是().A:8.76B:7.8C:6D:6.67答案:C下列对象中没有焦点属性的是().A:命令按钮控件B:窗口控件C:文本框控件D:单选框控件答案:B下列关于Select Case的叙述中,错误的是 .A:Case "abc","ABC" 表示判断Is是否和"abc"、"ABC"两个字符串中的一个相同B:Case "X" 表示判断Is是否为大写字母XC:Case -7,0,100 表示判断Is是否等于字符串"-7,0,100"D:Case 10 To 100 表示判断Is是否介于10与100之间答案:C设a=6,则执行x=IIf(a>5,-1,0)后,x的值为().A:5B:6C:0D:-1答案:D有一如下过程:Sub fact(n As Integer, result As Long)result = 1For i = 1 To nresult = result * iNext iEnd Sub在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click()Dim res As Longfact 5, resPrint resEnd Sub程序运行后,单击命令按钮,则输出的结果是A:120B:15C:121D:100答案:AVisualBasic的编程机制是().A:可视化B:面向对象C:面向图形D:事件驱动答案:D在窗体上添加一个命令按钮,并写如下代码Private Sub Command1_Click()stra = "AbcD":strb = "hIJK"strc = LCase(stra)strd = UCase(strb)Print strc; strdEnd Sub运行后,单击命令按钮,显示的结果是 .A:abcdHIJKB:aBCdHijKC:ABCDHIJKD:AbcDhIJK答案:A声明符号常量应该用关键字().A:StaticB:ConstC:PrivateD:V26/ariant答案:B在VB中过()属性来设置字体颜色.A:FontColorB:ForeColorC:BackColorD:ShowColor答案:B要清除窗体A上已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句( ). A:P1.Print""B:P1.picture=LoadPicture("")C:A.P1.ClsD:P1.piture""答案:CSub过程与Function过程最根本的区别是_______.A:Sub过程可以直接使用过程名调用,而Function过程不可以B:Function过程可以有参数,而Sub过程不可以C:两种过程参数传递方式不同D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值答案:D为达到把a、b中的值交换后输出的目的,编程如下:Private Sub Command1_Click()a% = 10: b% = 20Call swap(a, b)Print a, bEnd SubPrivate Sub swap(ByVal a As Integer, ByVal b As Integer)c = a: a = b: b = cEnd Sub在运行时发现输出结果错了,需要修改.下面列出的错误原因和修改方案中正确的是_________. A:输出语句错误,应改为:"Print "a", "b""B:调用swap过程的语句错误,应改为"Call swap a,b"C:过程的形式参数有错,应改为:"swap(ByRef a As Integer,ByRef b As Integer)"D:swap中3条赋值语句的顺序是错误的,应改为"a=b:b=c:c=a"答案:C在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click()Dim ss = Array(9, 8, 7, 6, 5, 4, 3, 2, 1, 0)For i = 4 To 1 Step -2Print s(10 - i * 2);Next i程序运行后,单击命令按钮,则输出的结果是().A:8 4B:4 8C:8 6 4 2D:7 3答案:A删除字符串前导和尾随空格的函数是().A:Ltrim()B:Rtrim( )C:Trim()D:Lcase答案:C要把一个命令按钮设置成无效,应设置其哪一属性值(). A:VisibleB:EnabledC:DefaultD:Cancel答案:B下面语句中用来定义窗体或标准模块数组的是().A:DimB:ReDimC:Static答案:A下列关于Select Case之测试表达式的叙述中,错误的是 . A:可以是浮点类型B:只能是变量名C:可以是字符型D:可以是整型答案:B下列选项中,与List1.Text等价的表达式是( ).A:List1.List(List1.ListIndex-1)B:List1.List(List1.ListIndex+1)C:List1.List(List1.ListCount-1)D:List1.List(List1.ListIndex)答案:D语句listl.removeitem 1 将删除list.listindext等于()的项目.. A:0B:2C:3D:1答案:D执行X=7.835 :y=Int(x*100+0.5)/100 后结果是 .A:7.84B:7.8C:7.83D:7.835答案:AVisual Basic的过程有三种,它们是A:属性过程、通用过程和函数过程B:事件过程、通用过程和函数过程C:事件过程、函数过程和子程序过程D:通用过程、子程序过程和函数过程答案:C组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案:A使用Function语句定义一个函数过程,其返回值的类型为_______. A:只能是符号常量B:是除数组之外的简单数据类型C:可在调用时由运行过程决定D:由函数定义时As子句声明答案:D列表框控件中的列表内容是通过()属性设置的.A:NameB:CaptionC:ListD:Text答案:C工具栏中的"启动"按钮的作用是().A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口答案:A在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label"B:"Label1"、"Visual Basic"C:"Label1"、"Label1"D:"Caption"、"Label"答案:C要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopenB:KeyPressC:loadD:click答案:C图像框(Image)的何项属性设置为true时,可使图形自动调整大小,填满整个图像框().A:WidthB:PictureC:NameD:Stretch答案:D每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件B:窗体文件C:程序模块文件D:类模块文件答案:B表达式X+1>X是().A:算术表达式B:非法表达式C:字符表达式D:关系表达式要在垂直位置上移动控件,应利用控件的()属性.A:LeftB:WidthC:TopD:Height答案:C任何控件都具有的属性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案:C下列选项中,不属于列表框方法的是( ).A:AddItemB:DelItemC:ClearD:RemoveItem答案:B若i的初值为8,则下列循环语句的循环次数为次. Do While i<=17i=i+2A:4次B:3次C:6次D:5次答案:D下列不能用commondialog 控件调用的对话框是(). A:open/saveB:helpC:fontD:search答案:D一个菜单项是不是一个分隔条,由()属性决定.A:Name(名称)B:CaptionC:EnabledD:Visible答案:B选中复选框控件时,value属性的值,可以是().A:TrueB:falseC:0D:1Interger类型的变量可存的的最大整数是().A:250B:256C:32768D:32767答案:D获取字符串a 最右边5个字符的函数是 . A:RightStr(a,5)B:RightTrin(a,5)C:Last(a,5)D:Right(a,5)答案:DVB认为下面()组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案:A下列控件中,没有Caption属性的是( ).A:框架B:复选框D:单选按钮答案:C要在图片框P1中打印字符串"HowAreYou",应使用语句(). A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案:C如果要给字体加删除线,可以选择下列那种属性().A:FontNameB:FontSizeC:FontStrikethruD:FontUnderLine答案:C下面哪些控件不会影响到界面设计效果().A:LabelB:TextC:CommonDialogD:Frame答案:C要改变控件的宽度,应修改该控件的()属性.A:TopB:WidthC:LeftD:Height答案:B变量未赋值时,数值型变量的值为().A:0B:空C:1D:无任何值答案:A设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(). A:Combo1.RemoveItem TextB:Combo1.RemoveItem 2C:Combo1.RemoveItem 3D:Combo1.RemoveItem Combo1.Listcount答案:B用ReDim语句定义的数组是().A:多维数组B:永久数组C:临时数组D:静态数组答案:C只能用来显示字符信息的控件是( ).A:文本框B:标签C:图片框D:图像框答案:B以下4个选项中,属性窗口未包含的是 .A:属性列表B:工具箱C:对象列表D:信息栏答案:B窗体的Caption属性的作用是().A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体答案:B启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1B:窗体1C:工程D:窗体答案:A若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性. A:BACKCOLORB:BORDERSTYLEC:FORECOLORD:BACKSTYLE答案:D以下不允许用户在程序运行时输入文字的控件是().A:标签框B:文本框C:下拉式组合框D:简单组合框答案:A引用列表框的最后一项应使用().A:List1.List(List1.ListCount-1)B:List1.List(List1.ListCount)C:List1.List(ListCount)D:List1.List(ListCount-1)答案:AInt( Rnd * 100 ) 表示的是范围内的整数.A:[1,100]B:[1,99]C:[0,99]D:[0,100]答案:C表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(). A:4^5B:3*4C:x+1D:SIN答案:C确定一个控件在窗体上的位置的属性是( ).A:Width和HeightB:Width或HeightC:Top和LeftD:Top或Left答案:C双击窗体的任何地方,可以打开的窗口是().A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对答案:A下面()控件不具有Caption属性.A:标签框B:单选钮C:命令按钮D:文本框答案:D如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A:VisibleB:EnabledC:DisabledPictureD:Default答案:A如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(). A:=B:*C:&D:-答案:D下列()是窗体的扩展名.A:frmB:basC:clsD:dll答案:A定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分B:秒C:毫秒D:微秒答案:C在设计应用程序时,通过____窗口可以查看到应用程序工程中的所有组成部分. A:代码窗口B:窗体设计窗口C:属性窗口D:工程资源管理器窗口答案:DCls方法可以清除窗体或图片框中的()内容.A:在设计阶段使用Picture设置的背景位图B:在设计阶段放置的控件C:在运行阶段产生的图形和文字D:以上全部内容答案:C为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为().A:5B:500C:300D:5000答案:DMSGBOX函数中有4个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的答案:C与传统的程序设计语言相比,Visual Basic 最突出的特点是 . A:子过程和函数功能的设计B:事件驱动运行机制C:调试技术D:结构化程序设计答案:B单击滚动条的滚动箭头时,产生的事件是().A:ClickB:ScrollC:ChangeD:Move命令钮标题热字的下划线,可通过( )符号来设置.A:\<B:&C:_D:\>答案:B下列语句中,属于合法的Visual basic 语句是().A:Option Base 4B:Option Base 2C:Option Base 1D:Option Base 3答案:C在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). A:ListB:IndexC:ListIndexD:TabIndex答案:C用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:Checked答案:C下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案:CClear方法适用于() 控件.A:图片框B:窗体C:复选框D:组合框答案:D欲使某命令按钮失效,应修改命令按钮的()属性.A:VisibleB:CaptionC:EnableD:Enabled答案:D将通用对话框类型设置为"另存为"对话框,应修改( )属性.C:ActionD:Font答案:C若要把"XXX"添加到列表框List1中的第三项,则可执行语句( ). A:List1.AddItem "XXX", 3B:List1.AddItem 3,"XXX"C:List1.AddItem "XXX", 2D:List1.AddItem 2,"XXX"答案:C下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1答案:A下面()对象在运行时一定不可见.A:LineB:TimerC:TextD:Option答案:B()对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:Frame答案:C为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是( ).A:ValueB:DefaultC:CancelD:Enabled答案:C下列选项中不属于事件的是 .A:ShowB:KeyUpC:LoadD:Dblclick答案:A能够改变窗体边框线类型的属性是().A:FontStyleB:BorderStyleC:BackStyleD:Border答案:B标签框文本的对齐方式由( )属性来决定.A:AlignB:AlignmentC:AutosizeD:BackStyle答案:B在参数传递过程中,使用关键字_______来修饰参数,可以使之按值传递. A:ByValB:ByRefC:ValueD:reference答案:A要想返回文本框中输入的内容则可利用其()属性进行编程.A:captionB:textC:nameD:righttoleft答案:B当一个工程含有多个窗体时,其中的启动窗体是( ).A:在"工程属性"对话框中指定的窗体B:第一个添加的窗体C:启动 Visual Basic 时建立的窗体D:最后一个添加的窗体答案:A如下语句不能定义一个10×10的数组的是().A:Option Base 1:Dim s(10, 10)B:Dim s(2 To 11, -4 To 5)C:Dim s(10, 10) As IntegerD:Dim s(9, 9)答案:C若要设置文本框最大可接收的字符数,可通过( )属性来实现. A:MultiLineB:LengthC:MaxD:MaxLength答案:D数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是().A:60B:36C:30D:72答案:D以下有关对象属性的说法正确的是( ).A:对象所有的属性都罗列在属性窗口列表中B:不同对象不可能有同名属性C:不同对象的同名属性的取值一定相同D:对象的某些属性既可以在属性窗口中设置,也可以通过程序代码设置或改变答案:Dvb 中的坐标系最小刻度为().A:缇B:象素C:厘米D:一个标准字符宽度答案:A如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案:B组合框控件是将()组合成一个控件.A:列表框控件和文本框控件B:标签控件和列表框控件C:标签控件和文本框控件D:复选框控件和选项按钮控件答案:A计时器的interval属性为0时,表示().A:计时器失效B:相隔0秒C:相隔0 毫秒D:计时器的enable属性为false答案:A清除列表框的所有选项应选择下列哪种方法().A:ClearB:ClsC:ClearItemD:RemoveItem答案:A以下叙述错误的是( ).A:下拉式菜单和弹出式菜单都用菜单编辑器建立B:如果把一个菜单项的Enabled属性设置为False,则菜单项不可见. C:内缩符号由4个点组成,它表明菜单项所在的层次.D:除分隔线外,所有菜单项都能接收Click事件.答案:B在Visual Basic代码中,将多个语句合并在一行上的并行符是() A:撇号(')B:冒号(:)C:感叹号(!)D:问号(?)答案:B工程文件的扩展名为 .A:.basB:.vbpC:.frxD:.frm答案:B将Visual Basic编制的程序保存在磁盘上,至少会产生何种文件 .A:.doc与.txtB:.vbp与.frmC:.com与.exeD:.bat与.frm答案:B为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:ValueB:DefaultC:CancelD:Enabled答案:B决定控件上文字的字体、字形、大小及效果的属性是().A:TEXTB:CAPTIONC:NAMED:FONT答案:D一、判断共204题在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer,c as integer相同.答案:N有的对象属性既可在属性窗口中设定又可在程序代码中设定.答案:Y所有的控件在程序运行以后都是可见的.答案:NSingle 和Double型用于保存浮点数,在VB中定义单精度浮点8位,双浮点16位.答案:N时钟控件的属性Interval值为0时,表示屏蔽计时器.答案:Y有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案:Y在过程中用Dim和Static定义的变量都是局部变量答案:Y对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).答案:Y事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义.答案:Y图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作.答案:N声明形参处缺省传递方式声明,则为按值传递(ByVal).答案:NVariant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.答案:NVB若同一个工程有许多窗体,可以指定任一窗体为启始窗体.答案:Y定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案:Y过程中的静态变量是局部变量,当过程再次被执行时,它的值是上一次过程调用后的值.答案:Y在VB中,函数 Fix(-3.6) 的返回值是–4.答案:N可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案:Y如果一个菜单项的Visible属性为False,则它的子菜单也不会显示.答案:YVB规定窗体文件的扩展名是 .vbp.答案:N当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.答案:Y在打开一个Visual Basic工程进行修改后,要另存为一个版本,只需单击"工程另存为…"就行,因为系统将同时保存其他文件.答案:Y利用Private Const 声明的符号常量,在代码中不可以再赋值.答案:Y如果在过程调用时使用按地址传递参数(byref),则在被调过程中不可以改变实参的值.答案:N用通用对话框控件显示"字体"对话框前,必须先设置Flags属性,否则将发生"不存在字体"的错误.答案:Y用Cls方法能清除窗体或图片框图中用Picture属性设置的图形.答案:NDo/Loop While结构中的循环体,至少被执行一次.答案:Y要使定时器控件起作用,其属性Interval不可以设置为0.答案:Y对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在Drive1中的Change事件中使用如下命令:Dir1.Path=Drive1.Drive.答案:Y事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.答案:NFor/Next语句中,循环控制变量只能是整型变量.答案:N关系表达式是用来比较两个数据的大小关系的,结果为逻辑值.答案:Y面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.答案:YVisual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需使用自定义坐标系统.答案:Y在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.答案:Y设置框架时,可先在窗体上画好框架,再往框架内添置控件;也可以先设计控件,再建立框架,然后将已有控件拖动到框架中.答案:N在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案:N由Visual Basic语言编写的应用程序有解释和编译两种执行方式.答案:Y在MsgBox 函数中 prompt 参数是必须的.答案:Y文件按照数据编码方式可以分为ASCII码文件和二进制文件.答案:Y在表达式中,运算符两端的数据类型要求一致.答案:Y计时器(Timer)控件的Interval属性的单位是毫秒,即若将此属性值设为10,则每0.01秒产生一次Timer事件.答案:Y数组控件形成之后,对于每一个控件的名称是相同的.答案:Y若要新建一个磁盘上的顺序文件,可用output,append方式打开文件.答案:Y清除combo1对象的内容是combo1.clear.答案:YDo/Loop Until结构的循环,是"先判断、后执行(循环体)"的循环结构.答案:N在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.答案:Y命令 Picture1.Circle(500,800),800 能够在图片框Picture 1 中画出的图形是圆心在 (500,800)的一个圆.答案:Y用DIM定义数值变量时,该数值变量自动赋初值为0.答案:Y在面向对象的程序设计中,对象是指可以访问的实体.答案:Y通常访问数组内容需要使用循环结构.答案:Y在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB"格式"菜单中的命令.答案:Y用关键字Public声明的过程可以被其他模块调用.答案:YVB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.答案:N用dim语句声明的局部变量能保存上一次过程调用后的值.答案:N"菜单编辑器"中至少要填"名称"和"标题"这两个框,才能真确完成菜单栏的设计.答案:Y在命令按钮的Click事件过程中,exit与end等效.答案:N在逻辑运算符Not、Or、And中,运算优先级由高到低依次为Not、And、Or.答案:YVisual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言.答案:Y设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是 False.答案:Y"事件过程"是用来完成事件发生后所要执行的程序代码.答案:Y某一过程中的静态变量在过程结束后,静态变量及其值可以在其它过程中使用.答案:N如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案:YActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.答案:Y要设置一个图片按钮,除了设置按钮的Picture属性外,还应该将按钮的Style属性设置为1.答案:Y使用单选钮控件数组时,它们响应同一个Click事件,由Index参数值来区分不同的按钮.答案:Y组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择. 答案:Y图象框中的Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件.答案:Y函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式.答案:N在单行If语句中,关键字End If是必不可少的.答案:N创建数组控件的方法之一是选定控件后通过复制、粘贴的方式.答案:YFunction函数有参数传递,并且一定有返回值.答案:Y计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量.答案:Y单击"启动"菜单项将窗体装入内存时,一定触发窗体的load事件.答案:YFor/Next循环正常(未执行Exit For)结束后,控制变量的当前值等于终值.答案:N多文档界面是指在一个父窗口下面可以同时打开多个子窗口.子窗口归属于父窗口,当父窗口关闭时,所有子窗口全部关闭.答案:YListl.clear是清除Listl的全部列表项,所以Clear是对象的方法.答案:Y在标准模块的声明部分中用Public声明的变量的有效范围是其所在的工程.答案:Y函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值.答案:Y将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.答案:YVisual_basic是合法的变量名.答案:Y填空共141题文本框中所显示的内容是它的【1】属性的值.答案 Text如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案:public mystring as string*15如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案:-2新建工程时系统会自动将窗体标题设置为【1】.答案:Form1如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】. 答案:退出(&X)拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案:Change语句Print Not 10>15 And 8<5+2的输出结果为【1】.答案:FALSE对象具有属性和【1】.答案:方法当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案:Text把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案:False要使同一类型控件组成一个控件数组,必须要求【1】.答案:Name 相同=或=名称相同滚动条控件有水平滚动条和【1】滚动条.答案:垂直Val("123.55ab456")的值是多少【1】.答案:123.55VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案:垂直滚动条=或=滚动条把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案:True运行时,若需要命令按钮为灰色,即不被击活,在设计时可以通过【1】属性来实现.答案:enabled列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案:项目列表=或==列表Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案:Picture1求x与y之积除以z的余数的VB表达式为【1】.答案 x*y Mod z已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】. 答案:DE文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案:随机文件=或=随机显示弹出式菜单的方法是【1】.答案:PopupMenu要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案:DefaultVB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案:连接设置计时器控件只能触发【1】事件.答案:timerVisualBasic6.0用于开发【1】环境下的应用程序.答案:WINDOWS一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案:窗体VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案:& 或+答案2 & 或 +。
第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比,Visual Basic语言最突出的特点是()。
A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术参考答案:C您的答案:C2、Visual Basic集成环境的主窗口中不包括()。
A.标题栏B.菜单栏C.状态栏D.工具栏参考答案:C您的答案:C3、Visual Basic窗体设计器的主要功能是()。
A.建立用户界面B.编写源程序代码C.画图D.显示文字参考答案:A您的答案:A4、下列叙述中正确的是()。
A.只有窗体才是VB中的对象B.只有控件才是VB中的对象C.控件和窗体都是VB中的对象D.控件和窗体都不是VB中的对象参考答案:C您的答案:C5、为了把窗体上的某个控件变为活动的,应执行的操作是()。
A.单击窗体的边框B.单击该控件的内部C.双击该控件D.双击窗体参考答案:B您的答案:B6、确定一个控件在窗体上的位置的属性是()。
A.Width或HeightB.Width和HeightC.Top或LeftD.Top和Left参考答案:D您的答案:D7、在窗体上面画一个名称为Text1的文本框,然后编写如下的事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中,则能够触发KeyPress事件的操作是()。
A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键参考答案:D您的答案:D8、为了装入一个VB应用程序,应当()。
A.只装入窗体文件(.frm)B.只装入工程文件(.vbp)C.分别装入工程文件和标准模块文件(.bas) D.分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标,设置这个图标的属性是()。
A.MouseIconB.IconC.PictureD.MousePoint参考答案:B您的答案:B10、为了取消窗体的最大化功能,需要把它的一个属性设置为False,这个属性是()。
vb实验作业参考答案VB实验作业参考答案引言:Visual Basic(VB)是一种基于事件驱动的编程语言,广泛应用于Windows操作系统的软件开发。
在学习VB编程过程中,实验作业是非常重要的一部分,通过实践来巩固所学知识。
本文将提供一些VB实验作业的参考答案,帮助读者更好地理解和掌握VB编程。
一、VB基础知识实验作业参考答案1. 实验题目:编写一个VB程序,实现两个整数的加法运算,并将结果显示在文本框中。
参考答案:```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目:编写一个VB程序,实现输入一个数字,判断该数字是奇数还是偶数,并在消息框中显示结果。
参考答案:```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目:编写一个VB程序,实现一个简单的计算器功能,包括加法、减法、乘法和除法操作。
参考答案:```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目:编写一个VB程序,实现一个简单的登录界面,包括用户名和密码输入框以及登录按钮。
1、下面不是VB工作模式的是(C )A.设计模式B.运行模式C.编模汇式D.中断模式2、可视化编程的最大优点是(C )A.具有标准工具箱B.一个工程文件由若干个窗体文件组成C.不需要编写大量代码来描述图形对象D.所见即所得3、下列不能打开属性窗口的操作是(C )A.执行“视图”菜单中的“属性窗口”命令B.按F4键C.按Ctrl+TD.单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是(D )A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G5、Visual Basic的编程机制是(D )A.可视化B.面向对象C.面向图形D.事件驱动1、以下能够触发文本框Change事件的操作是(D )A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容2、应用程序设计完成后,应将程序保存,保存的过程是(D )A.只保存窗体文件即可B.只保存工程文件即可C.先保存工程文件,之后保存窗体文件D.先保存窗体文件(或标准模块文件),之后还要保存工程文件3、VB应用程序的运行模式是(C)A.解释运行模式B.编译运行模式C.两者都有D.汇编模式4、任何控件都具有的属性是(C )A.TEXT B.CAPTION C.NAME D.FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是(D )A.TEXT B.CAPTION C.NAME D.FONT6、在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在COMMAND1控件上,应将COMMAND1控件的(B )设置为0 A.INDEX B.TABINDEX C.TABSTOP D.ENABLED7、运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文本框的(D)事件A.CLICK B.DBLCLICK C.GOTFOCUS D.CHANGE8、在运行时,按TAB键跳过了一个可以获得焦点的控件(如文本框),则可能是因为(D )A.该控件的TABSTOP属性值为TRUE B.该控件的TABINDEX属性值为FALSE C.该控件的ENABLED属性值为TRUE D.该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上,应(D)A.将控件的TABINDEX属性设置为0B.将控件的TABSTOP属性设置为TRUEC.将控件的TABSTOP属性设置为FALSED.将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D )属性A.BACKCOLOR B.BORDERSTYLEC.FORECOLOR D.BACKSTYLE11、如果要在文本框中输入字符时,只显示某个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是(B )A.文本框的MULTILINE属性值为TRUEB.文本框的LOCKED属性值为TRUEC.文本框的MULTILINE属性值为FALSED.文本框的LOCKED属性为FALSE12、在运行阶段,要在文本框TEXT1获得焦点时选中文本框中所有内容,对应的事件过程是(A)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语言简单易用的语法特点,同时支持面向对象的编程机制,其中构成其控件(对象)的三要素是(D)A.属性、事件、事件过程B.控件、窗体、事件C.属性、过程、方法D.属性、事件、方法14、决定标签(Label)显示的属性是(C )A.Text B.Name C.Caption D.Alignment15、命令按钮的标题文字由(B )属性来设置。
课后习题参考答案第1章Visual Basic 6.0一、判断题1--5:√×√×√ 6――10:××√×√ 11――13:√××二、选择题1――5:ADBBB 6――10:.CACDB三、填空题1、图片框和框架2、对象3、控件屏幕4、Load5、Load Activate四、程序设计题1、Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub Command2_Click()EndEnd Sub2、Private Sub Command1_Click()Form1.FontSize = Form1.FontSize + 3Print "青春无悔"End SubPrivate Sub Command2_Click()FontSize = FontSize - 3Print "青春无悔"End SubPrivate Sub Command3_Click()Form1.FontBold = TruePrint "青春无悔"End SubPrivate Sub Command4_Click()FontBold = FalsePrint "青春无悔"End Sub3、Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.FontName = "楷体_gb2312"Text1.FontSize = 15Text1.Text = "我学会了创建一个应用程序了!"End Sub第二章判断题:1~5错错错错错第3章顺序结构程序设计一、思考题略二、程序阅读题1.A=2 B=1 C=22.123.BABCBACBC4. 1 2 False5.1-12-123-1234-三、选择题1.B2.D3.B4.B5.D6.C四、程序设计题1.Private sub form_click()Dim r!,s!R=val(inputbox(“r=”))S=3.14159*r*rPrint “s=”;sEnd sub2.Private sub form_click()Dim x as singleX=val(inputbox(“x=”))Print fix(x*x*1000)/1000,fix(sqr(x)*1000)/1000End sub第4章选择结构程序设计一、判断题1.错2.错3.错4.错5.对二、选择题1.A 2. D 3.A 4.B 5.A 6.A三、程序阅读题1.X=3 y=72.w=4w=13w=135w=313.X_`a12 Uvw&4.12 9四、程序填空题1.(1) chr(keyascii) (2) chr(keyascii)=”)”(3)count1=count1-1 (4)count1=0 (5)count1>02.(1) max (2)min (3)c>max (4)c<min3.(1)x mod 3=2 and x mod 5=3 and x mod 7=4 then(2)text1.setfocus (3) text1.selstrat=0 (4)text1.sellength=len(text1.text)五、1.Private Sub Command1_Click()Dim y As Integery = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Print "是闰年"ElsePrint "不是闰年"End IfEnd SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"ElseY1= "不是闰年"End If? y,y1End SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))Y1= "不是闰年"If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"End If? y,y1End Sub2.Private Sub Command1_Click()Dim a%, b%, c%, x!,s!a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))Print "s="; sElsePrint "不是三角形,重输a,b,c"End IfEnd SubPrivate Sub Command1_Click()Dim a%, b%, c%, x!,s!,t%a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c=")) ‘a,b,c=3,4,5t=0If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))t=1End IfIf t=0 then? “不是“endifEnd Sub3.Private Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))y = x * x - x – xIf x < 0 And x <> -3 Theny = x * x + x - 6ElseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Then y = x * x - 5 * x + 6End IfPrint "x="; x, "y="; yEnd SubPrivate Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))If x < 0 And x <> -3 Theny = x * x + x – 6elseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Theny = x * x - 5 * x + 6elsey=x^2-x-1End IfPrint "x="; x, "y="; yEnd SubPrivate sub form_click()Dim y%,z%,dj%,p!,t!Y=val(inputbox(“月”))Z= val(inputbox(“订票数”))Dj= val(inputbox(“票价”))Select case ycase 7,8,9If z>=20 then p=0.15 else p=0.05case 1 to 5,10,11If z>20 then p=0.3 else p=0.2Case elseP=0.2End selectT=z*dj*p? tend sub5.private sub form_click()dim m1%,m2%,m3%,dj$m1=val(inputbox(“m1=”)): m2=val(inputbox(“m2=”)): m3=val(inputbox(“m3=”))if (m1+m2+m3)/3>=95 or ( a=100 and b=100 and c>=80) or ( a=100 and c=100 and b>=80) or ( c=100and b=100 and a>=80) thendj=”一等”elseif (m1+m2+m3)/3>=90 or ( a=100 and b>=75 and c>=75) or ( b=100 and a>=75 and c>=75) or ( c=100 and b>=75 and a>=75) thendj=”二等”elseif a>=75 and b>=75 and c>=75 thendj=”三等”elsedj=”没有”endif? “dj=”;djend sub第5章 循环结构程序设计1.判断题×√√√××√×2.选择题BBBBCC3.填空题(1)7(2)Do/Loop For/Next While/Wend(3)-364.程序阅读题(1) (2)(3)4 (4)5.程序填空题(1)①sign=1 ②For i=2 to 19(2)①Len(str1) ②length-1 ③Mid(str1,i,2) ④Sum=0(3)①I mod 7=5 and i Mod 5 = 3 And i Mod 3=2 ②i<1000(4)①last_one = last_two ②last_two = this_one ③i=i+1 ④i-2(5)①I>int(sqr(m)) ②Int(Sqr(n-m))6.编程题(1)Private Sub Form_Click()Dim i As Integer, j As IntegerDim s As Double, Sum As Doubles = 188 68861 2 3 4 Sum=10# # # # # ## # # # ## # # ## # ## ##For i = 1 To 11 Step 2For j = 1 To is = s * jNext jSum = Sum + sNext iPrint SumEnd Sub(2)Private Sub Form_Click()Dim m%, n%, mn%, r%, t%m = Val(InputBox("m="))n = Val(InputBox("n="))If n <= 0 Or m <= 0 ThenMsgBox "数据有误"EndEnd Ifmn = m * nIf m < n Thent = m: m = n: n = tEnd IfDo While (n <> 0)r = m Mod n: m = n: n = rLoopForm1.Print "最大公约数="; mForm1.Print "最小公倍数="; mn / m End Sub(3)Private Sub Form_Click()Dim i%, j%For i = 1 To 5Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(i));Next jPrintNext iFor i = 4 To 1 Step -1Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(10 - i));PrintNext iEnd Sub(4)Private Sub Form_Click()Dim x As IntegerDim y As IntegerDim z As IntegerFor x = 0 To 100For y = 0 To 100 - xz = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, zNext yNext xEnd Sub(5)Private Sub Form_Click()Dim x As Single, y As Single, a As Single, i As Integerx = Val(InputBox("输入x:"))a = 1: y = a: i = 0While a >= 0.00001i = i + 1: a = a * x / i: y = y + aWendPrint "y="; yEnd Sub第六章答案一、判断题1.错2.错3.错4.错(可以为小数,不过仍然是当作整数来处理)5.错6.错二、选择题1.C2.C3.A4.D三、程序填空1.(1)N-1 (2)T = A(J): A(J) = A(J + 1): A(J + 1) = T(3)Print A(I)2.(1)a(i, j) = 1 (2)Print四、程序阅读1.52.1 2 3 41 2 3 41 2 3 41 2 3 41 1 1 12 2 2 23 3 3 34 4 4 43.(前面空4个空格)1 12 11 102 13 16 93 14 15 84 5 6 7第7章过程判断题:1、对2、错3、错4、错5、对6、对7、错选择题:1.B 2、D 3、D 4、C 5、A程序阅读题:1、y=5 a=52、n=1 z=4y=15 a=10 n=2 z=7y=30 a=15 n=3 z=103、32 644、2 2 216 648 644 645、A1=10 B1=20A2=20 B2=10程序填空题:1、(1)hwstring(str) (2)"" (3)As Boolean(4)n=len(strtxt) (5) True (6)False2.(1)Xsch(Nman,Nkcen) (2)n(3)sum=sum+x(i,j) (4)tt/n (5)x(i,m+1)<1.2*ver and x(i,m+1)>=1.1*ver 3.(1)number(i)(2)Byval n as Integer (3)number= number+7*10^ (i-1)4.(1)temp=1 (2)temp (3)nFactor( i ) (4)sum 程序设计题:1、具体程序为:Function Maxnum(ByRef a() As Integer, ByVal n As Integer) As IntegerDim i As IntegerMaxnum = a(1)For i = 2 To nIf a(i) > Maxnum Then Maxnum = a(i)Next iEnd FunctionFunction Avenu(ByRef a() As Integer, ByVal n As Integer) As SingleDim i As Integer, sum As IntegerFor i = 1 To nsum = sum + a(i)Next iAvenu = sum / nEnd FunctionSub Sortrnum(ByRef a() As Integer, ByVal n As Integer)Dim i As Integer, j As Integer, k As IntegerDim temp As IntegerFor i = 1 To nk = iFor j = i + 1 To nIf a(k) > a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim b(10) As Integer, i As IntegerFor i = 1 To 10b(i) = InputBox("请输入整数", "输入")Next iCall Sortrnum(b(), 10)Print "从小到大排序为:"For i = 1 To 10Print b(i);NextPrintPrint "最大数为:"; Maxnum(b(), 10)Print "平均数为:"; Avenu(b(), 10)End Sub2、具体程序为:Function fe(n%, x!) As SingleDim temp As Single, i As Integerfe = 1temp = 1For i = 1 To ntemp = temp * x / ife = fe + tempNext iEnd FunctionPrivate Sub Form_Click()Dim n As Integer, x As Singlen = Val(InputBox("请输入n", "输入"))x = Val(InputBox("请输入x", "输入"))Print "e的值为:"; fe(n, x)End Sub3、具体程序为:Sub sort(a() As Single, n As Integer)Dim i As Integer, j As Integer, k As Integer Dim temp As SingleFor i = 1 To nk = iFor j = i + 1 To nIf a(k) < a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim a(10) As Single, i As IntegerFor i = 1 To 10a(i) = Val(InputBox("请输入数据", "输入")) Next iCall sort(a(), 10)Print "从大到小为:"For i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext iEnd Sub第8章 常用控件参考答案:一、判断题1、×2、×3、√4、√5、×6、×7、×8、×9、× 10、×11、× 12、√ 13、× 14、√ 15、√二、单选题1、A2、B3、A4、C5、B6、D7、A8、B9、C 10、C11、A 12、A 13、C 14、B 15、A三、填空题1、Autosize WordWrap2、Enabled Visible3、文本框和列表框4、拖动滚动框5、Change6、Command1.Setfocus7、Timer8、MaxLength 9、AddItem 10、定时器屏蔽123 45.五、程序填空题1、(1) Label1.left (2) –Label1.Width2、(1) List1.ListIndex<0 (或者List1.ListIndex = -1) (2) List1.RemoveItem List1.ListIndex(3) Text1.Text=”” (4) List1.AddItem Text1.Text3、(1) 1 to 2*I-1 (2) Command2.Enabled=True(3) Command2.Enabled=False4、(1) ndec<>0 (2) ndec mod 16 (3) ai=ndec(4) end (5) ai & shex (6)shex5、(1) Timer1.Enabled=True (2) x \ 3600 (3) (x-h*3600)\60(4) x=x+16、(1) m<len(str1)/2 (2) mid (str1,m+1,1) (3)mid (str1,len(str1)-m,1)六、程序设计题1、 Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请先输入添加项"ElseList1.AddItem Text1.TextEnd IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex < 0 Then ‘或者if list1.listindex=-1 then MsgBox "请选择一删除项"ElseList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()If List1.ListIndex < 0 ThenMsgBox "请选择一修改项"ElseText1.Text = List1.TextEnd IfCommand4.Enabled = TrueEnd SubPrivate Sub Command4_Click()Dim a As IntegerIf List1.Text = Text1.Text ThenMsgBox "请先修改此项"Elsea = List1.ListIndexList1.RemoveItem List1.ListIndexList1.AddItem Text1.Text, aEnd IfEnd SubPrivate Sub Form_Load()Command4.Enabled = FalseEnd Sub2、 Dim a As IntegerPrivate Sub Command1_Click()a = Int(Rnd * 100) + 1End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static i As IntegerIf KeyAscii = 13 ThenIf Val(Text1.Text) > a ThenLabel1.Caption = "太大了,请重输"i = i + 1ElseIf Val(Text1.Text) = a ThenLabel1.Caption = "恭喜你,你答对了!"i = 0Command1_ClickElseLabel1.Caption = "太小了,请重输!"i = i + 1End IfIf i > 10 ThenMsgBox "你失败了!"EndEnd IfEnd IfEnd Sub3、Private Sub Command1_Click()Dim n As Integer: n = Len(Text1.Text)Dim s(1 To 1000) As String, i As Integer, j As Integer, t As String,a As StringFor i = 1 To ns(i) = Mid(Trim(Text1.Text), i, 1)Next iFor i = 1 To n - 1For j = i + 1 To nIf s(i) > s(j) Thent = s(i): s(i) = s(j): s(j) = tEnd IfNext j, iFor i = 1 To n: a = a + s(i): Next iPrint aCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click(): End: End SubPrivate Sub Form_Load()Text1.MaxLength = 200Command2.Enabled = False: Command1.Enabled = TrueEnd Sub4、Dim a(1 To 1000) As String, b(1 To 1000) As String, c(1 To 1000) As Double, d(1 To 1000) As DoublePrivate Sub Combo1_click()Text1.Text = a(Combo1.ListIndex + 1)Text2.Text = b(Combo1.ListIndex + 1)Text3.Text = c(Combo1.ListIndex + 1)Text4.Text = d(Combo1.ListIndex + 1)End SubPrivate Sub Command1_Click()Combo1.AddItem Text1.Texta(Combo1.ListCount) = Text1.Textb(Combo1.ListCount) = Text2.Textc(Combo1.ListCount) = Val(Text3.Text)d(Combo1.ListCount) = Val(Text4.Text)End SubPrivate Sub Command2_Click()For i = Combo1.ListIndex + 1 To Combo1.ListCount - 1a(i) = a(i + 1)b(i) = b(i + 1)c(i) = c(i + 1)d(i) = d(i + 1)Next ia(i) = ""b(i) = ""c(i) = 0d(i) = 0Combo1.RemoveItem Combo1.ListIndexText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Form_Load()Dim i As IntegerCombo1.AddItem "张三"Combo1.AddItem "李四"Combo1.AddItem "王五"a(1) = "张三": a(2) = "李四": a(3) = "王五"b(1) = "浙江林学院": b(2) = "浙江工业大学": b(3) = "浙江大学"c(1) = : c(2) = : c(3) =d(1) = : d(2) = : d(3) =End Sub5、Private Sub Check1_Click()If Check1.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Option1_Click()Label1.FontName = "宋体"End SubPrivate Sub Option2_Click()Label1.FontName = "楷体_gb2312"End Sub6、Private Sub Command1_Click()Dim a As String, i As Integer, n As IntegerDim s As Integer, q As Integer, l As Integern = Len(Text1.Text)For i = 1 To na = Mid(Text1.Text, i, 1)If a >= "a" And a <= "z" Thens = s + 1 '大写个数ElseIf a >= "A" And a <= "Z" Thenq = q + 1 '小写个数ElseIf a >= "0" And a <= "9" Thenl = l + 1End IfNext iText2.Text = sText3.Text = qText4.Text = lEnd SubPrivate Sub Form_Load()Text1.SetFocusEnd Sub7、Private Sub Form_Click()Dim i As Integer, j As Integer, t As IntegerFor i = 0 To List1.ListCount - 1List3.AddItem List1.List(i)Next iList1.ClearDo While List2.ListCountList3.AddItem List2.List(0)List2.RemoveItem 0LoopFor i = 0 To List3.ListCount - 2For j = i + 1 To List3.ListCount - 1If List3.List(i) > List3.List(j) Thent = List3.List(i): List3.List(i) = List3.List(j): List3.List(j) = tEnd IfNext j, iEnd SubPrivate Sub Form_Load()Dim i As Integer, n As Integern = InputBox("")For i = 1 To nList1.AddItem Int(Rnd * 90) + 10List2.AddItem Int(Rnd * 90) + 10Next iEnd Sub第9章对话框和菜单1.判断题:×√√(题中应把flag改为flags)√√××√√×××√××2.选择题:DDCCD BDCCB3.填空题1.-2.一级子菜单3.将顶级菜单设置为不可见4.popupmenu pmenu,0,x,y5.showfont6.工程、部件7.click8.代码窗口,click9.下拉式,弹出式打开/另存为、颜色,字体、打印、帮助4. 程序阅读题打开对话框2、*.txt3、allfiles*.exe*.txt*.doc4、Checking,No File Selectd,重试(R),取消5. 程序填空题“c:\winnt”commondialog1.showopen,loadpicture(commondialog1.filename)6. 程序设计题1、界面如图:代码如下:Private Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.Flags = 4096CommonDialog1.Action = 1If CommonDialog1.FileName = "" ThenMsgBox "No File Selectd", 5 + vbExclamation, "Checking"ElseList1.AddItem CommonDialog1.FileNameEnd IfEnd Sub2、代码如下:Private Sub a_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub b_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontSize = CommonDialog1.FontSizeEnd SubPrivate Sub c_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameEnd SubPrivate Sub d_Click()EndEnd Sub第10章图形操作和图形控件一、判断题×√×××√×√××二、选择题BAADACAA三、填空题(1)pic1.Circle (pic1.ScaleLeft + pic1.ScaleWidth / 2, pic1.ScaleTop + pic1.ScaleHeight / 2), 700(2)在图片框picture1中,以(800,1000)为圆心画一个半径为500的圆(3)Form1.Scale (-200, 250)-(300, -100)(4)Autosize stretch四、程序阅读题1、窗体宽和高的1/4为起点,画一个边长为1000的正方形,并画出其正向对角线2、在图片框中交替画出实心和空心的矩形,空心矩形是黄色边框。
并不完善,仅供参考。
5.1答案一、选择题1---10:DCCAC ACDDC11---13:DDD二、判断题TTFFT TFTT三、分析1、Pos=pos+1Neg=neg+1Print pos;neg2、不见了3、程序改为:Dim a%()N = InputBox("please input n:")ReDim a(n, n)For i = 1 To nFor j = 1 To iIf j = 1 Or j = i Thena(i, j) = 1Elsea(i, j) = a(i - 1, j) + a(i - 1, j - 1)End IfPrint Tab((j - 1) * 6); a(i, j);Next jPrintNext i三、1、Option Base 1Private Sub Command1_Click()Dim A(10) As IntegerDim sum!RandomizeA(i) = (50 - 20 + 1) * Rnd + 20Next iFor i = 1 To 10Print A(i);Next iPrintMax = A(1)For i = 1 To 10If A(i) > Max ThenMax = A(i)End IfNext iPrint "最大值" & MaxMin = A(1)For i = 1 To 10If A(i) < Min ThenMin = A(i)End IfNext iPrint "最小值" & Minsum = 0For i = 1 To 10sum = sum + A(i)Next iPrint "总和="; sum & "平均值="; sum / 102、Option Base 1Private Sub Command1_Click()Dim a(20) As Integera(1) = 1a(2) = 1For i = 3 To 20a(i) = a(i - 1) + a(i - 2)Next iIf i Mod 5 = 0 ThenPicture1.Print a(i)ElsePicture1.Print a(i),End IfNext iEnd Sub3、Option Base 1Private Sub Form_Click()Dim a(3, 4) As IntegerFor i = 1 To 3For j = 1 To 4a(i, j) = InputBox(":")Next jNext iMax = a(1, 1): imax = 1: jmax = 1 Min = a(1, 1): imin = 1: jmin = 1 For i = 1 To 3For j = 1 To 4If Max < a(i, j) ThenMax = a(i, j)imax = ijmax = jEnd IfIf Min > a(i, j) ThenMin = a(i, j)imin = ijmin = jEnd IfNext jNext iFor i = 1 To 3For j = 1 To 4Print a(i, j);Next jPrintNext iPrintPrint "Max="; Max; " 行号"; imax; " 列号"; jmax Print "Min="; Min; " 行号"; imin; " 列号"; jmin End Sub4、Option Base 1Private Sub Command1_Click()Dim a()a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)n = Val(InputBox("请输入要删除的数:"))For i = 1 To UBound(a)If a(i) = n Thenk = iExit ForEnd IfNext iFor i = k + 1 To UBound(a)a(i - 1) = a(i)Next iReDim Preserve a(UBound(a) - 1)For i = 1 To UBound(a)Print a(i);Next iPrintEnd Sub5.2答案一、选择题1---10:ADBAD BABBB11---:BDDBA二、判断题TTFFF FFFTF(15题BackColor去掉空格,FillSte全部漏了y)三、1、1000Timer1.Enabled = trues = (x Mod 3600) Mod 602、n=3 x=42 y=9四、1、Private Sub Command1_Click()For i = 0 To List1.ListCount - 1List3.AddItem List1.List(i)Next iFor i = 0 To List2.ListCount - 1List3.AddItem List2.List(i)Next iEnd Sub2、Private Sub Form_Load()Label1.Left = 0Label1.Top = 0End SubPrivate Sub Timer1_Timer()Static iIf i = 0 ThenLabel1.BackColor = vbRedElseIf i = 1 ThenLabel1.BackColor = vbBlueElseLabel1.BackColor = vbGreeni = -1End Ifi = i + 1If Label1.Top > Form1.Height ThenLabel1.Left = 0Label1.Top = 0ElseLabel1.Left = Label1.Left + (Form1.ScaleWidth - Label1.Width) / 10Label1.Top = Label1.Top + (Form1.ScaleHeight - Label1.Height) / 10End IfEnd Sub3、Dim t1 As DoubleDim t2 As DoublePrivate Sub Command1_Click()t1 = NowLabel1.Caption = Format(t1, "hh:mm:ss")Label2.Caption = Format(t1, "hh:mm:ss")Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseLabel3.Caption = Format(t2 - t1, "hh:mm:ss")End SubPrivate Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()t2 = NowLabel2.Caption = Format(t2, "hh:mm:ss")End Sub5.3答案一、选择题DBD(第3题答案是d、12 7,12漏了1)DC BCD(A多了一个”值”字)A 二、TTTTT三、1、2 5 9该题Command3改为command12、函数改为:Sub swap(b() As Integer)n = UBound(b)For k = 1 To n \ 2t = b(k)b(k) = b(11 - k)b(11 - k) = tNext kEnd Sub3、四、程序设计1、子过程和函数过程各一个做法Sub subsushu(x As Integer, k As Boolean)k = TrueFor i = 2 To x - 1If x Mod i = 0 Thenk = FalseExit ForEnd IfNext iEnd SubFunction fsushu(x As Integer) As Boolean fsushu = TrueFor i = 2 To x - 1If x Mod i = 0 Thenfsushu = FalseExit ForEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim k As Booleanx% = InputBox("input x:")Call subsushu(x, k)If k = True ThenPrint x; "是素数"Print x; "非素数"End IfEnd SubPrivate Sub Command2_Click() x% = InputBox("input x:")If fsushu(x) = True ThenPrint x; "是素数"ElsePrint x; "非素数"End IfEnd Sub2、Option Base 1Sub fmax(a() As Integer, max) max = a(1)For i = 1 To UBound(a)If a(i) > max Thenmax = a(i)End IfNext iEnd SubPrivate Sub Command1_Click() Dim a(10) As IntegerFor i = 1 To 10a(i) = Rnd * 100Next iFor i = 1 To 10Print a(i);Next iPrintCall fmax(a(), max)Print "max="; maxEnd Sub3、Function xsum(x)Sum = 1For i = 1 To xSum = Sum + x ^ iNext ixsum = SumEnd FunctionPrivate Sub Command1_Click()a = 3b = 5c = 7d = 9Print a / xsum(a) + b / xsum(b) + c / xsum(c) + d / xsum(d)End Sub4、Function sp(ss, sc, sr)Do While InStr(ss, sc) > 0x = InStr(ss, sc)If x = 1 Thenss = sr & Right(ss, Len(ss) - Len(sc))Elses1 = Left(ss, x - 1)s2 = Right(ss, Len(ss) - (x - 1) - Len(sc))ss = s1 & sr & s2End IfLoopsp = ssEnd FunctionPrivate Sub Command1_Click()ss = "abcabcbc"sc = "bc"sr = "99"Print sp(ss, sc, sr)End Sub5.4答案一、选择题BCBAA B(其中y=IIf(x>10,100,-100) f,Show 改为y = IIf(x > 10, 100, -100)f.Show)BBA二、1、“文本文件(*.txt)|*.txt”CommonDialog1.FileName2、Form1.hide三、1、2题合并如下Private Sub baocun_Click()CommonDialog1.ShowSaveOpen CommonDialog1.FileName For Output As #1 Print #1, Text1.TextClose #1End SubPrivate Sub beijingse_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorText1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub dakai_Click()CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1 While Not EOF(1)Line Input #1, iText1.Text = Text1.Text & i & vbCrLfWendClose #1End SubPrivate Sub qianjingse_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub ziti_Click()CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeEnd Sub5.5答案一、选择题第一题好像都是对的?(多了个D)BAAD(其中c:“filel.txt都改为c:\file1.txt C二、分析题1 、dat改为txt文件y= 5 a= 5y= 15 a= 10y= 30 a= 152、程序改为Private Sub command1_click()Dim indata As StringText1.Text = ""Open "c:\a1.txt" For Input As #1Do While Not EOF(1)Input #1, indataText1.Text = Text1.Text & indataLoopClose #1End Sub3、程序改为Private Sub Form_Click()Dim x As Single, y As SingleOpen "d:\nm1.txt" For Input As #1Open "d:\NM2.txt" For Output As #2Do While Not EOF(1)Input #1, xPrint xy = x ^ 2Write #2, yPrint yLoopClose #1, #2End Sub三、设计题1、略2、略此2题好像比较简单。
第1章 习题参考答案一、思考题 略二、选择题1. C2. B第2章 习题参考答案一、判断题二、填空题1. 窗体font2. 不能在代码中设置 3. selstart 4. Locked5. TabIndex 、 0 6. vbModal 或 17. Activate 、 Deactivate 8.PictureBox 和 Frame -三、选择题第3章 习题参考答案一、思考题1、double2、 xyC@abc , 15eyd , Is , #END X8[P]3、变量有 (1) (4) (6) (8),常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 fe d cb a++5、 (1) 26 (2) 3.75 (3) 36、写出下列Visual Basic 表达式的值:(1) False (2) True (3) True (4) False (5) True(6) True (7) False (8) False7、将下列命题用Visual Basic布尔表达式表示:(1) z>x and z>y (2) abs(a)<=abs(b+2) or a > b+2(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5(5) x<z and y>z or x>z and y<z (6) a<b and a mod 2=08、写出下列函数的值:(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello(6) ello (7) 16 (8) “-459.65” (9) 5二、填空题1.整型、长整型、双精度型、双精度型2.(X mod 10)*10+X\103.sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)4.(a+b)/(c*d-sqr(1-a^2))5.x mod 5=0 or x mod 9=06.False7.-3 、 2 、-2 、 28.CDEF9.x>0 and y>0 or x<0 and y<0 或x*y>010.s>=”A” and s<=”Z” or s>=”a” and s<=”z”三、选择题四、编程题1、Private Sub Form_Click()Dim x%, Ten%, hundred%x = Val(Text1.Text)Ten = (x \ 10) Mod 10hundred = x \ 100Print "百位数是: " & hundredPrint "十位数是: " & TenEnd Sub2Private Sub Form_Click()Dim char As String * 1Form1.CurrentX = Rnd * Form1.ScaleWidthForm1.CurrentY = Rnd * Form1.ScaleHeightchar = Chr(Int(Rnd * 16) + 65)Print charEnd Sub第4章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。
VB作业答案第⼀周1.3同步练习题⼀.选择题1.以下不能在“⼯程资源管理器”窗⼝中列出的⽂件类型是D..ocx2.以下叙述中错误的是C.程序运⾏后,在内存中只能驻留⼀个窗体3.Visual Basic 6.0包括三种版本,其中不包括C.学习版4.Visual Basic程序设计语⾔属于C.⾯向对象的语⾔5.假定⼀个Visual Basic 应⽤程序由⼀个窗体模块和⼀个标准模块构成。
为了保存该应⽤程序,以下操作正确的是 B.分别保存窗体模块、标准模块和⼯程⽂件6.通过下⾯B.窗体布局窗⼝可以在设计时直观地调整窗体在屏幕上的位置。
7.以下叙述中错误的是C. Visual Basic 应⽤程序中可以有多个活动窗体8.对象所能做的动作称为对象的A.⽅法9.下列关于事件的叙述中不正确的是D. Visual Basic 中所有对象的默认事件都是Click10.⼀只漂亮的酒杯被摔碎了,则漂亮、酒杯、摔、碎了是D.属性、对象、事件、⽅法11.⽤⼀个程序段对某⼀对象被单击(或双击)做出响应,从⽽实现指定的操作,称为B.事件驱动编程机制12.以解释⽅式执⾏程序的过程是边逐条解释边执⾏,不⽣成A.⽬标程序13.以下有关对象属性的说法中正确的是D.对象的某些属性既可在属性窗⼝中设置,也可通过程序代码设置或改变14.下列叙述正确的是C.不同的对象能识别不同的事件15.在Visual Basic中最基本的对象是B.窗体,它是应⽤程序的基⽯,是其他控件的容器。
16.以下叙述中错误的是D.对象事件的名称可以由编程者指定。
17.下列叙述正确的是D.事件是对象能够识别的动作。
18.在Visual Basic⼯程中,可以作为“启动对象”的程序是D. Sub Main过程或任何窗体。
19.在设计阶段,当双击窗体上的某个控件时,所打开的窗⼝是C.代码窗⼝。
20.在Visual Basic应⽤程序中,在程序中流动的不是⼀般的数据⽽是A.事件。
实验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试题及答案一、单选题(每题2分,共10分)1. 在VB中,以下哪个是正确的变量声明方式?A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案:B2. VB中的哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B3. 以下哪个是VB的事件?A. ClickB. PrintC. DrawD. Open答案:A4. 在VB中,以下哪个语句用于结束程序?A. EndB. ExitC. StopD. Quit答案:A5. VB中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text答案:A二、多选题(每题3分,共15分)1. VB中,以下哪些是合法的变量名称?A. 2variableB. variable2C. _variableD. variable$答案:B, C2. VB中,以下哪些是合法的常量声明方式?A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案:A, D3. 在VB中,以下哪些是控件的属性?A. NameB. CaptionC. TextD. Value答案:A, B, C4. VB中,以下哪些是控制流程语句?A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案:A, B, C, D5. VB中,以下哪些是数组的声明方式?A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案:A, B, D三、判断题(每题1分,共5分)1. VB是一种面向对象的编程语言。
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答:①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答:①向光驱中放入VB安装光盘;②计算机将运行自动安装程序,若没有,执行VB目录下的Setup.exe;③根据提示逐一回答问题,并点击“下一步”;④点击“完成”;2、如何启动VB。
答:三种方法:①单击“开始”按钮,选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击;②双击桌面上的VB6.0快捷图标;③在“开始”菜单的运行对话框中输入命令来启动VB;第二章习题参考答案一、选择题:1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1.窗体、控件2.属性值3.属性窗口设置、代码窗口设置4.事件过程5.对象名、下划线、事件名6.Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、(1)常量(关键字)(2)字符型常量(3)逻辑型常量(4)变量(5)字符串常量(6)变量(7)字符串常量(8)变量(9)日期型常量(题目应是#11/16/1999#)(10)数值型常量(单精度)4、315、(1)(1+y/x)/(1-y/x) (2)x^3+3*x*y/(2-y)(3)sqr(abs(a*b-c^3)) (4)sqr(s*(s-a)*(s-b)*(s-c))6、7、(1)13 (2)17(3)#1999-11-12# (4)zxy123ABC8、(1)19 (2)8.16666666666667(3)5.25 (4)29、(1)-4 (2)2 . 82842712474619 (3)-3 (4)49 (5)”hello” (6)He7)16 (8)“-459.65” (9)510、(4)11、(2)12、(4)第四章习题参考答案一、选择题:1—7: DAABBCD二、填空题1.500.00%2.将字号扩大为原来的二倍3. B三、编程题(略)1.文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2.单价、数量、折扣和应付款对应的文本框的名称分别为:text1、text2、text3和text4,计算和清除命令按钮的名称分别为:command1和command2。
《VB程序设计》作业参考答案一.选择题1-5 ABC CB 6—10 CCA DC 11-15 ABC DB 15-20CDA CB 21-25DBD CC25-30DAC AA 31-35 DAC AA 36-40 BCC CD 41-45 CCC AC 46-50DDB AD 51-55 ACA CD 56-60 BCA DA 61-65 BAADB 66-70DBDAC 71-75BBBAD 76—80CDABC 81-85ABCD C 86-90BAADD 91-95CBBAD 96.B二.填空题(1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And(6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random(11)事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text(16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc (20)INT(Rnd*100) ;arr (21)Output ;Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序,随机(25)INPUT,OUTPUT,APPEND (26)程序代码窗口的字符过大或过小,可以通过(工具→选项→编辑器格式→大小)去改变。
(27)窗体、控件、对象(28)界面设计(29)对象、代码(30)窗体、标准模块、类模块、工程(31)窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) (32)E D(33)81 (34)程序,数据(35)窗体、控件、对象(36)对象、代码(37)用户界面的窗体、执行具体操作的代码。
(38)Picture属性、剪切板把图形粘贴三.编程题1.Option Base 1Private Sub Form_click()Dim a(3) As Integer, m As IntegerDo While m <> -1 And i < 3m = InputBox("请输入第" & i + 1 & "条边")i = i + 1a(i) = mIf a(i) < 0 ThenMsgBox "输入错误,请重新输入!"i = i - 1End IfLoopIf a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Thens = (a(1) + a(2) + a(3)) / 2s = Sqr(s * (s - a(1)) * (s - a(2)) * (s - a(3)))Print "三角形的面积是"; sElseMsgBox "三条边不能构成三角形!"EndEnd IfEnd Sub2.Option Base 1Private Sub Form_click()Dim a, ba = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)Dim c(8)For i = 1 To 8c(i) = a(i) + b(i)Print c(i);Next iEnd Sub3.Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print spc(3); Chr$(KeyCode); spc(3); Hex$(KeyCode); spc(3); Oct$(KeyCode); spc(3); KeyCode End SubPrivate Sub Form_Load()PrintShowPrint spc(3); "按键"; spc(3); "16进制"; spc(3); "8进制"; spc(3); "10进制" PrintEnd Sub4.Dim a(3) As Long, s As Long, p As Long '通用-声明Sub Su(n As Long) '通用subp = 1For i = 1 To np = p * iNext iEnd SubFunction F(n As Long) As Long '通用Functionp = 1For i = 1 To np = p * iNext iF = pEnd FunctionPrivate Sub Command1_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")Call Su(a(i))s = s + pNext iPrint "用Sub过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; sEnd SubPrivate Sub Command2_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")s = s + F(a(i))Next iPrint "用Function过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; sEnd SubPrivate Sub Command3_Click()EndEnd Sub5. 如下图,在窗体上画一个图片框,一个文本框,再画两个标签。
①填写下表控件默认名称标题文本图片框Picture1 空白标签1 Label1 求偶数的和标签2 Label2 输入数的范围文本框Text1 空白②如图编写程序代码,要求键盘输入42,显示在文本框内;并将该整数范围内的偶数显示在图片框内。
(每行打印7个数)Private Sub Form_Load()Text1.Text = 42End SubPrivate Sub Picture1_Click()k = 0For j = 1 To 42If k Mod 7= 0 Then Picture1.PrintIf j Mod 2 = 0 ThenPicture1.Print Str$(j);k = k + 1End IfNext jEnd Sub6. 如图在窗体上画两个命令按钮和一个文本框,要求单击第一个命令按钮时,文本框消失,单击第二个命令按钮时,文本框复出,并在文本框中显示“编写程序乐趣无限”。
Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Text = "编写程序乐趣无限"Text1.Visible = TrueEnd Sub7. 如下图,在窗体上画一个图片框,一个文本框,再画两个标签。
①填写下表控件默认名称标题文本图片框Picture1 空白标签1 Label1 输出在此范围内能同时被3和5整除的整数标签2 Label2 输入数的范围文本框Text1 空白②编写程序代码,如图,要求键盘输入任意一个整数作上限,显示在文本框内;并将该整数范围内能同时被3和5整除的整数,显示在图片框内。
Public n As StringPrivate Sub Form_Load()n$ = InputBox("输入数的取值范围n")Text1.Text = n$End SubPrivate Sub Picture1_Click()n = Val(n$)k = 0For j = 1 To nIf j Mod 3 = 0 And j Mod 5 = 0 ThenPicture1.Print Str$(j);End IfNext jEnd Sub8. 输入任意一个字符串,检查字符串是否是“回文”.当一个字符串顺读倒读是一样的,则这样的字符串就是“回文”,如“LEVEL”, “MADAM”, “123321”等都是“回文”Private Sub Form_click()a$ = InputBox("a$=")n = Len(a$)For i = 1 To Int(n / 2)If Mid$(a$, i, 1) <> Mid$(a$, n - i + 1, 1) ThenPrint "不是回文": Exit ForEnd IfNext iIf i > Int(n / 2) Then Print "是回文"End Sub。