浙江省杭州市2015年高考信息技术模拟卷10
年级: 学科:信息技术(信息科技) 类型: 来源:91题库
一、客观题 (共10小题)
①数据表名称是: books ②数据表中共有3条记录
③数据表中共有6个字段 ④其中author字段的数据类型应为文本
①对图片进行倾斜校正等预处理;②将文字存储成文本(TXT)文件或RTF文件;
③对文字进行校对;④进行版面分析和文字识别;⑤使用扫描仪获取图片。
二、主观题 (共4小题)
图1
图2
小明用VB设计了计算个税的程序,程序运行时界面如图所示,在文本框Text1中输入月收入后,点击“开始计算”按钮后,在文本框Text2中显示该产品应征收的税金。
图1
Private Sub Command1_Click()
Dim x As Single, p As Single
x = Val(Text1.Text)
If x >= 20000 Then
p = 0.1 * x
Else If x >= 10000 Then
p = 0.05 * x
Else If x >= 5000 Then
p = 0.02 * x
Else
P = 0
End If
= Str(p)
End Sub
图1
图2
图3
图4
在①处填
在②处填
模块名:主交互界面 | 类别编号:1 |
| |
进入方式: 在片头播放界面中单击“进入”按钮,进入该界面 呈现方式: ① 五个模块按钮陆续出现。 ② 单击 ③ 单击各模块按钮后,跳转到对应子模块。 ④ 单击 | 呈现顺序说明: ①背景图出现,播放背景音乐的同时6个按钮陆续出现。 ②6个按钮按从上到下,从左到右的次序,依次间隔2秒出现。 |
①据以上描述,“按钮2”图层应在第 帧插入关键帧。
②要设置“退出”按钮的动作效果,正确的作法是在该按钮上输入动作脚本
三、客观题 (共5小题)

Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i=1 To 10
j=Int(Rnd*6)+1
a(j)=a(j)+1
Next i
For i=1 To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时,单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是( )
①number=0 ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法,下列说法错误的是( )
四、主观题 (共3小题)
Private Sub Command1_Click( )
Dim s As Integer
Dim I As Integer
S=0
For i=1 To 10
s=s+i\7
Next i
Text1.text=str(s)
End sub
该程序段运行后,文本框Text1中显示
现要求编写VB程序(运行界面图所示),实现如下功能:在文本框Text1中输入一个三位数整数,单击“求解”按钮Command1,在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下,其中函数max(x)用于求解最大三位数整数,但加框处代码有错,请改正。
① ②
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a = x \ 100
b = (x \ 10) \ 10 ' ①
c = x mod 10
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = c: c = b: b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub
数组a用于存储产生的10个随机整数,函数f(x)用于判断随机整数x与已生成的整数是否有重复,若有重复则返回True,否则返回False。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1 ′产生[1,999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( )
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str(a(i))
Next i
End Sub