1、 B列表框被激活后,用户在键盘上按下某个键 C单击文本框Text1 D单击List13 、某VB程序段如下: Private Sub Command1_Click() Dim x As Integer, i As Integer For i 3 To 10 Step 2 x i * (i 1) List1AddItem Str(x) Next i End Sub运行程序,单击命令按钮Command1后,弹出如右图所示的出错信息提示:( )AFor i 3 To 10 Step 2Bx i * (i 1)CList1AddItem Str(x)DNext i4 、已知VB自定义函数fun(a A
2、s Single,b As Single) As Integer,以下赋值 语句正确的是( )Ax fun(3, 5) “abc” Bx fun(“3”, “5”) 3Cx fun(3, “a”) “123” Dx fun(3, 5) 65 、有如下VB程序段: Dim a As Integer, b As Integer a 9 b 13 Print fun(a, b); a; b Private Function fun(a As Integer, b As Integer) As Integer a a Mod 5 b b 5 fun a End FunctionA9132 B4139
3、C442 D139 26 、下列VB程序的功能是:求两数中的较大数。在程序运行时,分别在文本框Text1、Text2中输入两个数,单击“比较”按钮Command1,则在标签Label1中输出较大数。Function big(x, y)As Single If xy Then big = x Else big = yEnd FunctionPrivate Sub Command1_Click() Dim a As Single, b As Single,ans As Single a = Val(Text1.Text) b = Val(Text2.Text) ans = _ Label1.Cap
4、tion = ansAbig(Text1,Text2) Bbig(a,b) Cbig(x,y) Dbig( )7 、某对象的一个事件过程代码如下:Private Sub strlink_Click() Dim a As String, b As String a = “100” b = “200” Text1.Text = a+b下列说法正确的是( )A该过程的过程名为“Sub”BClick是对象的方法C该事件过程执行后,在文本框Text1中显示100200D该事件过程执行后,在文本框Text1中显示3008 、在VB中,某对象的属性窗口如右图所示:如果要使该对象在窗体加载时不显示,可设置下列
5、哪个属性( )ACaption BText CEnabled DVisible9 、实现某排序算法的部分VB程序如下: For i 1 To 4 For j 5 To i 1 Step 1 If a(j)a(i) Then a(j)a(i):a(i)tNext i数组元素a(l)到a(5)的数据依次为“31、18、68、11、89”,经过这个程序排序后,数组中的数据比较次数和交换次数分别为( )A7次和2次 B7次和3次 NY C8次和2次 D8次和3次题11图12、采用冒泡排序算法对数组a中的5个数据“5、10、6、30、9”进行排序,冒泡排序算法的部分程序如下:a(j1) Then ta(
6、j):A升序排序,实线框中的语句执行了2次B升序排序,实线框中的语句执行了3次 C降序排序,实线框中的语句执行了5次D降序排序,实线框中的语句执行了6次 13、有一组原始数据:23、25、18、63、84、77、65、9、33、17。利用冒泡排序算法进行从小到大排序,最多需要进行()次加工,才可以完成整个数据的排序。 A5 B6 C8 D914、用选择排序算法对一组学生的身高数据进行升序排序,已知第一遍排序结束后的数据序列为166、169、177、175、172,则下列选项中可能是原始数据序列的是( ) A175、177、169、166、172 B177、169、166、175、172 C16
7、6、177、169、175、172 D166、169、172、175、17715、某VB程序的代码如下: s“ ” For i 1 To 3 k i For j i 1 To 6 If a(j) a(k) Then k j If i k Then t a(i) : a(i) a(k) : a(k) t End If s s str(a(i)Text1.Textstr(s)数组元素从a(1)到a(6)的数据依次为“13、27、21、35、8、19”,经过该程序“加工”后,文本框Text1中显示的是 ( ) A35 27 21 B13 27 21C27 13 21 D8 13 1916、下表记录了
8、6个数据的排序过程。分析表中数据可知,该排序采用的算法与排序方式分别为( )原始数据635759424571第1遍第2遍第3遍 A冒泡排序,降序 B选择排序,降序C冒泡排序,升序 D选择排序,升序 17、下列关于排序的说法,错误的是( )A相对而言,选择排序算法的效率比冒泡排序算法高B冒泡排序算法和选择排序算法的都需要用到双循环结构C对于n个无序数据,不管是冒泡排序还是选择排序,都要经过n1遍 加工D冒泡排序算法的程序实现一般要用到数组变量k,而选择排序则不需要18、小明编写了一个统计数组元素a(l)到a(n)中的“升序段”个数s(如图所示的 数据序列,其 “升序段”的个数等于3)的VB程序。
9、部分程序代码如下:k 0 s 0For i 2 To n If a(i) a(i 1) Then Else k 0 If k 1 Then s s 1 Textl.Text Str(s) 方框中的正确语句是( )Akk1 Bk1 Ck1 Dkk119、有如下Visal Basic程序段:s=1For i=20 To _ Step -2 s = s+i若要使语句s = s+i执行5次,则可循环变量i终值应为( )A12 B11 C10 D920、下列关于算法的叙述不正确的是( )A程序按照算法运行,程序是算法的实现 B算法必须有输出 C一个问题的算法具有唯一性D算法的表示方法有自然语言、流程图、
10、伪代码2、非选择题(本大题共4小题,共40分。)21、用流程图描述的算法如下图所示:请回答下列问题:1 算法的结构属于_(顺序结构、分支结构、循环结构)。(3分)程序运行结束后,S的值为_。(4分)22、某VB程序段代码如下所示:Private Function kk(a As Integer, b As Integer, c As Integer)As Integer Dim num As Integer If ac Then num=c kk = num Dim x Integer, y As Integer, z As Integer x = 200 y = 100 z = 300 Text1.Text = kk(x, y, z) 程序运行时,单击命令按钮Command1后,在文本框Tex
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1