《VisualBasic编程实例入门与提高》习题答案

习题 11. 填空题(1) Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。

(2) Visual Basic 的对象主要分为 和 两大类。

(3) 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。

(4) 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是： 和 。

(5) 在 Visual Basic 中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的 来实现的。

(6) 在 Visual Basic 中，事件过程的名字由 、 和 所构成。

(7) 若用户单击了窗体 Form1，则此时将被执行的事件过程的名字应为：。

(8) Visual Basic 的集成开发环境主要由6个部分组成，它们分别是： 、 、 、 、 、 。

2.简答题(1) 简述Visual Basic 的特点(2) 什么是对象的属性、事件和方法？(3) Visual Basic 如何完成对用户操作的响应?(4) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程?习题 22.1 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。

100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#2.2 下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.3452.3 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π2.4 把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e2.5 写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.5) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"2.6 设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 52.7 写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")2.8 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。

Dim n As Integern=Text1.TextIF(n Mod 4 =0 And n mod 100< >0 or n mod 400 = 0)Then Text2.text =”闰年”ElseText2.text=”非闰年”End IF求和求积Dim i As integerOpen App.path&”\jsdata.txt”For input As #1For i =1 to 15Input #1,arr(i)Next iIf op1.value=ture thenT1.text=Aaa()End ifIf op2.value=ture thenT1.text=Bbb()End ifClose #1写入文件****Dim i As Integer, j As Integer, n As IntegerOpen app.path &”\zfwj.txt”for output As #1n=val(text1.text)for I =1 to nfor j=1 to iprint #1,”*”;next jprint #1next I close#1计算结果dim n As Integer, I As Integer, s1 As integer,s2 As long n=val(text1.textfor I =1 to ns1=s1+is2=s2+s1next itext2.text=s2求值dim n1 as integer, n2 as integer, n3 as integer,t as integer n1= val(text1.text)n2=val(text2.text)n3=val(text3.text)if n1<n2 then t=n1:n1=n2:n2=tif n2<n3 then t=n2:2=n3:3=tif n1<n2 then t =n1:1=n2:2=ttext4.text=n1text5.text=n3建立文件显示文件Dim num as string,name as srting, I as integerOpen App.path&”\xhxm.txt”for output As #1For I = 1 to 3num=inputbox(“请输入学号：“)name = inputbox(“请输入姓名：“)write #1,num,namenext iclose #1End sub Private sub command2_click()Dim s as string, I as integerOpen app.path &\xhxm.txt” for input as # 1Do While Not EoF(1)Line input # 1,sText1.text= text1.text& s & vbCrLfLoopClose #1第三卷求和输入N值Dim n As integer, I as integer, sum as integerN= val(text1.text)For I = 1 to nIf I mod 3 =0 then sum = sum+ iNext iText2.text=sum输入正整数NDim m As integer, n as integerPrivate sub commad1_click(0Dim c as doubleN=text1.textM=text2.textIf n<=m thenC=fact(m)/(fact(n)* fact(m-n))Text3.text=cElseMsgbox”输入的n必须小于等于m！请重新输入“Text1.text=””Text2.text=””Text1.setfocusEnd ifEnd sub读入数据统计英文字母Dim s as stringOpen app.path&”\yy.txt”for input as #1Do while not EOF(1)Line input #1,sText1.text=text1.text &s &vbCrLfLoopClose #1End subPrivate sub command2_click()Dim n as integer, I as integer, s As integer, c as stringN= Len(text1.text)For I = 1 to nC= mid(text1.text,I,1)If c >=”a”and c <=”z” or c 》=“a” and c <=”z” then s =s+1 Next iLabel1.caption= “共“& s &”个英文字母”End sub第四卷转换十进制Dim n as integer,b as stringN=text1.textB=zh(n)Text2.text=b读取文件加密Dim s1 as stringPrivate sub command1_click()Open app.path &”\jmwb.txt”for input as #1Input #1,s1Text1.text=s1End subPrivate sub command2_click()Dim n As integer, I as integer dim s2 as string, j As stringN=Len(s1)For I =1 to nJ=mid(s1,I,1)J=chr(asc(j)+5)S2=s2&jNext iText2.text=s2生成数组降序排列Option base 1Dim n AS integer,x(15) as integerPrivate Sub command1_Click(0Dim s1 as stringFor N= 1 to 15X(N)=int(91 * Rnd +10)S1=s1 &STR(x(N))Next NText1.text =s1End subPrivate sub command2_click()Dim s2 as stringDim I as integer, j AS integer t as integerFor I =1 to 15For j 1 to 15For j=I +1 to 15If x (i)<x(j) thenT=x(i)X(i)=x(j)X(j)=tEnd ifNext jS2=s2& Str(x(i))Next IText2.text =s2End sub第五卷判断字符还是字母Dim s as stringCall Getchar(s)Text1.text=sIf Asc(s)>= Asc(“A”) and asc (s)<=asc(“z”) or asc (s)>=Asc(“a”) And asc (s)<=asc(“z”) then Label1.caption=”是字母字符“ElseIf asc(s)>=asc(”0”) and asc(s)<= asc(“s)<=asc(“9”) thenLabel1.caption=”是数字字符“ElseLabel1.caption=”是其他字符”End ifEnd sub生成三个随机数Dim n1 as integer, n2 as integern1=val(text1.text)n2=val(text2.text)label1.caption=int((n2-n1+1)*Rnd +n1)label2.caption=int((n2-n1+1)*Rnd+n1)label3.caption=int((n2-n1+1)*Rnd+n1)end sub转换大写小写Dim a as stringPrivate sub command1_click()Text1.text=UCase(a)End subPrivate sub command1_click()Text1.text=LCase(a)End subPrivate sub command3_click()Text1.text=aEnd subPrivate sub text1_keypress(keyascii as integer)If not((keyascii>=65 and keyascii<=90)or (keyascii>= 97 And keyascii<=122)) then BeepKeyascii =0End Ifa=Text1.textend sub。

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 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。

