- 1、本文档共17页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- 第1部分 专题05:记叙文阅读之环境描写(练习)-中考语文复习 现代文阅读(全国版)(含答案及解析版).docx
- 人教版2019年初中物理 电能、电路、电功综合专题练习(含答案).doc
- 超星学习通 乡村振兴的实践探索(北京大学)章节测验答案尔雅网课答案.pdf VIP
- 2024年6月第英语六级真题(全3套)及答案解析.pdf
- (完整版)数量关系公式.pdf
- 山东省政府采购专家测评题库800-1000.docx VIP
- 新课标人教版高中英语教材词汇表 1-8册(1).doc
- GB/T 5686.7-2022锰铁、锰硅合金、氮化锰铁和金属锰 硫含量的测定 红外线吸收法和燃烧中和滴定法.pdf
- 河北省石家庄市2024年中考一模语文试卷(含答案).pdf VIP
- 全国卷书面表达说题比赛课件.pptx
文档评论(0)