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

《2013《VisualBASIC程序设计》期末考试编程题复习及答案.pdf》由会员分享，可在线阅读，更多相关《2013《VisualBASIC程序设计》期末考试编程题复习及答案.pdf（34页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 2 章 1。新建工程，在窗体上创建两个命令按钮 Command1、Command2,一个标签 Label1,界面如图 25 所示，程序运行要求如下：1)单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。“改变颜色”按钮代码：Label1。ForeColor=vbRed Label1.Caption=颜色已经改变”2）单击“改变字体按钮，标签上的字体改为“黑体”。“改变字体”按钮代码：Label1.FontName=”黑体 图 2-5 程序运行界面 最后将工程文件、窗体文件分别以 lx22。vbp、lx22。frm 为文件名保存在 D：EX文件夹下。2.设计一个留

2、言薄。新建一个工程，在窗体上创建 2 个标签，2 个文本框，1 个命令按钮，属性设置如图 26 所示,。要求单击“提交”按钮后,上面的文本框内容复制到下面的文本框中,且下面文本框中的内容不能修改。单击“清除按钮则清除两个文本框中的内容。“提交”按钮代码:Text2.Text=Text1。Text“清除”按钮代码:Text1.Text=”Text2。Text=图 26 程序界面 最后将工程文件、窗体文件分别以 lx2-4.vbp、lx24.frm 为文件名保存在 D：EX 文件夹下.3.设计一个程序，程序界面如图 27 所示。当单击“显示按钮时，在文本框中显示“欢迎使用 VB！”；当单击“清除”

3、按钮时,清除文本框内的文本；当单击“退出”按钮时，结束程序运行。“显示”按钮代码:Text1。Text=”欢迎使用 VB!“清除”按钮代码：Text1。Text=”“退出”按钮代码:End 图 27 程序运行界面 最后将工程文件、窗体文件分别以 lx2-5.vbp、lx2-5.frm 为文件名保存在 D：EX 文件夹下.第 3 章 4。设计一个程序，在文本框中输入一个 3 位整数，单击按钮后,在标签上输出该数的百位数、十位数和个位数,运行界面如图 3-3 所示。最后将工程文件、窗体文件分别以 SL33.vbp、SL33。frm 为文件名保存在 D:EX 文件夹下。图 33 程序运行界面 5。设

4、计一个程序，实现简单计算的功能，运行界面如图 3-7 所示.最后将工程文件、窗体文件分别以 lx33。vbp、lx33。frm 为文件名保存在 D：EX 文件夹下。图 3-7 程序运行界面 提示：clear 按钮的代码：text1。text=”是双引号，空字符串的意思 6。设计一个程序（程序运行界面自定），使用 inputbox 函数输入某品牌电脑的单价和购买的数量，计算并用 msgbox 函数输出需付款金额。最后将工程文件、窗体文件分别以 lx3-4。vbp、lx34.frm 为文件名保存在 D：EX 文件夹下。&为长整行%为整形 7。rnd 函数产生一个0，1）的单精度（!）随机数。设计一

5、个程序（程序运行界面自定)，用此函数产生一个两位的随机整数并用 msgbox 函数输出该整数值。最后将工程文件、窗体文件分别以 lx35。vbp、lx35。frm 为文件名保存在 D：EX 文件夹下.63 页 第 4 章 一、顺序结构 8。运行时界面如下：“计算”按钮和“结束”按钮的 click 事件代码如下：最后将工程文件和窗体文件分别以 ceshi33-1。vbp 和 ceshi331。frm 文件名保存，并保存在 D：EX 文件夹下。9.最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi34.frm文件名保存，并保存在 D：EX 文件夹下.10。最后将工程文件和窗体文件分