第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。

文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。

2. 可以自行定义。

标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。

四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。

2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。

3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。

4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。

5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。

Vb基础练习题班级：___________姓名：___________1．在VB集成开发环境中，要进入运行模式，可以执行“运行”菜单中的“启动”命令，也可以单击工具栏上的( )A． B． C． D．2．算法是求解某一问题的步骤和方法。

算法的输出结果至少应有( )。

A．0个 B．1个 C．2个 D．3个3．在ＶB中，用来描述对象的外部特征称为对象的( )。

A．事件 B．方法 C．属性 D．驱动4．VB中标签控件（Label）具有的功能是（）。

A．输入文本 B．显示文本 C ．计时 D．显示时间5．如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )A．在Text属性值中输入“确定”B．在Caption属性值中输入“确定”C．在Font属性值中输入“确定”D．在Name属性值中输入“确定”6．下列关于"控件"属性的说法正确的是( )A、控件的每一个属性都具有同样的默认值；B、所有对象都具有同样的属性；C、控件的属性只能在设计时设置，不能在运行时修改；D、单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值；7．方小舟同学用VB制作程序界面，如下图所示要将按钮上显示的“Command1”改成“退出”，应该修改的是（）。

A．①名称属性 B．②BackColor属性 C．③Caption属性 D．④Default属性8．在Visual Basic 中，赋值语句chepai="浙D ．V8888"中的"浙D ．V8888"是( ) A ．字符串常量 B ．数值常量 C ．逻辑常量 D ．实数常量 9．在VB 中，下列选项属于字符串型数据的是( )A ．2356B ．"BX277"C ．BX277D ．2014-5-28 10．在Visual Basic 代码窗口中，语句Student.Text="宋知国"中的Text 是（ ） A 、属性值 B 、属性名 C 、对象名 D 、窗口名 11． 以下合法的变量名是（ ）A ．A-B B ．forC ． a_1D ．4S 12．以下哪个是函数_____。

visual_Basic程序设计教程_课后习题答案及练习第⼀章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，才能接受焦点。

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

第1章 Visual Basic 6.0程序设计概述一、判断题1．√ 2．√3．×说明: 同类控件( 如两个标签) 相互重叠, 设计时能够设置”置前”、”置后”属性。

4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．×11．√ 12．√13．× 14．√ 15．× 16．√ 17．√ 18．√ 19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件 2．属性、方法、事件 3．控件、屏幕( Screen)4．对象 5．Left、 Top 6．属性、 <对象名>.<属性名>=<表示式>7．网格 8．F orm19．Load或Initialize或Resize或Activate( 自动执行的先后顺序也按此排列)10．Activate、 Deactivate四、程序设计题程序1．界面设计参看图10-1、 10-2以及表10-1。

表10-1 实例2各控件的主要属性设置过程设计如下:Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" +资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = True End SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略, 过程设计如下:Private Sub Command1_Click() '字体变大 Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小 Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗 Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗 Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时, 不得连续、过多次单击”字体变小”按钮, 因为当FontSize属性值小于0会产生适时错误。

<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。

如果能构成一个三角形，则计算三角形的面积。

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. 工程资源管理器和属性窗口各有哪些组成部分？它们的主要功能是什么？解答：工程资源管理器窗口由三部分组成，自上而下分别为标题栏、工具栏和文件列表，分别用于显示当前工程名称、切换代码和对象窗口、管理工程中的所有文件。

