《Visual BASIC程序设计》期末考试编程题复习及答案.docx

《Visual BASIC程序设计》期末考试编程题复习及答案.docx

《《Visual BASIC程序设计》期末考试编程题复习及答案.docx》由会员分享，可在线阅读，更多相关《《Visual BASIC程序设计》期末考试编程题复习及答案.docx（42页珍藏版）》请在冰豆网上搜索。

《VisualBASIC程序设计》期末考试编程题复习及答案

第2章

1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：

1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。

“改变颜色”按钮代码：

Label1.ForeColor=vbRed

Label1.Caption="颜色已经改变"

2）单击“改变字体”按钮，标签上的字体改为“黑体”。

“改变字体”按钮代码：

Label1.FontName="黑体"

图2-5程序运行界面

最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:

\EX文件夹下。

2.设计一个留言薄。

新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。

要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。

单击“清除”按钮则清除两个文本框中的内容。

“提交”按钮代码：

Text2.Text=Text1.Text

“清除”按钮代码：

Text1.Text=""

Text2.Text=""

图2-6程序界面

最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:

\EX文件夹下。

3.设计一个程序，程序界面如图2-7所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用VB！

”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

“显示”按钮代码：

Text1.Text="欢迎使用VB!

"

“清除”按钮代码：

Text1.Text=""

“退出”按钮代码：

End

图2-7程序运行界面

最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:

\EX文件夹下。

第3章

4.设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图3-3所示。

最后将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在D:

\EX文件夹下。

图3-3程序运行界面

5.设计一个程序，实现简单计算的功能，运行界面如图3-7所示。

最后将工程文件、窗体文件分别以lx3-3.vbp、lx3-3.frm为文件名保存在D:

\EX文件夹下。

图3-7程序运行界面

提示：

clear按钮的代码：

text1.text=""'""是双引号,空字符串的意思

6.设计一个程序（程序运行界面自定），使用inputbox函数输入某品牌电脑的单价和购买的数量，计算并用msgbox函数输出需付款金额。

最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm为文件名保存在D:

\EX文件夹下。

&为长整行%为整形

