VB上机练习题Word文档下载推荐.docx
《VB上机练习题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB上机练习题Word文档下载推荐.docx（37页珍藏版）》请在冰点文库上搜索。
=True
PrivateSubCommand4_Click（）
PrivateSubCommand5_Click（）
PrivateSubCommand6_Click（）
=True
5.设计一个窗体，如下图所示。
程序中将π定义成符号常量（用Const）,运行时，输入底面半径r和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。
运算结果为只读。
Constpi=
h=Val（Text1）
r=Val（Text2）
=pi*r^2
=2*pi*r*h
=pi*r^2*h
6.设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、Text2中，单击“计算”按钮，求两个数的和。
=Int（100*Rnd+1）
a=Val
b=Val
=a+b
7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
PrivateSubForm_Click（）
=Year（Now）
=Month（Now）
=Day（Now）
=Weekday（Now）
=Time
8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
=Abs（Val（Text1））
=0
=Len
=Sqr（Val（Text1））
=Fix（Val（Text1））
=Int（Val（Text1））
=Sgn（Val（Text1））
9．设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。
PrivateSubCommand1_Click（）
a=Val（Text1）
IfaMod3=0AndaMod5=0AndaMod7=0Then
MsgBox"
能同时被3、5、7整除"
Else
不能整除"
EndIf
10．设计一个计算购书价钱的程序，界面如下图所示。
为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。
单击“计算总价”或用访问键，算出总价。
总价文本框要求为只读属性。
完成相应功能。
b=Val（Text2）
=a*b
End
11．设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
b=a*/180
c=Abs（Sin（b））
d=Abs（Cos（b））
=&
a&
Space（10）&
Format（c,"
）_
&
Format（d,"
）&
vbCrLf
12．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；
单击“清除”，清除所有文本框内容。
c=Val（Text3）
=a*b*c
13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：
90~100优秀；
80~89良好；
70~79中等；
60~69及格；
0~59不及格。
a=Val（Text2）
SelectCasea
Case90To100
h="
优秀"
Case80To89
良好"
Case70To79
中等"
Case60To69
及格"
Case0To59
不及格"
EndSelect
"
学号：
分数：
Space（3）&
h
14．设计一个窗体Forml，界面如上图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
=a^2*
=2*a*
15．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大、最小数。
a=Val（Text1）:
b=Val（Text2）:
c=Val（Text3）
Ifa<
bThent=a:
a=b:
b=t
Ifa<
cThent=a:
a=c:
c=t
Ifb<
cThent=b:
b=c:
=a
=c
16．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
PrivateSubCommand1_Click（）
Ifa+b<
cOra+c<
bOrb+c<
aOrAbs（a-b）>
cOrAbs（a-c）>
bOrAbs（b-c）>
aThen
FALSE"
h=（a+b+c）/2
s=Sqr（h*（h-a）*（h-b）*（h-c））
=Format（s,"
）
EndIf
17．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。
a=Val（Text1）:
=c:
=b:
18．在窗体上画两个命令按钮分别求11+22+33+44+……+nn小于100000最大值和
的累加和并将结果输出到Label1和Label2中。
n=0:
s=0
Do
n=n+1
s=s+n^n
=s
LoopUntils>
100000
Fori=1To20
n=1
Fork=1Toi
n=n*k
Nextk
s=s+n
Nexti
=s
19．在窗体上画两个文本框输入a和n的值（a和n均为一位数字），单击命令按钮输出Sn=a+aa+aaa+aaaa+…+aa…a（最后一项n个a，例如3+33+333+3333）的值于标签中。
a=
n=Val（Text2）
Sn=0
Fori=1Ton
b=String（i,a）
Sn=Sn+Val（b）
=Sn
20．单击命令按钮将3到200之间的所有奇数显示在列表框中。
Fori=3To200Step2
i
21．在窗体上画一文本框用于输入n值，画两个命令按钮分别求下述表达式的值
S1=
S2=1×
3×
5×
7×
…×
（2n-1）并将S1、S2的结果输出到图片框。
n=Val（Text1）
s=s+（-1）^（i+1）/（2*i-1）
S2=1
S2=S2*（2*n-1）
4*s
S2
22．在文本框T1中打印100~999之间的所有水仙花数。
（该数为各位数字的立方和。
例如：
153=13+53+33）
Fori=100To999
a=Fix（i/100）
b=Fix（i/10）-a*10
c=i-Fix（i/10）*10
Ifa^3+b^3+c^3=iThen=&
i&
23．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。
编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。
a=0:
b=1:
=a&
vbCrLf&
b&
Fori=1To14
s=s+a+b
a=a+b
b=a+b
24．设计如下图所示界面，单击时输出相应结果，2~N之间素数在列表框中输出，要求判断素数用过程实现。
Functionh（aAsInteger）AsBoolean
DimmAsInteger,sAsBoolean
m=0
Fori=2To（a-1）
IfaModi=0Thenm=m+1
Ifm=0Thens=TrueElses=False
h=s
EndFunction
DimaAsInteger
a=Val（Text1）
Ifh（a）=FalseThen
不是素数"
是素数"
DimiAsInteger
Fori=2Toa
Ifh（i）=TrueTheni
25．界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形（参考教材练习6-15）。
Cls
a=Val（InputBox（"
请输入行数"
））
Fori=1Toa
PrintTab（i）;
String（a,"
*"
Nexti
PrintTab（a-i+1）;
String（2*i-1,"
Fori=aTo1Step-1
）;
_
Space（3）;
String（2*（a-i）+1,"
26．设计如下图所示界面，单击时输出N!
和1!
+2!
+…+N!
结果，要求N!
用过程实现。
Functionh（nAsInteger）AsInteger
DimsAsInteger
s=1
s=s*i
Nexti
EndFunction
DimnAsInteger
n=Val（Text1）
=h（n）
m=Val（Text1）
s=0
Forn=1Tom
s=s+h（n）
Nextn
27．编写一个程序，输出一个5*5的矩阵，该矩阵主、负对角线上元素均为1，其余元素均为2，执行结果如上图所示。
OptionBase1
DimA（5,5）AsInteger
Fori=1To5
Forj=1To5
A（i,j）=2
Ifi=jThenA（i,j）=1
Ifi+j=6ThenA（i,j）=1
Nextj,i
Fori=1To5
CurrentY=i*300
CurrentX=j*300
PrintA（i,j）;
28．界面如下图所示。
分别在Textl和Text2中输入两个自然数x、y，用展转相除的方法求自然数x，y的最大公约数和最小公倍数。
在窗体上显示结果。
DimaAsInteger,bAsInteger,xAsInteger,yAsInteger,rasInteger
x=Val（Text1）
y=Val（Text2）
a=x:
b=y
r=xMody
DoWhiler<
>
0
x=y
y=r
r=xMody
Loop
=y
=a*b/y
29．仿照25题画四个命令按钮，单击各按钮在图片框上显示如下不同的数据图形。
Fori=1To6
Forj=iTo1Step-1
Printj;
Nextj
Print
Fori=6To1Step-1
PrintSpace（18-3*i）;
Forj=1Toi
Print
Fori=1To6
Print7-j;
30．设计一个窗体Forml，编写适当的事件过程。
控制Text1中背景色和字体格式。
（字体默认为宋体，内容为“欢迎学习VB”）程序运行界面如图所示。
PrivateSubCheck1_Click（）
PrivateSubCheck2_Click（）
PrivateSubCheck3_Click（）
PrivateSubOption1_Click（）
PrivateSubOption2_Click（）
=vbYellow
PrivateSubOption3_Click（）
31．利用两个列表框控件，设计选项移动窗体如上图。
编写适当的事件过程实现功能要求。
If=0Then
列表中没有可选的列"
,"
注意"
ExitSub
If>
=0Then
Fori=0To–1
PrivateSubCommand2_C
升级会员 