《《计算机级VB教程》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《计算机级VB教程》PPT课件.ppt(83页珍藏版)》请在装配图网上搜索。

1、第2章 VB编程入门,Visual Basic 程序设计教程,Visual Basic程序设计教程,2,本章将介绍有关VB程序的构成和数据类型以及变量的定义和使用、表达式以及基本的输入输出操作。这些知识是编程的基础。我们将通过简单示例的分析，帮助理解如何进行VB编程。,Visual Basic程序设计教程,3,本章主要内容: 确定数据的性质：数据类型 两种数据表达：常量和变量 算术运算符和表达式 VB编程的开始：使用窗体 赋值和输入输出,Visual Basic程序设计教程,4,所谓编程就是针对要解决的任务，设计解决问题的步骤，使用计算机程序设计语言进行描述，最后通过编码、测试、修改等过程实现。

2、编程的目的。 编程有两个方面的要求: 一 需要理解编程的任务并给出算法 二 要使用特定的计算机语言具体地表示这些算法。,2.1 概 述,Visual Basic程序设计教程,5,1加法器界面设计,2.2 一个简单的加法器程序,Visual Basic程序设计教程,6,2编写程序代码,Visual Basic程序设计教程,7,Private Sub CmdAdd_Click()计算”按钮代码 Dim Temp As Long TxtNum1.Text = TxtNum2.Text = TxtSum.Text = TxtNum1.Text = InputBox (请输入第一个数) TxtNum2.。

3、Text = InputBox(请输入第二个数) Temp = Val(TxtNum1) + Val(TxtNum2) TxtSum.Text = Temp End Sub Private Sub CmdExit_Click()“退出”按钮代码 FrmAdder1.Hide MsgBox (加法器程序运行结束，谢谢使用) End End Sub,Visual Basic程序设计教程,8,数据是程序处理的对象。为了更好地处理各种各样的数据，VB定义了多种数据类型，数据类型定义了值的范围并确定了它能够进行的操作。,2.3 确定数据的性质：数据类型,Visual Basic程序设计教程,9,Visu。

4、al Basic程序设计教程,10,使用数值类型,1. 字节型(Byte) 字节型数可以表示无符号的整数，0255 2. 整型(Integer)和长整型(Long) 不带小数部分的数，表示正整数、负整数和零 整型数: -3276832767 98、98 长整型数： -21474836482147483647 45678、45678R,”面积”;Area,”周长”;Perimeter输出半径、面积。周长 End Sub,Visual Basic程序设计教程,63,2.7.2 使用输入对话框InputBox函数 【例2-4】计算半径为R的圆面积和周长，半径值由键盘输入。 Private Sub F。

