VB案例ALL2Word格式.docx

1、按钮）。（5）控件绘制及属性设置步骤：单击工具箱的控件在窗体的合适位置画出一个矩形区域 用鼠标选中该控件通过属性窗口设置属性 本案例中各控件属性的设置：窗口标题的设置： 选中窗体窗口在属性窗口查找Caption属性 在Caption属性的右端输入“存款计算器”，如图1-4。 图1-4 图1-5标签标题的设置： 选中标签控件在属性窗口查找Caption属性 在Caption属性的右端输入显示的文字标签字体的设置：选中标签控件在属性窗口查找Font属性 单击右端的按钮在打开的对话框中设置显示的文字的字体、字型、大小。如图1-5。文本框属性的设置：选中文本框在属性窗口查找Text属性选中默认值按“D

2、elete”键将其删除命令按钮标题的设置：选中命令按钮在属性窗口查找Caption属性 在Caption属性的右端输入“计算”（6）对象事件过程的建立打开代码窗口 创建事件的模板 模板中输入代码有二种方法打开代码窗口：方法一： 双击要对其编写事件过程的控件，打开代码窗口，显示该控件默认事件的模板。若该控件的事件不是默认事件，则应在“过程列表框”中选择与选中对象相关的事件，单击所选事件后，显示该事件的模板。方法二： 单击工程资源管理器窗口中的按钮，打开代码窗口，在代码窗口的“对象列表框”中选择对象，如图1-6；在“过程列表框”中选择与选中对象相关的事件，如图1-7，单击所选事件后，显示该事件的模

3、板。本案例事件过程的建立： 双击“显示”按钮，打开代码窗口，显示默认的Click事件的模板。 在代码窗口的“对象列表框”中分别选择文本框对象；在“过程列表框”中选择事件LostFocus后，显示该事件的模板。图1-6 对象列表框 图1-7 过程列表框（7）设计程序，输入代码编写Command1_Click事件，将文本框中输入的数据（字符型）转换为数值型，送到变量中，由这些变量通过公式求出结果，通过MsgBox函数将结果输出。对三个文本框分别编写三个LostFocus（）事件过程，当输入非数字字符时，清除文本框内容文本框内容，焦点重新定位在该文本框中。注意：代码应在模板过程体的光标处开始输入，如

4、图1-8。图1-8（8）运行程序单击工具栏中的启动按钮 “”运行程序。此时，程序开始运行，文本框中的数据输入后，单击“计算”按钮，显示结果，如图1-9。（9）保存文件在选择“文件”“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。由于是第一次保存文件，因此在弹出的文件另存为对话框中提示保存窗体文件，将窗体文件保存在指定文件夹下并起名为Vbsy1_1frm，此时，系统会继续提示保存工程文件，将工程文件也保存在指定文件夹下并起名为Vbsyl_1vbp。图1-9 （10） VB程序的错误类型和调试在VB中，常见错误可分为三种：1）语法错误 程序编辑时输入错误或编译时语言成分错，系统会检查出来，

5、显示“编译错误”并提示用户纠正。例如：表达式未输入完毕，按回车键，如图1-10。图1-102）运行时错误 程序没有语法错，但运行时出错，当单击“调试”按钮，程序停留在引起错误的那一句上，要求用户修改。字符串“利息”与数值型变量lx用“+”运算符连接，运行时出错，当单击“调试”按钮，程序停留在引起错误的语句上，如图1-11，此时，将“+”改为“&”，单击“”（此时为继续按钮），程序继续执行下面的语句。图1-113） 逻辑错误 程序正常运行后得不到预期的结果，可通过设置断点进行调试。将lxs = lx * 0.05语句，输入为lxs = lx * 0.5，程序正常运行后，利息税比实际要高许多。如何

6、找出逻辑错误？一般采用设置断点和利用Debug.Print方法在“立即”窗口显示相关变量的值的方法来找出错误所在。下面介绍设置断点和逐语句跟踪相结合的方法。步骤为： 设置断点选择怀疑错误的地方作为断点，可通过如下方法设置断点： 在如图1-12中光标所在处单击 光标所在的语句处按F9键设置断点后，单击工具栏中的启动按钮 “”运行程序，程序运行到该断点处停下，进入中断模式，把鼠标指向在此之前所关心的变量、属性、表达式处，稍微停一下，鼠标下方便显示该变量值，如图1-13所示。图1-12图1-13 逐语句跟踪 跟踪断点以后语句的执行情况，可按F8或选择“调试”菜单的“逐语句”执行，如图1-14。图1-

7、143常见问题（1）标点符号错误在VB中只允许使用西文标点，进入VB后不要使用中文标点符号。（2）Name属性和Caption属性混淆Name属性的值用于在程序中唯一地标识该控件对象，在窗体上不可见，编程时使用；而Caption属性的值是在窗体上显示的内容。（3）语句书写位置错在VB中，除了在“通用声明”段利用Dim等对变量声明语句外，其他任何语句都应在事件过程中，否则运行时会显示“无效外部过程”的信息。若要对模块级变量进行初始化工作，则一般放在Form_Load（）事件过程中。（4）无意形成控件数组若要在窗体上创建多个相同的控件，如案例中三个文本框，不要先创建一个文本框，然后对该控件进行复制

8、、粘贴。（此时创建的是一个控件数组）。（5） 打开工程时找不到对应的文件若打开工程时显示“文件未找到”，原因可能是：文件复制时少复制了某个文件（.vbp工程文件和.frm窗体文件要一起复制）或将窗体文件等改名。若窗体文件被改名，解决方法： 通过记事本打开.vbp工程文件，修改窗体文件名；如图1-15。图1-15 通过“工程”菜单的“添加窗体”中的“现存”选项，将改名后的窗体加入工程。（6）数据合法性检查中引起程序的死循环为了确保三个文本框中输入的是数字字符，当输入其它字符时要求重新输入，应对三个文本框分别编写三个LostFocus（）事件。但如果用以下代码：Private Sub Text1_

