2019-2020学年高二信息技术上学期期中试题 (I).doc

2019-2020学年高二信息技术上学期期中试题 (I)温馨提示：所有试题答案都要答在答题卡上，答在试卷上的答案无效，总分50分！一、单项选择题（每题3分，共30分）1计算表达式Val(10) + Len(2.3)的值是（ ） A.12.3 B.102.3 C. 102 D.132. 下列选项中，可以作为VB变量名的是（）A9x Bx_9 C9_x Dfunction3. 在Visual Basic中，语句TName.Caption = xx伦敦中的TName是A 对象名 B属性名 C属性值 D事件名4下列Visual Basic表达式的值等于56的是AMid(1234567,5,3) BLen(55) + 1 CSqr(56) DAbs(-55) + 15.以下程序段是实现x*y（x、y均为自然数）运算的程序段，则划线处的语句应该是（ ）x=Val(Text1.Text)y=Val(Text2.Text)s = 0:j = 1Do While j a(i) then t=a(j):a(j)=a(i):a(i)=t end ifnext jnext i数组元素a(1)到a(5)的值一次为：33 24 45 16 77 经过该程序段加工后，数组元素a(1)到a(5)的值依次为：A. 77 33 45 16 24 B. 77 45 33 16 24C. 77 24 45 16 33 D. 77 45 33 24 169Private Sub mand1_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 10.有如下 VB 程序段：Dim p As Integer, q As Integer, s As Integer, t As Integerp = Val(Text1.Text) :t=0For q = p+ 1 To 2 * ps = (p * q) Mod (q - p)If s = 0 Thent = t+ 1End IfNext qLabel1.Caption = Str(t)该程序段运行时，在文本框Textl中输入8 , 则在标签Labell中显示的内容是（） A. 3 B. 4 C. 5 D. 6二、非选择题（11题每空2分，12题 6 分，共20分）11.n个数据元素存放到数组a（n）中，对这n个数据进行降序排序算法程序段如下： For i=1 to n-1 For j=n to _step -1 If_then t=a(j): _: a(j-1)=t end if next j next in个数据元素存放到数组a（n）中，对这n个数据进行升序排序算法程序段如下： For i=1 to n-1 k=_ For j=_ to n If_then k=j Next j If _then t=a(i): a(i)=a(k): a(k)=t end if next i12.有如下程序段：Dim a(1 to 5) as integer ,s as string a(1)=77:a(2)=73:a(3)=87: a(4)=80:a(5)=66 i=1 : n=5 Do while i=3 j=1 Do while ja(j+1) then a(j)=a(j)+a(j+1):a(j+1)=a(j)-a(j+1):a(j)=a(j)-a(j+1) End if j=j+1 Loop S=s+st