试验一简单VB程序设计.DOC

  1. 1、本文档共17页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
试验一简单VB程序设计

实验1 简单VB程序设计 【实验目的】 1 学习怎样启动和退出VB,熟悉VB的工作环境。 2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。 3 学习如何用对象(窗体和控件)建立界面及在代码编辑器中输入程序代码的基本操作。 4 基本掌握用VB开发应用程序的一般步骤。 【实验环境】 VB6.0 奔腾586 【实验内容】 1. 启动和退出VB 2. 打开和关闭窗口 3. 设置窗体属性 4. 设置控件属性 5. 设计简单界面 6. 开发一个简单的应用程序 【实验步骤】 1. 启动和退出VB (1)可用以下方法启动VB 法1 用“开始”菜单的“程序”命令。 法2 用“开始”菜单的“运行”命令。 (2)可用以下方法退出VB 法1 单击主窗口右上角的“关闭”按钮。 法2 执行“文件”菜单的“退出”命令。 2. 打开和关闭窗口 (1)打开工程资源管理器窗口 法1 单击工具栏上的“工程资源管理器”按钮。 法2 执行“视图”菜单中的“工程资源管理器”命令。 法3 CTRL+R (2)打开窗体设计器窗口 法1 执行“视图”菜单中的“对象窗口”命令。 法2 SHIFT+F7 法3 在工程资源管理器窗口中选择要打开的窗体,然后单击该窗口顶部的“查看对象”按钮。 (3) 激活属性窗口 法1 按F4键 法2 单击工具栏上的“属性窗口”按钮。 法3 执行“视图”菜单中的“属性窗口”命令。 (4) 关闭窗口 法1 单击窗口右上角的关闭按钮。 法2 ALT+F4 3. 设置窗体属性 激活窗体,打开属性窗口。 在属性窗口中双击“Caption”属性条,输入“窗体属性设置实验”。 在属性窗口中选择“BackColor”属性条,然后单击右端的箭头,在所显示的调色板中选择一种颜色。 在属性窗口中选择“DrawStyle”属性条,然后单击右端的箭头,在下拉显示的列表中选择“Dot”。 在属性窗口中,把Top,Left,Height,Width属性的值分别设置为500,1000,3000,4000,观察窗体的变化。 4. 设置控件属性 在窗体上建立两个命令按钮(名称)分别为Command1和Command2, Command2按钮的Font属性设置见图1.1,其余各项属性设置用代码实现如下: Private Sub Form_Click() Command1.Caption=”确定” Command1.FontName=”黑体” Command1.FontSize=2 Command1.Fontbold=True Command1.FontItalic=True Command1.FontUnderline=True Command1.Enabled=False Command2.Enabled=True Command2.Caption=”取消” End Sub 图1.1 Font属性对话框 5. 设计简单界面 设计一个简单计算器面板 步骤如下: 把窗体的Caption属性设置为“简易计数器”。 在窗体上画一个文本框,把它的Text属性设置为空白。 在窗体上画16个命令按钮,适当调整其大小和位置,然后在属性窗口中把它们的属性分别设置为1,2,3,4,5,6,7,8,9,0,.,C,+,-,*,/。如图1.2所示。 图1.2 简易计数器 6. 开发一个简单的应用程序 编写一个输入字符进行转换的程序。转换规则是,将其中的大写字母转换成小写字母,小写字母转换成大写字母,空格不转换,其余转换成“*”。 建立界面 在窗体上画两个标签,两个文本框,两个命令按钮,通过属性窗口把两个标签的Caption属性分别设置为“输入字符串”和“转换”,把两个文本框的Text属性设置为空白,把两个命令按钮的Caption属性分别设置为“清屏”和“结束”,将窗体的Caption属性设置为“大小写字母转换”。完成后的界面如图1.3所示。 图1.3 界面设计 编写代码 打开代码窗口,选定文本框1,对该控件编写如下代码: Private Sub Text1_KeyPress (KeyAscii As Integer) Dim aa As String * 1 aa = Chr$(KeyAscii) Select Case aa Case A To Z aa = Chr$(KeyAscii + 32) Case a To z aa = Chr$(KeyAscii - 32) Case Case E

文档评论(0)

laolao123 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档