《Visual Basic程序设计基础》陈庆章课后习题参考答案

合集下载

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程序设计基础》陈庆章课后习题参考答案精编版

《Visual Basic程序设计基础》教材习题参考答案第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 o rm19．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 = TrueEnd 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程序设计课后编程答案

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 程序设计课后习题参考答案

6
［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

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程序设计作业参考答案

10
窗体
作业2
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
C
B
D
A
B
D
A
A
D
A
二、填空题:
题号
参考答案
1
对象列表框，属性显示排列方式，属性列表框，属性说明框
2
Text1.text=”Hello”
3
标准控件ActiveX控件
4
Top Left Width Height
5
Shift
6
Shift＋ctrl
7
《Visual Basic程序设计》作业参考答案
作业1
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
B
C
D
A
C
B
A
D
C
B
二、填空题:
题号
参考答案
1
学习版专业版企业版
2
通过“开始菜单”中的“程序”命令
通过“开始”菜单中的“运行”命令
3
文件退出
4
ALT＋Q
5
13
6
7
8
.vbp,.frm
9
标准菜单功能菜单
3
Path。
三、实训：（略）
作业12
一、选择题：
1
2
C
D
二、实训：（略）
作业13、作业14、作业15、作业16（略）
5
运行（执行）
6
1
作业5答案

《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教材课后习题答案

<大学程序设计基础-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．从键盘输入三个值，判断它们能否构成三角形的三个边。

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

visual_Basic程序设计教程_课后习题答案及练习

"VB程序设计"综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。

2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。

3、执行“工程〞菜单下的__________命令，可选择并添加Active*控件。

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，才能承受焦点。

VisualBasic程序设计课后题答案

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。

VB程序设计基础(全集)

应用程序接口（API）函数，以实现SDK所能实现的功能。
➢ 7．完备的Help联机帮助功能
与Windows环境下的其他软件一样，在Visual Basic中，利用帮助菜单和功能键，用户可随时方便地得到所需的帮助信息。Visual Basic帮助窗口中显示了有关的示例代码，通过复制、粘贴操作可获
得大量的示例代码，为用户的学习和使用提供了极大的方便。
第1章 Visual Basic 6.0程序设计概述
1.1 Visual Basic简介 1.2 Visual Basic 6.0可视化编程环境 1.3 Visual Basic中的基本概念 1.4 窗体 1.5 Visual Basic程序的组成及工作方式 1.6 一个简单的Visual Basic程序的创建实例 1.7 小结
Internet是当今发展的潮流，Visual Basic 6.0在Internet方面的增强使得它已成为当前最强有力的开发工具之一。
• (1) IIS程序设计：用Visual Basic 6.0的专业版和企业版可直接创建 IIS应用程序，响应用户的要求。
• (2) DHTML的设计：利用Visual Basic 6.0，程序员可直接通过 Visual Basic代码来实现动态网页的设计。
益，并使得读者通过更系统、深入的学习后开发实用程
序成为可能。
因此，本书在内容上精选了Visual Basic 6.0中最基
础、最常用并实用的部分；在编排和风格上力图体现循
序渐进、深入浅出的特点；以样本程序示例教学，阶段
性构筑读者的成就感，使得艰苦的程序设计工作升华为
一种艺术创作，提供了一条通往程序设计高手的捷径。
Dbase、Microsoft FoxPro、Paradox 等，也可以访问 Microsoft

书本习题参考答案 Visual Basic 程序设计基础浙江科技出版社陈庆章主编

《Visual Basic程序设计基础》教材习题参考答案第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 o rm19．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 = TrueEnd SubPrivate Sub Command2_Click()13EndEnd 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程序设计基础》习题参考答案

第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程序设计 (习题答案)

End Sub 答：略。 1．4 编程题编写一个程序。要求设置窗体的标题是“这是我的第一个练习”，且在程序执行后，单击窗体显示如下一行文字：
我可以用 Visual BASIC 编写程序了！解答：（1）用户界面设计：设计用户界面由一个窗体构成。（2）对用户界面上的控件对象的属性进行设置：把窗体的 Caption 属性值设置为“这是我的第一个练习”。（3）编写控件对象的事件驱动程序：
方法是对象在某些事件驱动下执行的特定操作。它可以执行系统预定义的操作，例如窗体的
Print（打印）方法、Show（显示窗体）方法；当事件由用户或 VB 系统触发时，对象会感受到该事件并对该事件作出响应，响应某个事件
后所执行的程序就是事件驱动程序。事件驱动程序有时也称为事件过程。例如，以下是命令按钮 Command1 在接受单击事件时驱动的程序：
d) F10
a) .vbp
b) .bas
c) .exe
d) .frm
4．指示一个窗体位置的值是窗体的（ c ）。
a) 对象
b) 事件
c) 属性
d) 方法
5．下面选项中不能运行 VB 程序的操作是（ a ）。
a) 双击窗体
b) 单击“启动”按钮图标
c) 从菜单栏运行菜单中选“全编译执行”菜单命令 1．3 问答题
My Name 变量名内不能有空格字符
2．4 把下列数学表达式写成 VB 表达式
1) 3) ln（1+| |10）
2) x{x[x(ax+b)+c]+d}+e 4)
5) ctg 答案：
6) log10(a2+2ab+b2)
1) 1/(1+(1/(1+1/(x+y))))

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

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．A7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格8．F o rm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。

