【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“一个完整的VB应用程序,一般都包含三部分内容,即 输入 → ... - 互联网“提供大家参考，希望对大家有所帮助!

淘宝才智专线旺才智专线第3章 赋值与输入输出 一个完整的VB应用程序，一般都包含三部分内容，即 输入 → 处理 → 输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容 赋值语句　　 常用基本语句　　 使用Print方法输出数据　　 窗体和基本控件 命令按钮/标签/文本框 对话框 输入对话框/消息对话框 程序举例　　 淘宝才智专线旺才智专线3.1 赋值语句 赋值语句是程序设计中最基本、最常用的语句 格式：〔Let〕变量名表达式　 功能：计算右端的表达式，并把结果赋值给左端的变量 例3.1 已知a6b9计算c√a2 b2 　 编写的窗体单击事件过程代码如下： Private Sub Form_Click Dim a As Single b As Single c As Single a6 b9 c Sqra a b b Print c c End Sub 运行程序后单击窗体，输出结果如下：　 C10.81665 淘宝才智专线旺才智专线本事件过程采用的是顺序程序结构，运行的过程是： 声明3个单精度变量abc 6→a 9→b 计算表达式，其结果10.81665→c 输出结果 赋值含义: 将值送到变量的存储单元中去 淘宝才智专线旺才智专线说明： 1表达式中的变量必须是赋过值的，否则变量的 初值自动取零值变长字符串变量取空字符。

    例如： 　 a 1 c a b 3 ′b未赋过值，为0　 执行后，c 值为 4　 2利用赋值语句，可以改变变量的值，因此，同 一变量在不同时刻可以取不同的值。

    　 淘宝才智专线旺才智专线例3.2 示例 Private Sub Form_Click a 3 : Print A a a 7 : Print A a a a 2 3 : Print A a End Sub 运行程序后单击窗体，输出的结果如下： A3　 A7　 A17 3赋值语句跟数学中等式具有不同的含意，例如赋值语句xx1表示把变量x的当前值加上1后再将结果赋给变量 “先读后写”：读出x的内容 → 加1 → 写回x（覆盖原有内容） 淘宝才智专线旺才智专线3.2 常用基本语句 3.2.1 注释语句Rem 在程序的适应位置加上必要的注释，可以提高程序的可读性 语法格式： Rem 注释内容　 或 注释内容　 功能：在程序中加入注释内容，以便于对程序的理解。

    　 例如　 Rem 交换变量a和b的值 ca c为临时单元　 ab bc 说明：1如果使用关键字Rem，在Rem和注释内容之间要 加一个空格。

    　 2在其他语句后使用Rem关键字，必须使用冒号:与前面 的语句隔开。

    注释符单引号’可以直接写在其他语句后面。

     淘宝才智专线旺才智专线3.2.2 加载对象语句Load 语法格式：Load 对象名　 功能：把对象名代表的窗体对象、控件数组元素等加载到 内存中。

    　 说明：使用Load语句可以加载窗体，但不显示窗体。

    当 VB加载窗体对象时，先把窗体属性设置为初始值，再执行 Load事件过程。

    　 例如　 Load Forml 加载窗体Forml　 Load Option2 加载控件数组中的一个元素 淘宝才智专线旺才智专线3.2.3 卸载语句Unload　 格式：Unload 对象名　 功能：从内存中卸载指定窗体或控件。

    　 如果卸载的对象是程序惟一的窗体，则将终止程 序的执行 例如 Private Sub Command1_Click　 Unload Me ′卸载当前窗体　 End Sub　 Me是系统关键字，用来代表当前窗体 淘宝才智专线旺才智专线3.2.4 结束语句End 格式：End　 功能：结束程序的运行。

    　 也可以单击工具栏上的“结束”按钮　 3.2.5 暂停语句Stop　 格式：Stop 功能：暂停程序的运行。

    可用于调试程序设置断点 也可以通过单击工具栏上的“中断”按钮来实现 使用Ctrl Break组合键 淘宝才智专线旺才智专线3.3 使用Print方法输出数据 3.3.1 Print方法　 用于显示输出文本　 格式：〔对象名.〕Print 〔表达式列表〕 说明：1使用的对象可以是窗体等 Print “程序设计”　 在当前窗体上输出 Picture1.Print “程序设计” 在图片框上输出 2表达式列表是一个或多个表达式，如果省略，则输出 一个空行 3当输出多个表达式时，各表达式之间用分号“；”紧凑 格式或逗号“，”按区格式隔开。

     　按区格式14个字符位置 淘宝才智专线旺才智专线例：Private Sub Form_Click a2 b VB Print 50 a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub 运行结果：　 淘宝才智专线旺才智专线 输出数值数据时，前面有一个符号位正号以空格表示，后面留有一个空格；输出字符串时，前后不留空格。

     例：Private Sub Form_Click a 3: b 4 Print a b 4 a Print 2 b Print a b Print a a b b End Sub运行结果 4若语句行末尾有分号或逗号则输出本行输出项后不换行 淘宝才智专线旺才智专线 例3.4 使用Print方法输出全班学生的平均年龄 已知18岁6人，19岁21人，20岁23人，21岁15人编写的窗体单击事件过程代码如下： Private Sub Form_Click Dim a As Integer b As Integer c As Integer Dim d As Integer s As Integer m As Single a 6 : b 21 : c 23 : d 15 sabcd m a 18 b 19 c 20 d 21 / s 以下舍入到小数后1位 Print 平均年龄： Intm 10 0.5 / 10 End Sub 运行程序后单击窗体，输出结果是：　 平均年龄：19.7 淘宝才智专线旺才智专线3.3.2 特殊打印格式1. Spc函数　格式：Spcn　功能：在输出下一项之前插入n个空格。

    例如：　 Print 学号；Spc2；姓名；Spc5；成绩输出结果└┘表示空格：　 学号└┘└┘姓名└┘└┘└┘└┘└┘成绩　 淘宝才智专线旺才智专线 2. Tab函数 函数格式：Tabn　 功能：把输出位置移到第n列。

    　 例如： Print Tab2学号；Tab11姓名；Tab21成绩 输出结果是1个汉字占2个位置：　 └┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩 淘宝才智专线旺才智专线例3.5 使用Tab对输出进行定位 　程序代码如下： Private Sub Form_Click Print Print Tab15 学号 Tab26 姓名 Tab36 成绩 Print Tab14 String27 - 输出27个减号字符“-” Print Tab14 20011001 Tab26 张小三 Tab36 57 Print Tab14 20011003 Tab26 李小四 Tab36 69 Print Tab14 20011012 Tab26 马小五 Tab36 92 Print Tab14 String27 - 输出27个减号字符“-” End Sub 淘宝才智专线旺才智专线 　运行结果　 淘宝才智专线旺才智专线3. Format函数 格式：Format表达式 格式串　 功能：根据格式串规定的格式来输出表达式的值　 a4513.7 : b3456.78 : TimeVar08:30:05 Print Formata .　 Print Formata .00　 Print Formatb .　 Print FormatTimeVar h:m:s　 输出结果是： 4513.7 4513.70 3456.8　 8:30:5 格式符号和0都能显示数字，但符号会剔除不必要的 淘宝才智专线旺才智专线 0，符号0会按规定补足03.4 窗体 窗体Form是设计VB应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的 一个程序可以有多个窗体 3.4.1 窗体的基本属性 　 设置窗体的属性，可在程序设计时在属性窗口中 手工设置，也可以在程序运行时由代码实现 默认属性 淘宝才智专线旺才智专线