vb实用案例50例.docx

资源描述

vb实用案例50例.docx

《vb实用案例50例.docx》由会员分享，可在线阅读，更多相关《vb实用案例50例.docx（25页珍藏版）》请在冰点文库上搜索。

vb实用案例50例.docx

vb实用案例50例

实验报告11

实验报告2：

实验题目1：

设计窗体。

参考界面如下：

运行前运行后

要求：

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

Caption：

字体格式Alignment：

2—Center（居中）

BorderStyle：

1—FixedSingle（有边框）Backstyle：

0—Tansparent（背景透明）

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

提示：

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

实验题目1源程序代码：

PrivateSubCommand1_Click（）

Label1.FontSize=30

EndSub

PrivateSubCommand2_Click（）

Label1.FontBold=true

EndSub

PrivateSubCommand3_Click（）

Label1.FontUnderline=True

EndSub

实验题目2：

设计一个计算器。

参考界面如下：

要求：

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

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

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

实验题目2源程序代码：

PrivateSubCommand1_Click（）

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

EndSub

PrivateSubCommand2_Click（）

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

EndSub

PrivateSubCommand3_Click（）

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

EndSub

PrivateSubCommand4_Click（）

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

EndSub

实验题目3：

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

参考界面如下：

要求：

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

说明：

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

实验题目3源程序代码：

PrivateSubCommand1_Click（）

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

Command2.Enabled=True

EndSub

PrivateSubCommand2_Click（）

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

EndSub

PrivateSubCommand3_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

EndSub

实验题目4：

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

参考界面如下：

要求：

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

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

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

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

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

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

程序运行结束。

实验题目4源程序代码：

PrivateSubCommand1_Click（）

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）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text1.SetFocus

EndSub

实验题目5：

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

参考界面如下：

要求：

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

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

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

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

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

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

程序运行结束。

实验题目5源程序代码：

PrivateSubCommand1_Click（）

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

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

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

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub

实验题目6：

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

参考界面如下：

要求：

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

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

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

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

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

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

程序运行结束。

实验题目6源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger

a=Val（Text1.Text）

Text4.Text=Str（a\100）

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

Text2.Text=Str（aMod10）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text1.SetFocus

EndSub

PrivateSubCommand3_Click（）

End

EndSub

实验题目7：

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

参考界面如下：

要求此题用两种解法：

第一种解法：

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

第二种解法：

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

实验题目7源程序代码：

第一种解法：

PrivateSubCommand1_Click（）

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

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

EndSub

第二种解法：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger,dAsInteger

a=Val（Text1.Text）

b=a\100

c=（aMod100）\10

d=aMod10

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

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

EndSub

实验题目8：

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

要求：

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

实验题目8源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger

a=Val（Text1.Text）

b=Val（Text2.Text）

c=a

a=b

b=c

Text1.Text=Str（a）

Text2.Text=Str（b）

EndSub

实验题目9：

设计文本编辑窗体。

复制按钮的功能：

移动按钮的功能：

提示：

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

要求：

文本框可以多行输入。

说明：

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

实验题目9源程序代码：

PrivateSubCommand1_Click（）

Text2.Text=Text1.SelText

EndSub

PrivateSubCommand2_Click（）

Text2.Text=Text1.SelText

Text1.SelText=""

EndSub

PrivateSubCommand3_Click（）

Text1.Text=""

Text2.Text=""

EndSub

PrivateSubCommand4_Click（）

End

EndSub

实验报告3：

实验题目1：

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

要求：

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

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

提示：

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

a=val（inputbox（"请输入第一门课的成绩"））

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

界面如下：

实验题目1源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger,dAsInteger

a=Val（InputBox（"请输入第一门成绩"））

b=Val（InputBox（"请输入第二门成绩"））

c=Val（InputBox（"请输入第三门成绩"））

d=（a+b+c）/3

Text1.Text=d

EndSub

实验题目2：

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

要求：

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

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

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

实验题目2源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger,vAsInteger

a=Val（InputBox（"请输入长方体的长"））

b=Val（InputBox（"请输入长方体的宽"））

c=Val（InputBox（"请输入长方体的高"））

v=a*b*c

MsgBox"长方体的体积为：

"&v,,"计算长方形的体积"

EndSub

PrivateSubCommand2_Click（）

end

EndSub

实验报告4：

实验题目1：

编写程序求出四个数中的最小数。

实验题目1源程序代码：

PrivateSubCommand1_Click（）

Dima!

min!

a=Val（Text1）

b=Val（Text2）

c=Val（Text3）

d=Val（Text4）

min=a

Ifb

Ifc

Ifd

Label1="最小的数是：

"&min

EndSub

实验题目2：

编写程序判断某个数是否是水仙花数。

要求：

用inputbox函数输入一个数，将结果输出在窗体上。

提示：

水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。

实验题目2源程序代码：

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger,cAsInteger,dAsInteger

d=InputBox（"请输入一个三位数","判断水仙花数"）

a=d\100

b=（dMod100）\10

c=dMod10

Ifd=a^3+b^3+c^3Then

PrintTrue

Else

PrintFalse

EndIf

EndSub

实验题目3：

编写程序，实现数字和英文单词的对应。

提示：

在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。

实验题目3源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger

a=Val（Text1.Text）

Ifa=0Then

Text2.Text="sunday"

ElseIfa=1Then

Text2.Text="monday"

ElseIfa=2Then

Text2.Text="tuesday"

ElseIfa=3Then

Text2.Text="wednesday"

ElseIfa=4Then

Text2.Text="thursday"

ElseIfa=5Then

Text2.Text="friday"

