《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属性分别为_________。
- 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，用于显示结果。