vb实用案例50例Word下载.docx

vb实用案例50例Word下载.docx

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

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

请输入长方体的长"

请输入长方体的宽"

请输入长方体的高"

v=a*b*c

MsgBox"

长方体的体积为：

&

v,,"

计算长方形的体积"

end

实验报告4：

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

Dima!

b!

c!

d!

min!

a=Val（Text1）

b=Val（Text2）

c=Val（Text3）

d=Val（Text4）

min=a

Ifb<

minThenmin=b

Ifc<

minThenmin=c

Ifd<

Label1="

最小的数是：

min

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

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

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

PrivateSubForm_Click（）

d=InputBox（"

请输入一个三位数"

"

判断水仙花数"

）

a=d\100

b=（dMod100）\10

c=dMod10

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

PrintTrue

Else

PrintFalse

EndIf

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

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

Ifa=0Then

sunday"

ElseIfa=1Then

monday"

ElseIfa=2Then

tuesday"

ElseIfa=3Then

wednesday"

ElseIfa=4Then

thursday"

ElseIfa=5Then

friday"

ElseIfa=6Then

saturday"

实验题目4：

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

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

用selectcase语句实现。

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

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

PrivateSubCommand1_Click（）

DimaAsString

a=Text1.Text

SelectCasea

Case"

a"

To"

z"

Label1.Caption="

它是小写字母"

A"

Z"

它是大写字母"

0"

9"

它是数字字符"

CaseElse

其他字符"

EndSelect

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

具体要求如下：

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

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

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

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

PrivateSubCheck1_Click（）

IfCheck1.Value=1Then

Text1.FontBold=True

Text1.fontbold=false

PrivateSubCheck2_Click（）

IfCheck2.Value=1Then

Text1.FontItalic=True

Text1.fontitalic=false

PrivateSubCheck3_Click（）

IfCheck3.Value=1Then

Text1.FontUnderline=True

Text1.fontunderline=false

PrivateSubOption1_Click（）

Text1.FontSize=10

PrivateSubOption2_Click（）

Text1.FontSize=20

PrivateSubOption3_Click（）

Text1.FontSize=30

PrivateSubOption4_Click（）

Text1.FontName="

宋体"

PrivateSubOption5_Click（）

隶书"

PrivateSubOption6_Click（）

幼圆"

PrivateSubOption7_Click（）

Text1.ForeColor=vbRed

PrivateSubOption8_Click（）

Text1.ForeColor=vbGreen

PrivateSubOption9_Click（）

Text1.ForeColor=vbBlue

实验报告5：

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

Dima%

a=1

Whilea<

=6

Print"

******"

a=a+1

Wend

实验题目2：

编写程序求n！

。

Dimaasinteger,basinteger,cAsLong

b=1:

c=1

DoWhileb<

=a

c=c*b

b=b+1

Loop

Label2.Caption=a&

"

!

="

c

实验题目3：

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

DimsAsInteger,iAsInteger,nAsInteger,dAsInteger,aAsDouble

s=0:

i=1:

n=Val（Text1.Text）

DoWhilei<

=n

输入第"

i&

位同学的成绩"

成绩输入"

s=s+d

i=i+1

a=s/n

全班"

n&

位同学的平均分为:

a,,"

求平均分"

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

并输出这些整数的和。

（用for语句实现）

DimiAsInteger,nAsInteger,sAsInteger

s=0

n=0

Fori=1To100Step1

IfiMod3=0Then

Printi;

n=n+1

IfnMod5=0Then

Print

s=s+i

Nexti

Prints

EndSub

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

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

s=Text1.Text

Fori=1ToLen（s）Step1

SelectCaseMid（s,i,1）

c=c+1

d=d+1

Printa,b,c,d,

实验报告6：

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

DimiAsInteger

Dima（1To10）AsInteger

Fori=1To10

a（i）=3*i

Printa（i）;

Fori=10To1Step-1

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

实验题目2源程序代码：

DimiAsInteger,nAsInteger,mAsInteger

Dima（1To20）AsInteger

Fori=1To20

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

Ifa（i）Mod2=0Then

Next

Ifa（i）Mod2<

>

0Then

m=m+1

Printm,n

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

Optionbase1

DimsumAsInteger,iAs