正确教育旗下网站
位置: 首页试卷预览

浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术

  • 浙江
  • 2018-09-17
  • 高二年级
  • 期中考试
  • 699次

收藏 纠错 题号:8770746 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

某算法的部分流程图如下图所示,执行这部分流程后,变量s的值是(   )
www.xiangpi.com
A.0          B.3          C.4          D.5

收藏 纠错 题号:8770752 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

有如下VB程序:
Dim n As Integer
Function f(k As Integer) As Long
  If k <= 2 Then f = 1 Else f = f(k - 1) + f(k - 2)
End Function
Private Sub command1_Click()
  n = Val(Text1.Text)
  Label2.Caption = Str(f(n))
End Sub
该VB程序采用的主要算法是(   )
A.枚举       B.递归       C.对分查找     D.冒泡排序

收藏 纠错 题号:8770754 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

某校有5000份学生档案(已按学籍号排序),若分别用顺序查找和对分查找的方法查找某位学生的数据,两种查找方式中最多的查找的次数差值是(   )
A.4950次     B.4500次     C.385次      D.4987次

收藏 纠错 题号:8770756 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:6次

编号为1到13的纸牌顺时针排成一圈,现从编号为1的牌从数字1开始顺时针数下去,1,2,3,…20,21,…一圈又一圈,则当数到数字N时,所在纸牌的编号为(   )
A.N Mod 13          B.1+(N-1) Mod 13
C.(N+1) Mod 14        D.1+(N-1) Mod 12

收藏 纠错 题号:8770788 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

 通过ADO的Recordset对象实例rs打开的记录集如图所示。当前是第4条记录,要用Fields集合返回第2个字段的值,以下代码正确的是(   )
序号书名书号作者售价
1解忧杂化店ISBN978744120878东野奎吾39.5
2摆渡人ISBN978755001237克莱尔·麦克福尔36
3白夜行ISBN978725806995东野奎吾38.5
4追风筝的人ISBN978720806144卡勒德·胡赛尼29
5这就是二十四节气ISBN948740028186高春香43
A.a(4)=rs.Fields(2)
B.a(4)=Fields(1)
C.a(4)=rs.Fields(书名)
D.a(4)=rs.Fields("书名")

收藏 纠错 题号:8770790 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

利用对分查找,在列表Angola,Australia,Belgium,Canada,China,Denmark,Egypt,France,Greece,Hungary,India,Japan中查找Egypt,则第三次查找时被查找到的国家名是(   )
A.Egypt      B.Denmark     C.France     D.China

收藏 纠错 题号:8770800 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:6次

有如下程序段:
Dim i As Integer, ans As Integer
Dim a(1 To 10) As Integer
Sum = 0
For i = 1 To 10
  a(i) = i ^ 2
  If a(i) Mod 3 = 0 Then ans = ans + a(i)
Next i
Text1.Text = Str(ans)
该程序段运行后,文本框Text1中显示的内容是(   )
A.55         B.126        C.259        D.385

收藏 纠错 题号:8770805 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

将10个数据 50、45、40、35、25、70、90、10、15、20依次存放在数组a(1)到a(10)中,部分VB程序段如下:
n = Val(Text1.Text)
s = 0
For i = 1 To n - 1
  For k = n To i + 1 Step -1
      If a(k) > a(k - 1) Then
        t = a(k): a(k) = a(k - 1): a(k - 1) = t
        s = s + 1
      End If
  Next k
Next i
Text2.Text = Str(s)
在文本框Text1中输入“8”,则文本框Text2输出的值是(   )
A.2          B.4          C.11         D.0

收藏 纠错 题号:8770812 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

已知数组元素a(1)到a(9)的值依次为19、28、37、46、55、64、73、82、91,若在Text1中输入29,然后执行以下程序段:
Key = Val(Text1.Text) \ 10
Text2.Text = ""
i = 1: j = 9: f = false
Do While i <= j And Not f
  m = (i + j) \ 2
  If a(m) Mod 10 = Key Then
    search = m
    f = True
  ElseIf a(m) Mod 10 > Key Then
    i = m + 1
  Else
    j = m - 1
  End If
  Text2.Text = Text2.Text + Str(m)
