- 1、本文档共36页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Visual Basic 程序设计教程 * ptc.imust.cn 内蒙古科技大学实践训练中心 第四章 数据输入输出 4.1 数据输入输出控件 4.1.1 用标签输出数据 标签主要用于显示文本信息。它所显示的内容只能用Caption属性来设置或修改。 例【4-1】利用两个标签显示具有浮雕效果的文字。 解题思路:所谓浮雕效果就是使显示的文字利用黑色和白色的错位叠加来实 现,第一个标签的背景必须为透明的,两个标签的文字、字体大小必须一致。 4.1 数据输入输出控件 4.1.2 用文本框输入输出数据 文本框是一个文本编辑区域,常用于在程序运行时接收用户输入的数据。 例【4-2】在一个文本框中输入字符,另一文本框输出其ASCII码值。 解题思路:利用文本框的KeyPress事件输出字符的ASCII码值。 Private sub text1_keypress(keyascii as integer) text2.text=keyascii End sub 4.1 数据输入输出控件 4.1.2 用文本框输入输出数据 例【4-3】在利用文本框对输入的非数字数据进行字符串连接。 解题思路:在文本框中输入数据,可通过回车表示输入结束,在KeyPress事 件中对输入的键是否为回车符(ASCII码为13)进行判断;也可以通过按Tab 键或单击其他对象不是输入结束,本题采用第二种方式表示输入结束。 Private Sub Form_Load( ) text1.tabindex=0 End Sub Private sub Text1_LostFocus( ) if isnumeric(text1.text) then text1.setfocus text1.text=“” end if End Sub Private sub Text2_LostFocus( ) if isnumeric(text2.text) then text2.setfocus text2.text=“” end if End Sub Private sub Text3_GotFocus() text3.text=text1.text+text2.text End Sub 4.2 数据输出方法 4.2.1 Print方法 Print方法可以在窗体上显示文本字符串和表达式的值,也可在其他图形对象或打印机上输出信息。 格式:[对象名.]Print[表达式表][,|;] 说明: ⑴“对象名”可以是窗体(Form)、立即窗口(Debug)、图片框(PictureBox)、 打印机(Printer),若省略,则在当前窗体上输出。 例如: Print “Good Morning” ‘将字符串Good Morning显示在窗体上 Picture1.print “Good Morning” ‘把字符串Good Morning显示在图 片Picture1上 Printer.Print “Good Morning” ‘将“Good Morning”输出到打印机 4.2 数据输出方法 4.2.1 Print方法 ⑵“表达式表”是一个或多个表达式。对于数值表达式,先计算出表达式的 值,再输出;而字符串则原样输出;若省略,则输出一个空行。 例如: Print 180/3 ’输出表达式的值60 Print ’输出一空行 Print “X=180/3” ’输出字符串”X=180/3” ⑶表达式表中各表达式之间用分隔符(逗号或分号)隔开。 ①用逗号分隔:按标准输出格式显示数据项,以14个字符位置为单位将输 出行分成若干个区域,每区段输出一个表达式的值。 ②用分号分隔:以紧凑格式输出。 例如: a=10:b
您可能关注的文档
最近下载
- 基于51单片机的智能台灯设计.doc
- 幼儿园课件:小老鼠和泡泡糖最终.pptx
- 2024必威体育精装版国开《个人理财》形考题库.docx VIP
- 国家开放大学学前教育专业+毕业作业(幼儿园教学活动设计与指导)9.doc
- 第18课 从九一八事变到西安事变(课件).pptx VIP
- 酒店装配式装修技术规程.pdf VIP
- 2023年中国汉字听写大赛全部试题库及答案.pdf VIP
- 2024中国铁路成都局集团限公司招聘高校毕业生998人高频考题难、易错点模拟试题(共500题)附带答案详解.docx
- 人文英语3--An-absence-excuse-letter完整版.docx
- 神经工程学(天津大学)大学MOOC慕课 客观题答案.docx
文档评论(0)