6、别以ceshi3-5.vbp和ceshi35.frm文件名保存，并保存在 D:EX 文件夹下。11。编制程序，在一个文本框中输入一串字符（长度大于 2）,单击“处理”按钮时，则取出该字符串的头、尾部各一个字符，合并后显示在第二个文本框中。如输入“ABCDEFG，则输出“AG”。最后将工程文件和窗体文件分别以ceshi36.vbp和ceshi36.frm文件名保存,并保存在 D:EX 文件夹下。二、选择结构 12请参考如图 48 所示程序的运行结果，新建一个工程，完成“健康称程序的设计。具体要求如下：（1）窗体的标题为“健康称”,固定边框。（2）窗体的左边有两个标签,Label1 的标题为“身高

7、”、Label2 的标题为“体重”;它们的旁边分别有两个文本框，Text1 用于输入身高、Text2 用于输入体重；在文本框的右边有两个标签，Label3 的标题为“cm”，Label4 的标题为“kg。(3）将两个文本框文字对齐方式均设置为右对齐,最多接受 3 个字符。（4)两个文本框均不接受非数字键。（5)单击“健康状况按钮(Command1)，根据计算公式将相应的提示信息显示在标签Label5 中。计算公式为：标准体重=身高-105;体重高于标准体重*1.1 为偏胖,提示“偏胖，注意节食”；体重低于标准体重0。9 为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持。最后将工