7.rnd函数产生一个[0，1）的单精度（!

）随机数。

设计一个程序（程序运行界面自定），用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。

最后将工程文件、窗体文件分别以lx3-5.vbp、lx3-5.frm为文件名保存在D:

\EX文件夹下。

63页

第4章

一、顺序结构

8.

运行时界面如下：

“计算”按钮和“结束”按钮的click事件代码如下：

最后将工程文件和窗体文件分别以ceshi3-3-1.vbp和ceshi3-3-1.frm文件名保存，并保存在D:

\EX文件夹下。

9.

最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm文件名保存，并保存在D:

\EX文件夹下。

10.

最后将工程文件和窗体文件分别以ceshi3-5.vbp和ceshi3-5.frm文件名保存，并保存在D:

\EX文件夹下。

11.编制程序，在一个文本框中输入一串字符（长度大于2），单击“处理”按钮时，则取出该字符串的头、尾部各一个字符，合并后显示在第二个文本框中。

如输入“ABCDEFG”，则输出“AG”。

最后将工程文件和窗体文件分别以ceshi3-6.vbp和ceshi3-6.frm文件名保存，并保存在D:

\EX文件夹下。

二、选择结构

12．请参考如图4-8所示程序的运行结果，新建一个工程，完成“健康称”程序的设计。

具体要求如下：

（1）窗体的标题为“健康称”，固定边框。

（2）窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“cm”，Label4的标题为“kg”。

（3）将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。

（4）两个文本框均不接受非数字键。

（5）单击“健康状况”按钮（Command1），根据计算公式将相应的提示信息显示在标签Label5中。

计算公式为：

标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。

最后将工程文件、窗体文件分别以lx4-1.vbp、lx4-1.frm为文件名保存在D:

\EX文件夹下。

图4-8实验题目1运行界面

13.编写模拟袖珍计算器的程序，运行界面如图4-9所示。

要求如下：

⑴输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。

⑵输入的数据进行合法检验，当输入出错时，调用MsgBox（）提示。

Trim是去掉俩边空格

最后将工程文件、窗体文件分别以lx4-2.vbp、lx4-2.frm为文件名保存在D:

\EX文件夹下。

图4-9实验题目2运行界面

三、循环结构

14.输入任意一个整数N，求1到N之间所有偶数和；（可参考课本p89页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:

\EX文件夹下。

15.输入任意一个整数N，计算N阶乘；5！

=5*4*3*2*1（可参考课本p90页）

利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:

\EX文件夹下。

16.输入任意一个整数N，输出1+1/2+1/3+…+1/N的计算结果；（可参考课本p93页）

利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:

\EX文件夹下。

17.输入任意一个整数N，输出N以内3的倍数之和（即3+6+9……）；（可参考课本p93页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:

\EX文件夹下。

18.输入任意一个整数N，输出1×22×32×…×N2的计算结果；（可参考课本p90页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:

\EX文件夹下。

19.输入任意一个整数N，输出N以内的所有5的倍数的积；（可参考课本p90页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:

\EX文件夹下。

20.输入任意一个整数N，输出

的计算结果；（可参考课本p93页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-7.vbp、XH4-7.frm为文件名保存在D:

\EX文件夹下。

21.输入任意一个整数N，输出1!

+2!

+……+n!

的累加和；（可参考课本p90页和课本p93页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-8.vbp、XH4-8.frm为文件名保存在D:

\EX文件夹下。

22.编程求出50之内的全部素数；（可参考课本p98页）。

最后将工程文件、窗体文件分别以XH4-9.vbp、XH4-9.frm为文件名保存在D:

\EX文件夹下。

23.编写程序打印如下九九乘法表（使用双重循环实现）。

（可参考课本p97页）最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在D:

\EX文件夹下。

1×1=1

2×1=22×2=4

……

9×1=19×2=18………9×9=81

24.编一程序，显示所有的水仙花数，如下图。

所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。

例如，153=13+53+33。

最后将工程文件、窗体文件分别以XH4-11.vbp、XH4-11.frm为文件名保存在D:

\EX文件夹下。

25.我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题：

鸡翁一，值钱五；鸡母一，值钱三;鸡雏三，值钱一。

百元买百鸡，问鸡翁、鸡母、鸡雏各几何?

意思是：

用100元钱买100只鸡，公鸡5元一只，母鸡3元一只，小鸡1元3只；100只鸡中必须包括鸡翁、鸡母和鸡雏。

自行设计界面并在图形框中输出百鸡百元的几种解。

最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在D:

\EX文件夹下。

提示：

按题意列出方程组，并己知鸡翁不能超过19只，鸡母不能超过32只。

第5章

26.编写程序，将随机产生的两位数的一维数组A（10）中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。

最后将工程文件、窗体文件分别以lx6-2.vbp、lx6-2.frm为文件名保存在D:

\EX文件夹下。

27.输入某小组5个同学的成绩，计算总分和平均分（取小数后一位）。

本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果。

最后将工程文件、窗体文件分别以SZ5-1.vbp、SZ5-1.frm为文件名保存在D:

\EX文件夹下。

28.输入10名学生的成绩，求出最高分和最低分

功能要求：

通过Array函数输入10个分数；单击“查找”按钮（Command2）后，开始查找最高分和最低分，找到后显示在标签Label1上。

最后将工程文件、窗体文件分别以SZ5-2.vbp、SZ5-2.frm为文件名保存在D:

\EX文件夹下。

29.建立一个文本框控件数组Text1和一个文本框Text2，在控件数组Text1中输入一组数后，把累加值存放在Text2。

最后将工程文件、窗体文件分别以SZ5-4.vbp、SZ5-4.frm为文件名保存在D:

\EX文件夹下。

30.按下图设计窗体，其中一组（共3个）单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小。

最后将工程文件、窗体文件分别以SZ5-5.vbp、SZ5-5.frm为文件名保存在D:

\EX文件夹下。

第7章

31.在窗体上放置三个复选框，标题依次为“旅游”、“体育”、“音乐”，另有一个命令按钮，标题为“兴趣”。

程序运行后，选中复选框，再点击命令按钮，则在窗体上显示相应的的信息。

运行界面如图10-12所示。

最后将窗体文件、工程文件分别以LX10-1.frm、LX10-1.vbp为文件名保存在D:

\EX文件夹下。

图10-12复选框运行界面

32.设置如图10-13所示界面所示的程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。

最后将窗体文件、工程文件分别以LX10-2.frm、LX10-2.vbp为文件名保存在D:

\EX文件夹下。

图10-13组合框运行界面

33. 在窗体上画一个名称为HS1的水平滚动条（min=0,max=100）和三个名称分别为C1,C2,C3，标题分别为“左端”，“居中”，“右端”的命令按钮。

编程是的程序运行后，单击C1，则滚动框位于滚动条的最左端；单击C2，则滚动框位于滚动条的中间处；单击C3，则滚动框位于滚动条的最右端，运行界面如图10-14所示。

最后将窗体文件、工程文件分别以LX10-3.frm、LX10-3.vbp为文件名保存在D:

\EX文件夹下。

图10-14滚动条运行界面

34.列表框举例。

窗体上添加二个列表框、二个命令按钮，设置完属性后的界面如图10-16所示。

要求:

（1）选中列表框中的某一条目，单击命令按钮，将其移动到另一列表框中。

（2）双击列表框中的某一条目，直接将其移动到另一列表框中。

完成运行界面所达到的要求，最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:

\EX文件夹下。

图10-16题目6的设计界面（其中右图为题目6的运行结果）

35.

text1中,最后将窗体文件、工程文件分别以SL10-10.frm、SL10-10.vbp为文件名保存在D:

\EX文件夹下。

36.

。

最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:

\EX文件夹下。

参考答案

1

PrivateSubCommand1_Click（）

Label1.ForeColor=vbRed

Label1.Caption="颜色已经改变"

EndSub

PrivateSubCommand2_Click（）

Label1.FontName="黑体"

EndSub

4

PrivateSubCommand1_Click（）

Dimn%,a%,b%,c%

n=Val（Text1.Text）

a=n\100

b=（n-a*100）\10

c=nMod10

Label1.Caption="百位数:

"&a&",十位数:

"&b&",个位数"&c

EndSub

5

PrivateSubCommand1_Click（）

Label1.Caption="+"

Text3.Text=Val（Text1.Text）+Val（Text2.Text）

EndSub

PrivateSubCommand2_Click（）

Label1.Caption="-"

Text3.Text=Val（Text1.Text）-Val（Text2.Text）

EndSub

PrivateSubCommand3_Click（）

Label1.Caption="*"

Text3.Text=Val（Text1.Text）*Val（Text2.Text）

EndSub

PrivateSubCommand4_Click（）

Label1.Caption="/"

Text3.Text=Val（Text1.Text）/Val（Text2.Text）

EndSub

PrivateSubCommand5_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

EndSub

PrivateSubCommand6_Click（）

End

EndSub

6

PrivateSubForm_Load（）

Dimdj&,shL%,je&

dj=Val（InputBox（"输入某品牌电脑的单价;"））

shL=Val（InputBox（"输入某品牌电脑的的购买的数量;"））

je=dj*shL

MsgBox"需付款金额;"&je

EndSub

7

PrivateSubForm_Click（）

Dimzh%

Randomize

zh=Int（90*Rnd）+10

MsgBox"两位的随机整数是:

"&zh

EndSub

8

PrivateSubCommand1_Click（）

Dimhh%,mm%,ss%,totals!

Dimoutstr$

hh=Val（Text1）

mm=Val（Text2）

ss=Val（Text3）

totals=hh*3600+mm*60+ss

outstr=hh&"小时"&mm&"分"&ss&"秒"

outstr=outstr&vbCrLf&"总计:

"&totals&"秒"

MsgBoxoutstr,,"输出结果"

EndSub

PrivateSubCommand2_Click（）

End

EndSub

9

PrivateSubCommand1_Click（）

Dimr!

k!

s!

r=Val（InputBox（"请输入圆的半径","计算圆的周长和面积"））

k=2*3.14159*r

s=3.14159*r*r

Text1.Text=k

Text2.Text=s

msgbox"计算已完成！

",,"计算圆的周长和面积"

EndSub

PrivateSubCommand2_Click（）

end

EndSub

10

Dimx%,a%

Dimb%,c%

x=36

a=Int（x/10）

b=xMod10

c=b*10+a

Print"处理后的数：

";c

EndSub

11

PrivateSubCommand1_Click（）

DimxAsString,yAsString

x=Text1.Text

y=Left（x,1）+Right（x,1）

Text2.Text=y

12

PrivateSubCommand1_Click（）

Dims%,t%

Dimb%,shuchu$

s=Val（Text1.Text）

t=Val（Text2.Text）

b=s-105

Ift>b*1.1Then

shuchu="偏胖，注意节食"

ElseIft

shuchu="偏瘦，增加营养"

Else

shuchu="正常，继续保持"

EndIf

Label1.Caption=shuchu

EndSub

PrivateSubText1_Change（）

IfIsNumeric（Text1）=FalseThenText1=""

EndSub

PrivateSubText2_Change（）

IfIsNumeric（Text2）=FalseThenText12=""

EndSub

13

PrivateSubCommand1_Click（）

Dimx!

y!

x=Val（Text1）

y=Val（Text2）

SelectCaseTrim（Text3）

Case"+"

Text4=x+y

Case"-"

Text4=x-y

Case"*"

Text4=x*y

Case"/"

Text4=x/y

Ify=0Then

MsgBox"除数不能为0"

Text4=""

Text2.SetFocus

Else

Text4=x/y

EndIf

EndSelect

EndSub

三、循环结构

14.输入任意一个整数N，求1到N之间所有偶数和；（可参考课本p89页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:

\EX文件夹下。

PrivateSubCommand1_Click（）

Dimi,N,sAsInteger

s=0

N=val（Text1.Text）

Fori=1ToN

IfiMod2=0Then

s=s+i

EndIf

Nexti

Text2.Text=s

EndSub

15.输入任意一个整数N，计算N阶乘；5！

=5*4*3*2*1（可参考课本p90页）

利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:

\EX文件夹下。

PrivateSubCommand1_Click（）

Dimi,N,sAsInteger

s=1

N=val（Text1.Text）

Fori=1ToN

s=s*i

Next

Text2.Text=s

EndSub

16.输入任意一个整数N，输出1+1/2+1/3+…+1/N的计算结果；（可参考课本p93页）

利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:

\EX文件夹下

PrivateSubCommand1_Click（）

Dimi,s,NAsInteger

N=Val（Text1.Text）

s=0

Fori=1Ton

s=s+1/i

Nexti

Text2.Text=s

EndSub

。

17.输入任意一个整数N，输出N以内3的倍数之和（即3+6+9……）；（可参考课本p93页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:

\EX文件夹下。

PrivateSubCommand1_Click（）

Dimi,N,sAsInteger

s=0

N=val（Text1.Text）

Fori=1ToN

Ifi/3=Int（i/3）Then

s=s+i

EndIf

Next

Text2.Text=s

EndSub

18.输入任意一个整数N，输出1×22×32×…×N2的计算结果；（可参考课本p90页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:

\EX文件夹下。

PrivateSubCommand1_Click（）

Dimi,s,NAsInteger

s=1

N=Val（Text1.Text）

Fori=1ToN

s=s*（i*i）

Nexti

Text2.Text=s

EndSub

19.输入任意一个整数N，输出N以内的所有5的倍数的积；（可参考课本p90页）利用文本框来实现数据的输入和输出。

最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:

\EX文件夹下。

PrivateSubCommand1_Click（）

Dimi,N,sAsInteger

s=1

N=val（Text1.Text）

Fori=1ToN

Ifi/5=Int（i/5）