Visual Basic辅导及习题解
- 格式:doc
- 大小:122.50 KB
- 文档页数:20
VB学习指导第一章 Visual Basic 概述一、知识点1.基本概念(1)对象(2)对象类(3)实例(4)窗体(5)控件(6)属性(7)方法(8)事件VB 集成开发环境(IDE)2.基本理论(1)面向对象的程序设计方法(2)事件驱动方式的程序设计原理3.主要操作流程(1)创建应用程序的一般步骤(2)VB 集成开发环境的基本操作–创建一个新工程二、要点、难点1.对象的实例化2.对象的属性、方法、事件3.事件驱动4.创建、打开和保存窗体文件和工程文件三、例题1.例:VB 是面向___________ 的程序设计语言:A.过程B.工程C.事件D.对象正确答案:D解释:传统的结构化语言都是采用面向过程的编程方法来解决问题,其中最主要的缺陷就是程序的可维护性差。
面向对象编程(OOP:Object Oriented Programming)则将数据和处理数据的代码封装到一个类中,类的实例就是对象。
面向对象的编程方法有三个优点①程序易于阅读;②程序易于修改;③对象能重复使用多次。
VB 支持OOP ,并且运用OOP 的方法将代码和数据封装起来形成一个个可视的图形对象(如窗体和控件等),使对象成为有形的实在的东西。
2.例:一个对象可以执行的动作与可被一个对象所识别的动作分别称为________。
A.事件、方法B.方法、事件C.属性、方法D.过程、事件正确答案:B解释:方法指对象可以进行的动作或行为。
通过“方法”,可使对象以指定的方式去做某种动作或改变行为。
VB程序中每个窗体或控件对象都具有若干可改变其行为或实现某个特定动作(操作)的方法。
例如,窗体可被“显示”或被“隐藏”。
事件是指由系统预先设置好的,能被对象识别的动作,如单击鼠标、移动鼠标、按下键盘上的某个键。
四、习题1.VB 的使用目的是_________。
A.开发Windows应用程序B.图像处理C.制作W A V文件D.文字处理2.对象的_________确定当一个事件发生时执行代码。
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 程序设计的一些基本概念和技术,希望读者能够结合自己的实际情况进行学习和练习,不断提高自己的编程水平。
VB习题与解答第1章了解Visual Basic1. Visual Basic 6.0有哪些主要特点?解答:Visual Basic 6.0主要有如下的特点:⑴面向对象的可视化设计平台;⑵事件驱动的编程机制;⑶结构化的程序设计语言;⑷开放的数据库功能与网络支持;⑸充分利用WINDOWS资源;⑹方便实用的程序向导等。
2. 如何启动Visual Basic 6.0?解答:选择【开始】│【程序】│【Microsoft Visual Basic 6.0中文版】│【Microsoft Visual Basic 6.0中文版】命令,即可启动VB。
3. Visual Basic 6.0集成开发环境中有哪些常用窗口?它们的主要功能是什么?解答:VB集成开发环境主要包含以下窗口:主窗口、工具箱、窗体窗口、工程资源管理器窗口、【属性】窗口以及【窗体布局】窗口等。
⑴主窗口:由顶部的标题栏、菜单栏和工具栏以及下面的工作区组成。
主窗口是VB 集成开发环境的主界面,VB程序的设计及调试均在此进行。
⑵工具箱:标准工具箱中含有一个指针图标和20个内部(标准)控件的图标。
除指针图标外,每一个图标代表一种控件,每个控件都是已经定义好的对象,它们有自己的属性、方法和事件。
⑶窗体窗口:窗体窗口又称为“对象窗口”或“窗体设计器”。
窗体窗口是设计用户界面的地方。
⑷工程资源管理器窗口:工程资源管理器窗口(简称工程窗口)用于显示和管理当前程序中所包含的全部文件。
⑸【属性】窗口:用于设置窗体和控件的属性,如名称、外观、位置、字体等。
⑹【窗体布局】窗口:用于指定程序运行时窗体的初始位置。
⑺代码窗口:代码窗口又称为代码编辑器,用于输入和编辑程序⑻【立即】窗口:使用【立即】窗口可以在中断状态下监视对象属性、变量或表达式的值,也可以在设计时查询表达式的值或命令的执行结果。
4. 工程资源管理器和属性窗口各有哪些组成部分?它们的主要功能是什么?解答:工程资源管理器窗口由三部分组成,自上而下分别为标题栏、工具栏和文件列表,分别用于显示当前工程名称、切换代码和对象窗口、管理工程中的所有文件。
visual_Basic程序的设计教程_课后习题答案及练习《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,才能接受焦点。
Vb课后题答案参考答案第1章概述第3章常用标准控件二.选择题:1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A 13.C 14.B 15.D16.D 17.C 18.A 19.D 20.A 21.B三.编程及上机调试:1.Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = " "End Sub2.Private Sub Command1_Click()Text2.Text = List1.ListCountPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章VB语言基础二.选择题:1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A 15.A16.C 17.D 18.A 19.B 20.D21.C 22.A 23.B 24.C 25.C三.编程及上机调试:1.Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = Val(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数;"; x; "倒序数"; dEnd Sub2.Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiPrivate Sub Form_DblClick()ClsEnd Sub3.Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二.单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四.编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub(2)Select Case实现:Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case 10 To 20y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3.Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4.Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = Val(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoopPrint sEnd Sub第6章数组二.单选题:1.A2.A.3.A4.C5.D6.D7.A8.D9.B 10.B四.编程及上机调试:1.Option Base 1Private Sub Form_Click()Dim a(10) As IntegerDim i As Integer, t As IntegerPrint "数组的原始数据为:";For i = 1 To 10a(i) = Int(11 * Rnd) + 10Print a(i);Next iPrintPrint "变化后数组数据为:";For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a(3, 4) As Integer, i As Integer, j As Integer, k As Integer, p As Integer RandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(90 * Rnd + 10)Print a(i, j);Next jPrintNext iMax = a(1, 1): k = 1: p = 1For i = 1 To 3For j = 1 To 4If a(i, j) > Max ThenMax = a(i, j)k = ip = jEnd IfNext jNext iPrint "最大的数为第" & k & "行,第" & p & "列的数:" & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer '在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() '"生成数组"按钮RandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 10) '一位的随机数Picture1.Print a(i, j); '输出元素Next jPicture1.PrintNext iEnd SubPrivate Sub cmdcol_Click() '"求列和"按钮Dim colsum As Integertxtcol.Text = ""For j = 1 To 5 '列变量先循环colsum = 0For i = 1 To 4colsum = colsum + a(i, j)Next itxtcol.Text = txtcol.Text & Str(colsum)Next jEnd SubPrivate Sub cmdrow_Click() '"求行和"按钮Dim rowsum As Integertxtrow.Text = ""For i = 1 To 4 '行变量先循环rowsum = 0For j = 1 To 5rowsum = rowsum + a(i, j)Next jtxtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLfNext iEnd SubPrivate Sub cmdclear_Click() '"清除"按钮Picture1.Clstxtcol.Text = ""txtrow.Text = ""End SubPrivate Sub cmdexit_Click() '"结束"按钮EndEnd Sub4. Option Base 1Private Sub Form_Click()Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox("第一维上界")Do While Not IsNumeric(x)x = Int(InputBox("第一维上界"))Loopy = InputBox("第二维上界")Do While Not IsNumeric(x)y = Int(InputBox("第二维上界"))LoopReDim a(x, y)Print "原数组元素为:"For i = 1 To xFor j = 1 To ya(i, j) = Int(90 * Rnd) + 10Print a(i, j);Next jPrintNext iPrint "转置后数组元素为:"For i = 1 To yFor j = 1 To xPrint a(j, i);Next jPrintNext iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10If i = j Or i + j = 11 Thena(i, j) = 0Elsea(i, j) = 1End IfPrint a(i, j);Next jPrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integerj = 1For i = 3 To 21 Step 2a(j) = iPrint a(j);j = j + 1Next iPrintn = InputBox("请输入一个数")For i = 1 To 10If n = a(i) ThenFor j = i To 10a(j) = a(j + 1)k = k + 1Next jEnd IfNext iFor i = 1 To 9Print a(i);Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As Variant, k As Integer, i As Integer, j As IntegerDim b As Variantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 '对数组a的元素排序k = iFor j = i + 1 To 10If a(k) > a(j) Then k = jNext jIf k <> i Then '数组b的元素随数组a的元素一起变动t = a(i)a(i) = a(k)a(k) = tt = b(i)b(i) = b(k)b(k) = tEnd IfNext iPrint "按名字的排列顺序为:"For i = 1 To 10If Len(b(i)) = 2 Then b(i) = "0" & b(i) '补上数组b中长度为2的编号前的"0"Print "第" & i & "名的号码为:" & b(i) & ",成绩为:" & a(i)Next iEnd Sub。
试题一、语言基础(35分)(一)判断下列叙述的正确与否,正确的打“√”,否则打“×”(每题1分,共10分)1.窗体的Top、Left属性为数值,其单位长度为缇,且不可改变 ( ) 。
2.数组的下标最小为1,且不可改变 ( ) 。
3.设置好窗体字体后,在窗体上建立控件,各控件的默认字体为窗体字体 ( ) 。
4.控件的只读属性值不可以在程序运行时动态地修改 ( ) 。
5.函数Val("2a")的返回值为42 ( ) 。
6.标签框的Caption属性值为字符串,运行时可以重新赋值 ( ) 。
7.列表框控件的Sorted属性可以在运行时修改 ( ) 。
8.将容器的FillStyle属性设置为0后,容器中所有图形都变为实心填充 ( ) 。
9.在容器的ScaleMode属性值中,取值7使得容器的单位长度最小 ( ) 。
10.图片框的Clear方法可以清除图片框中的文字以及用图形方法绘制的图形 ( ) 。
(二)单选题(每题1分,共5分)1.装入窗体后,使窗体最大化的窗体属性名是。
A、WindowStateB、MaxC、MinD、Style2.按Tab键时,决定焦点在各个控件之间移动顺序的属性是。
A、IndexB、TabIndexC、TabStopD、SetFocus 3.表示文本框中所选定内容的属性是。
A、SeltextB、SellenghtC、TextD、Caption 4.设置某菜单项是不是一个分割条的属性是。
A. NameB. CaptionC. EnabledD. Visible 5.语句“Circle(1000,1000),800,,,,2”绘制的是。
A、弧B、椭圆C、扇形D、同心圆(三)填空题(每题2分,共20分)1.将一条语句分成多行显示,语句间使用的分隔符为。
2.将数学式 (x+1)e2x写作VB算术表达式为。
3.判断整型变量n是否为两位正整数的逻辑表达式为。
4.执行下列程序段后,变量s、k的值依次为。
第二部分VISUAL BASIC 考点习题及解答第二部分VISUAL BASIC 考点习题及解答第二部分 Vi sual Basi c 考点习题及解答一、对象及其操作(一)、选择题1 决定一个窗体有无控制菜单的属性是(A)MinButton (B)Caption (C)MaxButton (D)ControlBox2 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine 属性设置为 True,然后再将ScrollBar 属性设置为:(A)O (B)1 (C)2 (D)33 要使文本框获得输入焦点,则应采用文本框控件的哪个方法?(A)GotFocus (B)LostFocus (C)keypress (D)SetFocus4 要想改变一个窗体的标题内容,则应设置以下哪个属性的值?(A)Name (B)FontName (C)Caption (D)Text5 能够改变窗体边框线类型的属性是(A)Fontstyle (B)Borderstyle (C)BackStyle (D)Border6 能够获得一个文本框中被选取文本的内容的属性是(A)Text (B)Length (C)SelText (D)SelStart7 要使标签能够显示所需要的文本,则在程序中应设置其哪一属性的值?(A)Caption (B)Text (C)Name (D)Autosize8 要使标签中显示的文本靠右显示,则应将其 Alignment 属性设置为(A)O (B)1 (C)2 (D)39 要把一个命令按钮设置成无效,应设置其哪一属性值?(A)Visible (B)Enabled (C)Default (D)Cancel10 要使一个命令按钮成为图形命令按钮,则应设置其哪一属性值?(A)Picture (B)Style (C)DownPicture (D)DisablePicture11 要使标签所在处透明显示背景,应把其 Backstyle 属性设置为(A)O (B)1 (C)True (D)False12 为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个性设置为True,这个属性是:(A)Value (B)Cancel (C)Enabled (D)Default参考答案:(一)、选择题1 D2 D3 D4 C5 B6 C7 A8 B 9 B 10 B 11 A 12 D二、数据类型及其运算( 一) 、选择题1. 下面给出的符号中, 不能作为 Visual Basic 的变量名的是(A) abed (B) 4A12 (C) AA-123 (D) BB%2. 下面给出的符号中, 可以作为 Visual Basic 的变量名的是(A) abc-123 (B) π R (C) Print (D) Beta3 下列可作为 Visual Basic 的常量的是(A) π (B) 1. O*E-3 (C) -1E5 (D) E-64. 下列不可作为 Visual Basic 的常量的是(A) 1OE01 (B) -l00. 98# (C) . 0001 (D) 1. OE5. 按照 Visual Basic 的规定, 下面作为字符串常量合法的是(A) ABC$ (B) “ABCπ” (C) “AB” $ (D) ‘abc123'6. 按照 Visual Basic 的规定, 123#所表示的数据类型是(A) 整型 (B) 双精度型 (C) 单精度型 (D) 长整型7. 下面给出的符号中, 可以作为 Visual Basic 的变量名的是(A) PRINT (B) LET (C) %by (D) S#8. 下面给出的符号中, 不可以作为 Visual Basic 的变量名的是(A) E* (B) e! (C) E# (D) e%9. 常量 4. 5123843D-5 是一个以指数形式表示的合法的Visual Basic 常量, 下面与该数的值等价的是(A) 0. 000045123843 (B) 0. 0045123843(C) 0. 00045123843 (D) 0. 04512384310. 下面不可以作为 Visual Basic 常量的是(A) "01-12-1999" (B) #1999-12-21#(C) True (D) π11. 下面能够作为 Visual Basic 的表达式的是(A) 4*sin(π ) (B) b^2-4ac(C) [-b+sqr(dlt) ]/(2*a*c) (D) exp(x) +ABS(Y)12. 下面表达式中, 其值为 0 的是(A) 4/5 (B) 5Mod 4 (C) 4\5 (D) 4Mod 513. 在 Visual Basic 中, 以下表达式的值与其他三个不同的是(A) Int(-3. 5) +0. 5 (B) exp(-3. 5)(C) SGN(一 3. 5) -2. 5 (D) -ABS(一 3. 5)14. 在 Visual Basic 中, 执行下面四个赋值语句时出现错误的是(A) x=SGN(O) (B) Y=sqr(O) (C) z=LOG(O) (D) x=SIN(O)15. 下面不可以作为 Visual Basic 常量的是(A) &61A& (B) &234 (C) &O43& (D) &Habc&16. 设变量 a=2, b=3, c=4, d=5, 则表达式 not a>b and b^2c-d 的值为(A) True (B) False (C) -1 (D) 1(二) 、填空题17 与数学表达式 cos 3 (2π ) 相对应的 Visual Basic 表达式是_______________。
第7章对话框与菜单程序设计一、判断题1.√2.√3.√4.×5.×6.×7.√8.√9.√10.√二、选择题1.D 2.A 3.C 4.C 5.B 6.D 7.A 8.B 9.D 10.B三、填空题1.窗体控制菜单、下拉式菜单、快捷菜单2.ShowFont3.打开文件、另存为、颜色、字体、打印对话框4.工程、部件5.CommonDialog1.Action =3、CommonDialog1.ShowColor6.提示信息、对话框类型、对话框标题7.Click8.工具9.代码窗口、Click 10.相同、正四、程序阅读题程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题1.(1)Int(Rnd*100) (2)Str(i) (3)Exit For2.(1)False (2)Date (3)CommonDialog1.Color (4)m1六、程序设计题程序1.界面设计略,过程设计如下:Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序2.界面设计略,过程设计如下:Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序3.界面设计如图10-9、表10-2所示,过程设计如下:Private Sub Sqr_Click()Shape1.Shape = 1End SubPrivate Sub Rec_Click()Shape1.Shape = 0End SubPrivate Sub Oval_Click()Shape1.Shape = 2End SubPrivate Sub Circle_Click()Shape1.Shape = 3End SubPrivate Sub Rrec_Click()Shape1.Shape = 4End SubPrivate Sub RSqr_Click()Shape1.Shape = 5End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2End SubPrivate Sub Shzh_Click()Shape1.FillStyle = 3End SubPrivate Sub Xiex_Click()Shape1.FillStyle = 4End SubPrivate Sub ShPJ_Click()Shape1.FillStyle = 6End SubPrivate Sub XJ_Click()Shape1.FillStyle = 7End SubPrivate Sub FillColor_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.ColorEnd SubPrivate Sub Exit_Click()EndEnd Sub第8章文件一、判断题1.×2.√3.×4.√5.√6.×7.√8.×9.√10.√11.×12.×13.√14.×15.×二、选择题1.A 2.C 3.B 4.B 5.A 6.C 7.C 8.B 9.C 10.B 11.D 12.B 13.B三、填空题1.ChDir 2.FileLen 3.Change 4.EOF 5.Line Input四、程序阅读题程序1. y= 1 a= 1 程序2. NO. 1 3 程序3.y= 3 a= 2 NO. 2 4 窗体:36 25 16 9 4 1y= 6 a= 3 NO. 3 7 文件:1 4 9 16 25 36y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1窗体上显示内容:20 2 2 1 2文件中内容:4 6 8 10 12 3 3 3 1 2 34 4 4 45 5 5 5 5五、程序填空题1.(1)Dim n As Integer (2)"C:\windows\calc.exe"(3)Output (4)End2.(1)For Output As #2 (2)0 (3)"temp.dat" As "c:\a1.dat"3.(1)Open "e:\dataout.txt" For Output As #1(2)t1 Mod t2 = 0 (3)If flag Then (4)Print coun六、程序设计题程序1.界面设计如图10-10所示,过程设计如下:Dim fn As StringPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) = "\" Thenfn = File1.Path + File1.FileNameElsefn = File1.Path + "\" + File1.FileNameEnd IfEnd SubPrivate Sub Command1_Click()Dim yesno As Byteyesno = MsgBox("确认要删除吗?", vbYesNo, "删除文件")If yesno = vbYes Then Kill fnFile1.RefreshEnd Sub程序2.建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩,按“确认”按钮追加该记录到磁盘文件d:\student.dat。
《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言,广泛应用于图形用户界面(GUI)的开发。
下面是一套Visual_Basic程序设计的试题,以及详细的答案解析。
一、概念题(共10题,每题2分,共20分)1. 什么是Visual_Basic程序设计?答案:Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE),用于Windows平台的程序开发和编程。
2. Visual_Basic程序设计的特点是什么?答案:Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。
3. 什么是控件?答案:控件是Visual_Basic程序设计中用于构建用户界面的基本元素,如按钮、文本框、标签等。
4. Visual_Basic程序中的数据类型有哪些?答案:Visual_Basic支持多种数据类型,包括整数、浮点数、字符串、布尔值等。
5. 什么是条件结构?答案:条件结构是一种根据不同条件执行不同操作的程序结构,如If语句和Select Case语句。
6. 什么是循环结构?答案:循环结构是一种重复执行特定操作的程序结构,如For循环和While循环。
7. 什么是函数?答案:函数是一段可重复调用的代码,通常用于实现特定功能,并可以返回结果。
8. 如何定义和调用函数?答案:在Visual_Basic中,可以使用Function关键字定义函数,并使用函数名调用函数。
9. 什么是异常处理?答案:异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制,以保证程序的稳定性。
10. Visual_Basic程序如何进行调试?答案:Visual_Basic提供了丰富的调试工具,包括断点调试、单步调试等,以帮助程序员发现和解决问题。
二、编程题(共2题,每题40分,共80分)题目一:设计一个Visual_Basic程序,实现计算器的基本功能。
第1章 Visual Basic6.0概述1.运行Visual Basic 6.0需要最低的软、硬件要求是什么?2.简述Visual Basic 6.0的安装过程。
3.简述Visual Basic 的功能特点。
4.Visual Basic 6.0 包括几个版本?它们之间有何差别?5. Visual Basic是一种面向对象的可视化程序设计语言,它采用的编程机制是什么?答:事件驱动的编程机制。
6.如何打开或关闭窗体窗口、代码窗口?7. Visual Basic视图菜单中包括哪些主要内容?其快捷键是什么?答:代码窗口、对象窗口(Shift+F7)、对象浏览器(F2)、立即窗口(Ctrl+G)、工程资源管理器(Ctrl+R)、属性窗口(F4)、窗体布局窗口、工具箱、工具栏(编辑、标准、窗体编辑器)等。
8.写出标准工具栏中下列按钮的名称(自左至右)。
答:左边组:添加Standard EXE 工程、添加窗体、菜单编辑器、打开工程、保存工程;右边组:工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、Visual Component Manager。
第2章 Visual Basic 程序设计概述1.如何在当前窗体中创建和删除一个对象?举例说明。
2.什么是对象的属性、事件和方法,它们对设计VB程序有什么作用?3.如何设置对象的属性?举例说明。
答:方法一:设计阶段表静态修改,例如,在标签Label1的属性窗口中找到Caption 属性,将其缺省值Label1修改为“姓名”;方法二:程序中代码修改,例如,Label1.Caption="姓名"。
4.建立一个对象后,每个属性都有一个默认值,Name属性和Caption属性的默认值相同,它们有什么区别?能否用代码修改Name属性?答:Name属性在程序中对象的唯一标识,不能用代码修改;Caption属性用于显示对象的标题文字,可以在程序中用代码修改。
第一部分习题与解答
本部分针对《Visual Basic程序设计教程》各章节内容,分别设置了单选题、判断题、填空题、窗体设计题、编程题等多种题型,并给出了参考答案和详细的解析,有的题型提供了解题的基础思路、操作步骤和解题技巧,有的则给出了算法思路和参考代码,以促进读者对基本知识的掌握,提高基本技能和技巧,帮助读者掌握编程的基本方法。
本部分运用化整为零、各个击破、淡化难点的方式编写,结合各个题目分别阐述相关知识的重点与难点,使读者在解题中轻松愉快地巩固复习,掌握各章的基本概念、基础知识与基本技能,也为应对各类考试积累经验。
窗体设计题和编程题的答案仅供参考,力求给读者一个立体而完整的解决问题的过程和理念,从而提高读者的实际应用能力。
由于解题方法和答案存在不唯一性,所以,读者应打破所给答案的束缚,充分运用所学知识,发挥个体主观能动性,开拓思路,抓住重点,寻求自己独特的解决方法。
中南大学网络教育课程(专科)考试复习题及答案《Visual Basic程序设计与应用》一、选择题:在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在题后的括号内。
1. Visual Basic程序中分隔一行中各语句的字符是()。
[ ]A)‘B):C)\D)_2. 下列可作为Visual Basic的变量名的是()。
[ ]A: Filename B: A(A+B)C: A%D D : Print3. 要让菜单项无效,应将()属性值设置为False。
[ ]A. VisibleB. EnabledC. MoveableD. Checked4. 以下过程是()事件。
Prviate Sub Form_Load( )……End Sub [ ]A: 命令按钮的单击B: 命令按钮的装载C; 窗体的装载D: 窗体的单击5. Vb中描述文件扩展名的是()属性。
[ ]A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中,不正确的为()。
[ ]A)事件是由Visual Basic预先定义好的,能够被对象识别的动作B)DblClick(双击)是Visual Basic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义7. 下列控件中可设置滚动条是()。
[ ]A. 检查框(复选框)B. 框架C. 文本框D. 标签框8. 在Visual Basic中建立一个空窗体,( )不会是其默认名。
[ ]A. Form1B. Form2C. FormxD. Form109. Const One&=1,则One为()类型的常数。
[ ]A)整型B)字节型C)长整型D)单精度型10. 关于逻辑型数据,下列说法错误的是()。
[ ]A. 逻辑型数据只有两种可能值:True或者FalseB. 当把逻辑值转换为数值时False转为0,True转为1C. 当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为FalseD. 逻辑型数据以2个字节存储11. 以下()不是Visual Basic的特点。
“Visual Basic编程与应用”辅导及习题解答第一章 VB语言概述一、基本要求1.掌握VB程序设计的特点。
2.理解可视化设计和事件驱动编程的概念。
二、问题解答1、VB程序设计的特点是什么?VB是Windows环境下的应用程序开发工具,其最突出的两个特点是:可视化编程和事件驱动。
VB的另一个显著特点是交互式,所谓交互式是指在编写代码过程中出现语法错误时系统会立即获得通知,并在开发过程中可运行程序进行调试。
2.如何理解可视化编程和事件驱动的概念。
(1)可视化编程传统的编程方法使用的是面向过程、按顺序进行的机制,其缺点是程序员始终要关心什么时候发生什么事情,应用程序的界面都需要程序员编写语句来实现,对于图形界面的应用程序,只有在程序运行时才能看到效果,一旦不满意,还需要修改程序,因而使得开发工作非常烦琐。
用VB进行应用程序开发主要有两部分工作:即设计界面和编写代码。
在开发过程中所看到的界面,与程序运行时的界面基本相同,同时VB还向程序员提供了若干界面设计所需要的对象(称为控件),在设计界面时,只需将所需要的控件放到窗口的指定位置即可,整个界面设计过程基本不需要编写代码。
概括地说可视化编程就是程序员在开发过程中能看到界面的实际效果。
(2)事件驱动用VB开发的应用程序,代码不是按照预定的路径执行,而是在响应不同的事件时执行不同的代码片段。
事件可以由用户操作触发,如单击鼠标、键盘输入等事件。
也可以由来自操作系统或其它应用程序的消息触发。
这些事件的顺序决定了代码执行的顺序。
概括地说事件驱动是指应用程序没有预定的执行路径,而是由程序运行过程中的事件决定。
第二章 VB6.0 集成开发环境一、基本要求1.掌握窗体、工程窗口、属性窗口、代码编辑器窗口的功能与使用。
2.掌握VB编程的基本步骤,会设计简单的VB程序。
3.理解对象、属性、事件和方法的概念及其之间的关系。
4.了解工具箱中各种控件的功能与使用二、问题解答1.VB可视化编程的一般步骤是什么?一般步骤是:(1)设计界面先建立窗体,再利用控件在窗体上创建各种对象。
(2)设置属性设置窗体或控件等对象的属性。
(3)编写代码2.什么是对象、属性、事件和方法?(1)对象:从广义上来说,对象是客观事物的一个实体。
在可视化编程语言中,对象分为两类,一类由系统设计,可以直接使用或对其进行操作,如工具箱中的控件、窗体和菜单等,另一类由用户定义。
(2)属性:属性是一个对象的特性,不同的对象有不同的属性。
对象常见的属性有标题(Caption)、名称(Name)、颜色(Color)、字体(Font) 、是否可见(Visible)等。
通过修改对象的属性,可以改变对象的外观和功能。
(3)事件:所谓事件就是发生在对象上的事情。
在VB中,系统为每个对象预先定义好了一系列的事件。
例如单击(Click)事件、双击(Dbclick)事件、装入(Load)事件、改变(Change)事件、鼠标移动(MouseMove)事件、获取焦点(GotFocus)事件等。
对象的事件是固定的,用户不能建立新的事件。
当事件由用户触发(如单击)或由系统触发(如装入时),对象就会对该事件作出响应,响应某个事件后所执行的程序代码就是事件过程。
例如:命令按纽Command1的Click(单击)事件过程为:Private Sub Command1_Click()Form1.BackColor=vbRedEnd Sub过程中的代码Form1.BackColor=vbRed表示将窗体的背景颜色设置成红色。
运行时,用鼠标单击命令按纽Command1,就会执行该事件过程,将窗体的背景颜色设置成红色。
(4)方法:在面向对象的程序设计中,引入了称为方法(Method)的特殊过程和函数供用户直接调用。
如对象打印(Print)方法、显示窗体(Show)方法、清除(Cls)方法、移动(Move)方法等。
用户可直接调用,不能进行修改。
例如:FirstForm.print”欢迎使用Visual Basic”该语句使用.print方法在名称为FirstForm的窗体上显示字符串”欢迎使用Visual Basic”。
3.对象、事件和方法三者之间的关系如何?在VB编程中,完成某种功能可通过触发对象事件和调用对象方法,而触发事件和调用对象方法都必须基于某个对象。
触发某个事件实际上就是执行一个事件过程代码段,在该代码段中又可以随意调用对象方法,而调用对象方法不可能触发某个事件。
例如:在窗体上添加一个命令按纽,编写一个响应Command1的单击(Click)事件过程如下:Private Sub Command1_Click()Command1.Caption=”显示窗体”Form2.ShowEnd Sub上述代码段表明单击对象按钮Command1触发单击事件,即执行上述代码。
在执行上述事件过程中又调用了显示窗体(Form2)的方法。
4.属性和方法有何区别和联系?试举例说明。
对象的属性是描述对象的一组特征。
如设置对象的名称、标题、颜色、大小等,有的可直接在设计界面时通过属性窗口进行设置,有的可以在事件过程或通用过程代码中进行设置。
对象的方法是在对象上实施某种操作的功能,不能在设计界面时调用对象方法,一般在过程代码中可随意调用,根据需要还可以添加适当的参数。
设置对象属性和调用对象方法均可在代码设计中进行,其一般格式为:对象名.属性名=属性值(设置对象属性)对象名.方法名(调用对象方法)5.VB6.0的三种工作模式和功能是什么?VB6.0的三种工作模式和功能是设计模式、运行模式和中断模式。
设计模式:可以进行用户界面的设计和代码的编写。
运行模式:运行应用程序,此时不可以编辑代码,也不可以编辑界面。
中断模式:应用程序运行暂时中断,此时可以编写代码,但不可以编辑界面。
第三章 程序设计基础一、 基本要求1.了解VB 中定义的13种标准数据类型。
2.掌握变量、常量的概念及其数据类型。
掌握变量的命名规则,理解变量声明的含义。
3.掌握数组(包括静态数组与动态数组)的概念与声明。
4.理解记录类型(用户自定义类型)的定义。
5.掌握各种运算符与表达式的含义和应用,掌握运算符的优先级。
6.掌握赋值语句、注释语句、条件分之语句(If Then 、If Then Else 、If Then ElseIf 、Select Case )、循环语句(Do…Loop、For…Next、For Each…Next、While…Wend)的含义及书写格式。
7.理解常见标准函数(交互式函数、类型转换函数、数学函数、日期和时间函数、字符串函数、目录和文件函数)的用途。
二、问题解答1.VB 定义了哪几种数据类型?变量有哪几种数据类型?常量有哪几种数据类型? 解答:数据是程序的必要组成部分,也是程序处理的对象。
在各种程序设计语言中,数据类型的规定和处理方法是各不相同的。
Visual Basic 不但提供了系统定义的数据类型,而且还允许用户定义自己的数据类型在VB6.0定义了13种数据类型,它们是整型、长整型、单精度浮点型、双精度浮点型、货币型、字节型、变长字符串、定长字符串、布尔型、日期型、对象型、可变类型(数值)、可变类型(字符)。
变量是指在程序运行过程中其值可以改变的量,变量的数据类型如下: 变量的数据类型 ⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎩⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎨⎧⎩⎨⎧⎩⎨⎧⎪⎪⎪⎪⎩⎪⎪⎪⎪⎨⎧字符数值可变型对象型日期型布尔型定长字符串变长字符串字符型字节型货币型双精度浮点型单精度浮点型长整型整型数值型常量是指在程序运行期间其值不发生变化的量。
常量的数据类型有:字符串常量、数值型常量、布尔型常量、日期型常量。
在VB中有两种形式的常量,即直接常量和符号常量。
符号常量又可分为系统内部常量和自定义常量。
直接常量是指在程序代码中,以直接明显的形式给出的数,根据常量的数据类型分,有上述四种数据类型的常量。
例如:“欢迎使用Visual Basic”'字符串常量12345 '数值型常量True '布尔型常量#11/10/2002# '日期型常量系统内部常量是应用程序和控件提供的,这些常量的定义可以从“对象浏览器”中获得。
如VbBlue所表示的颜色值为&HFF0000, 描述为蓝色。
自定义常量是为方便用户开发而引入的符号常量。
自定义常量使用关键字Const进行声明。
例如:Const Pi = 3.14159 '声明符号常量Pi为3.14159 ,单精度型。
2.变量的命名规则是什么?解答:VB变量的命名规则如下:●第一个字符必须是字母。
●长度不超过255个字符。
●不可以包含小数点或者内嵌的类型声明字符。
●不能使用关键字。
●不能与过程名或符号常量同名。
3.如何声明变量?解答:(1)隐士声明变量可以不经声明而直接使用,此时该变量为可变类型变量。
在可变类型变量中,可以存放任何类型的数据,如数值、字符串、日期和时间。
虽然这种方法很方便,但常会导致难以查找的错误。
所以一般采用显示声明变量的方法。
(2)显示声明格式:Dim|Private|Static|Public<变量名> [As <类型>]Dim:在窗体模块、标准模块或过程中声明变量。
Private:在窗体模块或过程中声明变量,使变量仅在该模块或过程中有效。
Static:在过程中定义静态变量,即使该过程结束,也仍然保留变量的值。
Public:在标准模块中声明全局变量,使变量在整个应用程序中有效。
如: Dim Sum As Long '声明变量Sum为长整形为了保证所有变量都能得到声明,可以使用VB的强制声明功能,这样,只要在运行时遇到一个未经明确声明的变量名,VB就会发出错误警告。
要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句:Option Explicit应当注意的是:Option Explicit语句的作用范围仅限于语句所在模块,所以对每个需要强制显示变量声明的窗体模块、标准模块及类模块。
必须将Option Explicit语句放在这些模块的声明段中。
全局变量是可以在工程中的所有程序模块使用的变量,使用关键字Public声明的变量可以被工程中的任一窗体、任一模块中的任一过程或函数使用。
全局变量的声明只能位于标准模块的声明部分。
4.数组、静态数组和动态数组的声明。
(1)数组是有序数据的集合。
数组的定义语法如下:Dim 数组名([[下标下界To]下标上界])[As数据类型](2)静态数组是指数组元素的个数是固定不变的,即它们占用的内存空间大小是固定不变的。
(3)动态数组是指在程序执行过程中数组元素的个数可以改变的数组。
5.在VB中有几类运算符和表达式?运算是用来对运算对象进行各种运算的的操作符号,而表达式是由多个运算对象和运算符组合在一起的合法算式。