高中信息技术-VB程序的调试-会考复习题

高中信息技术 VB程序的调试 会考复习题学校:_姓名：_班级：_考号：_一、选择题1数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear 清除列表框数据For i 1 To 10 Randomize 随机数初始化a(i) Int(Rnd() * 1000) List1.AddItem Str(i) ” Str(a(i)Next iCommand2.Enabled True激活排序按钮End SubPrivate Sub Command2_Click()For i 1 To 9 k iFor j _To 10 If a(j) a(k) Then k jNext j If i k Then_End IfNext iList2.ClearFor i 1 To 10List2.AddItem Str(i) ” ” Str(a(i)Next iEnd Sub请在、划线处填入合适的语句或表达式，把程序补充完整：程序中划线处应填入_；程序中划线处应填入_。【答案】I+1；t=a（k）:a(k)=a(i):a(i)=t【解析】2Sub test2()a = 12：b = 12：c = 5Label1.Caption = Label2.Caption = If a b Or Not bbc”对应的VB表达式是（ ）Aabc Bab and ac Cab and bc Dab or bc【答案】C【解析】6 表达式 abs(int(-2.88)+int(3.14)的值是（ ）。A 5 B 0 C 1 D 2【答案】B【解析】7对以下程序段的说法正确的是（ ）s=0i=0Do While s10i=i+1s=s+i*iLoopA该程序的循环体执行了3次B该程序段结束后i的值为3C该程序段结束后i的值为4D该程序段结束后s的值为13【答案】ABD【解析】8在Visual Basic代码中，将多个语句合并在一行上的并行符是( )A 撇号（） B 冒号（:） C 感叹号（!） D 问号（?）【答案】B【解析】9有如下一段VB程序。Private Sub Command1_Click() Dim y As Long Text1.Text = y = f(3) Label1.Caption = Str(y)End SubFunction f(n As Integer) As Long Text1.Text = Text1.Text + Str(n) If n = 1 Then f = 1 Else f = f(n - 1) + 2 End IfEnd Function程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（ ）A 1B 3C 123D 321【答案】D【解析】10下列关于CommandButton 控件的叙述正确的是( )A CommandButton 控件的Caption 属性决定按钮上显示的内容B 单击VB应用程序中的按钮，则系统激活按钮控件对应的Change 事件C CommandButton 控件的name 属性决定按钮上显示的内容D 以上都不对【答案】A【解析】11某Visual Basic工程的相关视图如下图所示：从图中信息可知，下列说法不正确的是( )A 窗体中有一个按钮对象，名称为Command1B 该程序中用到了Timer控件C 当前代码窗口中显示的事件处理过程名为“Command1_Click”D 该工程的窗体文件名“snow.vbp”【答案】D【解析】12在VB中，x=10，则执行下列语句的结果是print a=;aAa=10 Ba=a C10 D10=10【答案】A【解析】13在Visual Basic中，下列语句定义错误的是：（ ）（A）const g=9.8 （B）Dim False As Boolea（C） Dim b(1 to 5) As String （D）Dim y As Long【答案】B【解析】14已知x= Visual Basic，则表达式Mid(x，6，3)的值为：（ ）（A）lBa （B）l B （C）Bas （D）lB 【答案】B【解析】15若运行时输入5、9，以下流程图的运行结果是_。A14，45B14，126Ca + b，a * bD126，14【答案】A【解析】16如第20题图所示的流程图片段：该流程图执行过后，a、b、c的值分别为：（ ）a5：b8ca+b：ab+c：bb+1A. a=21,b=9,c=13 B. a=5,b=8,c=13C. a=5,b=9,c=14 D. a=21,b=9,c=14【答案】A【解析】17编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。 1图 2图（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将 属性的属性值修改为“转换”。（2）为实现上述功能，请在划线处填入合适代码或选项。Private Sub Command1_Click()Dim t1 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As SingleList1.Cleart1 = Val(Text1.Text)t2 = Val(Text2.Text)If Then (选填字母,从下列A、B、C、D四个选项中选取一项） t = t1: t1 = t2: t2 = tEnd Ifi = t1Do While (选填字母,从下列A、B、C、D四个选项中选取一项）f = i * 9 / 5 + 32 摄氏温度转换为华氏温度List1.AddItem Str(i) + + Str(f) （填程序代码）LoopEnd Sub划线、处的选项:Ai = t2 Bf t2 D i a(i - 1) ThenElseIf k = 1 thens=s+1k=0end ifEnd IfNext iTextl.Text = Str(s)方框中的正确语句是( )Ak = k - 1Bk =19Ck = -1Dk = k + 1【答案】D【解析】20有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（ ）Dim i As Integer, j As Integer, s As Integer, n As Integern = 3: s = 0For i = 1 To nFor j = 1 To is = s + jNext jNext iText1.Text = sEnd SubA 3 B 6C 10 D 18【答案】C【解析】21下列能作为Visual Basic变量名的是（ ）Ab+7 BMod C3x DT_1【答案】D【解析】22若变量m = 0 .81 ，则表达式Sqr ( m ) 1 And Not int ( m) 1 的值是_A T B F C 0.9 D 1【答案】A【解析】23如图所示，是求绝对值的算法，其描述方式分别是（ ）A自然语言、流程图B伪代码、流程图C自然语言、伪代码D流程图、自然语言【答案】A【解析】24Sub test16()X = 9For i = 2 To 51 Step 3 If (X / 2) = i Then X = X + 1Next iFor i = 2 To -2 Step 3 If (X / 2) = i Then X = X + 1Next iMsgBox (X+i)End Sub 该程序的运行结果是（ ） A、64 B、13 C、61 D、62【答案】B【解析】25下列可作为Visual Basic 的变量名的是 ( )A、D * 4 B、A_4_B C、4ABC D、 Dim 【答案】B【解析】26在Visual Basic 中，下列优先级最高的运算符是( )A* B C=1s=s+nn=n-2loopprint s【答案】25【解析】30有一组数：1、2、4、7、，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。以下VB程序实现上述功能，请把程序中的、出填写完整。Dim i As Integer, p As Integer, s As Integeri = 1p = 1s = 0Do While _ s = s + p i = i + 1 _LoopPrint s【答案】ib AND NOT dc的值是_(4).如果变量 a=7、b=6、c=4、d=5，则表达式 ac AND cd 的值为_【答案】（1）1（2）17（3）false（4）true【解析】32小贝对街机中的”打手掌”游戏很感谢兴趣，于是也用VB做了个打手游戏，界面如图。点击开始按钮command1，标签label1开始从3秒倒计时，倒计时结束开打，如果打中手掌，label1显示”打中了”,如果超过去3.1秒，则显示”没打中”,游戏结束。点开始按钮可以重来。请根据题意将下列程序补充完整。Dim t As Integer t用来计时Private Sub Command1_click( )Image1.left=64Label1.caption=”t=0Terval=100（1）_Image1.Enabled=FalseEnd subPrivate Sub Image1_click( )Timer1.Enabled=FalseImage1. Enadled=FalseLabel1.caption=”打中了”End SubPrivate Sub Timer1.Timer( )t = t +1if t32 thenlabel1.caption=”没打中”For i=1 to 10 手迅速移开的动画Image1.left=Image1.left-20For j=1 to 10000DoeventsNextjNext iTimer1.Enabled=FalseImage1.Enabled=FalseEnd ifIf t=30 then当t=30时，即倒计时3秒结束，允许开打，对象image1开始允许响应事件（2）_End ifEnd sub【答案】（1）timer1.enabled=true （2）image1.enabled=true 【解析】33编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。Dim a(1 To 6) As IntegerDim b(1 To 6) As IntegerPrivate Sub Command1_Click() 对数组a中的数据进行排序Dim i As Integer, j As Integer ，k as integera(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25s = For i = 1 To 5k = i For j = i + 1 To 6If a(k) a(j) Then Next jIf i k Thent = a(k): a(k) = a(i): a(i) = tEnd IfNext iFor i = 1 To 6s = s + Str(a(i)Next iLabel1.Caption = sEnd SubPrivate Sub Command2_Click()b(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49此处部分代码省略End SubPrivate Sub Command3_Click()将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示i = 1: j = 1: s = Do While i = 6 j = 6 如果两数组都还有数据未合并If Thens = s + Str(a(i) : i = i + 1Elses = s + Str(b(j) : j = j + 1End IfLoopDo While i = 6 只有数组a还有数据未合并s = s + Str(a(i) : i = i + 1LoopDo While j = 6 只有数组b还有数据未合并s = s + Str(b(j) : j = j + 1LoopLabel3.Caption = sEnd Sub【答案】 k=j And a(i) ”按钮（Command2），程序就会在右边显示总分和最后的平均分。请回答下面的问题：（1）写出上述图形中所标识的对象所属的类？如所属的类为“文本框”。 （2）以下是薛明编写的统计程序，请完善程序。Dim total As Integer, ans As Single, x As Integer, max As IntegerDim min As Integer, s As IntegerPrivate Sub Command1_Click()x = Val(Text1.Text)total = total + xs = s + 1If Then max = xIf x max或x=maxans-max-minstr(ans)【解析】36将以下程序段补充完整。问题：往一个足够大的盒子里放小球，第一次放1个，第二次放2个，第三次放3个，即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个？输出答案。n 表示放球的次数，sum表示小球的总数。Dim n as integer , sum as integer n=0 sum=0 Do While sumn；（2）m除以n得余数r；（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；（4）mn，nr，再重复执行(2)。例如: 求 m=14 ,n=6 的最大公约数. M n r14 6 26 2 0请根据以上思路补充下面的程序代码：Private Sub Command1_Click()m = InputBox(m=)n = InputBox(n=)If m n Then t = m: m = n: n = tr = _Do While (r 0)m = nn = rr = m Mod nLoopPrint 最大公约数=, nEnd Sub【答案】m mod n【解析】四、判断题38VB开发的应用程序的两个特征是“对象”和“事件驱动； （ ）【答案】错误【解析】39Visual Basic(简称VB)是一种通用的基于对象的程序设计语言；（ ）【答案】正确【解析】40运行列表框对象语句：List1.AddItem= 同学们好！，会显示：同学们好！（ ）【答案】错误【解析】41TEXT1.TEXT=C和C= TEXT1.TEXT 都没有语法错误；（ ）【答案】正确【解析】42在VB窗口中建立命令按钮对象，双击该对象，建立的程序名称中的对象名和命令按钮对象名称相同；（ ）【答案】正确【解析】五、简答题43小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。实现上述功能的VB程序如下，但加框处代码有错，请改正。Private Sub Command1_Click() Dim s As String, resule As String, pos As String Dim count As Integer, i As Integer i = 1: count = 0 resule = : pos = Do While i = Len(Text1.Text) s = Mid(Text1.Text, i, Len(Text2.Text) If s = Text2.Text Then result = result + Text3.Text count = count + 1 pos = pos + Str(count) i = i + L