5、orm_Click() Const PI = 3.141526 Dim R As Integer, Area As Single, Perimeter As Single R = Val(InputBox(请输入圆的半径：, 输入) Area = PI * R * R Perimeter = 2 * PI * R Print 半径; R, 面积; Area, 周长; Perimeter End Sub 这个例子中使用了InputBox函数产生输入对话框。,Visual Basic程序设计教程,64,1输入对话框的使用 InputBox函数的使用格式如下： InputBox(提示，标题，默认值，。

6、xpos，ypox) 它们的含义如下： (1)提示信息。这是InputBox对话框所必须的信息，也可以使用空文本，即“”。 (2)标题。这是在对话框窗口标题栏显示的内容。可设置，也可以没有标题。,Visual Basic程序设计教程,65,(3)默认值。在输入框中的默认输入。系统默认为空，可选。 (4)xpos和ypos为对话框的左侧与屏幕左边的距离和上边与屏幕顶部的距离值。可选。,Visual Basic程序设计教程,66,2在提示中使用多行文本 如果提示信息比较多，可以使用ASCII控制符回车Chr(13)和换行符Chr(10)产生另起一行。 例如：提示信息为“请输入圆的半径” + Chr。

7、(13)+ Chr(10)+“使用正整数” ， 产生如图效果,Visual Basic程序设计教程,67,3使用转换函数 InputBox函数接受的是文本，也就是字符型数据，在程序中根据变量类型不同，可以使用转换函数。如： R = Val(InputBox(请输入圆的半径：, 输入) 这里的Val就是转换函数，将文本类型的数据转换为整型数以便参加运算。 VB提供了在不同类型数据之间的转换。,Visual Basic程序设计教程,68,2.7.3 使用Print方法输出数据 使用Print在对象中显示(打印)输出文本。 使用格式如下： 对象名.Print 表达式 ,表达式 1对象名 一般情况下，。

8、Print输出到窗体或者图片框。在本窗体中输出，可以缺省对象名。,Visual Basic程序设计教程,69,2表达式 Print方法支持多个表达式的输出，可输出数字、文字字符、日期、逻辑值等。如果Print后面没有任何表达式，则输出空行(在显示效果上相当于回车换行)。,Visual Basic程序设计教程,70,3输出格式 多个表达式输出，可以使用分号和逗号分隔。 (1)逗号分隔(标准格式输出)。逗号后的下一个表达式按照14个字符的空间分开显示。实际分隔位置还与所在输出行的宽度和分隔的数目有关。 (2)分号分隔(紧凑格式输出)。后一个表达式的值接着前一个表达式的输出。,Visual Basi。

9、c程序设计教程,71,(3)在Print语句最后使用逗号或分号结束，不换行，下一个Print接着按格式输出。 (4)使用Spc()和Tab()函数，前者控制插入空格，后者确定列位置,Visual Basic程序设计教程,72,例： Private Sub Form_click() Me.FontSize = 16 Print 空行 Print A=; 1, B=; 2 Print 1, 2; 3, 4 Print A; Spc(4); B Print Tab(10); B Print 1234567890 End Sub,Visual Basic程序设计教程,73,2.7.4 使用消息对话框M。

10、sgBox函数 MsgBox函数提供了一个显示应用程序运行信息的标准途径，如图所示：,MsgBox的格式如下： 变量名 = MsgBox( 提示 , 对话框类型 , 对话框标题 ),Visual Basic程序设计教程,74,(1)使用形式: MsgBox有两种使用形式，注意区分，如： A = MsgBox(您确定要退出吗？, vbOKCancel + vbDefaultButton2, 退出)和MsgBox 您确定要退出吗？, vbOKCancel + vbDefaultButton2, 退出“ 格式1是具有返回值的使用，程序根据用户的不同选择把选择结果赋值给变量A。格式2没有返回值。,Vi。

11、sual Basic程序设计教程,75,(2)提示 必选参数项。如果显示多行，可使用Chr(13)+ Chr(10) 。 (3)对话框标题 在对话框标题栏显示的信息文本。,Visual Basic程序设计教程,76,(4)对话框类型 类型参数由三部分组成，分别确定对话框中的按钮形式、默认的焦点在哪一个按钮上和按钮使用的图标。把按钮形式、焦点选择、图标三组参数中各选一个进行组合，或直接把它们对应的符号常量进行相加确定对话框类型值,Visual Basic程序设计教程,77,Visual Basic程序设计教程,78,Visual Basic程序设计教程,79,(5)返回值 使用一个变量保存Msg。

12、Box函数返回值，返回值的符号常量和有关描述如表所示。,Visual Basic程序设计教程,80,Visual Basic程序设计教程,81,(6)省略参数项 如果只给出提示，系统默认为对话框类型参数值为0，没有对话框标题。如果要省略某一个参数项，需要加上逗号分隔符。例如：A = MsgBox ( “您确定要退出吗？”, , “退出” ),Visual Basic程序设计教程,82,【例2-5】在窗体上设置三个命令按钮，分别为“放大窗口”“缩小窗口”和“结束程序”。点击“放大窗口”“缩小窗口”窗体相应进行放大和缩小操作，并在窗体上显示操作后窗口的宽度和高度，点击“结束程序”则程序结束运行退出。,2.8 程序举例,Visual Basic程序设计教程,83,【例2-6】在窗体上放置一个标签显示文本，单击窗体空白处输入字体和字号使显示的文本随之变化。使用三个命令按钮“隐藏显示”“恢复显示”和“程序结束”。其中“隐藏显示”有效时“恢复显示”处于无效状态，反之亦然。