- 1、本文档共61页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[工学]VB程序设计——3 Visual Basic程序设计基础
第三章 Visual Basic程序设计基础▲ 3.1 Visual Basic 基本语句 3.2 窗体 3.3 数据输入与输出 顺序结构 顺序结构是指程序运行时按语句的书写顺序依次执行 。 3.1 Visual Basic 基本语句 语句由Visual Basic关键字、变量、常量、运算符等组成 语句的功能是使计算机执行具体的操作。 同一语句行中输入多条语句,语句之间用冒号“ : ”分隔。 一条语句在多行显示,使用续行符“ _”,它与前面的字符间留有空格 3.1.2 赋值语句 [LET]变量/属性名=表达式/属性值 3.1.3 注释语句 语法格式: Rem 注释内容 ′ 注释内容 3.1.4 暂停语句 (Stop语句) 3.1.5 结束语句(End语句) 用于结束一个程序的运行 Sub Command1_Click() End ‘结束程序 End Sub 例3-1 编写程序,交换两个变量的值 Private Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 Form1.Print 交换; intA1; intA2 ‘使用对象方法的语句 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print 得; intA1; intA2 ‘使用对象方法的语句 End Sub Print方法 [对象名.] Print [表达式] 在指定的对象中输出表达式的值,用于在窗体、图片框或打印机上输出数据。 Print方法 说明 Print方法前的“对象名”可省略,省略对象名就在当前窗体上打印出数据。 Print方法后可跟多个表达式,当输出多个表达式时,各表达式用逗号|分号隔开。 表达式可以省略,则在对象上打印空行。 例3-1 Private Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 ‘使用分号分隔三个表达式 Form1.Print 交换; intA1; intA2 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print 得; intA1; intA2 End Sub 例3-1 Private Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 ‘使用逗号分隔三个表达式 Form1.Print “交换”, intA1, intA2 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print “得”, intA1, intA2 End Sub 判断下面语句的输出结果? 课后练习题 ? Print AB; CDE Print 2; -4, 6 ? Print AB; CDE, ‘末尾出现了逗号 Print 2; -4, 6 ? Print AB; CDE; ‘末尾出现了分号 Print 2; -4, 6 与Print方法有关的函数 Tab函数 功能是在指定的位置显示输出信息。 Print Tab(n) 参数n为数值表达式,其值为一整数,它是下一个输出位置的列号。 与Print方法有关的函数 Spc函数 功能是在两个输出表达式之间空n个空格。 Print Spc(n) 注意: Spc函数和Tab函数的功能十分类似,而且可以互相代替,但Tab函数需要从对象的左端开始计数,而Spc函数只表示两个输出项之间的空格数。 Form1.Print ********** Form1.Print Tab(2); *; Spc(8); * Form1.Print Tab(3); *; Spc(8); * Form1.Print Tab(4); *; Spc(8); * Form1.Print Tab(5); *; Spc(8);
文档评论(0)