vb实用案例50例Word格式.docx

vb实用案例50例Word格式.docx

《vb实用案例50例Word格式.docx》由会员分享，可在线阅读，更多相关《vb实用案例50例Word格式.docx（24页珍藏版）》请在冰豆网上搜索。

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

单击“加粗”，将标签内容加粗；

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

提示：

字号FontSize、加粗FontBold、下划线FontUnderline

实验题目1源程序代码：

PrivateSubCommand1_Click（）

Label1.FontSize=30

EndSub

PrivateSubCommand2_Click（）

Label1.FontBold=true

PrivateSubCommand3_Click（）

Label1.FontUnderline=True

实验题目2：

设计一个计算器。

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

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

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

实验题目2源程序代码：

Text3.Text=Val（Text1.Text）+Val（Text2.Text）

Text3.Text=Val（Text1.Text）-Val（Text2.Text）

Text3.Text=Val（Text1.Text）*Val（Text2.Text）

PrivateSubCommand4_Click（）

Text3.Text=Val（Text1.Text）/Val（Text2.Text）

实验题目3：

设计一个能够统计某学生三门课程成绩总分和平均分的程序。

没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。

说明：

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

实验题目3源程序代码：

Text4.Text=Val（Text1.Text）+Val（Text2.Text）+Val（Text3.Text）

Command2.Enabled=True

Text5.Text=Val（Text4.Text）/3

Text1.Text="

"

Text2.Text="

Text3.Text="

Text4.Text="

Text5.Text="

实验题目4：

设计界面，编写程序计算圆的周长和面积。

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

②“计算”命令按钮的功能：

定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：

将三个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：

程序运行结束。

实验题目4源程序代码：

DimrAsDouble,sAsDouble

Constpi=3.1415926

r=Val（Text1.Text）

s=pi*r*r

c=2*pi*r

Text2.Text=Str（c）

Text3.Text=Str（s）

Text1.SetFocus

实验题目5：

设计界面，编写程序验证算术运算符的功能。

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

计算两个数的除、整除和取余。

将五个文本框的内容清除，并将焦点移到第一个文本框中。

实验题目5源程序代码：

Text4.Text=Val（Text1.Text）\Val（Text2.Text）

Text5.Text=Val（Text1.Text）ModVal（Text2.Text）

End

实验题目6：

设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。

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

②“分离”命令按钮的功能：

分离出一个三位数的个位、十位、百位上的数字。

将四个文本框的内容清除，并将焦点移到第一个文本框中。

实验题目6源程序代码：

DimaAsInteger

a=Val（Text1.Text）

Text4.Text=Str（a\100）

Text3.Text=Str（（aMod100）\10）

Text2.Text=Str（aMod10）

实验题目7：

输入一个三位数，将它按逆序输出。

要求此题用两种解法：

第一种解法：

将文本框中的数据按字符型数据进行处理，用函数实现；

第二种解法：

将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。

实验题目7源程序代码：

DimaAsString,bAsString,cAsString,dAsString

a=Trim（Text1.Text）

b=Left（a,1）

c=Mid（a,2,1）

d=Right（a,1）

Text2.Text=d&

c&

b

DimaAsInteger,bAsInteger,cAsInteger,dAsInteger

b=a\100

c=（aMod100）\10

d=aMod10

Text2.Text=Str（d*100+c*10+b）

实验题目8：

输入两个数，将这两个数交换。

不允许使用第三个文本框，可以借助一个中间变量。

实验题目8源程序代码：

DimaAsInteger,bAsInteger,cAsInteger

b=Val（Text2.Text）

c=a

a=b

b=c

Text1.Text=Str（a）

Text2.Text=Str（b）

实验题目9：

设计文本编辑窗体。

复制按钮的功能：

移动按钮的功能：

文本框的SelText属性表示选定的内容。

文本框可以多行输入。

设计时先将文本框的multiline属性设置为true。

实验题目9源程序代码：

Text2.Text=Text1.SelText

Text1.SelText="

实验报告3：

编写程序计算某个学生三门课程的平均成绩。

（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。

（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）

如a表示一门课程的成绩，则调用inputbox函数输入为：

a=val（inputbox（"

请输入第一门课的成绩"

））

（2）单击“结束”命令按钮结束程序运行。

界面如下：

a=Val（InputBox（"

请输入第一门成绩"

b=Val（InputBox（"

请输入第二门成绩"

c=Val（InputBox（"

请输入第三门成绩"

d=（a+b+c）/3

Text1.Text=d

编写程序计算长方体的体积。

（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox函数，输出框的标题为“计算长方体的面积”。

）输出对话框参考界面如下：

DimaAsInteger,bAsInteger,cAsInteger,vAsInteger

a