《vb程序设计》期末考试编程题复习doc.docx
《《vb程序设计》期末考试编程题复习doc.docx》由会员分享,可在线阅读,更多相关《《vb程序设计》期末考试编程题复习doc.docx(30页珍藏版)》请在冰豆网上搜索。
《vb程序设计》期末考试编程题复习doc
第2章
1.新建工程,在窗体上创建两个命令按钮Command1Command2,一个标签Label1,界面如图2・5所示,程序运行要求如下:
1)单击“改变颜色”按钮,标签上的文字内容改为“颜色已经改变”,文字颜色改为红色。
“改变颜色”按钮代码:
Label1.ForeColor=vbRed
Label1.Caption=”颜色已经改变“
2)单击“改变字体”按钮,标签上的字体改为“黑体”。
“改变字体”按钮代码:
Label1.FontName=M黑体“
图2-5程序运行界面
最后将工程文件、窗体文件分别以lx2・2.vbp、lx2-2.frm为文件名保存在D:
\EX文件夹
2.设计一个留言薄。
新建一个工程,在窗体上创建2个标签,2个文本框,1个命令按钮,属性设置如图2・6所示,。
要求单击“提交”按钮后,上面的文本框内容复制到下面的文本框中,且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码:
Text2.Text=Text1.Text
“清除”按钮代码:
Textl.Text=,,n
Text2.Text
Hl!
图2-6程序界而
最后将工程文件、窗体文件分别以lx2-4.vbp>lx2-4.frm为文件名保存在D:
\EX文件夹下。
3.设计一个程序,程序界面如图2-7所示。
当单击“显示”按钮吋,在文本框中显示“欢迎使用VB!
”;当单击“清除”按钮吋,清除文本框内的文本;当单击“退出”按钮吋,结束程序运行。
“显示”按钮代码:
Text1.Text=”欢迎使用VB!
”
“清除”按钮代码:
Textl.Text二”“
“退出”按钮代码:
End
图2-7程序运行界面
最后将工程文件、窗体文件分别以lx2-5.vbp.Ix2-5.frm为文件名保存在D:
\EX文件夹下。
第3章
4.设计一个程序,在文本框屮输入一个3位整数,单击按钮后,在标签上输出该数的百位数、十位数和个位数,运行界面如图3-3所示。
最后将工程文件、窗体文件分别以SL3・3.vbp、SL3-3.frm为文件名保存在D:
\EX文件夹下。
口回冈
勢For*.!
图3-3程序运行界血
PrivaSubCommandl_C1ick0
Dimn%,a%,b篦c%n=Vai(Textl.Text)a=n\100
b=(n-a*100)\10
c=nMod10
Label2.Caption=“百位数:
"&a&"丿十位数:
"&b&二个位数:
"&cEndSub
5.设计一个程序,实现简单计算的功能,运行界面如图3・7所示。
最后将工程文件、窗体文件分别以lx3・3.vbp、lx3-3.frm为文件名保存在D:
\EX文件夹下。
图3-7程序运行界面
PrivateSubCommand3_Click()~~总灯按钮的代码
Labell.Caption="^11
Text3.Text=Ual(Text1.Text)*Ual(Text2.Text)EndSub
PrivateSubCommand5_Click()1"clear"^钮的代码
Textl.Text=•…-
Text2.Text=•…
Text3.Text=•…
EndSub
提示:
clear按钮的代码:
textl.’"是双引巧,空字符串的意思
6.设计一个程序(程序运行界面自定),使用inputbox函数输入某品牌电脑的单价和购买的数量,计算并用msgbox函数输出需付款金额。
最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm为文件幺保存在D:
\EX文件夹下。
PrivateSubForm_Click()
Dimdj&,shl%,je&
dj=Ual(InputBox(-输入某品牌电脑的单价叩))
shl=Ual(InputBox("输入某品牌电脑的购买的数量汁))je=dj*shl
MsgBox嚅付款金额:
11&je
EndSub!
7.rnd函数产生一个[0,1)的单精度随机数。
设计一个程序(程序运行界面自定),用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。
最后将工程文件、窗体文件分别以lx3・5.vbp、lx3-5.frm为文件名保存在D:
\EX文件夹下。
PrivateSubFormClickf)
Dimzh%Randomizezh=Int(90*Rnd)+10
MsgBox嘀位的随机整数是:
11&zh
EndSub
第4章
一、顺序结构
例:
输入数据
•输入时间(小时,分,秒),然后输出总计多少秒人
•解:
法一:
使用文本框输入数据
运行时界面如下:
“计算”按钮和“结朿”按钮的click事件代码如下:
PrivateSubCommand1(lkrk()
Dimhh°o»nun%,ss°o.Totals!
DimOutstr$hh-Val(Textl)mm-Vil(Text2)
M-ValfrexU)
Totals-hh*3600*inmA60*ss
Outstr-hhau小时魅nn&"分・&ss粉”
OiitstrX)utstr&vbCrLf总计:
"ATotals&**秒"Ms0k)xOutstr*»”输出结果**
EndSub
PrivateSubConand2_C1ick()
End
EndSub
最后将工程文件和窗体文件分别以ceshi3-3T.vbp和ceshi3-3T・fnn文件名保存,并保存在D:
\EX文件夹下。
9.
从输入框中输入圆的半径,计算圆的周长和面积
(1)创建应用程序的用户界面和设置对線属性⑵编写程和码
PrivateSubCommandl_Click()
DimrAsSingle,kAsSingle,sAsSingle
T=血10叩城W'请输入圆的半径”,叫+算圆的周长和面积”))k=2*3.14159*r
s=3.14159*r*rTextl.Text=k
=s
咁算己完成珥,,讨算圆的周长和面积”
EndSub
PrivateSubCommand2_Click()
End~
EndS.b
最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm文件名保存,并保存在D:
\EX文件夹下。
10.
给定一个两位数(如36),交换个位数和十位数的位置,把处理后的数显示在窗体上编写的窗体单击事件过程代码如下,
PrivateS・b珈皿JClkkO
DimxAsInteger,aAsInteger
DimbAsInteger,cAsInteger
x=36
•求十位数
b=xMod10
c=b*10+a
Print”处理后的数:
M;c
•求个位数
•生战新的数
EndS・b
运行程序后单击窗体,输出结果是,
姻后的数:
63
最后将工程文件和窗体文件分别以ceshi3-5.vbp和ceshi3-5.frm文件名保存,
并保存在D:
\EX文件夹下。
11•编制程序,在一个文木框中输入一串字符(长度大于2),单击“处理”按钮吋,则取出该字符串的头、尾部各一个字符,合并后显示在第二个文本框中。
如输入“ABCDEFG”,则输出“AG”。
PrivateSubCommandl_ClickQ
DimxAsString,yAsString
Textl^Text=x
x=Textl.Text
y=Text2.Text
EndSub
Textl.Text=v
0
最后将工程文件和窗体文件分别以ceshi3-6・vbp和ceshi3-6.frm文件名保存,并保存在D:
\EX文件夹下。
二、选择结构
12.请参考如图4-8所示程序的运行结果,新建一个工程,完成“健康称”程序的设计。
具体要求如下:
(1)窗体的标题为“健康称”,固定边框。
(2)窗体的左边有两个标签,Label1的标题为“身高”、Label2的标题为“体重”;它们的旁边分别有两个文本框,Textl用于输入身高、Text2用于输入体重;在文本框的右边有两个标签,Label3的标题为“cm”,Label!
的标题为“kg”。
(3)将两个文本框文字对齐方式均设置为右对齐,最多接受3个字符。
(4)两个文本框均不接受非数字键。
(5)单击“健康状况”按钮(Commandl),根据计算公式将相应的提示信息显示在标签Label5中。
计算公式为:
标准体重二身高-105;体重高于标准体重初.1为偏胖,提示“偏胖,注意节食”;体重低于标准体重*0.9为偏瘦,提示“偏瘦,增加营养”;其他为正常,提示“正常,继续保持”。
PrivaSubCommandl_C1ick()
DimshengaoAslilteger?
tizhongAsInteger
Dimbiaozhun%?
shuchu$shenggao=Vai(Textl.Text)tizhong=Vai(Text2.Text)biaozhun=shenggao"105
I£tizhong>biaozhun*1.1Then
Shuchu=“偏胖,注意节負"
ElselftizhongElse
shuchu=“正常,继续保持"
EndIf
Label5.Captiori=shuchu
EndSub
PrivaSubTextl^Change()
I£IsNumeric(Tex11)=FalseThenTextl=EndSub
PrivaSubText2_ChangQ()
I£IsNumeric(Text2)=FalseThenText2=EndSub
最后将工程文件、窗体文件分别以lx4・l.vbp、lx4-l.frm为文件名保存在D:
\EX文件夹下。
图4-8实验题目1运行界面
13.编写模拟袖珍计算器的程序,运行界而如图4-9所示。
要求如下:
⑴输入两个操作数和一个四则运算操作符,根据操作符决定所做的运算。
⑵输入的数据进行合法检验,当输入出错时,调用MsgBox()提示。
OptionExplicit
FrivateSubCommandl_Click()Dimx!
」y!
x=Vai(Textl)y=VaiCText2)
SelectCaseTrim(Text3)Case
Text4=x+y
厂ffff
Case-
Text4=x-yCase7
Text4=x*y
CaseV"
Ify=0Then
MsgBox"除数不能为0?
Text2.SetFocus
Text4=
Else
Text4=x/y
EndIf
EndSelect
EndSub
FrivateSubCommand2_Click()End
EndSub
最后将工程文件、窗体文件分别以1x4-2.vbp.Ix4-2.frm为文件名保存在D:
\EX文件夹
To
图4-9实验题冃2运行界團
三、循环结构
14•输入任意一个整数N,求1到N之间所有偶数和;(可参考课本p89页)利用文木框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-l.vbp>XH4-l.frm为文件名保存在D:
\EX文件夹下。
15•输入任意一个整数N,计算N阶乘;5!
=5*4*3*2*1(可参考课本p90页)
利用文木框来实现数据的输入和输岀。
最后将工程文件、窗体文件分别以XH4・2.vbp、XH4-2.frm为文件名保存在D:
\EX文件夹下。
16•输入任意一个整数N,输出l+l/2+l/3+・・・+l/N的计算结果;(可参考课本p93页)
利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:
\EX文件夹下。
17•输入任意一个整数N,输出N以内3的倍数之和(即3+6+9……);(可参考课本p93页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH44vbp、XH4-4.frm为文件名保存在D:
\EX文件夹下。
1&输入任意一个整数N,输出1X22X32X-XN2的计算结果;(可参考课本p90页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分別以XH4・5.vbp、XH4-5.frm为文件名保存在D:
\EX文件夹下。
19•输入任意一个整数N,输出N以内的所有5的倍数的积;(可参考课本p90页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4・6.vbp、XH4-6.frm为文件名保存在D:
\EX文件夹下。
20•输入任意一个整数N,输出
l+l/22+l/32+l/42+...+l/n2
的计算结果;(可参考课本p93页)利用文本框来实
现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-7.vbp>XH4-7.frm为文件名保存在D:
\EX文件夹下。
21•输入任意一个整数N,输出1!
+2!
+……+n!
的累加和;(可参考课本p90页和课本p93页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-8.vbp>XH4-8.frm为文件名保存在D:
\EX文件夹下。
PrivateSubCommandl_C1ick()Dimi%,s%,p%n%
s=0
p=1
n=Vai(Textl.Text)
Fori=lTon
p=p*is=s+p
Next
Text2.Text二s
EndSub
22•编程求出50之内的全部素数;(可参考课本p98页)。
最后将工程文件、窗体文件分别以XH4・9.vbp、XH4-9.frm为文件名保存在D:
\EX文件夹下。
23•编写程序打卬如下九九乘法表(使用双重循环实现)。
(可参考课本P97页)最后将工程文件、窗体文件分别以XH4-10.vbp.XH4-10.frm为文件名保存在D:
\EX文件夹下。
1X1=1
2X1=22X2=4
9X1=19X2=189X9=81
24•编一稈序,显示所有的水仙花数,如下图。
所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。
例如,153二尸+5'+33。
最后将工程文件、窗体文件分别以XH4・ll.vbp、XH4-U.frm为文件名保存在D:
\EX文件夹下。
FrivateSub
Dimi%,
Fori=a=b=
Commandl_C1ick()a%,b%?
c%100To999
EG/100)
Int((i-a*100)/10)i-a*100-b*10
Ifi=a"3+bA3+cA3ThenPrint
Next
EndSub
25•我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题:
鸡翁一,值钱五;鸡母一,值钱三;鸡雏三,值钱一。
百元买百鸡,问鸡翁、鸡母、鸡雏各
几何?
意思是:
用100元钱买100只鸡,公鸡5元一只,母鸡3元一只,小鸡1元3只;100
只鸡中必须包括鸡翁、鸡母和鸡雏。
自行设计界面并在图形框屮输出百鸡百元的儿种解。
最
后将工程文件、窗体文件分别以XH4-12.vbp>XH4-12.frm为文件名保存在D:
\EX文件夹下。
提示:
按题意列出方程组,并己知鸡翁不能超过19只,鸡母不能超过32只。
zorml
公鸡
4
8
12
母鸡
18
11
4
788184
求解
鸡题
曰仝
元解
退出I
OptionExplicit
FrivateSubCommandl_C1ick()
Dimi%j%爍
Picturel.Prin/Tab(8);"公鸡";Tab(13);"母鸡JTab(18);"小鸡“
oT
・Jk
o
T00
4141
32i
n=n+1
Picturel.PrintTab(l);"解Tab(8);i;Tab(13);j;Tab(18);EndIf
NmxtjNexti
EndSub
PrivateSubCommand2_Click()
End
EndSub
第5章
26.编写程序,将随机产生的两位数的一维数组A(10)屮的元素向后移动一个位置,最后一个元素移到第一个元素的位置上。
最后将工程文件、窗体文件分别以1x62vbp、lx6-2.frm为文件名保存在D:
\EX文件夹下。
FrivateSubForm_Click()
Dima(10)AsInteger^temp%Randomize
Fori=1To10
a(i)=Int(100*Rnd)
Ifi=1ThenPrint^原数组为:
“;Printa(i);““;
Print
temp=a(10)
11
-
P)e・111sa
oSJ,
T1
9+
Nexti
a(iNextia
(1)=tempFori=1To10
Ifi=1ThenPrint"现数组为:
“;
Print“J
Nexti
EndSub
27•输入某小组5个同学的成绩,计算总分和平均分(取小数后一位)。
本例利用InputBox函数来输入成绩,输入完毕后经过计算,再采用Print直接在窗体上输出结果。
最后将工程文件、窗体文件分别以SZ5-l.vbp>SZ5-l.frm为文件名保存在D:
\EX文件夹下。
PrivateSubForm_Click0
Dimd(5)AsIriteger
DimiAsInteger?
totalAsSingle,averageAsSingle
Fori=1To5,输入成绩
d(i)=VaittnputBox输入第"&i&"个学生的成绩"「输入成绩"))
Nwxti
total=0
Fori=1To5丿计算总分
total=total+d(i)
Nwxti
average=total/5
Print"总分:
";total
Print"平均分:
“;Format(average^"##.0")EndSub
2&输入10名学生的成绩,求出最高分和最低分
BFor>iU旦凶
功能要求:
通过Array函数输入10个分数;单击“查找"按钮(Command2)后,开始查找最高分和最低分,找到后显示在标签Labell上。
最后将工程文件、窗体文件分别以SZ5-2.vbp>
SZ5-2.frm为文件名保存在D:
\EX文件夹下。
OptionBase1
DimscoreAsVariant
FrivateSubFormLoad0
Labell.Caption="单击"查找”按钮开始查找盘高分和盘低分"score=Array(89z96,81丿67?
79^90?
63丿85,95,83)
FrivateSubcommandl_click0
EndSub
'设定初值
'找摄高分
'找摄低分
DimmaxAsIriteger^minAsIritegermax=score
(1)
min=score
(1)
Fori=2To10
Ifmax〈score(i)Then
max=score(i)
EndIf
Ifmin>score(i)Then
min=score(i)
EndIf
Nexti
_^Chr(13)起换行作用
Labell.Caption="摄咼分:
"+Str(max)+_
Chr(13)+"摄低分:
"+Str(min)
EndSub
29.建立一个文本框控件数组Textl和一个文本框Text2,在控件数组Textl中输入一组数后,把累加值存放在Text2«最后将工程文件、窗体文件分别以SZ5-4.vbp>SZ5-4.frm为文件名保存在D:
\EX文件夹下。
文本框控件数组
Textl(0)
Textl
(1)'
Textl
(2)(
Textl(3)
Text2
Command1
PrivaSubCommandlClick()
S=0Fori=s=
0To3
s+Vai(Textl(i).Text)
Nwxti
Text2.TextEndSub
30.按下图设计窗体,其中一组(共3个)单选按钮构成控件数组,要求当单击某个单选按钮时,能够改变文本框中文字的大小。
最后将工程文件、窗体文件分别以SZ5-5.vbp.SZ5-5.frm为文件名保存在D:
\EX文件夹下。
*控件数组的使用
IZ叵区)
FrivateSubForm^Load()
Optionl(0).Value=True'选定第一个单选按钮
Textl.FontSize=12'设定文本框中的字号
EndSub
FrivateSubOptionl_Click(Index_AsInteger)
SelectCqsgIndex,系统自动返回Index值
Case0
Textl.FontSize=12
Case1
Textl.FontSize=20
Case2
Textl.FontSize=28
EndSelect
EndSub
第7章
31.在窗体上放置三个复选框,标题依次为“旅游”、“体育”、“音乐”,另有一个命令按钮,标题为“兴趣”。
程序运行后,选中复选框,再点击命令按钮,则在窗体上显示相应的的信息。
运行界面如图10-12所示。
最后将窗体文件、工程文件分别以LX10-1.frmxLX10-1.vbp为文件名保存在D:
\EX文件夹下。
图10・12复选框运行界面
OptionExplicit
PrivaSubCommandl_C1ick()
I£Checkl.Value=1Thena=a&"旅游“
EndI£
I£Check2.Valug=1Thena=a&"体育“
En