第二周奋进班信息技术-练习卷.docxVIP

排序排序后数据9 10 12 15 16 17第二周奋进班信息技术练习卷 排序 排序后数据 9 10 12 15 16 17 16.【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Textl中 显示排序前的数据，单击“排序”按钮Conrniandl,在文本框Text2中显示剔除重复数据后的 升序排序结果。程序运行界面如下列图所示。 排序前数据” 12 17 10 16 15 10 17 9 16实现上述功能的VB程序如下，但加框处代码有错，请改正。 Const n = 10 Dim a(1 To n) As Integer Private Sub Commandl Click () Dim i As Integer, j As Integer, t As Integer Dim bottom As Integer ’获取排序前数据依次存储在数组a中，并在文本框Textl中显示。代码略 bottom = n i 二 1 Do While i = bottom - 1For j = bottom To i + 1 Step -1 If a(j) a(i) Then t = a(j) : a(j) = a(j - 1) : a(j - 1) = t Elself a(j) = a(j - 1) Then，相邻两个数据相等，进行剔除处理 a (bottom) =a(j) bottom = bottom - 1End If Next j i = i + 1 Loop Text2. Text = 〃 〃 For i = 1 To bottom Text2. Text = Text2.Text + Str (a(i)) Next, i End Sub16.【加试题】小王编写了一个实现文字查找替换功能的VB程序，运行界面如下图。文本 框Textl显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换” 按钮Commandl后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查 找内容”在原文中的起始位置。 ?查找替换一 口 X 原文内容: TextlText2Text4Text5月为 殊府已 n 是，息 咨前信 博目要第窗Bi客需博官交。重 用布 音 广平。 2一 得，口查找内容、博客替换为：Blog_ Textl Text2 Text4 Text5 月为 殊府已 n 是，息 咨前信 博目要 第窗Bi客需博官交 。重 用布 音 广平。 2一 得，口 查找内容、博客替换为：Blog_ Text3 替换结果： 殊府已 鬻一Bl Bl目要 EC为 ZZZBIJ 式_, 得，口 经0g窗 已Bl^s 0g至 Bl官交 O 7^ 15 广平O 用布 。重 替换次数\」原文中的起始位置：1 16 45 59 -― Text6 实现上述功能的VB程序如下，但加框处代码有错，请改正。 Private Sub Commandl_Click ()Dim s As String, resale As String, pos As String Dim count As Integer, i As Integer i = 1: count = 0 result =: pos = Do While i = Len(Textl. Text) s = Mid(Textl. Text, i, Len(Text2. Text)) If s = Text2. Text Then result = result + Text3. Text count = count + 1 pos = pos + Str (count) i = i + Len(Text2. Text) Elseresult = result + Text2. Text i = i + 1 End If Loop Text4.Text = result Text5.Text = Str (count) Text6. Text = posEnd Sub