vb实用案例例Word文档下载推荐.docx
《vb实用案例例Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《vb实用案例例Word文档下载推荐.docx（24页珍藏版）》请在冰豆网上搜索。
实验题目3：
设计一个能够统计某学生三门课程成绩总分和平均分的程序。
没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。
说明：
设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：
=Val+Val+Val
=Val/3
="
"
实验题目4：
设计界面，编写程序计算圆的周长和面积。
①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能：
定义变量和符号常量，计算出圆的周长和面积。
③“清除”命令按钮的功能：
将三个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：
程序运行结束。
实验题目4源程序代码：
DimrAsDouble,sAsDouble
Constpi=
r=Val
s=pi*r*r
c=2*pi*r
=Str（c）
=Str（s）
实验题目5：
设计界面，编写程序验证算术运算符的功能。
①设置窗体的标题为“验证算术运算符”。
计算两个数的除、整除和取余。
将五个文本框的内容清除，并将焦点移到第一个文本框中。
实验题目5源程序代码：
=Val\Val
=ValModVal
End
实验题目6：
设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。
①设置窗体的标题为“分离三位数”。
②“分离”命令按钮的功能：
分离出一个三位数的个位、十位、百位上的数字。
将四个文本框的内容清除，并将焦点移到第一个文本框中。
实验题目6源程序代码：
DimaAsInteger
a=Val
=Str（a\100）
=Str（（aMod100）\10）
=Str（aMod10）
实验题目7：
输入一个三位数，将它按逆序输出。
要求此题用两种解法：
第一种解法：
将文本框中的数据按字符型数据进行处理，用函数实现；
第二种解法：
将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。
实验题目7源程序代码：
DimaAsString,bAsString,cAsString,dAsString
a=Trim
b=Left（a,1）
c=Mid（a,2,1）
d=Right（a,1）
=d&
c&
b
DimaAsInteger,bAsInteger,cAsInteger,dAsInteger
b=a\100
c=（aMod100）\10
d=aMod10
=Str（d*100+c*10+b）
实验题目8：
输入两个数，将这两个数交换。
不允许使用第三个文本框，可以借助一个中间变量。
实验题目8源程序代码：
DimaAsInteger,bAsInteger,cAsInteger
b=Val
c=a
a=b
b=c
=Str（a）
=Str（b）
实验题目9：
设计文本编辑窗体。
复制按钮的功能：
移动按钮的功能：
文本框的SelText属性表示选定的内容。
文本框可以多行输入。
设计时先将文本框的multiline属性设置为true。
实验题目9源程序代码：
=
实验报告3：
编写程序计算某个学生三门课程的平均成绩。
（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。
（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）
如a表示一门课程的成绩，则调用inputbox函数输入为：
a=val（inputbox（"
请输入第一门课的成绩"
））
（2）单击“结束”命令按钮结束程序运行。
界面如下：
a=Val（InputBox（"
请输入第一门成绩"
b=Val（InputBox（"
请输入第二门成绩"
c=Val（InputBox（"
请输入第三门成绩"
d=（a+b+c）/3
=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=
SelectCasea
Case"
a"
To"
z"
它是小写字母"
A"
Z"
它是大写字母"
0"
9"
它是数字字符"
CaseElse
其他字符"
EndSelect
设计一个简单的文本编辑器，可以实现文本的简单格式化操作。
具体要求如下：
（1）可以设置字号，包括10、20、30号
（2）可以设置字体，包括宋体、隶书、幼圆
（3）可以设置字型，包括加粗、倾斜、下划线
（4）可以设置字的颜色，包括红色、绿色、蓝色
PrivateSubCheck1_Click（）
If=1Then
=false
PrivateSubCheck2_Click（）
If=1Then
PrivateSubCheck3_Click（）
PrivateSubOption1_Click（）
=10
PrivateSubOption2_Click（）
=20
PrivateSubOption3_Click（）
PrivateSubOption4_Click（）
宋体"
PrivateSubOption5_Click（）
隶书"
PrivateSubOption6_Click（）
幼圆"
PrivateSubOption7_Click（）
=vbRed
PrivateSubOption8_Click（）
=vbGreen
PrivateSubOption9_Click（）
=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
=a&
"
!
="
c
实验题目3：
编写程序，求出某班所有同学某门课程的平均成绩。
DimsAsInteger,iAsInteger,nAsInteger,dAsInteger,aAsDouble
s=0:
i=1:
n=Val
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=
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,iAsInteger,nAsInteger,mAsInteger
Dimdata（10）AsInteger,averageAsSingle
sum=0:
data（i）=InputBox（"
位学生的成绩"
sum=sum+data（i）
average=sum/n
位学生的平均成绩为:
average,,"
Ifdata（i）>
averageThen
m=m+1
EndIf
Next
Printm
用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。
Optionbase1
DimiAsInteger,nAsInteger,maxAsinteger,minAsinteger
Dimdata（10）AsInteger
data
（1）=InputBox（"
1&
max=data
（1）:
min=data
（1）
Fori=2To10
Ifdata（i）>
maxThen
max=data（i）
Ifdata（i）<
minThen
min=data（i）
最高分是：
;
max,"
最低分是：
阅读并上机运行下面程序，理解动态数组的用法。
实验题目5程序运行结果：
21
阅读并上机运行下面程序，理解array函数的用法。
实验题目6程序运行结果：
1234
实验题目7：
阅读并上机运行下面程序，理解foreach……next语句的用法。
在实验题目7中用到foreach……next语句，该语句中用到的Temp变量必须是什么类型的
答：
变体类型
用控件数组实现下面界面的设计。
（建立一个含有3个单选按钮的控件数组，当单击某个单选按钮时，标签的背景分别显示不同的颜色）
根据控件数组的index值进行判断，用if语句实现。
PrivateSubOption1_Click（IndexAsInteger）
IfIndex=0Then
ElseIfIndex=1Then
=v
升级会员 