vb实用案例例.docx

vb实用案例例.docx

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

vb实用案例例

Documentserialnumber【LGGKGB-LGG98YT-LGGT8CB-LGUT-LGG08】

vb实用案例例

实验报告11

实验报告2：

实验题目1：

设计窗体。

参考界面如下：

运行前运行后

要求：

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

Caption：

字体格式Alignment：

2—Center（居中）

BorderStyle：

1—FixedSingle（有边框）Backstyle：

0—Tansparent（背景透明）

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

提示：

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

实验题目1源程序代码：

PrivateSubCommand1_Click（）

=30

EndSub

PrivateSubCommand2_Click（）

=true

EndSub

PrivateSubCommand3_Click（）

=True

EndSub

实验题目2：

设计一个计算器。

参考界面如下：

要求：

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

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

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

实验题目2源程序代码：

PrivateSubCommand1_Click（）

=Val+Val

EndSub

PrivateSubCommand2_Click（）

=Val-Val

EndSub

PrivateSubCommand3_Click（）

=Val*Val

EndSub

PrivateSubCommand4_Click（）

=Val/Val

EndSub

实验题目3：

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

参考界面如下：

要求：

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

说明：

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

实验题目3源程序代码：

PrivateSubCommand1_Click（）

=Val+Val+Val

=True

EndSub

PrivateSubCommand2_Click（）

=Val/3

EndSub

PrivateSubCommand3_Click（）

=""

=""

=""

=""

=""

EndSub

实验题目4：

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

参考界面如下：

要求：

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

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

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

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

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

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

程序运行结束。

实验题目4源程序代码：

PrivateSubCommand1_Click（）

DimrAsDouble,sAsDouble

Constpi=

r=Val

s=pi*r*r

c=2*pi*r

=Str（c）

=Str（s）

EndSub

PrivateSubCommand2_Click（）

=""

=""

=""

EndSub

实验题目5：

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

参考界面如下：

要求：

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

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

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

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

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

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

程序运行结束。

实验题目5源程序代码：

PrivateSubCommand1_Click（）

=Val/Val

=Val\Val

=ValModVal

EndSub

PrivateSubCommand2_Click（）

=""

=""

=""

=""

=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub

实验题目6：

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

参考界面如下：

要求：

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

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

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

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

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

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

程序运行结束。

实验题目6源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger

a=Val

=Str（a\100）

=Str（（aMod100）\10）

=Str（aMod10）

EndSub

PrivateSubCommand2_Click（）

=""

=""

=""

=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub

实验题目7：

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

参考界面如下：

要求此题用两种解法：

第一种解法：

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

第二种解法：

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

实验题目7源程序代码：

第一种解法：

PrivateSubCommand1_Click（）

DimaAsString,bAsString,cAsString,dAsString

a=Trim

b=Left（a,1）

c=Mid（a,2,1）

d=Right（a,1）

=d&c&b

EndSub

PrivateSubCommand2_Click（）

=""

=""

EndSub

第二种解法：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger,dAsInteger

a=Val

b=a\100

c=（aMod100）\10

d=aMod10

=Str（d*100+c*10+b）

EndSub

PrivateSubCommand2_Click（）

=""

=""

EndSub

实验题目8：

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

要求：

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

实验题目8源程序代码：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger

a=Val

b=Val

c=a

a=b

b=c

=Str（a）

=Str（b）

EndSub

实验题目9：

设计文本编辑窗体。

复制按钮的功能：

移动按钮的功能：

提示：

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

要求：

文本框可以多行输入。

说明：

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

实验题目9源程序代码：

PrivateSubCommand1_Click（）

=

EndSub

PrivateSubCommand2_Click（）

=

=""

EndSub

PrivateSubCommand3_Click（）

=""

=""

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

=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!

b!

c!

d!

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

Ifa=0Then

="sunday"

ElseIfa=1Then

="monday"

ElseIfa=2Then

="tuesday"

ElseIfa=3Then

="wednesday"

ElseIfa=4Then

="thursday"

ElseIfa=5Then

="friday"

ElseIfa=6Then

="saturday"

EndIf

EndSub