Loop
该程序段运行后,Text2上显示的是(   )
A.5、2       B.55、37、28     C.55、28、37     D.5、7、8

收藏 纠错 题号:8770818 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

有VB程序如下:
Private Sub Command1_Click()
Dim s1 As String, s2 As String, ch As String
s1 = Text1.Text:  s2 = "":  ch = ""
For i = 1 To Len(s1)
  ch = Mid(s1, i, 1)
  If Asc(ch) <= 122 And Asc(ch) >= 97 Then
    ch = Chr(Asc(ch) - 32)
  End If
  If Asc(ch) >= 65 And Asc(ch) <= 90 Then
    ch = Chr(65 + (Asc(ch) - 62) Mod 26)
  End If
  s2 = s2 + ch
Next i
Text2.Text = s2
End Sub
已知大写字母A的ASCII码值为65,小写字母a的ASCII码值为97。运行上述程序,若文本框Text1中的内容为“TEXT1”,单击命令按钮Command1,则文本框Text2中将显示(   )
A.Whaw1      B.WHAW1      C.Whaw3      D.WHAW3

收藏 纠错 题号:8770821 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

有如下程序段:
a(1) = "Abd": a(2) = "aBd": a(3) = "abD": a(4) = "ABD": a(5) = "AB": a(6) = "Ab"
 For i = 1 To 5
    For j = 6 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
Next i
i = 1: j = 6: Key = "Aba"
Do While i <= j
    m = (i + j) \ 2
    If a(m) = Key Then Exit Do
    If Key < a(m) Then j = m - 1 Else i = m + 1
Loop
Label1.Caption = Str(i) + Str(j) + Str(m)
该程序段运行后,Label1上显示的是(   )
A.3、2、3     B.4、3、4     C.3、4、3     D.5、4、5

收藏 纠错 题号:8770825 题型:选择题 日期:2018-09-17 试题难度:中等 组卷:5次

数组a中的6个数据分别为“73,25,64,13,7,89”,执行如下程序段后:
For i = 2 To 6
  j = i
  Key = a(j)
  Do While a(j - 1) < Key And j > 1
    a(j) = a(j - 1)
    j = j - 1
  Loop
  a(j) = Key
Next i
数组a的数据为(   )
A.89,73,64,25,13,7     B.7,13,25,64,73,89
C.73,89,64,25,13,7     D.73,7,13,25,64,89

收藏 纠错 题号:8770896 题型:操作题 日期:2018-09-17 试题难度:中等 组卷:6次

下列VB程序用于删除数据序列中的重复数据(即相同的数据仅保留一个)。程序运行时,在列表框List1 中显示数组a中的原始数据,单击“去重”按钮Command1,在列表框 List2 中输出“去重”后的数据,同时在标签Label3 中显示删除的数据总个数,程序运行界面如图所示。实现上述功能的VB代码有错,请改正。
www.xiangpi.com
Const maxn = 10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
   'maxn 个数据存储在数组a 中,并在列表框 List1 中显示,代码略
End Sub
Private Sub Command1_Click()
   Dim i As Integer, n As Integer
   Dim j As Integer, key As Integer
   Key=1: n=maxn
   Do While key<=n
     i=n
     Do While a(i)<>a(key)   
        i=i-1
     Loop
     If i=key then   ‘找到重复数据,删除;未找到,设定下一查找关键字
       key=key+1
     Else
       For j=i to n-1
         a(j+1)=a(j)  ‘①
       Next j
       n=n-1
     End if
   Loop
   For i=1 to n
      List2.AddItem Str(a(i))
   Next i
   Label1.Caption="共删除重复数据:" &  Str(n)  & "个"  ‘②
End Sub