第1章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～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。

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中长度为２的编号前的"0"Print "第" & i & "名的号码为：" & b(i) & "，成绩为：" & a(i)Next iEnd Sub。

《Visual Basic编程实例入门与提高》习题答案第1章1.1节1．在Visual Basic设计界面中不能隐藏的窗口是（）。

A．工程窗口B．属性窗口C．立即窗口D．窗体窗口答案：A2．窗体和控件都是具有自己的、和方法的对象。

答案：属性；事件3．Visual Basic中的对象包括、和。

答案：窗体；控件；可访问的实物。

4．设计一个程序，用户界面如图1-15所示。

单击【窗体左移】按钮，窗体就左移100，单击【窗体右移】按钮，窗体就右移100。

答案：编写的程序代码如下：rivate Sub Command1_Click()Left = Left - 100End SubPrivate Sub Command2_Click()Left = Left + 100End Sub1.2 节1．判断题：Visual Basic对象就是窗体和控件。

答案：否2．以下不属于同类的一项是（）。

A．Click B．Name C．Caption D．Top答案：A3．当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的（）。

A．AutoSize属性B．Resize属性C．AutoRedraw属性D．Stretch方法答案：B4．启动窗体时，为了初始化该窗体中的各个控件，可选用窗体的事件；关闭窗体用事件。

答案：Load；Unload5．触发事件，可以制作由鼠标右击弹出的快捷菜单。

答案：MouseDown或MouseUp1.3节1．判断题：设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字和事件。

答案：是2．判断题：一个菜单项也是一个对象，它不能和当前窗体中的任何对象同名。

答案：否3．菜单栏的顶层菜单控件（）。

A．不允许设置快捷键B．允许设置快捷键C．不存在Shortcut属性D．有子菜单时允许有快捷键答案：A4．用户可以通过设置菜单项的（）属性为False来使该菜单项不可见A．Hide B．Checked C．Visible D．Enabled答案：C第2章2.1节1．判断题：要创建新的顺序文件，必须先用Input或Output或Append方式打开该文件。

《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 Basic版本有3个版本，按功能从强到弱的顺序是（）A、工程版、专业版、学习版B、专业版、工程版、学习版C、企业版、专业版、学习版D、专业版、企业版、学习版第2题以下叙述中，错误的是()A、一个Visual Basic 应用程序可以含有多个标准模块文件B、一个visual Basic 工程可以含有多个窗体文件C、标准模块文件可以属于某个指定的窗体文件D、标准模块文件的扩展名是.bas第3题以下叙述中错误的是()A、一个工程可以包括多种类型的文件B、Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C、程序运行后，在内存中只能驻留一个窗体D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样第4题 Visual Basic的窗体设计器主要是用来()A、建立用户界面B、添加图形、图像、数据等控件C、编写程序源代码D、设计窗体的布局第5题 Visual Basic是一种结构化高级程序设计语言，它采用的是()驱动方式A、键盘B、鼠标C、事件D、函数第6题 Visual Basic程序设计语言属于()A、面向过程的语言B、机器语言C、面向对象的语言D、汇编语言第7题 Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该()A、进入设计模式B、进入运行模式C、进入中断模式D、不用进入任何模式第8题假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。

