《VB编程入门》由会员分享，可在线阅读，更多相关《VB编程入门（98页珍藏版）》请在金锄头文库上搜索。
1、<p><p>大学计算机基础教程 TaiYuan University of Technology 第2章 VB编程入门 Visual Basic 程序设计教程 本章将介绍有关VB程序的构成和数据类型以 及变量的定义和使用、表达式以及基本的输入输 出操作。这些知识是编程的基础。我们将通过简 单示例的分析，帮助理解如何进行VB编程。 2 程序设计教程 本章主要内容: 确定数据的性质：数据类型 两种数据表达：常量和变量 算术运算符和表达式 VB编程的开始：使用窗体 赋值和输入输出 3 程序设计教程 所谓编程就是针对要解决的任务，设计解决问所谓编程就是针对要解决
2、的任务，设计解决问 题的步骤，使用计算机程序设计语言进行描述，最题的步骤，使用计算机程序设计语言进行描述，最 后通过编码、测试、修改等过程实现编程的目的。后通过编码、测试、修改等过程实现编程的目的。 编程有两个方面的要求编程有两个方面的要求: : 一一 需要理解编程的任务并给出算法需要理解编程的任务并给出算法 二二 要使用特定的计算机语言具体地表示这些算要使用特定的计算机语言具体地表示这些算 法。法。 2.1 概 述 4 程序设计教程 1加法器界面设计 2.2 一个简单的加法器程序 5 程序设计教程 2 2编写程序代码编写程序代码 对象列表框 过程列表框 过程分界线 程序员在此编写代码 光标
3、标题 6 程序设计教程 Private Sub CmdAdd_Click()计算”按钮代码 Dim Temp As Long TxtNum1.Text = &quot;&quot; TxtNum2.Text = &quot;&quot; TxtSum.Text = &quot;&quot; TxtNum1.Text = InputBox (&quot;请输入第一个数&quot;) TxtNum2.Text = InputBox(&quot;请输入第二个
4、数&quot;) Temp = Val(TxtNum1) + Val(TxtNum2) TxtSum.Text = Temp End Sub Private Sub CmdExit_Click()“退出”按钮代码 FrmAdder1.Hide MsgBox (&quot;加法器程序运行结束，谢谢使用&quot;) End End Sub 7 程序设计教程 数据是程序处理的对象。为了更好地处 理各种各样的数据，VB定义了多种数据类型， 数据类型定义了值的范围并确定了它能够进行 的操作。 8 程序设计教程 整数: 整型/长整型 字节型 浮点型: 单/
5、双精度 货币型 数值型 数据类型 字符型 逻辑型 日期型 对象型 变体型 9 程序设计教程 1. 字节型(Byte)? 字节型数可以表示无符号的整数，0255 2. 整型(Integer)和长整型(Long)? 不带小数部分的数，表示正整数、负整数和零 整型数: -3276832767 98、98 长整型数： -21474836482147483647 45678、45678R,”面积”;Area,”周长”;Perimeter 输出半径、面积。周长 End Sub 62 程序设计教程 2.7.2 使用输入对话框InputBox函数 【例2-4】计算半径为R的圆面积和周长，半径值由 键盘输入。
6、Private Sub Form_Click() Const PI = 3.141526 Dim R As Integer, Area As Single, Perimeter As Single R = Val(InputBox(&quot;请输入圆的半径：&quot;, &quot;输入&quot;) Area = PI * R * R Perimeter = 2 * PI * R Print &quot; 半径&quot; R, &quot;面积&quot; A
7、rea, &quot;周长&quot; Perimeter End Sub 这个例子中使用了InputBox函数产生输入对话框。 63 程序设计教程 1输入对话框的使用 InputBox函数的使用格式如下： InputBox（提示，标题，默认值， xpos，ypox） 它们的含义如下： （1）提示信息。这是InputBox对话框所必须 的信息，也可以使用空文本，即“”。 （2）标题。这是在对话框窗口标题栏显示的 内容。可设置，也可以没有标题。 64 程序设计教程 （3）默认值。在输入框中的默认输入。系统 默认为空，可选。 （4）xpos和ypos为对话框的左侧与
8、屏幕左边 的距离和上边与屏幕顶部的距离值。可选。 65 程序设计教程 2在提示中使用多行文本 如果提示信息比较多，可以使用ASCII控制符回车 Chr（13）和换行符Chr（10）产生另起一行。 例如：提示信息为“请输入圆的半径” + Chr（13 ）+ Chr（10）+“使用正整数” ， 产生如图效果 66 程序设计教程 3使用转换函数 InputBox函数接受的是文本，也就是字符 型数据，在程序中根据变量类型不同，可以使用转 换函数。如： R = Val(InputBox(&quot;请输入圆的半径：&quot;, &quot;输 入&
9、;amp;quot;) 这里的Val就是转换函数，将文本类型的数据转 换为整型数以便参加运算。 VB提供了在不同类型数据之间的转换。 67 程序设计教程 2.7.3 使用Print方法输出数据 使用Print在对象中显示（打印）输出文本 。 使用格式如下： 对象名.Print 表达式 ,表达式 1对象名 一般情况下，Print输出到窗体或者图片框 。在本窗体中输出，可以缺省对象名。 68 程序设计教程 2表达式 Print方法支持多个表达式的输出，可输 出数字、文字字符、日期、逻辑值等。如果Print 后面没有任何表达式，则输出空行（在显示效果 上相当于回车换行）。 69 程序设计教程 3输出
10、格式 多个表达式输出，可以使用分号和逗号分隔 。 （1）逗号分隔（标准格式输出）。逗号后 的下一个表达式按照14个字符的空间分开显示。 实际分隔位置还与所在输出行的宽度和分隔的数 目有关。 （2）分号分隔（紧凑格式输出）。后一个 表达式的值接着前一个表达式的输出。 70 程序设计教程 （3）在Print语句最后使用逗号或分号结束 ，不换行，下一个Print接着按格式输出。 （4）使用Spc()和Tab()函数，前者控制插 入空格，后者确定列位置 71 程序设计教程 例： Private Sub Form_click() Me.FontSize = 16 Print 空行 Print &
11、amp;quot;A=&quot; 1, &quot;B=&quot; 2 Print 1, 2; 3, 4 Print &quot;A&quot; Spc(4); &quot;B&quot; Print Tab(10); &quot;B&quot; Print &quot;1234567890&quot; End Sub 72 程序设计教程 2.7.4 使用消息对话框MsgBox函数 MsgBox函数提供了一个显示应用
12、程序运行信息 的标准途径，如图所示： MsgBox的格式如下： 变量名 = MsgBox( 提示 , 对话框类型 , 对话框 标题 ) 73 程序设计教程 （1）使用形式: MsgBox有两种使用形式，注意区分，如： A = MsgBox(&quot;您确定要退出吗？&quot;, vbOKCancel + vbDefaultButton2, &quot;退出&quot;)和MsgBox &quot;您确定要退出吗？&quot;, vbOKCancel + vbDefaultButton2, &am
13、p;amp;quot;退出“ 格式1是具有返回值的使用，程序根据用户 的不同选择把选择结果赋值给变量A。格式2没有 返回值。 74 程序设计教程 （2）提示 必选参数项。如果显示多行，可使用 Chr(13)+ Chr(10) 。 （3）对话框标题 在对话框标题栏显示的信息文本。 75 程序设计教程 （4）对话框类型 类型参数由三部分组成，分别确定对话框 中的按钮形式、默认的焦点在哪一个按钮上和 按钮使用的图标。把按钮形式、焦点选择、图 标三组参数中各选一个进行组合，或直接把它 们对应的符号常量进行相加确定对话框类型值 76 程序设计教程 数值VB符号常量描 述 0 vbOkOnly按钮 形式
14、只使用“确定”（Ok）按钮 1 vbOkCancel使用“确定”“取消”（Cancel）两个按钮 2 vbAbortRetryIgnore“终止”“重试”“忽略”三个按钮 3 vbYesNoCancel使用“是”“否”“取消”三个按钮 4 vbYesNo使用“是”“否”两个按钮 5 vbRetryCancel使用“重试”“退出”两个按钮 77 程序设计教程 ?vbCritical ? ?vbInformatio n ?6 4 ? ?vbExclamati on ?4 8 ? ?vbQuestion ?3 2 ? ?图 标 ?1 6 ?第三个按钮?vbDefaultBu tton3 ?5 1 2
15、 ?第二个按钮?vbDefaultBu tton2 ?2 5 6 ?第一个按钮 ?焦 点 ?选 择 ?vbDefaultBu tton1 ?0 78 程序设计教程 （5）返回值 使用一个变量保存MsgBox函数返回值， 返回值的符号常量和有关描述如表所示。 79 程序设计教程 值符号常量所按的按钮 1vbOk“确定”按钮 2vbCancel“取消”按钮 3vbAbort“退出”按钮 4vbRetry“重试”按钮 5vbIngore“忽略”按钮 6vbYes“是”按钮 7vbNo“否”按钮 80 程序设计教程 （6）省略参数项 如果只给出提示，系统默认为对话框类型参数 值为0，没有对话框标题。如
16、果要省略某一个参数项 ，需要加上逗号分隔符。例如：A = MsgBox ( “您 确定要退出吗？”, , “退出” ) 81 程序设计教程 【例2-5】在窗体上设置三个命令按钮，分别为“放大 窗口”“缩小窗口”和“结束程序”。点击“放大窗口”“缩 小窗口”窗体相应进行放大和缩小操作，并在窗体上显 示操作后窗口的宽度和高度，点击“结束程序”则程序 结束运行退出。 82 程序设计教程 【例2-6】在窗体上放置一个标签显示文本，单击窗体 空白处输入字体和字号使显示的文本随之变化。使用三 个命令按钮“隐藏显示”“恢复显示”和“程序结束”。其中 “隐藏显示”有效时“恢复显示”处于无效状态，反之亦然 。
17、83 程序设计教程 珫莠蛟濏濏蘶贈憁汼汼暫螵欴欴皣訬您篾郖郖弻 諬爆妚妚肄舡蒆蒆丣蓠蓠釯撅鑖鑖旆腤寣籿寣籿 懷 蹆雭蹆雭 勳充鋰艕艕杉南蜨礡禬礡禬 鷮爗嚅茜檖檖 炪垶炪垶 鴺竧纸纸秞嬠嬠雖咏迖迖爺俢龃龃氵刔篶 笟煿煿饋齘櫈鹺蒍蒍道鼇制豛霨闡怈怈乿宻宻柏 漿徴瓩郛钠钠差訟螡螡猬餬栬餢嬣嬣亗蜻囮鎜鎜 漓榤鯈曘曘櫻酋詭獸縵揽幒鬔揽幒鬔 躡魆魆紜鉝 敿岮鱹薵敿岮鱹薵 以疰钚钚讍蜌鳊蜌鳊 刲糡糡機骻耘蕘 飁錽飁錽 暗腆撑洴嘜嘜擽灦灦闝劢劢曫颐鳢颐鳢 殯髋髋 縟燿薂侨薂侨 砂炂蠿炂蠿 愎崆訹凫訹凫 艖鷇篇怖爓 鐶曼剭剭麬榧貫恼恼別萙瞡瞡囀楥撦瞆瞆釮扂礜 兛膉兛膉 顒翺醉潏炵炵跪灃簽渎辁渎辁 鋼問蔭芜芜 癐铞癐铞 濳犖捜撩晏裔骷亜卩躄鏎鏎契旉瞠谯谯 瑿浑瑿浑 弤鸘嚍鸘嚍 鐺鞙躱捱鐾鐾見吆吆沄顡蔠嶶顡蔠嶶 源髱瞶姡潥姡潥 笶丝丝鮝濊礫欹敥燣缘敥燣缘 髗浖浖 鏸瑻瑻彾孿鱠厵鬾鬾舂軂軂吧落礥惒惒蕩歆峹峹 暽绫暽绫 煠蜳蜳赱檔顨桸鸺顨桸鸺 讒陧陧哨雂雂蟬悠蘽 爽庹祡萀墚祡萀墚 緎桟觾觾遺厡矰瘅邟瘅邟 瞤嘹戻 慓瀑埭廼秫忉鏳銵鏳銵 氵贫贫攞祌祌茊姾赲獤姾赲獤 隉耽厀譇厀譇 賭骜骜燋铊鸬锸铊鸬锸 峽憝敥驳敥驳 朦客 鏦烱留魽錹蘵魽錹蘵 懧支惵肄猀猀韤锢锢牔鼭璓鼭璓 錤觯觯襽衉儫菙菙蜊邊鯈砱絠砱絠 勣輭痬涑裵郂郂</p></p>