收藏 纠错 题号:8770908 题型:操作题 日期:2018-09-17 试题难度:中等 组卷:6次

多位数乘法。功能描述:文本框Text1中输入一个小于等于1000位的被乘数,文本框Text2中输入1位乘数,点击“开始计算”按钮Command1后,在文本框Text3中显示计算结果。实现上述功能的VB程序如下,但加框处代码有错,请改正。
www.xiangpi.com
Private Sub Command1_Click()
Dim d(1 To 1001) As Integer        
Dim str1 As String, str2 As String
Dim i As Integer, n As Integer, k As Integer, s As Integer
str1 = Text1.Text
n = Len(str1)
For i = 1 To n
   d(i) = Val(Mid(str1, i, 1))
Next i
s = 0     ‘s表示进位
k = Val(Text2.Text)
For i = n To 1 Step -1
   d(i) = d(i) * k   ‘①
   s = d(i) \ 10
   d(i) = d(i) Mod 10
Next i
If s <> 0 Then str2 = Trim(Str(s)) Else str2 = ""
'Trim函数用来删除字符串首尾的空格
For i = 1 To n
    str2 = Trim(Str(d(i))) + str2       ‘②
Next i
Text3.Text = str2 
End Sub

收藏 纠错 题号:8770911 题型:操作题 日期:2018-09-17 试题难度:中等 组卷:6次

尼克斯彻定理:任何一个大于等于1的整数的立方等于一串连续奇数之和,如:13=1,23=3+5,33=7+9+11。编写一个VB程序验证尼克斯彻定理,程序运行时,在文本框Text1中输入一个大于等于1的整数,单击“验证”按钮Command1,在文本框Text2中显示验证结果,运行界面如图所示。实现上述功能的VB代码如下,其中加框处代码有错,请改正。
www.xiangpi.com
 
Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String
n = Val(Text1.Text)
For i = 1 To n ^ 3 Step 2   '变量i表示连续奇数的首个整数
  sum = 0: t = i: flag = False
  Do While sum <= n ^ 3 And flag = False
    sum = sum + t
     t = t + 1         ‘①
    If sum = n ^ 3 Then flag = True
  Loop
  If flag = True Then Exit For
Next i
s = Str(n) + "^" + Str(3) + "="
Do While sum > 0
  sum = sum – 1     ‘②
  If sum = 0 Then
    s = s + Str(i)
  Else
    s = s + Str(i) + "+"
  End If
  i = i + 2
Loop
Text2.Text = s
End Sub

收藏 纠错 题号:8770922 题型:填空题 日期:2018-09-17 试题难度:中等 组卷:5次

颜色码转换。程序功能如下:在文本框Text1输入一个十六进制颜色码,输入格式为:“#”后面跟6位十六进数(其中字母均为大写),单击“转换”按钮Command1,在标签Label1上输出对应的十进制RGB颜色值。请在划线处填入合适的代码。
www.xiangpi.com
Private Sub Command1_Click()
Dim s As String, ch As String, ans As String
Dim i As Integer, j As Integer
Dim a(1 To 3) As Integer '分别用于存储RGB对应的3个十进制分量
s = Text1.Text
s = Mid(s, 2, 6)
For i = 1 To 3
   a(i) = 0
Next i
For i = 1 To 6
   j = (i + 1) \ 2
   ch = Mid(s, i, 1)
   a(j) = ①______                       
Next i
ans=””
For i = 1 To 3
   ans = ②______                     
   If i <> 3 Then ans = ans + ","
Next i
ans = "RGB(" + ans + ")"
Label2.Caption = ans
End Sub
Function HtoD(x As String) As Integer '将一位十六进制数转十进制数
Dim n As Integer
If x >= "0" And x <= "9" Then
   n = Val(x)
Else
   n =③______               
End If
HtoD = n
End Function

收藏 纠错 题号:8770934 题型:填空题 日期:2018-09-17 试题难度:中等 组卷:5次

