《Visual BASIC程序设计》期末考试编程题复习及答案文档格式.docx
《《Visual BASIC程序设计》期末考试编程题复习及答案文档格式.docx》由会员分享,可在线阅读,更多相关《《Visual BASIC程序设计》期末考试编程题复习及答案文档格式.docx(36页珍藏版)》请在冰豆网上搜索。
![《Visual BASIC程序设计》期末考试编程题复习及答案文档格式.docx](https://file1.bdocx.com/fileroot1/2022-12/11/25418216-83bc-478d-9db2-2c686122fb4c/25418216-83bc-478d-9db2-2c686122fb4c1.gif)
图2-7程序运行界面
最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:
第3章
4.设计一个程序,在文本框中输入一个3位整数,单击按钮后,在标签上输出该数的百位数、十位数和个位数,运行界面如图3-3所示。
最后将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在D:
图3-3程序运行界面
5.设计一个程序,实现简单计算的功能,运行界面如图3-7所示。
最后将工程文件、窗体文件分别以lx3-3.vbp、lx3-3.frm为文件名保存在D:
图3-7程序运行界面
提示:
clear按钮的代码:
text1.text="
'
是双引号,空字符串的意思
6.设计一个程序(程序运行界面自定),使用inputbox函数输入某品牌电脑的单价和购买的数量,计算并用msgbox函数输出需付款金额。
最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm为文件名保存在D:
&
为长整行%为整形
7.rnd函数产生一个[0,1)的单精度(!
)随机数。
设计一个程序(程序运行界面自定),用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。
最后将工程文件、窗体文件分别以lx3-5.vbp、lx3-5.frm为文件名保存在D:
63页
第4章
一、顺序结构
8.
运行时界面如下:
“计算”按钮和“结束”按钮的click事件代码如下:
最后将工程文件和窗体文件分别以ceshi3-3-1.vbp和ceshi3-3-1.frm文件名保存,并保存在D:
9.
最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm文件名保存,并保存在D:
10.
最后将工程文件和窗体文件分别以ceshi3-5.vbp和ceshi3-5.frm文件名保存,并保存在D:
11.编制程序,在一个文本框中输入一串字符(长度大于2),单击“处理”按钮时,则取出该字符串的头、尾部各一个字符,合并后显示在第二个文本框中。
如输入“ABCDEFG”,则输出“AG”。
最后将工程文件和窗体文件分别以ceshi3-6.vbp和ceshi3-6.frm文件名保存,并保存在D:
二、选择结构
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:
图4-8实验题目1运行界面
13.编写模拟袖珍计算器的程序,运行界面如图4-9所示。
要求如下:
⑴输入两个操作数和一个四则运算操作符,根据操作符决定所做的运算。
⑵输入的数据进行合法检验,当输入出错时,调用MsgBox()提示。
Trim是去掉俩边空格
最后将工程文件、窗体文件分别以lx4-2.vbp、lx4-2.frm为文件名保存在D:
图4-9实验题目2运行界面
三、循环结构
14.输入任意一个整数N,求1到N之间所有偶数和;
(可参考课本p89页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:
15.输入任意一个整数N,计算N阶乘;
5!
=5*4*3*2*1(可参考课本p90页)
利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:
16.输入任意一个整数N,输出1+1/2+1/3+…+1/N的计算结果;
(可参考课本p93页)
最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:
17.输入任意一个整数N,输出N以内3的倍数之和(即3+6+9……);
(可参考课本p93页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:
18.输入任意一个整数N,输出1×
22×
32×
…×
N2的计算结果;
(可参考课本p90页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:
19.输入任意一个整数N,输出N以内的所有5的倍数的积;
最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:
20.输入任意一个整数N,输出
的计算结果;
最后将工程文件、窗体文件分别以XH4-7.vbp、XH4-7.frm为文件名保存在D:
21.输入任意一个整数N,输出1!
+2!
+……+n!
的累加和;
(可参考课本p90页和课本p93页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-8.vbp、XH4-8.frm为文件名保存在D:
22.编程求出50之内的全部素数;
(可参考课本p98页)。
最后将工程文件、窗体文件分别以XH4-9.vbp、XH4-9.frm为文件名保存在D:
23.编写程序打印如下九九乘法表(使用双重循环实现)。
(可参考课本p97页)最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在D:
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:
25.我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题:
鸡翁一,值钱五;
鸡母一,值钱三;
鸡雏三,值钱一。
百元买百鸡,问鸡翁、鸡母、鸡雏各几何?
意思是:
用100元钱买100只鸡,公鸡5元一只,母鸡3元一只,小鸡1元3只;
100只鸡中必须包括鸡翁、鸡母和鸡雏。
自行设计界面并在图形框中输出百鸡百元的几种解。
最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在D:
按题意列出方程组,并己知鸡翁不能超过19只,鸡母不能超过32只。
第5章
26.编写程序,将随机产生的两位数的一维数组A(10)中的元素向后移动一个位置,最后一个元素移到第一个元素的位置上。
最后将工程文件、窗体文件分别以lx6-2.vbp、lx6-2.frm为文件名保存在D:
27.输入某小组5个同学的成绩,计算总分和平均分(取小数后一位)。
本例利用InputBox函数来输入成绩,输入完毕后经过计算,再采用Print直接在窗体上输出结果。
最后将工程文件、窗体文件分别以SZ5-1.vbp、SZ5-1.frm为文件名保存在D:
28.输入10名学生的成绩,求出最高分和最低分
功能要求:
通过Array函数输入10个分数;
单击“查找”按钮(Command2)后,开始查找最高分和最低分,找到后显示在标签Label1上。
最后将工程文件、窗体文件分别以SZ5-2.vbp、SZ5-2.frm为文件名保存在D:
29.建立一个文本框控件数组Text1和一个文本框Text2,在控件数组Text1中输入一组数后,把累加值存放在Text2。
最后将工程文件、窗体文件分别以SZ5-4.vbp、SZ5-4.frm为文件名保存在D:
30.按下图设计窗体,其中一组(共3个)单选按钮构成控件数组,要求当单击某个单选按钮时,能够改变文本框中文字的大小。
最后将工程文件、窗体文件分别以SZ5-5.vbp、SZ5-5.frm为文件名保存在D:
第7章
31.在窗体上放置三个复选框,标题依次为“旅游”、“体育”、“音乐”,另有一个命令按钮,标题为“兴趣”。
程序运行后,选中复选框,再点击命令按钮,则在窗体上显示相应的的信息。
运行界面如图10-12所示。
最后将窗体文件、工程文件分别以LX10-1.frm、LX10-1.vbp为文件名保存在D:
图10-12复选框运行界面
32.设置如图10-13所示界面所示的程序,要求程序运行时选中组合框中的某一项,将弹出如下对话框加以说明。
最后将窗体文件、工程文件分别以LX10-2.frm、LX10-2.vbp为文件名保存在D:
图10-13组合框运行界面
33.
在窗体上画一个名称为HS1的水平滚动条(min=0,max=100)和三个名称分别为C1,C2,C3,标题分别为“左端”,“居中”,“右端”的命令按钮。
编程是的程序运行后,单击C1,则滚动框位于滚动条的最左端;
单击C2,则滚动框位于滚动条的中间处;
单击C3,则滚动框位于滚动条的最右端,运行界面如图10-14所示。
最后将窗体文件、工程文件分别以LX10-3.frm、LX10-3.vbp为文件名保存在D:
图10-14滚动条运行界面
34.列表框举例。
窗体上添加二个列表框、二个命令按钮,设置完属性后的界面如图10-16所示。
要求:
(1)选中列表框中的某一条目,单击命令按钮,将其移动到另一列表框中。
(2)双击列表框中的某一条目,直接将其移动到另一列表框中。
完成运行界面所达到的要求,最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:
图10-16题目6的设计界面(其中右图为题目6的运行结果)
35.
text1中,最后将窗体文件、工程文件分别以SL10-10.frm、SL10-10.vbp为文件名保存在D:
36.
。
最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:
参考答案
1
PrivateSubCommand1_Click()
Label1.ForeColor=vbRed
EndSub
PrivateSubCommand2_Click()
4
Dimn%,a%,b%,c%
n=Val(Text1.Text)
a=n\100
b=(n-a*100)\10
c=nMod10
百位数:
&
a&
"
十位数:
b&
个位数"
c
5
+"
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
-"
Text3.Text=Val(Text1.Text)-Val(Text2.Text)
PrivateSubCommand3_Click()
*"
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
PrivateSubCommand4_Click()
/"
Text3.Text=Val(Text1.Text)/Val(Text2.Text)
PrivateSubCommand5_Click()
Text3.Text="
PrivateSubCommand6_Click()
6
PrivateSubForm_Load()
Dimdj&
shL%,je&
dj=Val(InputBox("
输入某品牌电脑的单价;
))
shL=Val(InputBox("
输入某品牌电脑的的购买的数量;
je=dj*shL
MsgBox"
需付款金额;
je
7
PrivateSubForm_Click()
Dimzh%
Randomize
zh=Int(90*Rnd)+10
两位的随机整数是:
zh
8
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,,"
输出结果"
9
Dimr!
k!
s!
r=Val(InputBox("
请输入圆的半径"
"
计算圆的周长和面积"
k=2*3.14159*r
s=3.14159*r*r
Text1.Text=k
Text2.Text=s
msgbox"
计算已完成!
,"
end
10
Dimx%,a%
Dimb%,c%
x=36
a=Int(x/10)
b=xMod10
c=b*10+a
Print"
处理后的数:
;
11
DimxAsString,yAsString
x=Text1.Text
y=Left(x,1)+Right(x,1)
Text2.Text=y
12
Dims%,t%
Dimb%,shuchu$
s=Val(Text1.Text)
t=Val(Text2.Text)
b=s-105
Ift>
b*1.1Then
shuchu="
偏胖,注意节食"
ElseIft<
b*0.9Then
偏瘦,增加营养"
Else
正常,继续保持"
EndIf
Label1.Caption=shuchu
PrivateSubText1_Change()
IfIsNumeric(Text1)=FalseThenText1="
PrivateSubText2_Change()
IfIsNumeric(Text2)=FalseThenText12="
13
Dimx!
y!
x=Val(Text1)
y=Val(Text2)
SelectCaseTrim(Text3)
Case"
Text4=x+y
Text4=x-y
Text4=x*y
Text4=x/y
Ify=0Then
除数不能为0"
Text4="
Text2.SetFocus
EndSelect
Dimi,N,sAsInteger
s=0
N=val(Text1.Text)
Fori=1ToN
IfiMod2=0Then
s=s+i
EndIf
Nexti
Text2.Text=s
EndSub
s=1
s=s*i
Next
\EX文件夹下
Dimi,s,NAsInteger
N=Val(Text1.Text)
s=0
Fori=1Ton
s=s+1/i
Nexti
Ifi/3=Int(i/3)Then
Next
s=1
Fori=1ToN
s=s*(i*i)
Ifi/5=Int(i/5)Th