1.选择题- (共14题)
1.
每位高中学生参加学考之前必需进行网上报名,系统根据考生的报名情况生成每个考生的准考证号码,该号码的组成都有一定的规则,准考证号码的编排过程属于( )
A.信息的编码 | B.信息的采样 | C.信息的表达 | D.信息的处理 |
2.
小明撰写的电子邮件部分界面如下图所示,下列说法正确的是( )


A.该邮件的收件对象有3个 |
B.该邮件的其中一个收件对象(xxjs2012@sina.com)并不知道你发了一封相同内容的邮件给gzsxgk@qq.com邮箱的主人 |
C.该邮件没有添加附件 |
D.该邮件有添加附件,附件名称为:信息技术高考.rar |
4.
李林选用英文“love”的十六进制内码作为QQ的登录密码。查看 “I love英语”内码的界面如下图所示,李林的QQ登录密码是( )


A.206C6F76 | B.6C6E7665 | C.6C6F7665 | D.6F766520 |
5.
国内特快专递每200克为一个计费单位,200克以内22元,200克以上每续重200克(不足200克以200克计算)8元,现在要编写一个程序输入包裹重量自动计算出价格。解决上述问题,最合适的算法是( )
A.解析算法 | B.枚举算法 | C.排序算法 | D.递归算法 |
8.
执行如下Visual Basic程序段时,出现了如下图所示的错误:

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a =" 5:" b = 8
b =" a" + b
label1.Caption = Str(b)
End Sub
引发此错误的语句可能为( )

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a =" 5:" b = 8
b =" a" + b
label1.Caption = Str(b)
End Sub
引发此错误的语句可能为( )
A.Dim a As Integer, b As Integer | B.a =" 5:" b = 8 |
C.b =" a" + b | D.label1.Caption = Str(b) |
10.
制作一个多媒体作品,在创作需求分析阶段,分析作品创作过程中需要哪些硬件与哪些软件以及系统的最低配置,这一环节属于( )
A.作品内容分析 | B.设施需求分析 | C.主题思想分析 | D.结构类型分析 |
11.
用OCR软件识别文字的主要操作步骤有:①对图象进行倾斜校正 ②单击识别按钮 ③划分识别区域 ④打开图像文件 ⑤校对文字
正确的操作顺序是( )
正确的操作顺序是( )
A.①②③④⑤ | B.⑤①③②④ |
C.①④③⑤②② | D.④①③②⑤ |
2.填空题- (共3题)
15.
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______,文本框Text2中显示的内容是_______。
Private Sub Command1_click( )
Dim a(1 to 3) as integer,k as integer,t as integer,s as integer
a(1)="15:" a(2)="36:" a(3)=7
s=0
For k="2" to 3
if a(k)>a(1) then
t=a(1):a(1)=a(k):a(k)=t
s=s+1
End if
Next k
text1.text=str(a(1))
text2.text=str(s)
End sub
Private Sub Command1_click( )
Dim a(1 to 3) as integer,k as integer,t as integer,s as integer
a(1)="15:" a(2)="36:" a(3)=7
s=0
For k="2" to 3
if a(k)>a(1) then
t=a(1):a(1)=a(k):a(k)=t
s=s+1
End if
Next k
text1.text=str(a(1))
text2.text=str(s)
End sub
16.
下列程序的功能是在text1中输入的自然数,分解为3个互不相同的质数(三个质数的和等于输入的自然数),并把分解产生的质数按升序顺序显示在左边的列表框中。例如,输入20,那么在列表框中会显示如右图所示结果。其中,上述界面中“开始处理”按钮的名称是“Command1”,程序中函数f(x)的功能是判断x是否为质数,如果是质数则返回值为true,否则返回false。

请在下列程序代码的基础上按照要求设计该程序,完善程序中的划线部分。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i =" 2" To Sqr(x)
If x Mod i =" 0" Then ___________
Next i
End Function
Private Sub Command1_Click()
n = ________________
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _________________ And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub

请在下列程序代码的基础上按照要求设计该程序,完善程序中的划线部分。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i =" 2" To Sqr(x)
If x Mod i =" 0" Then ___________
Next i
End Function
Private Sub Command1_Click()
n = ________________
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _________________ And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
17.
有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹中,其中的“student”数据表用来存储学生的基本情况信息,包括学号(num)、姓名(name)、性别(sex)、分数(score),括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息,运行界面如下图所示。在文本框Text1中输入学生的学号,单击“查询”,在文本框Text2、Text3、Text4中分别显示学生姓名、性别、分数。

Private Sub Command1_Click()
Dim adocn As New adodb.Connection
Dim adors As New adodb.Recordset
Dim str2 As String, str1 As String
str1 = "Provider="Microsoft.ACE.OLEDB.12.0;data" source=f:\2015mt\vb\_____________"
adocn.Open str1
str2 = "select * from students where num=" + Text1.Text
adors.Open str2, adocn, adOpenDynamic, adLockOptimistic
If adors.EOF =" True" Then
MsgBox "你输入的学号不存在"
Else
Text2.Text = adors.Fields("name").Value
Text3.Text = adors.Fields("sex").Value
______________________________________
End If
adors.Close
adocn.Close
End Sub

Private Sub Command1_Click()
Dim adocn As New adodb.Connection
Dim adors As New adodb.Recordset
Dim str2 As String, str1 As String
str1 = "Provider="Microsoft.ACE.OLEDB.12.0;data" source=f:\2015mt\vb\_____________"
adocn.Open str1
str2 = "select * from students where num=" + Text1.Text
adors.Open str2, adocn, adOpenDynamic, adLockOptimistic
If adors.EOF =" True" Then
MsgBox "你输入的学号不存在"
Else
Text2.Text = adors.Fields("name").Value
Text3.Text = adors.Fields("sex").Value
______________________________________
End If
adors.Close
adocn.Close
End Sub
试卷分析
-
【1】题量占比
选择题:(14道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17