ElseIfa=6Then

Text2.Text="saturday"

EndIf

EndSub

实验题目4：

设计程序，判断从键盘上输入的某个字符为哪类字符。

（大写字母、小写字母、数字字符或其他字符）

要求：

用selectcase语句实现。

提示：

字符输入在一个文本框中，字符类别信息显示在标签上。

将文本框的maxlength属性设置为1，则一次只能输入一个字符。

实验题目4源程序代码：

PrivateSubCommand1_Click（）

DimaAsString

a=Text1.Text

SelectCasea

Case"a"To"z"

Label1.Caption="它是小写字母"

Case"A"To"Z"

Label1.Caption="它是大写字母"

Case"0"To"9"

Label1.Caption="它是数字字符"

CaseElse

Label1.Caption="其他字符"

EndSelect

EndSub

实验题目5：

设计一个简单的文本编辑器，可以实现文本的简单格式化操作。

具体要求如下：

（1）可以设置字号，包括10、20、30号

（2）可以设置字体，包括宋体、隶书、幼圆

（3）可以设置字型，包括加粗、倾斜、下划线

（4）可以设置字的颜色，包括红色、绿色、蓝色

实验题目5源程序代码：

PrivateSubCheck1_Click（）

IfCheck1.Value=1Then

Text1.FontBold=True

Else

Text1.fontbold=false

EndIf

EndSub

PrivateSubCheck2_Click（）

IfCheck2.Value=1Then

Text1.FontItalic=True

Else

Text1.fontitalic=false

EndIf

EndSub

PrivateSubCheck3_Click（）

IfCheck3.Value=1Then

Text1.FontUnderline=True

Else

Text1.fontunderline=false

EndIf

EndSub

PrivateSubOption1_Click（）

Text1.FontSize=10

EndSub

PrivateSubOption2_Click（）

Text1.FontSize=20

EndSub

PrivateSubOption3_Click（）

Text1.FontSize=30

EndSub

PrivateSubOption4_Click（）

Text1.FontName="宋体"

EndSub

PrivateSubOption5_Click（）

Text1.FontName="隶书"

EndSub

PrivateSubOption6_Click（）

Text1.FontName="幼圆"

EndSub

PrivateSubOption7_Click（）

Text1.ForeColor=vbRed

EndSub

PrivateSubOption8_Click（）

Text1.ForeColor=vbGreen

EndSub

PrivateSubOption9_Click（）

Text1.ForeColor=vbBlue

EndSub

实验报告5：

实验题目1：

编写程序输出图形，运行界面如下：

实验题目1源程序代码：

PrivateSubCommand1_Click（）

Dima%

a=1

Whilea<=6

Print"******"

a=a+1

Wend

EndSub

实验题目2：

编写程序求n！

。

实验题目2源程序代码：

PrivateSubCommand1_Click（）

Dimaasinteger,basinteger,cAsLong

a=Val（Text1.Text）

b=1:

c=1

DoWhileb<=a

c=c*b

b=b+1

Loop

Label2.Caption=a&"!

="&c

EndSub

实验题目3：

编写程序，求出某班所有同学某门课程的平均成绩。

实验题目3源程序代码：

PrivateSubCommand1_Click（）

DimsAsInteger,iAsInteger,nAsInteger,dAsInteger,aAsDouble

s=0:

i=1:

n=Val（Text1.Text）

DoWhilei<=n

d=InputBox（"输入第"&i&"位同学的成绩","成绩输入"）

s=s+d

i=i+1

Loop

a=s/n

MsgBox"全班"&n&"位同学的平均分为:

"&a,,"求平均分"

EndSub

实验题目4：

编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。

并输出这些整数的和。

（用for语句实现）

实验题目4源程序代码：

PrivateSubCommand1_Click（）

DimiAsInteger,nAsInteger,sAsInteger

s=0

n=0

Fori=1To100Step1

IfiMod3=0Then

Printi;

n=n+1

IfnMod5=0Then

EndIf

s=s+i

EndIf

Nexti

Prints

EndSub

实验题目5：

编写程序，统计输入的一个字符串中各类字符的个数。

（用for语句实现）

实验题目5源程序代码：

PrivateSubCommand1_Click（）

Dimi%,a%,b%,c%,d%,sAsString

s=Text1.Text

Fori=1ToLen（s）Step1

SelectCaseMid（s,i,1）

Case"a"To"z"

a=a+1

Case"A"To"Z"

b=b+1

Case"0"To"9"

c=c+1

CaseElse

d=d+1

EndSelect

Nexti

Printa,b,c,d,

EndSub

实验报告6：

实验题目1：

编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12……数字，并以顺序和逆序两种方式输出各元素值。

实验题目1源程序代码：

PrivateSubCommand1_Click（）

DimiAsInteger

Dima（1To10）AsInteger

Fori=1To10

a（i）=3*i

Printa（i）;

Nexti

Fori=10To1Step-1

Printa（i）;

Nexti

EndSub

实验题目2：

随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。

实验题目2源程序代码：

PrivateSubCommand1_Click（）

DimiAsInteger,nAsInteger,mAsInteger

Dima（1To20）AsInteger

Fori=1To20

a（i）=Int（100*Rnd+1）

Ifa（i）Mod2=0Then

Printa（i）;

n=n+1

EndIf

Fori=1To20

Ifa（i）Mod2<>0Then

Printa（i）;

m=m+1

EndIf

Nexti

Printm,n

EndSub

实验题目3：

用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。

实验题目3源程序代码：

Optionbase1

PrivateSubCommand1_Click（）

DimsumAsInteger,iAs

展开阅读全文