VB语言程序设计习题答案
- 格式:doc
- 大小:115.00 KB
- 文档页数:15
第一章 Visual Basic概述一、选择题1.在 Visual Basic的工程中,工程文件的扩展名是( ) 。
A. .frmB. .vbgC. .vbpD. .bas2. Visual Basic程序中分隔一行中各语句的字符是( ) 。
A.’B.:C.\D.-空格-3.下列不属于对象的基本特征是( ) 。
A.属性B.方法C.事件D.函数4.以下叙述中错误的是( ) 。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件5.启动 Visual Basic后,系统为用户新建的工程起一个名为( ) 的临时名称。
A.工程1B.窗体1C.工程D.窗体6.用标准工具栏中的工具按钮不能执行的操作是( ) 。
A.添加工程B.打印源程序C.运行程序D.打开工程7.要添加一个标准模块,可使用( ) 菜单中的“添加模块”命令。
A.文件B.视图C.工程D.工具8.工具栏中的“启动”按钮的作用是( ) 。
A.运行一个应用程序B.运行一个窗体C.工程管理窗口D.打开被选中对象的代码窗口9.下列关于 Visual Basic6.0工具栏的说法不正确的是( ) 。
A.工具栏的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D. Visual Basic有多个工具栏10.在设计模式双击窗体将显示的窗口是( ) 。
A.工程窗口B.工具箱C.代码窗口D.属性窗口11.以下关于保存工程的说法正确的是( ) 。
A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件,再保存工程文件D.先保存工程文件,再保存窗体文件12.在面向对象的程序设计中,最基本的元素是( ) 。
A.窗体文件B.工程文件C.属性D.对象13. Visual Basic的编程机制是( ) 。
vb程序习题答案VB程序习题答案在学习Visual Basic(VB)编程的过程中,做习题是非常重要的一部分。
通过做习题,我们可以巩固所学的知识,提高编程能力。
下面是一些常见的VB程序习题及其答案。
1. 编写一个程序,计算1到100的所有偶数的和。
答案:```vbDim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextMsgBox("1到100的所有偶数的和为:" & sum)```2. 编写一个程序,找出一个数组中的最大值和最小值。
答案:```vbDim arr() As Integer = {5, 8, 3, 9, 2}Dim max As Integer = arr(0)Dim min As Integer = arr(0)For Each num In arrIf num > max Thenmax = numEnd IfIf num < min Thenmin = numEnd IfNextMsgBox("数组中的最大值为:" & max & ",最小值为:" & min)```3. 编写一个程序,将一个字符串反转。
答案:```vbDim str As String = "Hello, World!"Dim reversedStr As String = ""For i = str.Length - 1 To 0 Step -1reversedStr = reversedStr & str(i)NextMsgBox("反转后的字符串为:" & reversedStr)```通过做这些习题,我们可以加深对VB编程语言的理解,提高编程能力。
《程序设计语言VB》单选题1. Visual Basic是一种面向()的程序设计语言。
A. 用户B. 事件C. 程序D. 对象2. 在Visual Basic6.0中规定工程文件的扩展名是()。
A. vbpB. forC. frmD. bas3. Visual Basic6.0中规定窗体文件的扩展名是()。
A. forB. frmC. vbpD. bas4. 如何使一个标签或按钮控件在运行时不可用()。
A. 把它的Visible属性设置成FalseB. 把它的Visible属性设置成TrueC. 把它的Enabled属性设置成FalseD. 把它的Enabled属性设置成True5. 控件的字体可在属性窗口的()属性中调整?A. FontB. ColorC. TextD. Caption6. 若要将某命令按钮设置为默认命令按钮。
则应设置为True的属性是()。
A. ValueB. CancelC. DefaultD. Enabled7. 在VB中,记录对象数据的是()。
A. 方法B. 事件C. 属性D. 语句8. 在文本框上显示文本的属性是()。
A. ValueB. TextC. PrintD. Enabled9. InputBox函数返回值的类型为()。
A. 字符串B. 数值C. 变体D. 数值或字符串(视输入的数据而定)10. 设有语句:a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是()。
A. 字符串"20"B. 字符串"120"C. 默认值100D. 数值12011. 下列控件中可用于接受用户输入文本,又可用于显示文本的是()。
A. Label控件B. TextBox控件C. Timer控件D. CommandButton控件12. 语句PRINT "25*4"的输出结果是()。
vb程序设计教程习题答案VB程序设计教程习题答案VB程序设计是一门广泛应用于软件开发领域的编程语言,它具有易学易用的特点,被广大程序员所喜爱。
在学习VB程序设计的过程中,习题是一个非常重要的环节,通过解答习题可以帮助我们巩固所学的知识,提高编程能力。
下面我将给出一些VB程序设计教程习题的答案,希望对初学者有所帮助。
1. 编写一个VB程序,实现计算两个数的和并输出结果的功能。
答案:```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.ClickDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Integer.Parse(TextBox1.Text)num2 = Integer.Parse(TextBox2.Text)sum = num1 + num2MessageBox.Show("两个数的和为:" & sum)End SubEnd Class```2. 编写一个VB程序,实现判断一个数是奇数还是偶数的功能。
答案:```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num As Integernum = Integer.Parse(TextBox1.Text)If num Mod 2 = 0 ThenMessageBox.Show("这个数是偶数")ElseMessageBox.Show("这个数是奇数")End IfEnd SubEnd Class```3. 编写一个VB程序,实现计算一个数的阶乘的功能。
《vb程序设计》期末复习题及答案一、填空题1.创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2.当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的__________窗口中,把此文本框的_____________属性设置成空白。
3.Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用___________控件;若允许用户输入文本,则应使用_____________控件。
4.窗体的常用方法有__________、___________、___________和___________。
5.要想在代码中给名为txtshow的文本框赋予文本:GOOD WORK ,应当编写的语句是____________________________________。
6.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7.Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8.表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9.已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
《VB程序设计教程》(第4版)习题解答单元一巩固与提高答案一、选择题1. Visual Basic 6.0分为3种版本,不属于这3种版本的是A)学习版B)专业版C)企业版D)业余版【答】D。
2. 下列方法中不能退出Visual Basic的是A)按Alt+Q组合键B)按下Alt+F组合键,然后按Esc键C)按F10键,然后按F键,再按X键D)打开“文件”菜单→“退出”命令【答】B。
3. Visual Basic集成的主窗口中不包括A)属性窗口B)标题栏C)菜单栏D)工具栏【答】A。
4. 下列操作可以打开立即窗口的是A)Ctrl+D B)Ctrl+F C)Ctrl+G D)Ctrl+E【答】C。
二、填空题1. 与传统的程序设计语言相比,Visual Basic最突出的特点是____。
【答】事件驱动编程机制。
2. 如果不使用鼠标,用键盘打开菜单和执行菜单命令,第一步应按____键。
【答】功能键F10或Alt键。
3. 建立一个新的标准模块,应该选择____菜单下的“添加模块”命令。
【答】“工程”菜单。
三、思考题1. 简述Visual Basic的特点。
【答】与一般的程序设计语言相比,VB具有以下特点:(1) 可视化的设计平台;(2) 面向对象的设计方法;(3) 事件驱动的编程机制;(4) 结构化的设计语言;(5) 充分利用Windows资源;(6) 开放的数据库功能与网络支持。
2. 简述Visual Basic集成开发环境的组成。
【答】VB 6.0集成开发环境除了具有标准Windows环境的标题栏、菜单栏、工具栏外,还有工具箱、属性窗口、工程管理器窗口、窗体设计器、立即窗口、窗体布局窗口等有用的开发工具。
(1) 标题栏和菜单栏:标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化∕还原、关闭按钮。
菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项,其中包含了VB编程的常用命令。
第4章选择结构程序设计4.1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24.2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4.3 已知 W=10 X=9 Y=8 Z=7 ,求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4.4 写出下列十进制整数逻辑运算的结果:(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04.5 已知变量X和Y的值分别为5、6,编写程序,交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示:4.6 从键盘输入一个学生的三科成绩,计算总分,并找出最高分。
【参考答案】(1)用户界面设计(2)控件属性设置(略)(3)程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
VB课后习题解答第一、二章:1、简述VB6.0的主要特点答:方便、直观的可视化设计工具;面向对象程序设计方法;事件驱动的编程机制;易学易用的应用程序集成开发环境;结构化程序设计语言;完备的联机帮助功能;强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后,误把Windows子目录删除。
当重新安装Windows后,是否需要再次安装VB6.0?答:要重新安装的。
因为安装VB6.0时,有些VB程序被系统自动安装在Windows目录下,所以一旦删除Windows子目录,就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版,如何知道所安装的是哪个版本?答:在VB6.0的启动界面上,能显示对应的版本。
4、叙述建立一个完整应用程序的过程答:首先建立用户界面的控件对象(简称控件);然后对控件属性进行设置;再对控件事件过程及编程;保存应用程序;程序调试和运行。
5、Visual Basic 6.0有多种类型窗口,若要在设计时看到代码窗口,应怎样操作?答:选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件?若要保存该工程的所有文件,应先保存什么文件?再保存什么文件?若不这样做,系统会出现什么信息?答:涉及两个文件要保存。
先保存窗体文件(.frm),再保存工程文件(.vbp)。
若先保存工程文件,系统也会先弹出“文件另存为”对话框,要求先保存窗体文件。
7、保存文件时,若不改变目录名,则系统默认的目录是什么?答:系统默认的目录是VB988、安装Visual Basic 6.0后,帮助系统是否也已安装?答:没有。
VB6.0的帮助系统在两张光盘上,即MSDN Library,其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统?答:最方便的方法是选定要帮助的内容,然后按F1功能键,这时系统打开MSDN Library查阅器,直接显示与选定内容有关的帮助信息。
VB程序设计试题及答案(一)一、单选题1. VB6.0是一种面向 B 的编程环境。
(A)机器(B)对象(C)过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
(A) Forml。
Caption=“欢迎使用VB”(B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D)Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A)EnabIed (B)Visible(C)Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI,可以通过 C 事件获得输入键值的ASCII码。
(A)Change (B)LostFocus(C) KeyPress (D)GotFocus5。
下面 A 是合法的变量名。
(A)X_yz (B)123ab。
(C) integer (D)X-Y6. 以下关系表达式中,其值为False的是 A 。
(A) "ABC">"AbC”(B)"女"〉"男”(C)”BASIC”=UCase("basic)(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C)x=y=z=1 (D)xyz=18。
VB提供了结构化程序设计的三种基本结构,三种基本结构是 D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D 。
(A)If sex="男" And age=4O And InStr(duty,"教授")〉O Then n=n+l (B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l(C)If sex=”男” And age=4O And Right(duty,2)="教授" Then n=n+l (D)If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
《VB 语言程序设计》习 题 参 考 答 案第1章习题一、单选题1.D2.B 3.C 4.A 5.C 6. A 7.A 8.B 9.C 10.(1)A (2)B二、多选题1.ACDE 2.BCDE 3.CD 4. CE三、填空题1.事件驱动 2.解释,编译 3.设计,运行,中断4. 属性,方法,事件5. Command2_Click6. 中央,代码7.MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB 语言程序设计"编程及上机调试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.①D ,②D 2.①A ,②C 3.A 4.B 5.B 6.B7.C 8.D 9.B 10.B 11.A12.A 13.B 14.A 15.B 16.A17.B 二、多选题1.BD 2.CD 3.AC 4. AD三、填空题1.(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)说明:《VB 语言程序设计》一书由电子工业出版社2003年1 月出版,其电子讲稿及辅助文件已存放在该出版社网站中,可按照该书《前言》介绍的方法进行下载。
(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2.Int(50+6*Rnd)3.(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"(7)04. "系统管理数据库"编程及上机调试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。
Private Sub Command1_Click()Dim x As Stringx = Left(Text1.Text, 1) + Right(Text1.Text, 1)Text2.Text = xEnd Sub第3章习题一、单选题1.C 2.B 3.D 4.D 5.B 6.C 7.B 8.D 9.D 10.A 11.A 12.C 13.C 14.B 15.(1)A (2)C 16.A 17.B 18.(1)D (2)B (3)C 19.D二、多选题1.AC 2.AC 3.ABCF三、填空题1. $000,124 2.Label1.Caption="a*b=" 3.Height,Width4.2 5.Text1.SetFocus6.Multiline, ScrollBars, 2 7.编程技术,程序设计8.Private Sub Text2_Change()´当文本框Text2中的文本内容发生变动时,执行该事件过程Label1.Caption=Text1.Text ´把文本框Text1中的文本内容作为标签Label1的标题End SubPrivate Sub Text1_GotFocus() ´当文本框Text1获得焦点时,执行该事件过程Text1.SelStart = 0 ´选定文本框Text1中的所有文本内容Text1.SelLength=Len(Text1.Text)End Sub编程及上机调试1.在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数),以及一个命令按钮Command1。
Private Sub Command1_Click()n = Val(Text1.Text)Randomizex = Int(1 + n * Rnd)Label1.Caption = "第一个随机数" + Str(x)x = Int(1 + n * Rnd)Label2.Caption = "第二个随机数" + Str(x)x = Int(1 + n * Rnd)Label3.Caption = "第三个随机数" + Str(x)End Sub2.在窗体上建立了四个文本框Text1、Text2、Text3和Text4,以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click() '“交换”t = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = tEnd SubPrivate Sub Command2_Click() '“合并”t = Text1.Text + Text2.Text + Text3.TextText4.Text = tEnd Sub3. (1)Rnd * 9000 + 1000 (2)Str(x) (3)Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)4. Private Sub Command1_Click() '往左Text1.Left = 0End SubPrivate Sub Command2_Click() '往右Text1.Left = Form1.Width - Text1.WidthEnd SubPrivate Sub Command3_Click() '居中Text1.Left = (Form1.Width - Text1.Width) / 2End Sub5. Private Sub Cmd1_Click()Lab1.Visible = TrueLab1.Caption = "您已下达显示命令"End SubPrivate Sub Form_Click()Cmd1.Visible = TrueEnd Sub6. Private Sub Form_KeyPress(KeyAscii As Integer)ShowPrint "输入字符:"; Chr(KeyAscii), "ASCII码为;"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub7. 产生这三个消息框的相应语句是:产生第1个消息框:x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")产生第2个消息框:x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")产生第3个消息框:x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")第4章习题一、单选题1.C 2.A 3.C 4.C 5. B 6. A7.D 8.B 9.B 10.(1)D (2)A (3)B二、多选题1.ABCFGHJ 2.BE 3.CD 4. CDE 5. AE三、填空题1.(S And (A>=18 And A <=20) And H>=1.65) Or (Not S And (A>=16 And Age<=18) And H>=1.60)2. 600003. (1) "0" To "9" (2) "a" To "z","A" To "Z" (3) Else4.(1)6 (2)-2 (3)25. Select Case x Case Is < 20Case Is <= 0 y = 2 y = 4 Case Is <= 30Case Is < 10 y = 3y = 0 Case ElseCase Is < 15 y = 4y = 1 End Select6.(1) (x>100) And (x Mod 5=0) (2) 0(3) Len(Text1.Text) (4) Text1.SelText编程及上机调试1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果),一个命令按钮Command1(“判断”)。
Private Sub Command1_Click() '“判断”x = Val(Text1.Text)If x Mod 2 = 0 ThenText2.Text = "偶数"Else消息Text2.Text = "奇数"End IfEnd Sub2.窗体上建立了一个文本框Text1,用于显示结果。