《VisualBasic编程实例入门与提高》习题答案
Visual Basic程序设计课后习题答案
习题 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）可以同时删除字符串前导和尾部空格的函数是 。
visual basic程序设计课后编程答案
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。
visual basic 程序设计课后习题参考答案
［Exit Function］ End Function
(4). Function 过程的调用方法： ①直接调用 像使用 VB 内部函数一样，只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程，当用这种方法调用 Function 过程时，将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的，过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类：事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
《Visual_Basic程序设计》试题及其答案
页脚内容1一、填空题（每题1分，共10分）1.把数学式子： 25sin 21π+写成VB 的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180)) ）。
2．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D 的值是（ True ）。
3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case 子句相应的语句块。
4．执行下面的程序段后，x 的值为（ 12 ）。
x=0For i=1 To 8 Step 3x=x+iNext i5．在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。
6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为( Text1.Text=Command1.Caption )7．复选框的Value 属性为（ 1 ）时，表示复选框被选中。
8. 使用滚动条可以获取某一范围内的数值输入。
为使垂直滚动条的Value 属性值从下往上递增变化，应设置滚动条Min 属性值大于( Max )属性值。
9．语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（8）。
10．给定如下子过程：Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为（0）。
二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（ C ）。
A) 对象B) 属性C) 事件D) 方法2.设a="Visual Basic"，下面使b的值为"Basic"的赋值语句正确的是( B)。
VisualBasic程序设计教程第版课后部分编程题参考答案(一)
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 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。
Visual Basic基础练习题+答案
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．以下哪个是函数_____。
VisualBasic程序设计基础课后习题参考答案
资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
第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程序设计教程_课后习题答案及练习
第一章Visｕal Baｓiｃ程序设计概述
一、填空题
1、VisuaｌBaｓｉc就是一种面向______＿＿_＿得可视化程序设计语言,采取了__________得编程机制。
2、在VB中工程文件得扩展名就是_＿＿__＿______,窗体文件得扩展名就是______＿__＿__,标准模块文件得扩展名就是__________＿_。
B.一个工程文件由若干个窗体文件组成
Ｃ.不需要编写大量代码来描述图形对象ﻩ
D.所见即所得
3、下列不能打开属性窗口得操作就是( )
A。执行“视图”菜单中得“属性窗口”命令
B.按F4键C.按Ctｒl＋T
Ｄ.单击工具栏上得“属性窗口”按钮
4、下列可以打开立即窗口得操作就是( )
A.Ctrl+ＤB、Ｃtrl+EC。Ctｒl+FD.Ｃtｒｌ＋G
D。文本框得ＬOCＫED属性为FALSE
1２、在运行阶段,要在文本框TEXT1获得焦点时选中文本框中所有内容,对应得事件过程就是()
A.Ｐrivａte SｕｂText１＿GotFocus( )
Ｔext１、SelＳtaｒｔ＝０
Texｔ1。Sellength=Lｅn(Ｔext1。Tｅxt)
EｎdＳｕｂ
B.PｒｉvａｔｅSuｂTｅxｔ1_LostFｏｃｕs( )
４、设置控件背景颜色得属性名称就是＿_＿_＿_＿____________＿＿_。
5、所有控件都具有得共同属性就是__＿_＿____＿___＿_＿__属性。
6、一般情况下,控件有两个属性项得缺省值就是相同得,这两个属性项就是___＿__＿__＿__＿__。
7、VＢ中得每个对象(控件)都有一组特征,这组特征称为_____＿_＿__,我们通过修改它可以控制对象得外观与操作、
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《编程实例入门与提高》习题答案
第章
节
．在设计界面中不能隐藏的窗口是（）。
．工程窗口．属性窗口．立即窗口．窗体窗口
答案：
．窗体和控件都是具有自己的、和方法的对象。
答案：属性；事件
．中的对象包括、和。
答案：窗体；控件；可访问的实物。
．设计一个程序，用户界面如图所示。
单击【窗体左移】按钮，窗体就左移，单击【窗体右移】按钮，窗体就右移。
答案：编写的程序代码如下：
()
()
节
．判断题：对象就是窗体和控件。
答案：否
．以下不属于同类的一项是（）。
．．．．
答案：
．当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的（）。
．属性．属性
．属性．方法
答案：
．启动窗体时，为了初始化该窗体中的各个控件，可选用窗体的事件；关闭
窗体用事件。
答案：；
．触发事件，可以制作由鼠标右击弹出的快捷菜单。
答案：或
节
．判断题：设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字和事件。
答案：是
．判断题：一个菜单项也是一个对象，它不能和当前窗体中的任何对象同名。
答案：否
．菜单栏的顶层菜单控件（）。
．不允许设置快捷键．允许设置快捷键
．不存在属性．有子菜单时允许有快捷键
答案：
．用户可以通过设置菜单项的（）属性为来使该菜单项不可见
．．．．
答案：
第章
节
1．判断题：要创建新的顺序文件，必须先用或或方式打开该文件。
答案：否
2．判断题：、和是个文件操作有关的控件，它们都有属性，用来返回或设置操作的路径。
答案：否
3．（）不是数据文件。
．顺序文件．随机文件．二进制文件．数据库文件
答案：
．设置文件列表框的显示模式的属性为，要使文件列表框中显示扩展名为文件，可设置属性为。
答案：；“*”
第章
节
．判断题：利用对象删除记录，可使用方法。
答案：对
．判断题：利用对象修改记录值时可用或方法。
答案：错
．判断题：利用等控件即使没有编一行代码也可以完成大部分数据库的操作
答案：对
．现有一个已经连接好的控件，要把上的控件与控件连接，要设置的哪个属性（）？
．．．．
答案：
节
．判断题：是所带的数据访问对象模型，它用数据库引擎读取数据库中的数据。
答案：对。
．对象是什么？
答案：数据访问对象是一种面向对象的界面接口。
通过功能可以访问数据库，使用功能可以实现远程功能。
．访问的数据库主要有类：（）。
．数据库、数据库、数据库
．、、
．数据库、数据库、数据库
．关系数据库、层次数据库、网状数据库
答案：
节
．判断题：是建立在之上的对象模型，是对的封装。
答案：对。
．判断题：是目前所带的最新最好的数据库访问方法。
答案：错。
．用控件中哪个属性来设定分页中单页记录的个数（）？
．．．．
答案：。
．简述控件和控件的主要区别。
答案：控件是一种对数据源进行数据绑定的控件，不能形成与其他语言无关的应用编程接口。
而控件是的新增功能，它在效率上更高，速度更快；它是独立于开发工具和开发语言的简
单而且容易使用的数据接口，建立在技术标准之上，几乎所有的数据源都可以通过控件来访问。