VB实验任务10答案

1、实验任务10课程名称：程序设计基础VB实验名称一实验十 基本控制语句（四）一、实验目的：清楚循环流程，掌握循环语句的描述学会不同循环语句之间转换表示掌握循环结构程序的设计方法掌握经典的算法，并学会灵活应用二、实验内容（包括实验要求（题目）、实验步骤、程序清单、运行情况）:实验1实验5-10阅读程序，写出执行结果（注意输出格式），并上机验证，充分使用单步调试工具（单步执行、立即窗口、本地窗口和监视窗口），弄清楚循环执行流程， （1）单击命令按钮，窗体上显示的内容为。Private Sub Command1_Click（）Dim i As IntegerFor i = 5 To 1 Step -0

2、.8Print i, Int（i）Next i以及相应变量值的变化情况。End Sub若去掉Dim i As Integer语句，则窗体上显示的内容为（2）单击命令按钮，窗体上显示的内容为。Private Sub Command1_Click()Dim a As Integer, s As Integer a = 8 s = 1Dos = s + aa = a 一 1Loop While a 2 Or a b Then c = b Else c = aFor i = 2 To cIf (a Mod i) = 0 And (b Mod i) = 0 Then d = iNext ie = a *

3、 b / dPrint Gcd( & a & , & b & )=; dPrint Lcm( & a & , & b & )=; eEnd Sub实验2实验5-11改错题。(1)窗体的左右两端各有l条直线，名称分别为Linel、Line2；名称为Shapel的圆靠在左边的Linel直线上(见图 5-21)；另有1个名称为Timerl的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当 圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：图5-20运行界面图5-21运行界面Private Sub T

4、imer1_Timer() For k=Line1X1 To Line2.X1 Step 100 If Shape1.Left+Shape1.WidthLine2.X1Then Shape1.Left=Shape1.Left+100 End If Next k End SubPrivate Sub Timer1_Timer()If Shape1.Left+Shape1.WidthLine2.X1ThenShape1.Left=Shape1.Left+100End IfEnd Sub因为Timer1_Timer()已经有定时执行的循环功能Private Sub Command1_Click()D

5、im n%, k%n = Len(Text1.Text)For k = List1.ListCount - 1 To 0 Step -1If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem kEnd IfNext kEnd Sub要从下向上操作运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，请 修改程序。窗体如图5-22(a)所示。要求程序运行时，在文本框Textl中输入一个姓氏，单击“删除”按钮(名称为 Commandl)，则可删除列表框Listl中所有该姓氏的项目。编写以下程

6、序来实现此功能。Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To Listl.ListCount 1If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了 “刘邦”，结果如图5-22 （b）所示。这说明程序不能适应所有情况，需要修改。（a）（b）图5-22窗体设计与运行实验3实验5-12设窗体上有一个名称

7、为Combol的组合框，如图5-23所示，并有以下程序。Private Sub Combo1_KeyPress(KeyAscii As Integer)Dim k As IntegerIf KeyAscii = 13 ThenFor k = 0 To Combol.ListCount 1If Combol.Text = Combol.List(k) ThenCombol.Text =Exit ForEnd IfNext kIf Combol.Text ThenCombol.AddItemCombol.Text _End IfEnd If机艾语算理语英计物.图5-23界面设计End Sub程序功

8、能：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑 区中的文本删除，否则把编辑区中的文本添加到列表的尾部。实验4实验5-17输入，计算下列表达式的值，然后将计算结果在文本框控件Textl中显示。1+n(n +1) x (n + 2)Private Sub Command1_Click()Dim n As Integer, i As Integer, sum As Double n = InputBox(请输入 n 的值”，”实验 5-17) i = 2: sum = 1Dosum = sum + i / (i + 1) / (i + 2)i = i +

9、 1Loop While i = nText1 = sumEnd Sub该题也可以用ForNext循环实验5实验5-18有一个两位数的正整数，将其个位数与十位数对调所生成的数称为对调数，如28是82的对调 数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。, Forml L X72+32=21+23 i2+43=2i+34 12+54=21+45 12+65=21+56 12+76=21+67 12+87=21+78 12+98=21+89 13+42=31+24 13+53=31+35 13+64=31+46 13+75=

10、31+57 13+86=31+68Private Sub Form_Click()Dim a As Integer, b As IntegerFor a = 1 To 9For b = 1 To 9For c = 1 To 9For d = 1 To 9n1 = a * 10 + b: n11 = b * 10 + a n2 = c * 10 + d: n22 = d * 10 + cIf n1 + n2 = n11 + n22 And n11 n2 And a b And c d ThenList1.AddItem n1 & + & n2 & = & n11 & + & n22End IfN

11、ext d, c, b, aEnd Sub课外实验实验1阅读程序，人工列表写出下列循环的运行次数和执行结果（注意输出格式），并上机验证结果，并充分使用 单步调试工具（单步执行、立即窗口、本地窗口和监视窗口），弄清楚循环执行流程，以及相应变量值的变化情况。（1）Private Sub Command1_Click（）Dim a As Integer, b As Integer, i As Integera = 10: b = 0For i = 5 To 1 Step -2Doa = a - 4b = b + 1Loop Until b 2 Or a =r,否则若rf则说明右括号 已先于左括号出现

12、了，则结素判断。Private Sub Form_Click（） Dim f As Integer, r As Integer, cc As String cc = InputBoxC输入一个算术表达式） f = 0: r = 0和r分别代表统计的左右括号数For i = 1 To Len（cc）If_mid（cc,I,1）=”（” Then f = f + 1 Ifmid（cc,I,1）=”）_Then r = r + 1 If rf Then Exit For Next i If r=f ThenPrint圆括号配对正确”ElsePrint圆括号配对不正确End IfEnd Sub思考：不用循环，实现检查文本框Textl中输入的表达式中的圆括号是否配对，并在输入过程中即时在标签Labell 中给出相应的提示（注：不考虑用删除键删除字符等复杂情况）。提示 在输入时判断，应使用文本框的KeyPress事件，并设置一个模块级变量作为计数器统计左右圆括号的差额。整数：十进制一二进制 整数 除2取余t实验3将10进制数转化成2进制数（参考教材p142）。分析：数制转化的算法步骤如下：（1）输入一个10进制正整数x（