9、LostFocus（） Private Sub Text2_LostFocus（） Private Sub Text3_LostFocus（） If Not IsNumeric（Text1） Then If Not IsNumeric（Text2） Then If Not IsNumeric（Text3） Then Text1 = Text2 = Text3 = Text1.SetFocus Text3.SetFocus Text3.SetFocus End If End If End IfEnd Sub End Sub End Sub当Text1输入错要继续在Text2输入时，焦点在Text

10、2处不停地闪动，程序产生死循环。原因是当焦点定位到Text2时，激发Text1_LostFocus事件，当判断Text1文本框输入数据错时，执行Text1.SetFocus，使焦点从Text2拉回到Text1；而又激发Text2_LostFocus事件，此时Text2文本框内没有输入数据，又执行Text2.SetFocus，使焦点从Text1拉回到Text2，如此交错造成死循环。程序产生死循环时，按Ctrl+Break结束程序的执行。解决Text1输入错时死循环的问题，只要把Private Sub Text2_LostFocus（）事件的If表达式If Not IsNumeric（Text2）

11、 Then 改为：If Text2 And Not IsNumeric（Text2） Then即可。四实验报告要求1实验准备2报告内容实验日期_ 指导教师_实验题目：实验环境： （调试程序所使用的软硬件环境）流程图源程序清单： （调试好的源程序代码） 主要标识符说明： （源程序中主要标识符含义说明） 实验结果： （程序运行结果） 实验总结 （分析实验中所遇到的一些问题，分析错误原因，如何进行调试）五实验思考题1若存入金额、年数、年利率从键盘输入，结果在文本框中显示，则程序应如何修改？2结果是否一定要通过单击按钮才能求得？还有什么方法？3在设计阶段，对窗体、标签等控件直接设置了属性，若要通过代码

12、设置，应放在什么事件中？如何实现？六参考样例1 流程图计算本息金额总数的流程图：2 设计界面程序运行结果见图1-16实验界面。图1-163 程序代码Option ExplicitPrivate Sub Command1_Click（）Dim a!, b!, c!, lx!, lxs!, bl!a = Val（Text1.Text）b = Val（Text2.Text）c = Val（Text3.Text）lx = a * b * c / 100 求利息lxs = lx * 0.5 求利息税bl = Format（a + lx - lxs, 0.00） 求本利保留两位小数MsgBox （利息：

13、& lx & vbCrLf &利息税: lxs &到期本息： bl）End SubPrivate Sub Text1_LostFocus（）If Not IsNumeric（Text1.Text） ThenText1.Text = Text1.SetFocusEnd IfPrivate Sub Text2_LostFocus（）If Not IsNumeric（Text2.Text） And Text2 ThenText2.Text = Text2.SetFocusPrivate Sub Text3_LostFocus（）If Not IsNumeric（Text3.Text） And Tex

14、t3 100000: y = n * 0.45 - 15375 Case Else: y = 0 End Select3常见问题分析（1）单选按钮的Click事件无法判定出正确答案。正确答案Result在出题时产生，选择答案时要使用，变量涉及到两个事件，故需要将Result的声明放在通用对象中。否则在单选按钮的Click事件中Result的值为0。（2）可选答案中的正确答案无法随机变动位置。先在4个单选按钮上产生随机数，再将正确答案随机赋予其中的一个。如果改变顺序，将增加程序难度。 （3）If语句要严格按格式书写，即关键字Then、Else后面的语句块必须换行书写；单行式的If语句必须在一行上

15、书写。不能为如下形式：If x y Then MsgBox （yes） 或 If x y ThenElse: MsgBox （no） MsgBox （）End If Else） （4）逻辑表达式的书写不要与数学上的表示混淆，如数学上表示0n500，在VB中该式子不会造成语法错而是逻辑错误，假设n为1000，先求出00 And n=0 And n=500:500 And n=500表达式没有判断功能，而是将其值求出，即值0或-1。n 的值是与0或-1比较。（1）实验准备预习分支语句，熟悉选择结构程序设计方法。根据实验内容要求，画出程序流程图，并根据流程图编好实验源程序。（2）报告内容1四则运算出

16、题程序若要考虑只能大数减小数，两数要能整除且除数不能为0，则程序应如何修改？2供选择的四个随机产生的答案，如何使它们不重复？3试用多分支结构语句If Then ElseIf EndIf来编写所得税计算器程序。比较If Then ElseIf EndIf语句与Select Case End Select语句的使用。3为了确保程序运行的正确性，应如何对所得税计算器程序进行数据的合法性检查？4如何将所得税计算器扩充为更全面的功能。图2-3图2-4图2-5Dim i, result Dim num1 As Integer, num2 As Integer, op As Integer num1 = I

17、nt（Rnd * 10 + 0） num2 = Int（Rnd * 10 + 0） op = Int（Rnd * 4 + 1） Label1 = num1: Label3 = num2 Select Case op 设置界面运算符，获得正确答案 Case 1 Label2.Caption = + result = num1 + num2 Case 2- result = num1 - num2 Case 3 result = num1 * num2 Case 4 result = Format（num1 / num2, #0.# For i = 0 To 3 Option1（i）.Caption = result Label4.Visible = FalsePrivate Sub Form_Load（） Command1_ClickPrivate Sub Option1_Click（Index As Integer） If IsEmpty（i） Then Exit Sub If Option1（Index）.Caption = result Then Label4.Caption = 正确,你很聪明! Else很遗憾,做错了！ End If Label4.Visible = True所得税