8、程文件、窗体文件分别以 lx41。vbp、lx4-1。frm 为文件名保存在 D：EX文件夹下。图 48 实验题目 1 运行界面 13。编写模拟袖珍计算器的程序，运行界面如图 4-9 所示。要求如下：输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。输入的数据进行合法检验,当输入出错时,调用 MsgBox（）提示.Trim 是去掉俩边空格 最后将工程文件、窗体文件分别以 lx42。vbp、lx4-2。frm 为文件名保存在 D：EX文件夹下。图 4-9 实验题目 2 运行界面 三、循环结构 14。输入任意一个整数 N,求 1 到 N 之间所有偶数和；(可参考课本 p89 页）利用文

9、本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH4-1。vbp、XH41.frm 为文件名保存在 D：EX 文件夹下。15。输入任意一个整数 N，计算 N 阶乘;5!=54*32*1(可参考课本 p90 页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH42。vbp、XH42。frm 为文件名保存在 D:EX 文件夹下。16。输入任意一个整数 N,输出 1+1/2+1/3+1/N 的计算结果;(可参考课本 p93 页)利用文本框来实现数据的输入和输出.最后将工程文件、窗体文件分别以 XH4-3.vbp、XH4-3.frm 为文件名保存在 D:EX 文件夹

10、下。17。输入任意一个整数 N，输出 N 以内 3 的倍数之和(即 3+6+9）；（可参考课本 p93 页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH44。vbp、XH44.frm 为文件名保存在 D：EX 文件夹下。18。输入任意一个整数 N，输出 12232N2的计算结果；(可参考课本 p90 页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH4-5.vbp、XH4-5。frm 为文件名保存在 D:EX 文件夹下。19。输入任意一个整数 N,输出 N 以内的所有 5 的倍数的积;（可参考课本 p90 页）利用文本框来实现数据的输入和输出。

11、最后将工程文件、窗体文件分别以 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、XH48.frm为文件名保存在D:EX文件夹下。22。编程求出 50 之内的全部素数；（可

12、参考课本 p98 页)。最后将工程文件、窗体文件分别以 XH4-9。vbp、XH4-9.frm 为文件名保存在 D：EX 文件夹下。23。编写程序打印如下九九乘法表（使用双重循环实现)。(可参考课本 p97 页)最后将工程文件、窗体文件分别以 XH410。vbp、XH4-10。frm 为文件名保存在 D:EX 文件夹下。11=1 21=2 22=4 91=1 92=18 99=81 24.编一程序，显示所有的水仙花数，如下图。所谓水仙花数，是指一个 3 位数,其各位数字立方和等于该数字本身。例如,153=13+53+33。最后将工程文件、窗体文件分别以XH4-11.vbp、XH4-11。frm

13、 为文件名保存在 D：EX 文件夹下。25。我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题：鸡翁一，值钱五;鸡母一，值钱三；鸡雏三，值钱一.百元买百鸡,问鸡翁、鸡母、鸡雏各几何?意思是：用 100 元钱买 100 只鸡，公鸡 5 元一只，母鸡 3 元一只,小鸡 1 元 3 只；100 只鸡中必须包括鸡翁、鸡母和鸡雏.自行设计界面并在图形框中输出百鸡百元的几种解.最后将工程文件、窗体文件分别以 XH4-12.vbp、XH4-12.frm 为文件名保存在 D:EX 文件夹下。提示：按题意列出方程组,并己知鸡翁不能超过 19 只，鸡母不能超过 32 只。第 5 章 26.编写

14、程序，将随机产生的两位数的一维数组 A(10）中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别以 lx6-2。vbp、lx62。frm 为文件名保存在 D:EX 文件夹下。27.输入某小组 5 个同学的成绩，计算总分和平均分(取小数后一位).本例利用 InputBox 函数来输入成绩，输入完毕后经过计算，再采用 Print 直接在窗体上输出结果。最后将工程文件、窗体文件分别以 SZ51.vbp、SZ5-1.frm 为文件名保存在 D：EX 文件夹下.28.输入 10 名学生的成绩，求出最高分和最低分 功能要求：通过 Array 函数输入 10 个分数;

15、单击“查找按钮（Command2）后,开始查找最高分和最低分,找到后显示在标签 Label1 上。最后将工程文件、窗体文件分别以 SZ52。vbp、SZ5-2。frm 为文件名保存在 D:EX 文件夹下。29.建立一个文本框控件数组 Text1 和一个文本框 Text2，在控件数组 Text1 中输入一组数后,把累加值存放在 Text2。最后将工程文件、窗体文件分别以 SZ54。vbp、SZ54。frm为文件名保存在 D：EX 文件夹下.30.按下图设计窗体,其中一组（共 3 个)单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小.最后将工程文件、窗体文件分别以 SZ5

16、-5。vbp、SZ55.frm 为文件名保存在 D:EX 文件夹下。文本框 控件数组 Text1 Text2 Text1(0)Text1(1)Text1(2)Text1(3)Command1 第 7 章 31.在窗体上放置三个复选框,标题依次为“旅游”、“体育”、“音乐”，另有一个命令按钮，标题为“兴趣”。程序运行后，选中复选框，再点击命令按钮，则在窗体上显示相应的的信息。运行界面如图 1012 所示。最后将窗体文件、工程文件分别以 LX10-1。frm、LX10-1.vbp 为文件名保存在 D:EX 文件夹下。图 10-12 复选框运行界面 控件数组 32。设置如图 10-13 所示界面所示

17、的程序,要求程序运行时选中组合框中的某一项,将弹出如下对话框加以说明。最后将窗体文件、工程文件分别以 LX102。frm、LX10-2.vbp 为文件名保存在 D:EX 文件夹下。图 1013 组合框运行界面 33。在窗体上画一个名称为 HS1 的水平滚动条(min=0，max=100）和三个名称分别为C1，C2，C3，标题分别为“左端”，“居中”,“右端”的命令按钮.编程是的程序运行后,单击 C1,则滚动框位于滚动条的最左端；单击 C2,则滚动框位于滚动条的中间处；单击 C3，则滚动框位于滚动条的最右端,运行界面如图 10-14 所示.最后将窗体文件、工程文件分别以LX103。frm、LX1

18、0-3。vbp 为文件名保存在 D:EX 文件夹下。图 10-14 滚动条运行界面 34。列表框举例.窗体上添加二个列表框、二个命令按钮，设置完属性后的界面如图 1016 所示。要求：（1)选中列表框中的某一条目,单击命令按钮，将其移动到另一列表框中.（2)双击列表框中的某一条目,直接将其移动到另一列表框中。完成运行界面所达到的要求，最后将窗体文件、工程文件分别以 LX10-6。frm、LX106.vbp 为文件名保存在 D：EX 文件夹下。图 10-16 题目 6 的设计界面(其中右图为题目 6 的运行结果）35。text1 中,最后将窗体文件、工程文件分别以 SL10-10.frm、SL1

19、010。vbp 为文件名保存在 D:EX 文件夹下。36。.最后将窗体文件、工程文件分别以 LX106。frm、LX10-6。vbp 为文件名保存在 D:EX 文件夹下。参考答案 1 Private Sub Command1_Click（）Label1。ForeColor=vbRed Label1.Caption=颜色已经改变 End Sub Private Sub Command2_Click（)Label1.FontName=”黑体”End Sub 4 Private Sub Command1_Click（)Dim n%，a%,b%，c%n=Val(Text1。Text)a=n 100 b

