《vb程序设计》期末考试编程题复习doc.docx

《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=“偏胖，注意节負"

Elselftizhong

Else

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