《VB程序设计》习题答案-林卓然编著
《VB程序设计》课后题答案
第二章一、问答题1.叙述建立一个完整的应用程序的过程。
答：界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及到两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。
3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？答：VB984．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？答：将标签的Autosize设置为True.5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？答：VB6.0提供的图形文件在Graphics目录。
6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。
通过Picture属性来装入图形。
不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。
7．标签和文本框的区别是什么？答：文本是否可编辑。
8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？答：应对Text3控件进行Text3.TabIndex=0的设置。
9．简述文本框的change与keypress事件的区别。
答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？答：假定文本框的名称为Text1，则事件过程如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 出错条件判断成立ThenText1＝””…先删除原来数据Text1.SetFocus …焦点回到Text1End If……End IfEnd Sub11.在程序运行前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。
2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建⼯程时系统会⾃动将窗体标题设置为Form1。
5．控件的属性值不可以在程序运⾏时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。
7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。
8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。
9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。
⼆、选择题1．⼯程⽂件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
VB语言程序设计第2版林卓然电子教案第3章
´“交换”按钮
没用Dim语句 t 是变体型变量
说明：对于初学者来说，为了节省时间，有时可 以不采用Dim等语句声明就直接使用变量(默认为变体 型，如t)。但在规范的软件开发中，通常都要求程序 中使用的变量必须预先声明。
主页
思考题 把上述程序改为以下形式，效果是否一样？
想一想
Private Sub Command1_Click() Text2.Text = Text1.Text Text1.Text = Text2.Text
主页
说明
(3)变量出现在赋值号的右边和左边，其用途是不相同的。出 现在右边表达式中时，变量是参与运算的元素(其值被读出)；出 现在左边时，变量起存放表达式的值的作用(被赋值)。例如
x=2 a=3 x = 2*a + 5 当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把 该值乘2后加5，然后将结果(11)赋值给变量x。
说明：(1)使用的对象可以是窗体等 Print “程序设计”
´在当前窗体上输出
Picture1.Print “程序设计”
´在图片框上输出
(2)表达式列表是一个或多个表达式，如果省略，则输出 一个空行
主页
例3.3 Print输出示例
Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print Print "a="; a, "b="; b
取出十位数
取出个位数
新两位数: b*10 + a主页
例3.1A 运行时由用户任意给定一个两位数，交换个位数和十位数 的位置，把处理后的数显示在网页上。
vb程序设计教程习题答案
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教材习题_参考答案
Visual Basic程序设计教程（李杰主编清华大学出版社 2011.2）习题答案习题2参考答案2.2 单选题1、B2、C3、A4、D5、A6、B7、D8、C9、B 10、D2.3 填空题1、事件驱动2、Cancel3、Name4、Private Sub Form1_Click()5、运行程序6、代码窗口7、Text1.Text = "我是一个学生"8、LostFocus()事件9、Label1.Caption = "请输入用户名"Label1.ForeColor = vbGreen10、(Text1.Text)*22.4 事件练习题1、①该事件的对象是标签Label1，单击标签触发该事件。
②缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。
③Label1.AutoSize = True语句使标签的大小自动随文字的多少而改变。
2、程序运行后，单击命令按钮，在Text1文本框显示"知音海外版"，在Text2文本框显示"计算机世界"。
3、单击“显示文本框”命令按钮触发的事件过程Private Sub Command1_Click()Text1.V isible = TrueText1.ForeColor = vbRedText1.Text = "VB程序设计"End Sub单击“隐藏文本框”命令按钮触发的事件过程Private Sub Command2_Click()Text1.V isible = FalseEnd Sub习题3参考答案3.2 单选题1 C2 C3 D4 B5 B6 B7 B8 C9 D3.3填空题1.REM(或‘) _ ：2 双引号（“”）#3 $ %4 UCASE()5.(log(1+d*d)-exp(2))^(5/2) [ 还有一种理解方式：(log(1+d*d)-e*e)^(5/2)]6. &O113 &H4B习题4参考答案4.2 单选题BDCBD4.3 填空题1.MsgBox("是否删除？ ", vbOkCancel + vbQuestion, "删除")2.The Length of 12345=53. 变量或表达式4. 15. loop4.4 程序设计题1.Private Sub Command1_Click()If Text1.Text = "asdf" ThenMsgBox "密码正确！"ElseMsgBox "密码错误", vbRetryCancel, "错误"End IfEnd Sub2. < 题目中的“连续产生n*n个字母”应该改为“连续产生n个字母”> Private Sub Command1_Click()Dim n%, y%, i%n = V al(Text1.Text)If n > 10 Or n<=0 ThenMsgBox "数据超界！"Text1.Text=””Text1.SetFocusElsey = Int((90 - 65 + 1) * Rnd) + 65For i = 1 To nPrint Chr(y + i)Next iEnd IfEnd Sub3．Private Sub Form_Click()Dim a!, b!, c!, x1!, x21, d!a = V al(Text1.Text)b = V al(Text2.Text)c = V al(Text3.Text)d = b * b - 4 * a * cIf d >= 0 Thenx1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Print x1; X2ElsePrint "没有实根"End IfEnd Sub4.Private Sub Form_Click()Dim i%, j%, s%, n%,q%n = InputBox("enter n:")q = 0For i = 1 To ns = 0For j = 1 To is = s + jNext jq = q + sNext iPrint qEnd Sub5.Private Sub Form_Click()Dim i%, j%, n%, k%n = 0For i = 1 To 3For j = 1 To 3For k = 1 To 3Print i & j & k,n = n + 1If n Mod 5 = 0 Then PrintNext kNext jNext iPrintPrint "n="; nEnd Sub6.Private Sub Form_Click()Dim i%, j%, n%, k%For i = 1 To 9For j = 0 To 9For k = 0 To 9n = i * 100 + j * 10 + kIf n = i ^ 3 + j ^ 3 + k ^ 3 Then Print n,Next kNext jNext iEnd Sub习题5参考答案5.2 单选题1 A2 B3 C4 C5 D6 D7 A8 C9 D 10 A 11 A 12 B 5.3 填空题1．False2．Caption3．0 ListCount-14．Print List1.List(3)5．Combo1.ReMoveItem 36．LargeChange7．Timer8．5009．Shape10．Borderstyle5.4 程序设计题1．Dim op1, op2, result As SingleDim operator As IntegerPrivate Sub Command1_Click(Index As Integer)If Index >= 0 And Index <= 10 ThenIf txt1.Text = "" Thentxt1.Text = CStr(Index + 1)Elsetxt1.Text = txt1.Text + CStr(Index + 1) End IfEnd IfIf Index >= 12 And Index <= 15 Thenop1 = CDbl(txt1.Text)operator = Indextxt1.Text = ""End IfIf Index = 11 Thenop2 = CDbl(txt1.Text)Select Case operatorCase 12result = op1 + op2Case 13result = op1 - op2Case 14result = op1 * op2Case 15result = op1 / op2End Selecttxt1.Text = CStr(result)End IfEnd SubPrivate Sub Command2_Click()op1 = 0op2 = 0result = 0txt1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub2．Private Sub chkBold_Click()If chkBold.Value = vbChecked ThenTxt1.FontBold = TrueElseTxt1.FontBold = FalseEnd IfEnd SubPrivate Sub chkUnderline_Click()If chkUnderline.Value = vbChecked Then Txt1.FontUnderline = TrueElseTxt1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Opt18_Click()Txt1.FontSize = 18End SubPrivate Sub Opt22_Click()Txt1.FontSize = 22End Sub3．Private Sub Form_Load()List1.AddItem "上海"List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "广东"List1.AddItem "辽宁"List1.AddItem "陕西"List1.AddItem "河南"List1.AddItem "深圳"List1.AddItem "四川"List1.AddItem "重庆"End SubPrivate Sub List1_DblClick()For i = 0 To 9If List1.ListIndex = i ThenList2.AddItem List1.List(i)List1.RemoveItem iEnd IfNext iEnd Sub4．Private Sub Command1_Click（）Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”End SubPrivate Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m<0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”，0，“倒计时”Frame1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit SubEnd Ifn1=Format（m Mod 60,“00”）n2=Format（m \ 60）Mod 60,“00：”）n3=Format（m \ 3600）,“00：”）Text1.Text=n3&n2&n1End Sub习题6参考答案6.1单选题1.C2.C3.B4.B5.B6.D7.B8.B9.A10.A6.2 填空题1.Option Base 12.变体类型3.preserve (注意：教材上面写成perserve, 教材错误)4.V ariant变体类型5.96.相同，索引号7.1）.通过复制粘贴的方式创建控件数组2）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。
VB程序设计课后习题答案
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 章概述一、叙述题1．简述VB具有哪些特点。
（1）面向对象的可视化设计工具（2）事件驱动的编程机制（3）易学易用的应用程序集成开发环境（4）结构化的程序设计语言（5）充分利用Windows资源（6）开放的数据库功能与网络支持2．简述事件驱动的程序设计原理。
解答：VB程序的运行没有固定的顺序，它通过事件来激活某个对象，随着该对象的活动，会引发新的事件，这个事件又可能使另一个对象激活，对象之间就是以这种方式联系在一起的。
每个事件都可以通过一段程序（称为“事件过程”）来响应，在事件发生时，系统将自动执行相应的事件过程，用以实现指定的操作并达到运算、处理的目的。
为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序，这就是VB事件驱动的程序设计原理。
3．VB的集成开发环境由哪些元素组成？解答：标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。
4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？解答：VB集成开发环境的工具栏可以自定义，方法是：用鼠标右击标准工具栏的任意位置，可以打开或关闭其余工具栏。
标准工具栏中包含的按钮有：添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。
5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？解答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
6．简述用VB开发应用程序的一般步骤。
（1）创建应用程序界面（2）设置界面上各个对象的属性（3）编写对象响应事件的程序代码（4）保存工程（5）运行和调试应用程序（6）创建可执行程序二、单选题1．D VB是一种面向对象的可视化程序设计语言。
VB程序习题集(附答案)解析
VB程序(chéngxù)习题集(附答案)解析VB程序习题集(附答案(dá àn))解析VB简介(jiǎn jiè)1、在以下有关对象属性(shǔxìng)的叙述中，不正确的是___________。
A、一个对象的属性可分为外观(wàiguān)、行为若干类B、不同属性(shǔxìng)可能具有不同的数据类型C、一个对象的所有属性(shǔxìng)都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法(fāngfǎ)、属性C、对象(duìxiàng)、属性、值D、属性(shǔxìng)、对象、值4、用窗体的___________属性(shǔxìng)来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在(cúnzài)三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
VB程序设计教程 习题解答
《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编程的常用命令。
VB程序设计教程 习题解答
VB程序设计教程习题解答vb程序设计教程习题解答《VB编程课程》（第三版）问题解决习题1答案一、多项选择题1.1visualbasic6.0分为3种版本，不属于这3种版本的是a）学习版b）专业版c）企业版d）业余版【答】d。
1.2在以下方法中，无法退出Visual Basic的方法是a）按Alt+Qb）按下alt+f组合键，然后按esc键c）按f10键，然后按f键，再按x键d）打开“文件”菜单→“退出”命令【答】b。
1.3 visual basic集成的主窗口不包括a）属性窗口b）标题栏C）菜单栏d）工具栏[answer]a。
1.4下列操作可以打开立即窗口的是a）ctrl+db）ctrl+fc）ctrl+gd）ctrl+e【答】c。
二、填空题1.5与传统编程语言相比，Visual Basic最突出的特点是。
[答：]事件驱动编程机制。
1.6如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。
[答：]功能键F10或alt。
1.7建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。
【答】“工程”菜单。
三、思考问题1.8简述visualbasic的特点。
[答：]与通用编程语言相比，VB具有以下特点：（1）可视化设计平台；（2）面向对象设计方法；（3）事件驱动编程机制；（4）结构化设计语言；(5)充分利用windows资源；（6）开放数据库功能和网络支持。
1.9简述visualbasic集成开发环境的组成。
[答：]VB6 0集成开发环境不仅有标准Windows环境的标题栏、菜单栏和工具栏，还有工具箱、属性窗口、项目管理器窗口、表单设计器、即时窗口和表单布局窗口等有用的开发工具。
(1)标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化m还原、关闭按钮。
菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了vb编程的常用命令。
VB程序设计教程课后答案解析
A.1Private Sub Comma nd1_Click( Label3 = TextlEnd SubA.2Private Sub Form_Load(Timer1 .In terval = 0End SubPrivate Sub Comma nd1_Click(自动Timer1.I nterval = 200End SubPrivate Sub Comma nd2_Click(手动Timer1.I nterval = 0Call MyMoveEnd SubPrivate Sub Timer1_Timer(Call MyMoveEnd SubSub MyMove(Labell.Move Labell.Left - 50If Labell 丄eft < 0 Then Labell 丄eft = Forml.Width End Sub A. 3Private Sub Form_Click(Text1 = V al(Text1 + 1End SubPrivate Sub Form_Load(Textl = 0End SubA.4Private Sub Form_Click(Caption ="单击窗体，改变图片"Picture = LoadPicture(App.Path + "\n_015.bmp"Print"欢迎使用VB"End SubPrivate Sub Form_DblClick(ClsCaption ="双击窗体，卸去图片"Picture = LoadPicture("”End SubPrivate Sub Form_Load(Caption ="装入窗体"Picture = LoadPicture(App.Path + "\n_016.bmp"Print "装入图"End SubPrivate Sub Form_Resize(该事件的作用窗体始终与图一样大'Caption ="窗体大小不变"'Form1.Width = 260 * 16'260 是Tongji-2.bmp 图的宽度，象素单位'Forml.Height = 260 * 16 + 200'260是图的高度，象素单位,200是窗体的标题栏高度End SubA. 5Sub Comma nd1_Click(Textl.Fo ntName ="隶书”Textl.Fo ntSize = 25End SubSub Comma nd2_Click(Text2.Text = Textl.SelTextText2.Fo ntName = Textl.Fo ntNameText2.Fo ntSize = Textl.Fo ntSizeEnd SubB.1Private Sub Comma nd1_Click(Text2 = Format(5 / 9 * (V al(Text1 - 32, "0.00" End SubPrivate Sub Comma nd2_Click(Text1 = Format(9 / 5 * V al(Text2 + 32, "0.00" End Sub或Private Sub Comma nd1_Click(Dim f!, c!'声明两个变量f = V al(Text1c = 5 / 9 * (f - 32Text2 = Format(c, "0.00"'保留两位小数End SubPrivate Sub Comma nd2_Click(Dim ff!, cc!'声明两个变量cc = V al(Text2ff = 9 / 5 * cc + 32Textl = Format(ff, "0.00"'保留两位小数End SubB.2Label2 = Format(V al(Text1 * V al(Text1 * 3.14, "0.00" End Sub Private Sub Comma nd2_Click(Label3 = Format(V al(Text1 * 3.14 * 2, "0.00"End SubPrivate Sub Text1_LostFocus(If Not lsNumeric(Text1.Text The nMsgBox "输入有非数字字符，请重新输入",,"警告"Textl.Text =""Textl.SetFocusEnd IfEnd Sub或Private Sub Comma nd1_Click(Label2 = Format(V al(Text1 * V al(Text1 * 3.14, "0.00" End Sub Private Sub Comma nd2_Click(Label3 = Format(V al(Text1 * 3.14 * 2, "0.00"End SubPrivate Sub Text1_KeyPress(KeyAscii As In teger If KeyAscii = 13 The nIf Not lsNumeric(Text1.Text The nText1.Text =""End IfEnd IfEnd SubB. 3Private Sub Comma nd1_Click(n = In t(Log(2 / Log(1.008 + 1Label1 = n & "年后人数超过26亿"End SubB.4Private Sub Comma nd1_Click(Dim x, dx, cdx = Text1.Textdx = UCase(xcd = Len(xPrint"大写字母为:";dxPrint"字符串长度为:";cdEnd SubB. 5Textl = In t(R nd * 900 + 100End SubPrivate Sub Comma nd2_Click(Dim x%, x1%, x2%, x3%x = V al(Text1x1 = x Mod 10 '分离出的个位数x2 = (x Mod 100 \ 10 '分离出的十位数x3 = x \ 100 '分离出的百位数Label1 = x1 * 100 + x2 * 10 + x3 End SubB.6Private Sub Form_Click(Label1 = Left(Text1, 11Label2 = Mid(Text1, 12, 6Label3 = Right(Text1,5End SubB.7Private Sub Comma nd1_Click(PrintFor i = 1 To 5Print Tab(15 - i * 2; String(2 * i - 1, " ★"; Spc(18 - 4 * (i - 1; String(2 * i - 1, " ★"Next iEnd SubPrivate Sub Comma nd2_Click(CisEnd Sub进一步要求：Private Sub Comma nd1_Click(PrintFor i = 1 To 5Print Tab(15 - i * 2; String(2 * i - 1, " ★"; String(10 - (2 * i - 1, " ☆"; String(2 * i - 1, "★"Next iEndSubprivateSubCommand2IC=ck(c_sEndSubB.8privateSubFo「mlc=ck(X H < a -(-n p u 65o x (二鸯>—日»達==斗«=pfH Formafx* X - =0-000= pfg H Fo 「maf(sq 「(><=0_fgH Folmafx> (1、3=0.000=Prinf=:=pf 八space(5八U H R :=pfg八 space(5八2二f八space©诺R 2二fgEndSub0--privateSubFo「mlc=ck(XH< a-(-n p u 65o x (二鸯> 妄血一fxA-0Elself x < 2000 Then y = 0.9 * x Elself x < 3000 Then y = 0.8 * x Else y = 0.7 * xEnd IfPrint yEnd SubC. 2Private Sub Form_Click(Dim x!, y!x = V al(lnputBox("输入上网时间"If x < 10 The n y = 30Elself x < 50 The n y = 30 + 2.5 * (x - 10Elsey = 30 + 2.5 * 40 + 2 * (x - 50End IfIf y > 150 The ny = 150End IfPrint yEnd SubC. 3Private Sub Comma nd1_Click(Dim x!, y!, z!x = In putBox("i nput x"y = In putBox("i nput y"z = In putBox("i nput z"Print " x y z"Print "排序前";x; " "; y; " ";zIf x < y The n t =x:x = y: y = tIf x < z The n t =x:x = z: z = tIf y < z The n t =y:y = z: z = tPrint "排序后"& x & " " & y & " " & z End SubPrivate Sub Comma nd2_Click(Dim x!, y!, z!x = In putBox("i nput x"y = In putBox("i nput y"z = In putBox("i nput z"Print " x y z"Print "排序前";x; " "; y; " "; zIf x < y The n t = x: x = y: y = tIf y < z The nt = y: y = z: z = tIf x < y The nt = x: x = y: y = tEnd IfEnd IfPrint "排序后"& x & " " & y & " " & z End Sub C.4Dim a(3 As In tegerPrivate Sub Comma nd1_Click(Picturel.CIsFor i = 0 To 2 a(i = Int(Rnd * 100 + 200 Picturel.Pri nt a(iNext iEnd SubPrivate Sub Comma nd2_Click( Picture2.ClsDim z As In tegerFor i = 0 To 1If a(i > a(i + 1 The nz = a(i + 1a(i + 1 = a(ia(i = zNext iPicture2.Pri nt a(0Picture2.Pri nt a(1Picture2.Pri nt a(2End SubC.5Private Sub Text2_LostFocus(Dim m%, n%, y%m = V al(Text1n = V al(Text2If n Mod 2 <> 0 The nMsgBox ("脚数必定为偶数"Text2 =""Text2.SetFocusElsey = n / 2 - mIf y < 0 The nMsgBox ("脚数必须倍的头数，请重新输入Text2 =""Text2.SetFocusElsex = n / 2 - mLabel2 = yLabel3 = m - yEnd IfEnd IfEnd SubC.6Private Sub Comma nd1_Click(Dim a!, b!, c!, x1!, x2!, de!a = Text1b = Text2c = Text3de = b * b - 4 * a * ct = 2 * aIf de = 0 The nText4 = Format(-b / t, "0.00"Text5 = Format(-b / t, "0.00"Elself de > 0 The nText4 = Format((-b + Sqr(de / t, "0.00"Text5 = Format((-b - Sqr(de / t, "0.00"Text4 = Format(-b / t, "0.00" & "+" & Format(Sqr(Abs(de / t, "0.00" & "i" Text5 = Format(-b / t, "0.00" & "-" & Format(Sqr(Abs(de / t, "0.00" & "i" E nd IfEnd SubPrivate Sub Comma nd2_Click( Textl =""Text2 =""Text3 =""Text4 =""Text5 =""End SubC.7Private Sub Text3_LostFocus( Select Case Trim(Text3Case "+"Text4 = V al(Text1 + V al(Text2 Case "-"Text4 = V al(Text1 - V al(Text2 Case "*"Text4 = V al(Text1 * V al(Text2 Case "/"If V al(Text2 = 0 Then MsgBox "分母为零，重新输入"Text2 =""Text2.SetFocusElseText4 = V al(Text1 / V al(Text2 End IfEnd SelectEnd SubC.8Private Sub Text1_LostFocus( Select Case Trim(Text1Case 1Text2 = "Mo nday"Case 2Text2 = "Tuesday"Case 3Text2 = "Wed nesday"Case 4Case 5Text2 = "Friday"Case 6Text2 = "Saturday"Case 7Text2 = "Su nday"Case Is > 7, Is < 1MsgBox "数字为1~7,重新输入" Textl =""Text1.SetFocusEnd SelectEnd Sub或者Private Sub Text1_LostFocus( If Text1 > 7 Or Textl < 1 The n MsgBox "数字为1~7,重新输入" Textl =""Textl.SetFocusElseText2 = Choose(Text1, "Mo nday", "Tuesday", "Wed nesday", "Thursday", "Friday", "Saturday", "Su nday"End IfEnd SubD.1Private Sub Form_Click(For i = 1 To 9Print Tab(10 - i; String(2 * i - 1, Trim(Str(iNext iEnd SubD.2Private Sub Form_Click(For i = 1 To 10 Step 1Print Tab(i; Stri ng((20 - 2 * i, Chr(64 + iNext iEnd SubD.3Private Sub Comma nd1_Click(Dim s!, t!, i&t = 1For i = 1 To 100000t = t + is = s + 1 / tIf 1 / t < 0.00001 Then Exit ForNext iPrin t "For 结构";s, i;"项"End SubD.4Private Sub Comma nd1_Click(Dim n&, pi#, i&n = InputBox("输入n 值"pi = 2For i = 1 To npi = pi * (2 * i / (2 * i - 1 * (2 * i / (2 * i + 1 Next i Print "当n=" & n & ” 时,pi="; piEnd SubD.5Private Sub Form_Click(Dim s!, t!, i!, a%, n%a = In t(R nd * 9 + 1n = In t(R nd * 6 + 5t = 0: s = 0Prin t "a="; a, " n二"；nFor i = 1 To nt = t * 10 + as = s + tPrint t;Next iPrintPrin t "s="; sEnd SubD.6Private Sub Comma nd1_Click( Dim s As In tegers = 0For i = 1 To 9Forj = 0 To 9For k = 0 To 9s = i * 100 + j * 10 + kIf s = i A 3 + j A 3 + k A 3 The nPrint sEnd IfNext kNext jNext iEnd SubPrivate Sub Comma nd3_Click( formd6.Hide main .ShowEnd SubD.7Private Sub Comma nd1_Click(Dim a!, xO!, x1!Doi = i + 1x1 = 2 * x0 / 3 + a / (3 * x0 * x0If Abs(x1 - x0 < 0.00001 Then Exit Do x0 = x1 LoopPrint x1, iEnd SubD.8Private Sub Comma nd1_Click(s = 0x0 = 0.01For i = 1 To 30s = s + x0x0 = x0 * 2Next iEnd SubD.9Private Sub Comma nd4_Click(Picturel.CIsPicture1.Print "x 课安排在";"y 课安排在";"z 课安排在"Picturel.Print ""For z = 5 To 6For x = 1 To z - 2For Y = x + 1 To z - 1X1 = Choose(Weekday(x,'周一","周二","周三","周四","周五","周六","周日"Y1 = Choose(Weekday(Y,'周一","周二","周三","周四","周五","周六","周日"z1 = Choose(Weekday(z，周一","周二","周三","周四","周五","周六","周日" Picturel.Pri nt" "; X1; ""; Y1; " "; z1Next YNext xNext zEnd SubE.1Private Sub Form_Click(Dim a(1 To 10 As In tegerFor i = 1 To 10a(i = In t(R nd * 71 + 30Print a(i;"";Next iMax = a(1Min = a(1A vg = a(1For i = 2 To 10If a(i > Max The n Max = a(iIf a(i < Min Then Min = a(iA vg = A vg + a(iNext iA vg = A vg / 10PrintPrint "Max="; Max; " Min="; Min;" A vg="; A vg End SubE.2Private Sub Form_Click(Dim aa = Array(56, 78, 98, 88, 76, 78For i = 0 To 5Print Stri ng(a(i \ 5, " ♦"; a(iPrintNext iEnd SubE.3Dim a%(19Private Sub Comma nd1_Click( Picturel.CIsFor i = 0 To 19a(i = Int(Rnd * 101Picturel.Pri nt a(i;"";If (i + 1 Mod 4 = 0 The n Picturel.Pri nt Next iEnd SubPrivate Sub Comma nd2_Click( Picture2.CIsDim s(5 To 9For i = 0 To 19Select Case kCase 0 To 5s(5 = s(5 + 1Case 9 To 10 '90~10(分的人数s(9 = s(9 + 1Case 6 To 8 '存放其他三个分数段的下标有规律，根据K获得s(k = s(k + 1 End SelectNext iFor i = 5 To 9If s(i <> 0 Then Picture2.Print "s("; i;"的人数有";Format(s(i, "0";"个"Next i End SubE.4Private Sub Comma nd1_Click(Picture1.ClsDim d%(1 To 10For i3 = 1 To 10Ran domized(i3 = Int(Rnd * 91 + 10For i = 1 To 10For j = 1 To 10 - iIf d(j < d(j + 1 The nt = d(j: d(j = d(j + 1: d(j + 1 = t End IfNext jNext iFor i = 1 To 10: Picture1.Pri nt d(i; If i Mod 5 = 0 Then Picture1.Print Next iEnd SubE.5Dim a%(3, 3, b%(3, 3Private Sub Form_Load(For i = 0 To 3Forj = 0 To 3a(i, j = In t(R nd * 36 + 35b(i, j = Int(Rnd * 41 + 100Next iEnd SubPrivate Sub Comma nd1_Click( Picturel.CIsFor i = 0 To 3Forj = 0 To iPicture1.Pri nt a(i, j;"";Next jPicture1.Pri ntNext iEnd SubPrivate Sub Comma nd2_Click( Picture2.ClsFor i = 0 To 3For j = i To 3Picture2.Pri nt Tab(j * 6; b(i, j; Next jPicture2.Pri ntEnd SubPrivate Sub Comma nd3_Click( Picture3.Clssa = 0For i = 0 To 3sa = sa + a(i, iNext isb = 0For i = 0 To 3sb = sb + b(i, 3 - iNext iPicture3.Print "A数组主对角线元素和为："；sa Picture3.Print "B数组副对角线元素和为:";sb End SubE.6Private Sub Form_Click(n = InputBox("输入n 值"ReDim a6%(n + 1, n + 1a6(0, 0 = 1: a6(1, 1 = 1: a6(1, 0 = 1For i = 2 To n + 1Forj = 2 To ia6(i, j = a6(i - 1, j - 1 + a6(i - 1, j Picturel.Print a6(i, j;""Next jPicturel.Pri ntNextEnd SubE.7Private Sub Form_Load(List1.ClearList1.Addltem "大学计算机基础"List1.Addltem "C/C++ 程序设计"List1.AddItem "VB 程序设计"List1.AddItem "Web 程序设计" Listl.Addltem "多媒体技术与应用" Listl.Addltem "数据库技术与应用" Listl.Addltem "网络技术与应用" Listl.Addltem "硬件技术基础"Listl.Addltem "软件技术技术基础" Private Sub List1_Click(If List2丄istCount >= 5 Then MsgBox ("超过5门课程，不能再选"Exit SubElseList2.Addltem List1.TextList1.Removeltem List1.ListIndexEnd IfEnd SubE.8Sub Combo1_KeyPress(KeyAscii As In teger Select Case KeyAscii Case 48 To 57, 13Case ElseKeyAscii = 0End SelectIf KeyAscii = 13 The nCombo1.Addltem Combo1.TextEnd SubPrivate Sub Comma nd1_Click(Dim mi n%, max%min = V al(Combo1.List(0max=V al(Combo1.List(0=imin=0=imax =0Fori : =1 To Combol.ListCount - 1 If V al(Combo1 丄ist(i > max Then imax = i=Combol. List(imax=Elself V al(Combo1 .L ist(i < min Then imin = imin = C ombol. List(iEnd IfNext it = Combo1.List(0Combol. List(0 = Combo1.List(iminCombo1.List(imin = tt = Combol 丄ist(Combo1.ListCount - 1Combol.List(Combo1.ListCount - 1 = Combo1.List(imax Combo1.List(imax = t End SubE.9Private Sub Form_Click(For i = 0 To Scree n.Fo ntCou nt - 1If Asc(Left(Scree n.Fo nts(i, 1 < 0 The nPicture1.Pri nt Scree n.Fon ts(iPicture2.F on tName = Scree n.Fon ts(iPicture2.Print"商丘师范学院"End IfNext iEnd SubE.10Private Type clerknu mber As Stri ng * 3n ame As Stri ng * 5salary As In tegerDim a(0 To 4 As clerk, n%Private Sub Comma nd1_Click(If n >= 5 The nMsgBox ("输入人数超过数组声明的个数"ElseWith a(n.nu mber = Text1.n ame = Text2.salary = Text3Picture1.Print a(n.number, a(, a(n.salary Print End Withn = n + 1Text1 =""Text2 =""Text3 =""End IfEnd SubPrivate Sub Comma nd2_Click(Dim t As clerk, i%, j%For i = 0 To n - 1For j = i To n - 1If a(i.salary < a(j + l.salary Then t = a(i: a(i = a(j + 1: a(j + 1 = t End If Next jNext iPicture1.ClsPicture1.Print "工号姓名工资"For i = 0 To n - 1Picture1.Pri nt a(i .nu mber, a(i .n ame, a(i.salaryPrintNext iEnd SubF.1Private Sub Form_Click(Dim a(1 To 10, ami n, i%For i = 1 To 10a(i = -In t(R nd * 101 + 300Print a(i;Next iCall s(a(, aminPrintPrint "min="; aminEnd SubSub s(b(, minDim i%min = b(LBo un d(bFor i = LBou nd(b + 1 To UBou nd(bIf b(i < min Then min = b(iNext iEnd SubF.2Private Sub Comma nd1_Click(Dim mm%, nn%mm = V al(Text1nn = V al(Text2Picturel.Pri nt mm; Tab(6; nn; Tab(12; gcd(mm, nn End Sub Fun ction gcd%(ByV al m%, ByV al n%If m < n The n t = m: m = n: n = tr = m Mod nDo While (r <> 0m = n: n = r: r = m Mod nLoopgcd = nEnd FunctionF.3Dim x!Private Sub Comma nd1_Click(Print "调用标准函数Sin的结果";Sin(xEnd SubPrivate Sub Comma nd2_Click(Print "调用自定义函数MySin的结果";MySin(x End Sub Fu nction MySi n(x! As DoubleDim i%, t!, s!t = xs = tDo While Abs(t > 0.00001t = -1 * t * x * x / ((i + 1 * (i + 2s = s + ti = i + 2LoopMySin = sEnd FunctionPrivate Sub Comma nd3_Click(x = In putBox("输入要计算正弦函数的角度值x" x = x * 3.14 / 180End SubF.4Private Sub Text1_KeyPress(KeyAscii As In teger If KeyAscii = 13 Then If Not lsNumeric(Text1 The nMsgBox "输入非数字串，重新输入"Text1.Text =""Text1.SetFocusElsePicture1.Pri nt Text1; " ★"ElsePicturel.Pri nt TextlEnd IfTextl =""End IfEnd IfEnd SubFunction IsH(ss As Stri ng As Boolea n Dim i%, Ls%IsH = Truess = Trim(ssLs = Len(ssFor i = 1 To Ls \ 2If Mid(ss, i, 1 <> Mid(ss, Ls + 1 - i, 1 Then IsH = FalseExit FunctionEnd IfEnd FunctionF.5Function prime(ByV al m As In teger As Boolea nprime = TrueDim i%For i = 2 To m - 1If (m Mod i = 0 Then prime = False: Exit Function '注意冒号和exit 的范围Next i End FunctionPrivate Sub Comma nd1_Click(n = 0For i = 6 To 100 Step 2Forj = 3 To i\2If prime(j The nIf prime(i - j ThenList1.Addltem i & " =" & j & " +" & i - jn = n + 1End IfEnd IfNext iPicturel.Print" 6和100之间共有";n;"对素数和" End SubF.6Dim a%(Private Sub Form_Click(Print "1000以内的完数为："For i = 1 To 1000If lsWs(i The nPrint i; "=1";For j = 1 To UBou nd(aPrin t "+"; a(j;Next jPrintEnd IfNext iEnd SubFunction lsWs(m As Boolea nDim s%ForiH _k Tom一2-f3Mod iHThenReDimPreserve異Hiu-j+1sHs +iEnd _fNexfiprivate SubDe-esf 「(slAs siring"ByVa-s2Asss.ngDimi%-S2HLen(s2 i H-nsf 「(s严s2Dowh=e iVosi HLeft(s 「i11+Mid(s严 i+-甘卅那『>End SubPrivate Sub Command1_Click('调用DeleStr 子过程Dim ss1 As String ss1 = Text1Call DeleStr(ss1, Text2Text3 = ss1End SubPrivate Sub Comma nd2_Click(End SubF.8Private Sub Comma nd1_Click(Dim maxw$maxle n Text1 & ” ", maxwText2 = maxwEnd SubSub maxle n( s$, maxw$Dim word$maxw =""Do While s <> "" i = In Str(s,""word = Left(s, i - 1If Len( word > Len( maxw Then maxw = word s = Mid(s, i + 1 LoopEnd SubG.1Private Sub Comma nd1_Click(List1.ClearList1.Addltem Combo1If Option1 Then List1.AddItem "Pentium II"If Option2 Then List1.AddItem "Pentium I"If Option3 Then List1.AddItem "Celeron"List1.AddItem Text1If Check1 Then List1.AddItem "声卡"If Check2 Then List1.AddItem "Modem"If Check3 Then List1.AddItem "网络适配器"End SubPrivate Sub Text1_LostFocus(st = UCase(Trim(Text1le = Len(stIf Not lsNumeric(Left(st, le - 2 Or Right(st, 2 <> "MB" Then MsgBox "有不合法字符!"Text1 =""Text1.SetFocusEnd IfEnd SubG.2Private Sub Check1_Click(Picture1.Fo nt.Bold = Not Picture1.Fo nt.BoldEnd SubPrivate Sub Check2_Click(Picture1.Fo nt.ltalic = Not Picture1.F on t.BoldEnd SubPrivate Sub Comma nd1_Click(Picture1.ClsIf Optio n1 The nPicture1.Print Sin(V al(Text1ElseIf Optio n2 ThenPicturel.Print Exp(V al(Text1Elself Optio n3 The nPicturel.Print Sqr(V al(Text1End IfEnd SubPrivate Sub return_Click(l ndex As In tegerForm6.ShowUn load Form2End SubG.3Private Sub HScroll1_Cha nge(Text1 = VScroll1.V alueText2 = HScroll1.V alueText3 = HScroll2.V alueText4 = Format(V al(Text1 * (Text3 / 100 * (Text2 / 12, "0.00" Text5 = Format(V al(Text4 + V al(Text1, "0.00"End SubPrivate Sub HScroll2_Cha nge(Textl = VScrolll.V alueText2 = HScrolll.V alueText3 = HScroll2.V alueText4 = Format(V al(Text1 * (Text3 / 100 * (Text2 / 12, "0.00" Text5 = Format(V al(Text4 + V al(Text1, "0.00"End SubPrivate Sub VScroll1_Cha nge(Textl = VScrolll.V alueText2 = HScrolll.V alueText3 = HScroll2.V alueText4 = Format(V al(Text1 * (Text3 / 100 * (Text2 / 12, "0.00" Text5 = Format(V al(Text4 + V al(Text1, "0.00"End SubG.4Dim t As Sin glePrivate Sub Comma nd1_Click(t = InputBox("输入倒计时分钟数"t = t * 60ProgressBar1.Min = 0ProgressBar1.Max = t。
VB程序设计练习题及参考答案
VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。
2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。
3．在文本框中，通过属性能获得当前插入点所在的位置。
4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。
6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。
7.整数变量x存储两位数。
要交换两个数字的位置，例如，13变为31，表达式为。
8．表示x是5的倍数或是9的倍数的逻辑表达式为。
9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。
10．int(-3.5)、int(3.5)值分别是、。
11．表达式ucase(mid(\的值是。
12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。
fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。
15．属性设置为1，单选按钮和复选框的标题显示在左边。
16．属性设置为1，单选按钮和复选框以图形方式显示。
17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
18．列表框中项目的序号是从开始的。
19.指示列表框中最后一项的序列号。
20.方法可以清除列表框中的所有内容。
21．组合框是组合了文本框和列表框的特性而形成的一种控件。
风格的组合框不允许用户输入列表框中没有的项。
22.VB程序存储在模块中，模块分为______________三种类型。
123.如果希望每15秒生成一次计时器事件，interval属性应设置为。
vb程序设计教程教材习题答案
同步练习1一、简答题略二、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 C A D B B A C D A B 题号11 12 13 14 15答案 C B D B B同步练习2一、简答题略二、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 A B D C A C A C B C 题号11 12 13 14 15 16 17 18 19 20 答案 D A D A D B D B B B三、填空题1．可视2．Left、Top；Height、Width3．按字母序4．查看代码5．工具｜选项｜编辑器6．Form窗体；Font7．MultiLine8．只能在设计状态下设置9．工程｜工程属性｜通用；Form.Show10．TabIndex；0同步练习3一、简答题略二、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 B C A D B A D B B C 题号11 12 13 14 15 16 17 18 19 20 答案 D B C B A D A A B B三、填空题1．整型、长整型、单精度、双精度2．Sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3．①160；②今天是：10-94．false5．-4、3、-3、3、-4、46．CDEF7．(x mod 10)*10+x\108．(35\20)*20=20；( 35 \ 20 )* 20 = 209．x mod 3=0 or x mod 5=010．①27.6 ②8.2 ③8 ④ 1⑤100 ⑥397 ⑦True ⑧False同步练习4一、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 D B C A D A B C A B 题号11 12 13 14 15 16 17 18 19 20 答案 D A B A C C B A C B 题号21 22 23 24 25答案 D A B B C二、填空题1．字符型；整型2．1 2 33．X=74．X<amin5．10246．117．128．6 i "*";9．0 100 i+110．2+I 6 "*";同步练习5一、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 D C A C D D D C D C 题号11 12 13 14 15答案 B A D A D二、填空题1．Name; Index2．Preserve3．variant4．n(2)=2; n(3)=3;5．1 2 3 1 4 16．1 2 3 2 4 67．Max; max=arr1(i)同步练习6一、选择题题号 1 2 3 4 5 6 7 8 9 10答案 C D B A B D B C C C 题号11 12 13 14 15 16 17 18答案 A B C B D C D B二、填空题1．子过程；函数过程2．形式；实际3．存储单元4．MyF(a%, b%( )) As Boolean5．按值传递；按地址传递6．Lbound( )；Ubound( )7．局部8．通用；所有过程9．2 5 910．2411．212．30；7013．5同步练习7一、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 B C D D D D D B B D 题号11 12 13 14 15 16 17 18 19 20 答案 C A D A A C A D B D 题号21 22 23 24 25 26 27 28答案 D A A A B C A A二、填空题1．Load；Unload2．Show；Hide3．属性；方法；事件4．工程属性；工程｜工程属性5．MDI窗口；子窗口6．Keypress；Combo1.List(i)；AddItem7．0；List1.ListIndex；Str(List1.ListCount)8．1000；True；Time( )9．AA10．下拉式组合框；简单组合框；下拉式列表框同步练习9一、选择题题号 1 2 3 4 5 6 7 8 9 10 答案 B A D C B B B B A B二、填空题1．驱动器列表框；目录列表框；文件列表框2．Change3．File1.Path=Dir1.Path4．Name “d:\old.doc ” As “d:\new.doc”5．Dir1.Path= Drive1.Drive；File1.Path=Dir1.Path6．FileCopy “d:\text.doc ” , “e:\text.doc”7．EOF()8．For Input；Not EOF(1)9．For Input；For Output；Not EOF(1)；str1；Close #1,#210．Pattern11．空12．字节。
VB程序设计习题10参考答案
习题10一、判断题1．√2．×3．√4．×5．√6．×7．×8．×9．×10．√二、选择题1．C2．B3．C4．A5．B6．C7．A8．C9．C10．B11．A12．B13．B14．C15．C三、填空题1．Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 8002．loadpicture3．Autosize Stretch False False4．外观5．Picture1.Picture = LoadPicture("c:\cloud.bmp")6．图片框控件对象其他控件对象7．Twip ScaleMode8．Color start end aspect四、程序阅读题1.结果如图，在图片框中，以鼠标按下点到放开鼠标点为直径画矩形，单次为黄色边框填充色为黑色，双次为黄色透明边框。
五、程序填空题1.Call pic2.False3.n=n+14.loadpicture(“c:\windows\1.bmp”)5.loadpicture(fn)六、程序设计题1.代码如下：Private Sub Form_Click()Form1.Scale (-3, 3)-(3, -3)For i = -2 To 2If i <= 0 ThenFor j = -2 - i To 2 + iCurrentY = -iCurrentX = jPrint "*"Next jElseFor j = i - 2 To 2 - iCurrentY = -iCurrentX = jPrint "*"Next jEnd IfNext iEnd Sub2.代码如下：Private Sub Form_Click()Form1.ScaleMode = 6Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 10, , -0, -3.14 / 2Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 10, , -3.14 / 2, -3.14Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 10, , -3.14, -3.14 * 3 / 2 Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 10, , -3.14 * 3 / 2, -0.00001 End Sub3.代码如下：Private Sub exit_Click()EndEnd SubPrivate Sub fillcol_Click() ‘填充颜色菜单控件名cc1.ShowColorShape1.FillColor = cc1.ColorEnd SubPrivate Sub shapes_Click(Index As Integer) ‘基本图形菜单控件数组名Shape1.Shape = IndexEnd SubPrivate Sub styles_Click(Index As Integer) ‘填充样式菜单控件数组名Shape1.FillStyle = IndexEnd Sub。
VB程序设计练习册参考答案
参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。
选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。
（2）设置对象属性，见表。
（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。
《VB程序设计》作业参考答案
《VB程序设计》作业参考答案一．选择题1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－72BB二．填空题(1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And(6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random（11）事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text(16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr（21）Output ；Write #1,StuNo,StuName,StuEng三．编程题1.Option Base 1Private Sub Form_click()Dim a(3) As Integer, m As IntegerDo While m <> -1 And i < 3m = InputBox("请输入第" & i + 1 & "条边")i = i + 1a(i) = mIf a(i) < 0 ThenMsgBox "输入错误，请重新输入！"i = i - 1End IfLoopIf a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Thens = (a(1) + a(2) + a(3)) / 2s = Sqr(s * (s - a(1)) * (s - a(2)) * (s - a(3)))Print "三角形的面积是"; sElseMsgBox "三条边不能构成三角形！"EndEnd IfEnd Sub2.Option Base 1Private Sub Form_click()Dim a, ba = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)Dim c(8)For i = 1 To 8c(i) = a(i) + b(i)Print c(i);Next iEnd Sub3.Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print spc(3); Chr$(KeyCode); spc(3); Hex$(KeyCode); spc(3); Oct$(KeyCode); spc(3); KeyCode End SubPrivate Sub Form_Load()PrintShowPrint spc(3); "按键"; spc(3); "16进制"; spc(3); "8进制"; spc(3); "10进制"PrintEnd Sub4.Dim a(3) As Long, s As Long, p As Long '通用-声明Sub Su(n As Long) '通用subp = 1For i = 1 To np = p * iNext iEnd SubFunction F(n As Long) As Long '通用Functionp = 1For i = 1 To np = p * iNext iF = pEnd FunctionPrivate Sub Command1_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")Call Su(a(i))s = s + pNext iPrint "用Sub过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; s End SubPrivate Sub Command2_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")s = s + F(a(i))Next iPrint "用Function过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; s End SubPrivate Sub Command3_Click()EndEnd Sub。
大学VB程序设计课后习题参考答案(编码)
2-1Private Sub Form_Click()ClsEnd SubPrivate Sub Form_DblClick()FontSize = 40FontName = "隶书"ForeColor = vbRedPrint "热烈庆祝"FontSize = 60FontName = "宋体"ForeColor = vbGreenPrint "河南大学运动会召开"End Sub2-2Private Sub Command1_Click()Label1.Move Width * Rnd, Height * Rnd End Sub2-3Private Sub Command1_Click()Label1.Visible = TrueEnd SubPrivate Sub Command2_Click()Label1.Visible = FalseEnd Sub2-4Private Sub Timer1_Timer()Text1.Text = NowCaption = Text1.TextEnd Sub2-5Private Sub Timer1_Timer()If BackColor = vbRed ThenBackColor = vbYellowElseBackColor = vbRedEnd IfEnd Sub2-6Private Sub Timer1_Timer()If Label1.Left < Form1.Width Then Label1.Left = Label1.Left + 200ElseLabel1.Left = -Label1.Left End IfEnd Sub2-7Private Sub Command1_Click() Text1.Visible = TrueEnd SubPrivate Sub Command2_Click() Text1.Visible = FalseEnd Sub2-8Private Sub Text1_Change()Text2.Text = Text1.TextEnd Sub2-9Private Sub Command1_Click() FontSize = 20FontBold = TruePrint "欢迎来到"Print "河南大学"End SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command3_Click() EndEnd Sub2-10Private Sub Command1_Click()r = Text1.TextText2.Text = 3.14 * 2 * rEnd SubPrivate Sub Command2_Click() Text1.Text = " "Text2.Text = " "Text1.SetFocusEnd Sub2-11Private Sub Form_Load()Text1.Text = "河南大学欢迎您！" Text1.FontName = "宋体"Text1.FontSize = 50Text1.BackColor = vbYellowText1.ForeColor = vbBlueEnd Sub2-12Dim s As StringPrivate Sub Command1_Click()s = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.SelText = sEnd Sub2-13Private Sub Timer1_Timer()If Label1.Top > -Label1.Height Then Label1.Top = Label1.Top - 100ElseLabel1.Top = Form1.HeightEnd IfEnd Sub3-2Private Sub Form_Click()Dim n As IntegerRandomizen = Int((90 * Rnd) + 10)Print nEnd Sub3-3Private Sub Timer1_Timer()ClsPrint "河南大学环境与规划学院" FontSize = Int(71 * Rnd + 10)End Sub3-4Private Sub Command1_Click()n = Text1.TextText2.Text = Hex(Asc(Right(Text1.Text, 1)))End SubPrivate Sub Command2_Click()Text1.Text = " "Text2.Text = " "Text1.SetFocusEnd Sub3-5Private Sub Command1_Click()Dim m As Datem = Text1.Text n = DateText2.Text = n - mEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd Sub3-6Dim b As StringDim n As StringDim m As StringPrivate Sub Command1_Click()m = Left(Text1, 1)n = Right(Text1, 1)b = Mid(Text1, 2, 1)Text2.Text = n & b & mEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd Sub3-7Private Sub Form_click()r = InputBox("请输入字符")Print Left(r, 1) & Mid(r, 3, 1) & Right(r, 1)End Sub3-8Private Sub Timer1_Timer()Label1.FontSize = Rnd * 40 + 10Label1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)Label1.ForeColor = QBColor(Int(16 * Rnd))End Sub3-9Private Sub Command1_Click()x = Shell("notepad.exe", 1)End SubPrivate Sub Command2_Click()Shell "mspaint.exe", 1End Sub大学VB程序设计课后习题参考答案(编码)3-10Private Sub Form_Click()r! = InputBox("请输入您的工资:")a = r \ 100b = (r - 100 * a) \ 50c = (r - 100 * a - b * 50) \ 10d = (r - 100 * a - b * 50 - c * 10) \ 5e = (r - 100 * a - b * 50 - c * 10 - d * 5) \ 2f = r - 100 * a - b * 50 - c * 10 - d *5 - e * 2Print "您的工资是:" & rPrint "100元张数：" & aPrint "50元张数：" & bPrint "10元张数：" & cPrint "5元张数：" & dPrint "2元张数：" & ePrint "1元张数：" & fEnd Sub4-1Private Sub Command1_Click()Dim p As Single, r As Single, n As Single p = Text1r = Text2n = Text3s = p * (1 + r) ^ nMsgBox "您的本息是：" & Round(s, 2) End Sub4-2Private Sub Form_click()Dim max As Single, min As Singlea! = InputBox("请输入第一个实数")b! = InputBox("请输入第二个实数")If a > b ThenPrint a, bElsePrint b, aEnd IfEnd Sub4-3Private Sub Form_click()Clsa! = InputBox("请输入年份") If a Mod 4 = 0 And a Mod 100 <> 0 & a Mod 400 = 0 ThenPrint "您刚刚输入的年份为闰年!"ElsePrint "您刚刚输入的年份不是闰年!"End IfEnd Sub4-4Private Sub Form_click()a! = InputBox("a=")b! = InputBox("b=")c! = InputBox("c=")d! = b * b - 4 * a * cIf d >= 0 Thenm! = (-b + Sqr(d)) / (2 * a)n! = (-b - Sqr(d)) / (2 * a)Print " X1 = "; m, ",", "X2="; nElser = (-b) / (2 * a)i = Sqr(Abs(-d)) / (2 * a)Print "X1 = "; r & "+" & Abs(i) & "i", ",", "X2 = "; r & "-" & Abs(i) & "i" End IfEnd Sub4-5Private Sub Command1_Click()Dim x!x = Text1If x < 60 ThenText2 = "重考！"ElseIf x < 70 ThenText2 = "及格！"ElseIf x < 80 ThenText2 = "中等！"ElseIf x < 90 ThenText2 = "良好！"ElseText2 = "优秀！"End IfEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End Sub4-6Private Sub Command1_Click()Dim x!x = Text1Select Case xCase Is < 60Text2 = "重考！"Case Is < 70Text2 = "及格！"Case Is < 80Text2 = "中等！"Case Is < 90Text2 = "良好！"Case ElseText2 = "优秀！"End SelectEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End Sub4-7Dim s As StringPrivate Sub Form_Click()s = InputBox("请输入年龄")If s < 30 ThenPrint "您的年龄为"; s, ",", "请参加长跑运动"ElseIf s < 40 ThenPrint "您的年龄为"; s, ",", "请参加跳绳运动"ElseIf s < 50 ThenPrint "您的年龄为"; s, ",", "请参加竞走运动"ElsePrint "您的年龄为"; s, ",", "请参加慢跑运动"End IfEnd Sub4-8Private Sub Form_Click()For n = 2 To 100 Step 2Print n;If n Mod 20 = 0 Then Print Next nEnd Sub4-9Private Sub Form_click()For n = 100 To 1000If n Mod 3 = 2 And n Mod 5 = 3 And n Mod 7 = 2 Then Print n;Next nPrintEnd Sub4-10Private Sub Form_click()m = 0: n = 0Dor% = InputBox("请输入学生成绩")m = m + rn = n + 1Loop Until r = -1Print "学生平均成绩="; (m + 1) / (n - 1) End Sub4-11Private Sub Form_click()Dim a As IntegerDim s As Integera = 1Dos = s + (-1) ^ (a + 1) * aa = a + 1Loop Until a > 100Print " 1-2+3-4+5-6+…+99-100="; s End Sub4-12Private Sub Form_Click()Dim n As IntegerDim m As IntegerDim s As Integerm% = InputBox("请输入正整数m(m>=1)", "阶乘")n% = InputBox("请输入正整数n(n>=m)", "阶乘")For m = m To nt = 1For i = 1 To mt = t * i大学VB程序设计课后习题参考答案(编码)Next is = s + tNext mPrint " m!+(m+1)!+…+n!="; s End Sub4-13Private Sub Form_click()Dim a%Dim b%Dim c%For a = 1 To 20For b = 1 To 20For c = 1 To 20If a * a + b * b = c * c Then Print a, b, cEnd IfNext cNext bNext aEnd Sub4-14Private Sub Form_click()For n = 1 To 500For i = 1 To n - 1If n Mod i = 0 Then s = s + i Next iIf s = n Then Print i;s = 0Next nPrintEnd Sub4-15Private Sub Form_click()Dim i As IntegerDim n As Longn = 1t = 1Do While t > 0.00001e = e + ti = i + 1n = n * it = 1 / nLoopPrint "e的近似值是"; e End Sub5-2Private Sub Form_Click()Dim i%, ss = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i = 0 To 9If s(i) Mod 3 = 0 ThenPrint s(i); iElsePrint ""End IfNext iPrintEnd Sub5-3Option Base 1Private Sub Command1_Click()Dim x()x = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) t = x(1)For i = 1 To 9x(i) = x(i + 1)Print x(i);Nextx(10) = tPrint x(i)End SubPrivate Sub Command2_Click()Dim x()x = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) t = x(10)For i = 9 To 1 Step -1x(i + 1) = x(i)Next ix(1) = tFor i = 1 To 10Print x(i);Next iEnd Sub5-4Private Sub Form_Click()Dim a(5, 5)For i = 1 To 5Sum = 0For j = 1 To 5a(i, j) = Int(Rnd * 51 + 10)Sum = Sum + a(i, j)Print a(i, j);Next jPrint SumNext iPrintFor i = 1 To 5For j = 1 To 5If i = j Then Print a(i, j);Next jNext iPrintEnd Sub5-5Private Sub Form_Click()Dim a() As IntegerDim Max As Integer, iMax As Integer, jMax As IntegerDim Min As Integer, iMin As Integer, jMin As IntegerM = InputBox("输入M")N = InputBox("输入N")ReDim a(M, N)For i = 1 To MFor j = 1 To Na(i, j) = Int(Rnd * 900) + 100Next jNext iFor i = 1 To MFor j = 1 To NPrint a(i, j);Next jPrintNext iMax = a(1, 1): Min = a(1, 1)For i = 1 To MFor j = 1 To NIf a(i, j) > Max Then Max = a(i, j): iMax = i: jMax = jf a(i, j) < Min Then Min = a(i, j): iMin = i: jMin = j Next jNext iPrint "Max="; Max, "iMax="; iMax, "jMax="; jMaxPrint "Min="; Min, "iMin="; iMin, "jMin="; jMinErase aEnd Sub5-6Private Sub Form_Click()n = InputBox("n")ReDim a(n, n)For i = 1 To nFor j = 1 To nIf i = j Thena(i, j) = 1Elsea(i, j) = 0End IfNext jNext iFor i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iErase aEnd Sub5-7Private Sub Form_Click()Dim x As Variantx = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i = 1 To 10Print x(i);Next iPrintFor i = 1 To 7x(i) = x(i + 3)Print x(i);Next iPrintReDim Preserve x(i)x = Array(1, 2, 3, 4, 5, 6, 7)大学VB程序设计课后习题参考答案(编码)or i = 1 To 7Print x(i);Next iPrintEnd Sub5-8Option Base 1Private Sub Command1_Click(Index As Integer)Select Case IndexCase 1Text3 = Val(Text1) + Val(Text2)Case 2Text3 = Text1 - Text2Case 3Text3 = Text1 * Text2Case 4Text3 = Text1 / Text2End SelectEnd Sub6-1Private Sub Form_click()Dim x As SingleDim y As SingleDim z As Singlex = InputBox("请输入圆柱体的半径")y = InputBox("请输入圆柱体的高度") volume x, y, zPrint "圆柱体的体积为"; zEnd Sub6-2窗体模块Private Sub Form_click()Dim a!, b!, c!a = InputBox("请输入圆柱体的半径")b = InputBox("请输入圆柱体的高度")c = volume(a, b)Print "圆柱体的体积为"; cEnd Sub标准模块Function volume(r As Single, h As Single) As Singlevolume = 3.14 * r * r * h End Function6-3Private Sub Form_Click()Dim y%y = InputBox("请输入一个整数")Call week(y)End Sub6-4窗体模块Private Sub Form_click()Dim a As Integer, b As Stringa = InputBox("请输入一个整数")b = week(a)Print b标准模块Function week(s As Integer) As String Select Case sCase 0week = "星期日"Case 1week = "星期一"Case 2week = "星期二"Case 3week = "星期三"Case 4week = "星期四"Case 5week = "星期五"Case 6week = "星期六"Case ElseMsgBox "数据无效"End SelectEnd Function6-5窗体模块Private Sub Form_click()Dim n As Single, w As Stringn = InputBox("请输入一个正整数") Select Case wCase judge = 0Print "此数为偶数"Case ElsePrint "此数为奇数"Print wEnd SelectEnd Sub标准模块Function w(n As Single) As Stringw = n \ 2Select Case wCase w = 0Print "此数为偶数"Case ElsePrint "此数为奇数"End Function6-7Sub lenUL(ByVal s As String, U%, L%) Dim i As IntegerFor i = 1 To Len(s)Select Case Mid(s, i, 1)Case "A" To "Z"U = U + 1Case "a" To "z"L = L + 1End SelectNext iEnd SubPrivate Sub Command1_Click()Dim U%, L%Call lenUL(Text1, U, L)Text2 = UText3 = LEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text3 = ""Text1.SetFocusEnd Sub7-1Private Sub Command1_Click()Image1.Picture = LoadPicture("c:\图片\picture5.JPG")End SubPrivate Sub Command2_Click()Image1.Picture = LoadPicture("c:\图片\picture3.JPG")End SubPrivate Sub Command3_Click()Image1.Picture = LoadPicture("c:\图片\picture4.JPG")End Sub7-2Private Sub Command1_Click()Static a As Integera = a + 1If a Mod 2 <> 0 ThenImage1.Picture = LoadPicture("c:\图片\p2.JPG")Image2.Picture = LoadPicture("c:\图片\p1.JPG")ElseImage1.Picture = LoadPicture("c:\图片\p1.JPG")Image2.Picture = LoadPicture("c:\图片\p2.JPG")End IfEnd SubPrivate Sub Form_Load()Image1.Picture = LoadPicture("c:\图片\p1.JPG")Image2.Picture = LoadPicture("c:\图片\p2.JPG")End Sub7-3Private Sub Timer1_Timer()Form1.Picture = Image3.PictureImage3.Picture = Image2.Picture Image2.Picture = Image1.Picture Image1.Picture = Form1.PictureEnd Sub7-4Private Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If Image2.Top >= -Image2.Height Then Image2.Top = Image2.Top - 100ElseImage2.Top = -Image2.Height大学VB程序设计课后习题参考答案(编码)End IfEnd Sub7-5Private Sub Form_Load()HScroll1.Min = 0HScroll1.Max = Image1.WidthImage1.Width = 0End SubPrivate Sub HScroll1_Scroll()Image1.Width = HScroll1Label1 = "当前图片宽度：" & HScroll1.ValueEnd Sub7-6Private Sub Command1_Click()For i = ProgressBar1.Min To ProgressBar1.MaxProgressBar1.Value = i(For j = 1 To 20000Next j) （延时）Next iEnd Sub7-7Private Sub Command1_Click()a = IIf(Option1, "男", "女")b = IIf(Option3, "硕士", "博士")c = IIf(Check1, "音乐", "")d = IIf(Check2, "演讲", "")e = IIf(Check3, "体育", "")f = IIf(Check4, "集邮", "")Text2 = "姓名:" & Text1.Text & "," & "性别:" & a & "," & "学历:" & b & "," & "特长:" & c & "," & d & "," & e & "," & fEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text1.SetFocusEnd Sub7-8Private Sub Form_Load()Combo1.AddItem "河南省" Combo1.AddItem "开封市"Combo1.AddItem "河南大学"Combo1.AddItem "金明校区"Combo1.AddItem "环境与规划学院" Combo1.AddItem "09级"Combo1.AddItem "地理科学专业" Combo1.AddItem "刘彬"Combo1.AddItem "毕业于"Combo1.AddItem "湖南省"Combo1.AddItem "衡山县"Combo1.AddItem "第二中学"Combo1.AddItem "218班"End SubPrivate Sub Combo1_Click()List1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndex End Sub8-1Dim x As Single, y As Single Private Sub Pt1_Click()Pt1.Scale (0, 100)-(100, 0)Pt1.DrawWidth = 2For x = 0 To 100 Step 0.02Pt1.PSet (x, 2), vbRedNext xFor y = 0 To 100 Step 0.02Pt1.PSet (2, y), vbRedNext yPt1.CurrentX = 2Pt1.CurrentY = 5Pt1.Print "(0,0)"End Sub8-2Private Sub P1_Click()P1.Scale (0, 100)-(100, 0)P1.FillStyle = 7P1.DrawWidth = 5P1.FillColor = vbGreenP1.Line (10, 90)-(90, 10), vbRed, B End Sub8-3Private Sub Form_click()Scale (-100, 100)-(100, -100)Line (-100, 0)-(100, 0)Line (0, -100)-(0, 100)CurrentX = 2CurrentY = 6Print "(0,0)"End Sub8-4Private Sub Form_click()Scale (-100, 100)-(100, -100)Line (-100, 0)-(100, 0)Line (0, -100)-(0, 100)For x = -100 To 100 Step 0.02y = 10 * Sin(x) - 10 * Cos(2 * x)PSet (x, y), vbRedNext xEnd Sub8-7Private Sub Form_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()RandomizeScale (-120, 120)-(120, -120) DrawWidth = 2If r < 100 Thenr = r + 2For r = 0 To 100Circle (0, 0), r, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)Next rEnd IfEnd Sub9-1Private Sub Text1_KeyPress(K As Integer) K = K + 3End Sub9-2Private Sub Text1_KeyPress(K As Integer) Select Case KCase 48 To 57K = KCase ElseK = 0 End SelectEnd Sub9-6Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MousePointer = 5End SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MousePointer = 11End SubPrivate Sub Picture1_Click() MouseIcon = Picture1.MouseIconPicture1.MouseIcon = Image1.MouseIcon Image1.MouseIcon = Form1.MouseIconEnd Sub9-7Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift = vbCtrlMask And Button = vbLeftButton Then Print "Ctrl+左键+移动"If Shift = vbAltMask And Button = vbRightButton Then Print "Alt+右键+移动"End SubSub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)ClsEnd Sub9-8Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = vbLeftButton Then Picture1.Print Str(X) + "," + Str(Y) BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)End Sub大学VB程序设计课后习题参考答案(编码)10-1Private Sub Command1_Click()Open "d:\data1.txt" For Output As #1 Write #1, "601", "杨大昌"; "4550" Write #1, "603", "李文圣"; "3886" Write #1, "605", "张燕"; "2235" Close #1End SubPrivate Sub Command2_Click()Open "d:\data1.txt" For Input As #2 Do While Not EOF(2)Input #2, X1, X2, x3Print X1, X2, x3LoopCloseEnd Sub10-2Private Sub Command1_Click()Open "d:\data1.txt" For Append As #3 Write #3, Text1, Text2, Text3Text1 = ""Text2 = ""Text3 = ""CloseEnd SubPrivate Sub Command2_Click()CloseEndEnd Sub10-5Private Sub Form_Click()Dim sum As LongFor n = 1 To 100 Step 2sum = sum + nNext nPrint sumEnd SubPrivate Sub Form_Load()Open "d:\data5.txt" For Output As #1 For n = 1 To 100 Step 1Print #1, n;Next nClose End Sub10-6Private Sub Form_Click()Dim sum As IntegerFor n = 10 To 100 Step 10sum = sum + nNextPrint sumEnd SubPrivate Sub Form_Load()Open "d:\data6.dat" For Random As #1 For n = 1 To 100Put #1, , nNextEnd Sub11-1Private Sub Command1_Click() CommonDialog1.Action = 3Text1.BackColor = CommonDialog1.Color End SubPrivate Sub Command2_Click() CommonDialog1.Flags = 263 CommonDialog1.Action = 4Text1.FontSize = CommonDialog1.FontSizeText1.FontName = CommonDialog1.FontNameText1.FontBold = CommonDialog1.FontBoldText1.FontStrikethru = CommonDialog1.FontStrikethruText1.ForeColor = CommonDialog1.Color Text1.FontUnderline = CommonDialog1.FontUnderlineEnd SubPrivate Sub Command3_Click() CommonDialog1.Action = 2End Sub11-2Private Sub Command1_Click()CD1.InitDir = "C:\Documents and Settings\Administrator\桌面"CD1.Filter = "图片|*.jpg|文本文件|*.txt|"CD1.ShowOpenIf CD1.FilterIndex = 1 ThenImage1.Picture = LoadPicture(CD1.FileName)ElseOpen CD1.FileName For Input As #1Do While Not EOF(1)Line Input #1, nText1 = Text1 + n + vbNewLineLoopEnd IfEnd Sub11-4Private Sub Form_Resize()Text1.Left = 50Text1.Top = 50Text1.Width = Width - 2000Text1.Height = Height - 5000End SubPrivate Sub mnuName_Click(Index As Integer)Select Case IndexCase 5Text1.FontName = "宋体"Case 10Text1.FontName = "黑体"Case 15Text1.FontName = "隶书"End SelectEnd Sub11-6Private Sub Form_Load()Text1.Width = WidthText1.Height = HeightEnd SubPrivate Sub Form_Resize()Text1.Left = 50Text1.Top = 650Text1.Width = Width - 200Text1.Height = Height - 900End SubPrivate Sub mnuCopy_Click()s = Text1.SelText mnuPaste.Enabled = TrueEnd SubPrivate Sub mnuCut_Click()s = Text1.SelTextText1.SelText = ""mnuPaste.Enabled = TrueEnd SubPrivate Sub mnuPaste_Click()Text1.SelText = Text1 + sEnd Sub11-7Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)PopupMenu mnuTitle, 2, 0, 0End SubPrivate Sub mnuDate_Click()Caption = DateBackColor = vbYellowEnd SubPrivate Sub mnuTime_Click()Caption = TimeBackColor = vbRedEnd Sub。
《VB程序设计》习题答案-林卓然编著
《VB语言程序设计》教材林卓然编著《VB程序设计》习题参考答案第1章习题一、单选题1．D 2．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．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B二、多选题1．BD 2．CD 3．AC 4. AD三、填空题1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(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题：按要求完成操作练习。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB语言程序设计》教材林卓然编著《VB程序设计》习题参考答案第1章习题一、单选题1．D 2．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．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B二、多选题1．BD 2．CD 3．AC 4. AD三、填空题1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(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，用于显示结果。