20、=(n-a 100)10 c=n Mod 10 Label1.Caption=百位数:”&a ”,十位数:”b ,个位数”&c End Sub 5 Private Sub Command1_Click(）Label1.Caption=+”Text3.Text=Val（Text1。Text）+Val（Text2。Text)End Sub Private Sub Command2_Click（)Label1.Caption=”-”Text3。Text=Val（Text1.Text）Val(Text2.Text)End Sub Private Sub Command3_Click(）Label1.C

21、aption=”Text3。Text=Val（Text1。Text）Val（Text2.Text)End Sub Private Sub Command4_Click()Label1。Caption=/Text3.Text=Val(Text1。Text）/Val（Text2。Text）End Sub Private Sub Command5_Click()Text1.Text=”Text2.Text=”Text3。Text=”End Sub Private Sub Command6_Click（)End End Sub 6 Private Sub Form_Load()Dim dj,shL，j

22、e dj=Val（InputBox(输入某品牌电脑的单价；”)）shL=Val(InputBox（”输入某品牌电脑的的购买的数量;)）je=dj shL MsgBox 需付款金额;&je End Sub 7 Private Sub Form_Click()Dim zh Randomize zh=Int(90*Rnd）+10 MsgBox 两位的随机整数是:”&zh End Sub 8 Private Sub Command1_Click()Dim hh,mm,ss%,totals！Dim outstr hh=Val（Text1）mm=Val(Text2）ss=Val（Text3）totals=

23、hh 3600+mm*60+ss outstr=hh 小时”&mm&”分&ss ”秒 outstr=outstr&vbCrLf&”总计：”&totals ”秒”MsgBox outstr，输出结果 End Sub Private Sub Command2_Click（)End End Sub 9 Private Sub Command1_Click()Dim r!，k！，s!r=Val（InputBox（”请输入圆的半径”，计算圆的周长和面积”)k=2*3.14159 r s=3.14159*r r Text1。Text=k Text2。Text=s msgbox”计算已完成!”，,”计算圆的