实验题目4：

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

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

要求：

用selectcase语句实现。

提示：

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

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

实验题目4源程序代码：

PrivateSubCommand1_Click（）

DimaAsString

a=

SelectCasea

Case"a"To"z"

="它是小写字母"

Case"A"To"Z"

="它是大写字母"

Case"0"To"9"

="它是数字字符"

CaseElse

="其他字符"

EndSelect

EndSub

实验题目5：

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

具体要求如下：

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

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

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

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

实验题目5源程序代码：

PrivateSubCheck1_Click（）

If=1Then

=True

Else

=false

EndIf

EndSub

PrivateSubCheck2_Click（）

If=1Then

=True

Else

=false

EndIf

EndSub

PrivateSubCheck3_Click（）

If=1Then

=True

Else

=false

EndIf

EndSub

PrivateSubOption1_Click（）

=10

EndSub

PrivateSubOption2_Click（）

=20

EndSub

PrivateSubOption3_Click（）

=30

EndSub

PrivateSubOption4_Click（）

="宋体"

EndSub

PrivateSubOption5_Click（）

="隶书"

EndSub

PrivateSubOption6_Click（）

="幼圆"

EndSub

PrivateSubOption7_Click（）

=vbRed

EndSub

PrivateSubOption8_Click（）

=vbGreen

EndSub

PrivateSubOption9_Click（）

=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

b=1:

c=1

DoWhileb<=a

c=c*b

b=b+1

Loop

=a&"!

="&c

EndSub

实验题目3：

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

实验题目3源程序代码：

PrivateSubCommand1_Click（）

DimsAsInteger,iAsInteger,nAsInteger,dAsInteger,aAsDouble

s=0:

i=1:

n=Val

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

Print

EndIf

s=s+i

EndIf

Nexti

Prints

EndSub

实验题目5：

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

（用for语句实现）

实验题目5源程序代码：

PrivateSubCommand1_Click（）

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

s=

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

Print

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

Next

Print

Fori=1To20

Ifa（i）Mod2<>0Then

Printa（i）;

m=m+1

EndIf

Nexti

Print

Printm,n

EndSub

实验题目3：

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

实验题目3源程序代码：

Optionbase1

PrivateSubCommand1_Click（）

DimsumAsInteger,iAsInteger,nAsInteger,mAsInteger

Dimdata（10）AsInteger,averageAsSingle

sum=0:

i=1:

n=Val

DoWhilei<=n

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

sum=sum+data（i）

i=i+1

Loop

average=sum/n

MsgBox"全班"&n&"位学生的平均成绩为:

"&average,,"求平均分"

Fori=1To10

Ifdata（i）>averageThen

m=m+1

EndIf

Next

Printm

EndSub

实验题目4：

用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。

实验题目4源程序代码：

Optionbase1

PrivateSubCommand1_Click（）

DimiAsInteger,nAsInteger,maxAsinteger,minAsinteger

Dimdata（10）AsInteger

data

（1）=InputBox（"输入第"&1&"位学生的成绩","成绩输入"）

max=data

（1）:

min=data

（1）

Fori=2To10

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

Ifdata（i）>maxThen

max=data（i）

EndIf

Ifdata（i）

min=data（i）

EndIf

Next

Print"最高分是：

";max,"最低分是：

";min

EndSub

实验题目5：

阅读并上机运行下面程序，理解动态数组的用法。

实验题目5程序运行结果：

21

实验题目6：

阅读并上机运行下面程序，理解array函数的用法。

实验题目6程序运行结果：

1234

实验题目7：

阅读并上机运行下面程序，理解foreach……next语句的用法。

在实验题目7中用到foreach……next语句，该语句中用到的Temp变量必须是什么类型的

答：

变体类型

实验题目8：

用控件数组实现下面界面的设计。

（建立一个含有3个单选按钮的控件数组，当单击某个单选按钮时，标签的背景分别显示不同的颜色）

提示：

根据控件数组的index值进行判断，用if语句实现。

实验题目8源程序代码：

PrivateSubOption1_Click（IndexAsInteger）

IfIndex=0Then

=vbRed

ElseIfIndex=1Then

=v