为了保存该应用程序，以下正确的操作是()A、只保存窗体模块文件B、分别保存窗体模块、标准模块和工程文件C、只保存窗体模块和标准模块文件D、只保存工程文件第9题在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是()A、窗体布局窗口B、立即窗口C、代码窗口D、监视窗口第10题保存新建的工程时，默认的路径是()A、My DocumentsB、VB98C、\D、Windows第11题将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe 后，将该可执行文件转到其他机器上不能运行的主要原因是()A、运行的机器上无VB系统所需的动态连接库B、缺少.frm窗体文件C、该可执行文件有病毒D、以上原因都不对第12题在VB环境中，工程文件的扩展名是()A、.frmB、.basC、.vbpD、.frx第13题将一个VB程序保存在磁盘上，至少会产生的文件是()A、.doc、.txtB、.com、.exeC、.vbp、.frmD、.bat、.sys第14题下面关于对象的描述中，错误的是()A、对象就是自定义结构变量B、对象代表正在创建的系统中的一个实体C、对象是一个状态和操作（或方法）的封装体D、对象之间的信息传递是通过消息进行的第15题下面4项中不属于面向对象系统三要素的是()A、变量B、事件C、属性D、方法第16题下面各种高级语言中，不是面向对象程序设计语言的是()A、Visual BasicB、C++C、PascalD、Java第17题 VB6.0集成开发环境可以()A、编辑、调试、运行程序，但不能生成可执行程序B、编辑、生成可执行程序、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D、编辑、调试、运行程序，也能生成可执行程序第18题英文“Visual”的含义是()A、可视化B、集成C、结构化D、调试第19题不能打开属性窗口的操作是()A、单击工具栏中的“属性窗口”按钮B、选取“视图”菜单中的“属性窗口“子菜单项C、在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项D、选取“工程”菜单中的“属性窗口”子菜单项第20题 VB6．0集成开发环境的工作模式有()A、一种B、两种C、三种D、四种第21题以下关于VB特点的叙述中，错误的是()A、VB是采用事件驱动编程机制的语言B、VB程序既可以编译运行，也可以解释运行C、构成VB程序的多个过程没有固定的执行顺序D、VB程序不是结构化程序，不具备结构化程序的三种基本结构第22题以下叙述中错误的是()A、VB是事件驱动型可视化编程工具B、VB应用程序不具有明显的开始和结束语句C、VB工具箱中的所有控件都具有宽度(width)和高度(height)属性D、VB中控件的某些属性只能再设计时设置第23题在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在()设置A、“属性”对话框B、“程序代码”窗口C、“选项”对话框D、对象浏览器第24题通过以下()窗口可以在设计时直观的调整窗体在屏幕上的位置。

第一部分习题与解答
本部分针对《Visual Basic程序设计教程》各章节内容，分别设置了单选题、判断题、填空题、窗体设计题、编程题等多种题型，并给出了参考答案和详细的解析，有的题型提供了解题的基础思路、操作步骤和解题技巧，有的则给出了算法思路和参考代码，以促进读者对基本知识的掌握，提高基本技能和技巧，帮助读者掌握编程的基本方法。

本部分运用化整为零、各个击破、淡化难点的方式编写，结合各个题目分别阐述相关知识的重点与难点，使读者在解题中轻松愉快地巩固复习，掌握各章的基本概念、基础知识与基本技能，也为应对各类考试积累经验。

窗体设计题和编程题的答案仅供参考，力求给读者一个立体而完整的解决问题的过程和理念，从而提高读者的实际应用能力。

由于解题方法和答案存在不唯一性，所以，读者应打破所给答案的束缚，充分运用所学知识，发挥个体主观能动性，开拓思路，抓住重点，寻求自己独特的解决方法。

习题1.Visual Basic中有哪些数据类型？答：Visual Basic的数据类型分为基本数据类型和复合数据类型。

基本数据类型包括字节型、逻辑型、整型、长整型、单精度型、双精度型、货币型、日期型、对象型、字符型、变体型；复合数据类型包括自定义数据类型和数组。

2.在Visual Basic中，对于没有赋值的变量，系统默认值是什么？答：数值型变量（整型、长整型、单精度型、双精度型、货币类型、字节类型）的默认初值为0，Boolean型变量的默认初值是False，String型变量的默认初值为空，Object类型变量的默认初值为Nothing，Date类型变量的默认初值为0：00：00，Variant型变量的默认初值为Empty。

3.如果希望使用变量X来存放数据765432.123456，应该把变量X定义为何种数据类型？答：由于数据765432.123456是带有小数点的数，并且有效位数超过7位，因此，应该把变量X定义为双精度型。

4.（1）7+3*4 =19 （2）7^2/6 =8.16666666666667（3）7/2*3/2 =5.25 （4）7 Mod 3 +3^3/4\5 =2（5）“abc”<“ABC”的值为False （6）“123”+“24”的值为“12324”（7）“123”+24的值为147 （8）“abc”&“ABC”的值为“abcABC”（9）True +“200”=199 （10）5 Mod 2=0 Or 7 Mod 3=1的值为True （11）Int（12.678*100+0.5）/100 =12.685. （1）Int(-3.14159)=-4 （2）Sqr(Sqr(64))=2.828（3）Int(Abs(99-100)/2)=0 (4) Fix(-3.1415926)=-3（5）Chr（97）=“a” (6) Mid(“abcAbc123aa”,7,3)=“123”（7）Year（Now）=2013 (8) Val（“12*3”）=12 (9)Len(“程序设计”)=4 6. (1) （2*x^2+ 3*y^2）/（x-y）（2）（-b±Sqr(b^2-4*a*c)）/（2*a）（3）x>=-1And x<1 （4）x/Sqr(Abs(x^3+y^3+z^3))(5) Sin(15*3.14/180)+Sqr(x)+e^3/Abs(x-y)-Log(3*x)(6) 3.1415926*r^2*h。