24、周长和面积 End Sub Private Sub Command2_Click（）end End Sub 10 Dim x，a Dim b%,c x=36 a=Int（x/10）b=x Mod 10 c=b 10+a Print”处理后的数:;c End Sub 11 Private Sub Command1_Click（)Dim x As String，y As String x=Text1.Text y=Left（x，1)+Right(x,1)Text2。Text=y 12 Private Sub Command1_Click()Dim s%，t Dim b,shuchu$s=Val(T

25、ext1。Text）t=Val(Text2.Text）b=s 105 If t b*1.1 Then shuchu=”偏胖，注意节食 ElseIf t b 0。9 Then shuchu=偏瘦，增加营养”Else shuchu=正常,继续保持”End If Label1。Caption=shuchu End Sub Private Sub Text1_Change（)If IsNumeric（Text1)=False Then Text1=End Sub Private Sub Text2_Change(）If IsNumeric(Text2)=False Then Text12=”End S

26、ub 13 Private Sub Command1_Click（）Dim x!,y！x=Val（Text1）y=Val（Text2）Select Case Trim（Text3)Case+”Text4=x+y Case-Text4=x y Case*”Text4=x y Case”/Text4=x/y If y=0 Then MsgBox 除数不能为 0 Text4=Text2。SetFocus Else Text4=x/y End If End Select End Sub 三、循环结构 14.输入任意一个整数 N，求 1 到 N 之间所有偶数和；(可参考课本 p89 页）利用文本框来实现

27、数据的输入和输出.最后将工程文件、窗体文件分别以 XH41.vbp、XH41。frm 为文件名保存在 D：EX 文件夹下.Private Sub Command1_Click（）Dim i，N,s As Integer s=0 N=val（Text1.Text）For i=1 To N If i Mod 2=0 Then s=s+i End If Next i Text2。Text=s End Sub 15。输入任意一个整数 N,计算 N 阶乘；5！=54*321(可参考课本 p90 页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH4-2。vbp、XH4-2。frm

28、为文件名保存在 D：EX 文件夹下。Private Sub Command1_Click()Dim i，N，s As Integer s=1 N=val（Text1。Text)For i=1 To N s=si Next Text2.Text=s End Sub 16.输入任意一个整数 N，输出 1+1/2+1/3+1/N 的计算结果；（可参考课本 p93 页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH43.vbp、XH4-3.frm 为文件名保存在 D：EX 文件夹下 Private Sub Command1_Click（）Dim i,s，N As Integer

29、 N=Val（Text1。Text)s=0 For i=1 To n s=s+1/i Next i Text2.Text=s End Sub。17.输入任意一个整数 N，输出 N 以内 3 的倍数之和(即 3+6+9)；（可参考课本 p93 页)利用文本框来实现数据的输入和输出.最后将工程文件、窗体文件分别以 XH4-4。vbp、XH44.frm 为文件名保存在 D:EX 文件夹下。Private Sub Command1_Click（）Dim i，N,s As Integer s=0 N=val（Text1.Text）For i=1 To N If i/3=Int(i/3)Then s=s+

30、i End If Next Text2。Text=s End Sub 18.输入任意一个整数 N，输出 12232N2的计算结果;(可参考课本 p90 页)利用文本框来实现数据的输入和输出.最后将工程文件、窗体文件分别以 XH4-5.vbp、XH45。frm为文件名保存在 D：EX 文件夹下。Private Sub Command1_Click(）Dim i，s,N As Integer s=1 N=Val(Text1。Text)For i=1 To N s=s（i i）Next i Text2.Text=s End Sub 19.输入任意一个整数 N,输出 N 以内的所有 5 的倍数的积；（

31、可参考课本 p90 页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH46.vbp、XH4-6.frm 为文件名保存在 D:EX 文件夹下。Private Sub Command1_Click(）Dim i，N，s As Integer s=1 N=val（Text1.Text）For i=1 To N If i/5=Int（i/5）Then s=si End If Next Text2。Text=s End Sub 20.输入任意一个整数 N，输出 的计算结果；(可参考课本 p93 页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH47.vbp

32、、XH47。frm 为文件名保存在 D:EX 文件夹下.Private Sub Command1_Click(）Dim i，s,N As Integer N=Val(Text1。Text）s=0 For i=1 To n s=s+1/（i*i)Next i Text2.Text=s End Sub 21 Private Sub Command1_Click(）Dim i,s,p,n s=0 p=1 n=Val(Text1。Text）For i=1 To n p=p*i s=p*s Next Text2。Text=s End Sub 22 Private Sub Form_click(）Dim

33、i%，j%,d%,k%For i=1 To 50 Step 2 k=Int（Sqr（i)）flag=0 j=2 While j=60 Then mm=mm+1 ss=0 If mm=60 Then hh=hh+1 mm=0 End If End If Text1.Text=Format(hh，”00”）+:+Format（mm，00)+”:+Format(ss,”00）End Sub 36 Private Sub Timer1_Timer（）If Label1.FontSize 50 Then Label1.FontSize=Label1。FontSize 1.2 Else Label1.FontSize=10 End If End Sub