统计单词出现的位置及次数。在文本框Text1中输入文章,在Text2中输入要查找的单词,单击“统计”按钮Command1,在列表框List1显示该单词出现的起始位置及次数。实现上述功能的VB程序如下,请在划线处填入合适的代码。
www.xiangpi.com
Private Sub Command1_Click()
Dim pos(1 To 1000) As Integer
'存储匹配到的单词位置
Dim word As String    '存储每次扫描的单词
Dim c As String,s As String,s2 As String
Dim i As Integer,j As Integer,k As Integer,b As Integer,slen As Integer
s = Text1.Text
slen = Len(s)
s2 = Text2.Text
j = 0  '存储每个单词的长度
k = 1  '存储匹配到的第几个单词的下标
b = 1  '存储每个单词的起始位置
i=1
Do While i <= slen
   ①_________                 
   If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then
     j = j + 1
   Else
     If j <> 0 Then
       word =②_______                 
       If word = s2 Then
          pos(k) = b
          k = k + 1
       End If
       j = 0
    End If
    b = i + 1
   End If
   i = i + 1
Loop
List1.AddItem "单词" + s2 + "出现的位置为"
For i = 1 To k - 1
   List1.AddItem Str(pos(i))
Next i
List1.AddItem "共出现" + ③______+ "次"
End Sub

收藏 纠错 题号:8770962 题型:填空题 日期:2018-09-17 试题难度:中等 组卷:5次

小张同学为方便大家进行选考科目的选择,将全班同学七门学科的原始成绩折算成对应的标准分(避免了不同学科试卷难度各不相同的问题,标准分越高说明该学科成绩越优秀),存放于数据库中,如图1所示。同时,还编写了“选考科目推荐”程序,实现如下功能:在文本框Text1中输入学生的学号,单击“分析”按钮Command1,在文本框Text2中显示该学号及所推荐的三门学科(选成绩最好的三门)。程序运行界面如图2所示:
www.xiangpi.com
实现上述功能的VB程序如下,请回答下列问题:
(1)通过分析代码可知,该数据库的名称为,数据表的名称为
(2)请在划线处填入合适代码。
Private Sub Command1_Click()
   Dim a(1 To 7) As Single , b(1 To 7) As Integer
   Dim n As Integer, s As String, c As String
   Dim conn As New ADODB. Connection
   Dim rs As New ADODB. Recordset
   conn. Connectionstring="provider=Microsoft.ace.oledb.12.0;data source="& App. Path &"\7xuan3.accdb"
   conn.Open
   rs.ActiveConnection=conn
   n= Val(Text1.Text)
   rs.Open "select * from bzf where学号="  & n
   For i=1 To 7
     a(i)=rs.fields(i)
     b(i)=i
   Next i
   rs.Close
   conn.Close
   For i=1 To 3
     k=i
     For j=i+1 To 7
       If ①___________Then k=j
     Next j
     If k<>i Then
       t=a(i):a(i)=a(k):a(k)=t
       t=b(i):b(i)=b(k):b(k)=t
     End If
   Next i
   s="物理化学生物政治历史地理技术"
   c=Text1.Text+"   "
   For i=1 To 3
     c=c+ ②___________  +"   "
   Next i
   Text2. Text=c
End Sub
收藏

显示答案及解析

试题统计(数量:18)

知识点统计:0 平均难度:中等

选择题 数量:12 占比:66.67%

  • 1
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 2
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 3
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 4
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 5
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 6
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 7
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 8
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 9
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 10
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 11
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 12
    • 题型: 选择题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术

操作题 数量:3 占比:16.67%

  • 13
    • 题型: 操作题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 14
    • 题型: 操作题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 15
    • 题型: 操作题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术

填空题 数量:3 占比:16.67%

  • 16
    • 题型: 填空题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 17
    • 题型: 填空题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术
  • 18
    • 题型: 填空题
    • 难度: 中等
    • 来源: 浙江省东阳中学2017-2018学年高二下学期期中考试技术试卷 信息技术