新VB程序设计案例教程（ ） 第1章 中文 VB 程序设计基础.pptVIP

第1章 Visual Basic程序设计基础 【案例2】词组互换 【案例3】计算数学试题 【拓展案例2】验证表达式运算 【拓展案例3】移动标语 【案例4】求一元二次方程式的根1 【拓展案例4】验证转换和判断函数 【拓展案例5】函数运算 【拓展案例6】随机数运算 【案例5】调用外部应用程序 【拓展案例7】日期和时间函数验证 【拓展案例8】显示系统时间1 【案例6】计算总分和平均分 【拓展案例9】数值格式化输出函数验证 【拓展案例10】显示系统时间2 1.1 【案例2】词组互换 1.1.1 学习目标 “词组互换”程序运行后的画面如图1-1-1左图所示。在三个文本框中分别输入不同的文字，然后单击“互换”按钮，第1个文本框中的文字会在第3个文本框中显示，第2个文本框中的文字会在第一个文本框中显示，第3个文本框中的文字会在第二个文本框中显示，如图1-1-1右图所示。本案例介绍了如何制作一个交换文本框中文字内容的程序。通过本案例的学习，可以初步认识数据的类型、变量的作用，以及交换变量值的方法。 1.1.2 设计方法 1．对象属性设置 （1）创建一个新的工程。用鼠标拖曳调整窗体的大小。在窗体的“属性”窗口中设置“名称”属性值为“Form1”，Caption属性值为“词组互换”。 （2）在窗体内创建8个对象，属性设置如表1-1-1所示，布局如图1-1-1左图所示。 2．输入代码程序 在“代码”窗口中输入的代码程序如下。 Rem 定义变量str1, str2, str3, temp 为字符型变量 Dim str1, str2, str3, temp As String Private Sub Command1_Click() Rem 保存用户输入的词组 str1 = Text1.Text 将文本框Text1的Text属性值赋给变量str1 str2 = Text2.Text 将文本框Text2的Text属性值赋给变量str2 str3 = Text3.Text 将文本框Text3的Text属性值赋给变量str3 Rem 使用变量temp，帮助进行变量值的互换 temp = str1 将变量str1的值赋给变量temp str1 = str2 将变量str2的值赋给变量str1 str2 = str3 将变量str3的值赋给变量str2 str3 = temp 将变量temp的值赋给变量str3 Rem 输出互换结果 Text1.Text = str1 将变量str1的值赋给文本框Text1的Text属性 Text2.Text = str2 将变量str2的值赋给文本框Text2的Text属性 Text3.Text = str3 将变量str3的值赋给文本框Text3的Text属性 End Sub Private Sub Command2_Click() End End Sub 在上面的程序中，声明了4个String（字符）类型变量str1、str2、str3和temp。前3个变量分别用来保存3个文本框Text属性的值。因为变量只能保存最新的数据，之前的数据会丢失，所以在进行词组易位时，要使用变量temp来临时保存变量str1原有的值。首先，使用temp = str1语句把变量str1中的值赋给变量temp。然后使用str1 = str2语句把变量str2的值赋给变量str1。再使用str2 = str3语句把变量str3的值赋给变量str2。最后使用str3 = temp语句把变量temp的值（也就是变量str1原有的值）赋给变量str3，完成3个变量之间的数值交换。 1.1.3 相关知识 1．变量的声明 通常，必须对变量先进行声明，再使用变量。变量声明就是将变量的名称和数据类型事先通知给应用程序，也叫做变量定义。 在VB中可以使用如下几种方法进行变量的声明。 （1）隐式声明：隐式声明就是在使用一个变量之前并不专门声明这个变量而直接使用。例如：PI=3.1415、LMl=Int(RND*39)等，即在给PI和LMl变量赋值的同时，自动声明了变量PI和LMl，而在赋值前并没有对变量PI和LMl进行声明。隐式声明的变量属于变体（Variant）数据类型变量。采用隐式声明的变量，在输入变量名称发生错误时，会使应用程序运行结果产生错误，而且这种错误不易被发现，系统也不会有错误提示信息。 （2）用Dim语句声明变量：用Dim语句声明变量的方法如下。 【格式】Dim 变量名 [