浙江省东阳高级中学2018-2019学年高二下学期信息技术开学考试试卷
年级: 学科:信息技术(信息科技) 类型:开学考试 来源:91题库
一、选择题(本大题共12小题,每小题2分,共24分。) (共12小题)
①微信语音输入将语音转化成文字 ②用指纹解锁功能打开手机
③使用“谷歌在线翻译”翻译英文文章 ④使用手机扫描二维码进行支付
⑤答卷扫描到电脑后,教师在电脑浏览器上进行网上评阅试卷
由此可推断二进制数“11000000 11010110”所表示的字符为( )
s = Text1.Text
List1.Clear
len1 = Len(s) ‘①
For i = 1 To len1 ‘②
For j = 1 To len1- i ‘③
List1.AddItem Mid(s, j, i) ‘④
Next j
Next i
运行时发现未输出所有子串,则修改( )
二、非选择题(本大题共5小题,共26分) (共4小题)
(单选,填字母:A .#VALUE!/ B . 2.00 / C .#DIV/0!/ D .1.60)
Private Sub Command1_Click()
Dim s As String, t As String, c As String
Dim i As Integer, p As Integer, p0 As Integer
s =" " : t =" " : p0 = 0
For i = 1 To Len (Text2.Text)
c = ①
If c = "," Then
p = Val(t)
s = s + Mid(Text1.Text, p0 + 1, p – p0) + "/ "
t = ""
②
Else
t = t + c
End If
Next i
Text3. Text = ③
End Sub
① ② ③
Dim a(1 To 10) As Integer
Private Sub Form_Load()
’产生10个随机整数,并在列表框List1中显示,代码略
End Sub
Private Sub Command1_Click()
Dim k As Integer, summax As Integer, sum As Integer,i As Integer, j As Integer
k = 0 :summax = 0
sum = ①
For i = 1 To n - 1
If a(i) < a(i + 1) Then
sum = sum + a(i + 1)
k = k + 1
Else
If ② Then
summax = sum
③
sumb = i
End If
k = 0
sum = a(i + 1)
End If
Next i
For j = sumt To sumb
List2.AddItem Str(a(j))
Next j
List2.AddItem "和是:" & str(summax)
End Sub
① ② ③
图1
图2
图3