浙教版 高中信息技术 选修1 第四章 VB程序设计初级章末习题（一般难度）（含解析）

选修一第四章VB程序设计初级章末习题（一般难度） 一、选择题（本大题共4小题） 有如下VB程序段： a(1) = 6 : a(2) = 9 : a(3) = 3 : a(4) =7 : a(5) = 8 : a(6) = 1 t = 2 * Int(Rnd * 3) + 1 ?For i = t To 5 k = i For j = i + 1 To 6 If a(j) < a(k) Then k = j Next j If k <> i Then temp = a(i) : a(i) = a(k) : a(k) = temp ?End If Next i 执行该程序段后，a(1)?a(6)各元素的值不可能的是（??? ） A. 6,1,3,7,8,9 B. 6,9,1,3,7,8 C. 6,9,3,7,1,8 D. 1,3,6,7,8,9 以下有关软件用途归类不全正确的是（）。 A. 声音的编辑处理可以使用Cool edit、Wave edit等 B. 文本的处理可以使用记事本、WPS、PowerPoint等 C. 程序设计可以使用vb、Pascal、C语言等 D. 动画设计可以使用3d max、Flashget等 有如下 VB 程序段： Dim p As Integer，q As Integer，s As Integer，t As Integer p=Val（Text1.Text）：t=0 For q=p+1To 2*p s=（p*q） Mod （q-p） If s=0Then t=t+1 End If Next q Label1.Caption=Str（t） 该程序段运行时，在文本框Textl中输入8，则在标签Labell中显示的内容是（　　） A. 3 B. 4 C. 5 D. 6 Private Sub Command1_Click（　　） n=100：Sum=0：k=1 Do while k＜=n j=1 Do while j＜=k sum=sum+1：j=j+1 Loop k=k*2 Loop End sub 该字段运行后，变量sum的值是（　　） A. 256 B. 255 C. 128 D. 127 二、非选择题（本大题共11小题） 编写一个VB程序，实现如下功能，在文本框Text1中输入一串小写的英文字母，单击“统计”按钮Command1，在文本框Text2中输出字母升序段个数，要求每个升序段中字母个数必须超过3个（例如，输入abctefefghkad，则满足条件的升序段为abct和efghk，个数为2），程序运行界面如下图所示： 请回答下列问题： （1）程序界面中共有_____（单选，填字母：A. 3 / B. 4 / C. 5 / D. 6）类控件。 （2）若在文本框Text1中输入“abgcdefkuvghl”，单击“统计”按钮Command1后，文本框Text2中显示的内容为_____。（单选，填字母：A. 1 / B. 2 / C. 3） （3）实现上述功能的程序代码如下，请在划线处填入合适的代码。 Private Sub Command1_Click() ??? Dim s As String, n As Integer ??? Dim m As Integer, f As Boolean, k As Integer, i As Integer ??? s = Text1.Text: n = Len(s) ??? m = 0: f = True: k = 1 ??? For i = 2 To n ??????? If _____①_____?Then ??????????? k = k + 1 ??????????? f = True ??????? Else ??????????? f = False ??????? End If ??????? If k > 3 And (_____②_____) Then ??????????? m = m + 1 ??????????? k = 1 ??????? End If ??? Next i ??? Text2.Text = Str(m) End Sub 小马正在看一本侦探小说，想了解其中一段案情的解析，却发现了一串字符“#2017-2018go:)”，并附有文字提示：①答案所在的页码是这串字符中最大数字字串（若值相同则取后面的数字字串）的起始位置*10+结束位置②答案所在行号是最大数值除以100的余数。例如：“#17a18#”字符串中，最大数字字串“18”，起始位置是5，结束位置是6，其页码是56，行号是18。小马编写了一个VB程序帮他寻找答案，程序运行界面如图所示。在文本框Text1中输入这段字符串s1，单击“揭秘”按钮Command1，在文本框Text2中输出页码，在Text3中输出行号。实现上述功能的VB程序代码如下，但加框处代码有错，请改正。 Private Sub Command1_Click() ? Dim s1 As String, s2 As String ? Dim ch As String, ch2 As String ? Dim max As Double ? Dim n As Integer, page As Integer ? Dim i As Integer, j As Integer ? s1 = Text1.Text: s2 = "" ? n = Len(s1) ? i = 1: max = 0 ? Do While i <= n ????? ch = M ... ...