第2节 编一个简单的VB程序 同步训练 高中信息技术人教版选修1

第2节 编一个简单的VB程序 一、选择题 1．设a=4，b=9，下列表达式的运算结果中，值最大的是____。 A．a Mod b B．Int(b/a) C．Sqr(b/a) D．b/a 2．下列没有CAPTION属性的是（     ） A．TEXT1 B．FORM1 C．LABEL1 D．FRAME1 3．有如下 VB 程序段： t = "abcd123456" :   x = Int(Sqr(Len(t))) :   y=1 If  x > 3 Then    y =2 ElseIf x > 2 Then    y=3 ElseIf x > 1 Then    y=4 End  If 执行该程序段后，变量y的值为（   ） A．1 B．2 C．3 D．4 4．在VB语句dim s(9) as integer中，数组s的变量个数和类型是： A．9 整型 B．10 整型 C．9 单精度型 D．10 单精度型 5．下列选项中，整型常数是（   ） A．Integer B．100 C．100.0 D．1/2 6．下列叙述正确的是（ ） A．算法的“有穷性”特征是指算法中的每个步骤都是有确切的含义，而不是含糊的 B．一个算法可用多种方法来描述，自然语言是一种比较直观易用的、用图形来描述算法的方法 C．算法的目的是用来求解问题，问题求解的结果应以一定的方式输出，即一个算法必须有输出 D．算法中各个处理步骤的执行是有次序和模式的，通常算法中三种基本模式是指：分支模式、选择模式和循环模式 7．有如下VB程序段： Dim f(1 To 20) As Boolean, a(1 To 20) As Integer sl = Textl.Text: s2 = Text2.Text Text3.Text = "" For i= 1 To Len(s1) For j= 1 To Len(s2) If Mid(s1, i, 1)= Mid(s2,j, 1) Then If Not f(j) Then a(i)= j: f(j) = True: Exit For End If Next j Text3.Text = Text3.Text + Str(a(i)) Next i 若文本框Textl中输入的值为“ABCDEA”，文本框Text2中输入的值为“BAECAD”，f数组元素的初始值均为False，则执行该程序段后，文本框Text3中显示的内容是（   ） A．2 1 4 6 3 5 B．2 1 5 3 6 4 C．1 2 3 4 5 1 D．5 1 4 6 3 2 8．VB程序中Label1.caption=＂您好＂，其作用是（    ）。 A．将文本框Label1的名称设置为 ＂您好＂ B．将文本框Label1显示的文本设置为 ＂您好＂ C．将标签Label1的名称设置为 ＂您好＂ D．将标签Label1显示的文本设置为 ＂您好＂ 9．有如下的Visual Basic程序段： s = 0 x = 1 Do While x <= 5 s =" s" + x x =" x" + 2 Loop 该程序段运行后，语句s 的值是（   ） A．8 B．9 C．10 D．11 10．下列特征中：无序性、确定性、有穷性、无效性，能表示算法特征的有几个 A．1个 B．2个 C．3个 D．4个 11．下列Visual Basic表达式的值等于56的是 A．Mid("1234567",5,3) B．Len("55") + 1 C．Sqr(56) D．Abs(-55) + 1 12．关于算法，下列叙述正确的是(    ) A．一种算法只能用一种程序语言来实现 B．流程图是算法的一种表示形式 C．解决任何一个具体问题只有一种算法 D．算法是解题方法的精确描述，它可以有无限个步骤 13．如下图所示，要在窗体上添加一个命令按扭，应在工具箱中选择的控件是（   ） A． B． C． D． 14．有如下VB程序段： n=7 For i = 1 To n\2    For j=n-i To i+1 Step-1       If a(j)>a(j-1)Then          t=a(j):a(j)=a(j-1):a(j-1)=t       End If    Next j    If i Mod 2 = 0Then       t=a(n-i+1):a(n-i+1)=a(i):a(i)=t    End If Next i 已知a(1)到a(7)各元素初值分别是1，2，3，4，5，6，7，运行上述程序段后，a(1)到a(7)各元素的值分别是（   ） A．7，5，3，1，2，4，6 B．6，4，2，1，3，5，7 C．7，6，5，4，3，2，1 D．6，5，2，1，3，4，7 15．小明打开“工程1.vbp”文件进行编辑，如题所示，为了显示应用程序的窗体，他应该进行的操作是（   ） A．单击A处的“视图”菜单 B．双击B处的“Form1”窗体文件 C．单击C处的“窗口”菜单 D．关闭文件，重新打开 16．有如下程序段： Const n = 10 Dim a(1 To 10) As Integer m = Int(Rnd * n + 1) For i = 1 To 10 a(i) = 0 Next i i = 0: j = 0: c = 1: ans = "" Do While c <= 3 i = i Mod n + 1 If a(i) = 0 Then j = j + 1 If j = m Then a(i) = 1: c = c + 1 j = 0: ans = ans + Str(i) End If Loop Text1.Text = ans 执行上述程序段后，文本框 Text1 中不可能的内容是（   ） A．2 4 6 B．7 4 2 C．5 10 6 D．6 2 8 17．x和n都是正整数且x<=n，下列选项中，与语句“x=x Mod n +1 ”功能相同的是（   ） A．x=(x+1) Mod n B．x=x+1 If x=n Then x=1 C．x=x+1 If x=n+1 Then x=1 D．x=x+1 If x=n+1 Then x=0 18．在Visual Basic中，函数Abs(-5.7)返回的值是（ ） A．5.7 B．5 C．6 D．7 19．将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（   ） A．n = text1 B．n = Text1.text C．n = Str(Text1.text) D．n = Val(Text1.text) 20．将数学表达式 改写成VB表达式，正确的是 A．1 - Sqr(b ^ 2 – ac / 2) B．1 - Sqr(b ^ 2 – a * c / 2) C．1 - Abs(b ^ 2 – ac / 2) D．1 - Abs(b ^ 2 – a * c / 2) 试卷第1页，共3页 试卷第1页，共3页 学科网（北京）股份有限公司 学科网（北京）股份有限公司 参考答案： 1．A 【详解】 2．A 【详解】本题主要考查VB属性的描述。Caption是指“标题”，就是控件上面显示的文字。文本框没有Caption属性，通过Text属性实现内容显示，故本题选A选项。 3．C 【详解】本题主要考查VB程序的执行。Len()求字符串的长度，Sqr()开根号，Int()是取小于等于这个数的最大整数值，t = "abcd123456"，x = Int(Sqr(Len(t))) =3，y=1，x=3>2，y=3，所以执行该程序段后，变量y的值为3，故本题选C选项。 4．B 【详解】在VB中，我们可以使用Dim语句来定义一个数组。语法如下：Dim arrayName(index) As dataType。其中，arrayName是数组的名称，index是数组的索引，dataTyp是数据类型。VB中，数组的索引从0开始。题目中：dim s(9) as integer，即定义了一个数组，索引从0到9，共10个元素，数组元素类型是integer（整型）。故本题答案是B选项。 5．B 【详解】本题主要考查VB数据类型。整型常量就是通常的整数，包括正整数、负整数和0，其数据类型显然是整型。故本题选B选项。 6．C 【详解】 7．A 【详解】本题主要考查VB程序的执行。程序通过嵌套循环逐位比较字符串ABCDEA和BAECAD，若相等执行a(i)= j，i=1时，a(1)=2，f(2)=True，退出循环，i=2时，a(2)=1，f(1)=True，退出循环，i=3时，a(3)=4，f(4)=True，退出循环，以此类推，最后将a(i)的值加到Text3.Text中，则执行该程序段后，文本框Text3中显示的内容是2 1 4 6 3 5，故本题选A选项。 8．D 【详解】本题主要考查VB程序 标签及文本框设置。VB程序中Label1.caption=＂您好＂，其作用是将标签Label1显示的文本设置为 ＂您好＂，故本题选D选项。 9．B 【详解】 10．B 【详解】 11．D 【详解】Mid("1234567",5,3)= "567"；Len("55") + 1=3；Sqr(56)=2= 7.48331477354788…；Abs(-55) + 1=56；故选D； 12．B 【详解】 13．A 【详解】本题考查的是VB窗体控件相关知识。选项A是命令按钮，正确；选项B是标签，错误；选项C是图形控件，错误；选项D是文本框控件，错误。 14．B 【详解】本题主要考查排序算法知识点。外循环表示只排序了三遍，内循环是两两比较并交换，但是由于终值是i+1，所以要注意不是每次从最后一个数开始的比较和交换，当i=1时，内层循环执行完，a(1)到a(7)各元素初值分别是6，1，2，3，4，5，7，当i=2时，a(1)到a(7)各元素初值分别是6，4，1，2，3，5，7，当i=3时，a(1)到a(7)各元素初值分别是6，4，2，1，3，5，7，循环结束，故运行上述程序段后，a(1)到a(7)各元素的值分别是6，4，2，1，3，5，7，故本题选B选项。 15．B 【详解】本题主要考查VB窗体的描述。题目中是要显示应用程序的窗体，应该双击B处的“Form1”窗体文件。通过点击A处可以打开不同窗口，C处是选择窗口不同的显示方式。关闭文件重新打开，还是需要双击B处才可以，故本题选B选项。 16．D 【详解】本题考查VB程序的执行与调试 m是随机生成一个[1，11)的数，while循环中，如果m随机生成为2，那么ans的值为6 4 2 ，8取不到。故本题选D选项 17．C 【详解】本题考查赋值语句，VB运算。题干x=x Mod n +1，有两种情况。（1）x<n，则x=x+1。（2）x=n，则x=1。结合选项判断。选项A，当x=n-1时候，A选项的结果是x=0，故有误。选项B，首先进行x=x+1，故接下来的判断实际上是x+1和n的判断，若x+1=n，则x=1，有误。选项C正确。选项D，当x和n相等时，x应该是1，故选项D有误。本题选项C为正确选项。 18．A 【详解】 19．D 【详解】本题主要考查VB文本框的描述。文本框接收的数据类型是字符型，将文本框Text1中的数据赋值到数值型变量n中，需要使用Val函数进行转换，Val(X)用于把X转换为数值，故正确的语句是n = Val(Text1.text)，故本题选D选项。 20．B 【详解】本题主要考查VB表达式。VB中，Sqr是开方函数，Abs是求绝对值函数，乘用“*”，除用“/”，故该数学表达式对应的VB表达式是1 - Sqr(b ^ 2 – a * c / 2)，故本题选B选项。 答案第1页，共2页 答案第1页，共2页 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$