数据库应用与VB程序设计 第4章 数据的输入输出.pptxVIP

第四章 数据的输入输出赋值语句使用标签和文本框Print方法Inputbox函数Msgbox函数和语句VB程序设计与数据库应用 4 .1赋值语句格式： 变量名=表达式功能：将算表达式的值赋给变量或某个带有属性的对象。说明:(1) ＜变量名＞为变量或属性的名称。 (2)? 赋值语句中 “=”是赋值号,与数学中的等号意义不同。 (3)?先计算表达式的值，然后将结果赋给“=”左边的变量。例如： Text1.Text = “VB程序设计” a=5:b=6:c=7VB程序设计与数据库应用 4. 1 赋值语句【经典例子】设计程序交换两个变量的值.思考：有两个瓶子A和B，分别装有醋和豆油，如何交换两个瓶子的液体？方法：借用第3个瓶子T算法：T=A：A=B： B=T设计界面：VB程序设计与数据库应用代码：Private Sub Command1_Click()A = Text1.TextB = Text2.TextT = AA = BB = TText1.Text = AText2.Text = BEnd SubVB程序设计与数据库应用4.2 使用Print方法输出数据 功能：在窗体、图形对象或打印机等对象中输出信息.格式：对象名称．Print 表达式表 [,|;]说明: (1) 如果“对象名称” 省略，则在当前窗体上输出。 (2) “表达式表” 可以任意类型的表达式 (3) ，和;的区别 (4) 不带表达式的Print方法表示输出一空行例如： Form1.Print 2, 3.4, #3/17/2006#, “studdent” VB程序设计与数据库应用4.2.1使用Print方法示例 【举例】Private Sub Command1_Click()a = 2: b = 3: c = 6Print a, b, c, studPrint a; b; c; studPrint a=; 2PrintPrint b=; 3End SubVB程序设计与数据库应用4.2.1 与Print方法有关的函数 1．Tab( n ) 用于把光标往后移动n个字符的位置，与输出的内容要用分号隔开。例如：Private Sub Form_Click() Print Tab(10); 商品名称; Tab(20); 单价; Tab(30); 数量 Print Tab(10); 电视机; Tab(20); 2568; Tab(30); 150 Print Tab(10); 电冰箱; Tab(20); 1600; Tab(30); 85End SubVB程序设计与数据库应用4.2.1 与Print方法有关的函数 2．Spc(n) 与Tab函数类似，用于跳过n个空格输出. 不同之处在于Tab(n)是绝对定位，把光标移动到离窗体左边界n个字符的地方，而Spc(n)是相对定位，表示从当前光标位置开始移动n个字符的位置。 Private Sub Form_Click() Print Spc(30); Thirty spaces later. . . Print Thirty; Spc(30); spaces later. . .End SubVB程序设计与数据库应用4.2.1 与Print方法有关的函数 3.Space(n)： Space函数用来返回n个空格组成的字符串。 例如： Private Sub Form_Click() MyString = Space(10) 将10个空格插入两个字符串中间。 MyString = Space(5) Hello MyString World Print MyString End SubVB程序设计与数据库应用4.3 输入函数InputBox 功能： 产生一个对话框，等待用户输入数据，并返回所输入的文本格式为： InputBox (信息提示，对话框标题，默认内容）例如： r = InputBox(请输入半径：, 计算圆的面积, 1)VB程序设计与数据库应用4.3 输入函数InputBox 【举例】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总只数h，总脚数为f。问鸡和兔各有多少只？【分析】设笼中鸡有X只，兔有Y只，则X+Y=H2X+4Y=F即 X=(4*H-F)/2 Y=(F-2*H)/2【要求】总的只数和脚数用InputBox函数输入VB程序设计与数据库应用【设计步骤】1、界面设计2、代码设计[Private Sub Command1_Click() Dim h As Integer, f As Integer h = Val(InputBox(鸡和兔的总只数, 请输入, 0)) f = Val(InputBox(鸡和兔的总脚数（偶）, 请输入, 0)) x = (4 * h - f) / 2 y = (f