没有合适的资源？快使用搜索试试~ 我知道了~

文库首页行业研究行业报告vb实用案例50例.doc

vb实用案例50例.doc

0 下载量 96 浏览量 2025-05-29 11:44:19 上传评论收藏 5.34MB DOC 举报

温馨提示

试读

26页

vb实用案例50例.doc

资源推荐

资源详情

资源评论

实验报告 11

实验报告 2：

实验题目 1：设计窗体。参考界面如下：

运行前运行后

要求：

1）在窗体上添加一个标签，通过属性窗囗设置标签格式：

Caption：字体格式 Alignment：2—Center（居中）

BorderStyle ：1—Fixed Single（有边框） Backstyle：0—Tansparent（背景透明）

2）运行时，单击“字号”，将标签内容的字号设置为 30；单击“加粗”，将标签内容加粗；

单击“下划线”，则在标签内容下加下划线。

提示：字号 FontSize、加粗 FontBold、下划线 FontUnderline

实验题目 1 源程序代码：

Private Sub Command1_Click()

Label1.FontSize = 30

End Sub

Private Sub Command2_Click()

Label1.FontBold = true

End Sub

Private Sub Command3_Click()

Label1.FontUnderline = True

End Sub

实验题目 2：设计一个计算器。参考界面如下：

要求：

1）实现算术运算（+、-、*、/）的功能；

2）实现清除和结束的功能；

3）实现清除后，将焦点移到第一个文本框中。

实验题目 2 源程序代码：

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

实验题目 3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：

要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按

钮才可用。

说明：设计时先将计算均分的命令按钮的 Enabled 属性设置为 false。

实验题目 3 源程序代码：

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

Text5.Text = Val(Text4.Text) / 3

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

实验题目 4：设计界面，编写程序计算圆的周长和面积。参考界面如下：

要求：

①设置窗体的标题为“计算圆的周长和面积”。

②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目 4 源程序代码：

Private Sub Command1_Click()

Dim r As Double, s As Double

Const pi = 3.1415926

r = Val(Text1.Text)

s = pi * r * r

c = 2 * pi * r

Text2.Text = Str(c)

Text3.Text = Str(s)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

实验题目 5：设计界面，编写程序验证算术运算符的功能。参考界面如下：

要求：

①设置窗体的标题为“验证算术运算符”。

②“计算”命令按钮的功能：计算两个数的除、整除和取余。

③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目 5 源程序代码：

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Text4.Text = Val(Text1.Text) \ Val(Text2.Text)

Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

实验题目 6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考

界面如下：

要求：

①设置窗体的标题为“分离三位数”。

②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。

③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目 6 源程序代码：

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text4.Text = Str(a \ 100)

Text3.Text = Str((a Mod 100) \ 10)

Text2.Text = Str(a Mod 10)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

实验题目 7：输入一个三位数，将它按逆序输出。参考界面如下：

剩余25页未读，继续阅读

评论收藏

内容反馈

资源评论

资源反馈

评论星级较低，若资源使用遇到问题可联系上传者，3个工作日内问题未解决可申请退款~

天天都是不一样

粉丝: 650

上传资源快速赚钱

我的内容管理展开

我的资源快来上传第一个资源

我的收益

登录查看自己的收益

我的积分登录查看自己的积分

我的C币登录后查看C币余额

我的收藏

我的下载

下载帮助

前往需求广场，查看用户热搜

vb实用案例50例.doc

vb实用案例50例

基于VB实用计算器的设计.doc

VB人事管理毕业论文.doc

VB最简单实例入门教程.doc

课程设计报告报告vb家庭理财管理系统.doc

VB条形码编程实例.rar

VB程序设计课程设计报告.doc

用VB进行串口时数据采集.doc

计算机二级考试VB常用算法难点.doc

算法入门小游戏中的算法案例2006228195554616.doc

vb学生信息管理系统设计vb+access本科学位论文.doc

带图带代码的管理信息系统实验案例设计.doc.pdf

深圳初中八年级下信息技术vb教案全套.doc

VB+数据库+串口图文教程.doc

天学通VisualBasic项目案例开发视频教程.doc

VB编写PC与S7-200通讯软件.doc

基于VB的计算器的设计与实现.doc

VB+Access设计图书管理系统.doc

vb.net考试系统毕业设计任务书.doc

DeepSeek从入门到精通(20250204)-清华团队.pdf

相关实用应用程序（Windows可用）

Visio2013 安装包及破解方法

李飞飞自传 我看见的世界 The World I see

清华大学-DeepSeek从入门到精通

ChatGPT使用总结：150个ChatGPT提示词模板（完整版）

全国计算机二级WPSoffice精选350道选择题题库（含答案）.pdf

DeepSeek 15天指导手册-从入门到精通.pdf

DeepSeek从入门到精通：中国开源推理模型的综合指南（104 页）

visio2021-64位.7z

【实操制作】4.18-用微信公众号控制你的树莓派

给我详细讲解一下切线的意思

最新资源

李飞飞自传我看见的世界 The World I see