程序3．界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight 值仅与窗体有效绘图区域的高度有关）：Private Sub Form_Load()Text1.Text = "Visual Basic 程序设计"End SubPrivate Sub Form_Resize()Text1.Top = 0: Text1.Left = 0Text1.Width =F orm1.ScaleWidth/2 '用Form1.ScaleWidth效果优于用Form1. W idth Text1.Height = Form1.ScaleHeight/2 '用Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.HeightCommand1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub第2章程序设计基础一、判断题1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×二、选择题1．B 2．D 3．A4．C 5．C 6．B 7．A 8．D 9. C 10．A三、填空题1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 8．False 9．(x Mod 10) * 10 + x \ 10 10．10 + Int( Rnd * 90 ) 11．a * b Mod c12．Log(x)+Sin(3.141593/6) 13．Const PI=3.1415926 14．日期15．Int(x)+1四、程序设计题程序1．界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径Private Sub Command1_Click()Dim x As Singlex = Text1.TextLabel1.Caption = x * x * 3.141593End Sub方法二、用InputBox函数输入圆的半径Private Sub Command1_Click()Dim x As Single '若要求计算结果具有15位有效位数，声明x为Double类型 x = InputBox("r=","输入圆的半径")Label1.Caption = x * x * 3.141593End Sub程序2．略。

第3章结构化程序设计与数组一、判断题1．√2．×3．√4．×5．√6．×7．×8．√9．×10．√二、选择题1．A 2．D 3．C 4．C 5．D 6．B三、填空题1．If x>y Then t=y: y=x: x=t 2．IS3．For i = 0 to 9: B(i) = InputBox("B(" & i & ")="): Next i4．Dim 5．String 6．8四、程序阅读题（写出下列程序的运行结果）程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16程序4. 1 4 9 16 25程序5. 程序6.五、程序填空题1．（1）q * i （2）s + p * i / q （3）Next i2．（1）r = 0 （2）m Mod n3．（1）i + j - 1 （2）7 - i （3）Print4．（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a(i)=a(j) （4）a(i) Mod 2 = 1六、程序设计题程序1．界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Integer, y As Integer, z As IntegerDim max As Integer, midd As Integer, min As Integerx = InputBox("请输入x的值：")y = InputBox("请输入y的值：")z = InputBox("请输入z的值：")If x > y Then max = x Else max = yIf z > max Then max = zIf x < y Then min = x Else min = yIf z < min Then min = zmidd = x + y + z - max - minPrint max; midd; minEnd Sub程序2．界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox("请输入x的值：")If x > 3 Theny = x + 3ElseIf x >= 1 Theny = x * xElseIf x > 0 Theny = Sqr(x)Elsey = 0End IfPrint yEnd Sub程序3．界面设计略，过程设计如下：Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 9For j = 1 To 9Print Tab((j - 1) * 4); i * j;Next jPrintNext iEnd Sub程序4．界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integerx = InputBox("请输入x的值：")n = InputBox("请输入n的值：")t = x / 2: s = tFor i = 3 To nt = t * x / is = s + tNext iPrint sEnd Sub程序5．界面设计略，过程设计如下：Private Sub Form_Click()Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1While t >= 0.0001i = i + 1: t = t / i: e = e + tWendPrint eEnd Sub程序6．界面设计略，过程设计如下：Option Base 1Private Sub Form_Click()Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k '下列代码中若出现错误，转到标号为K的语句执行。

n = InputBox("请输入n，0<n<10")For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next iFor i = 3 To nFor j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next j, iFor i = 1 To nPrint Tab(30 - 2 * i);For j = 1 To iPrint Space(4 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j))); Next jPrintNext iExit Subk: MsgBox "输入n值小于1或大于10，数组下标超界。