浙江省杭州市2015年高考信息技术模拟卷3
年级： 学科：信息技术（信息科技） 类型： 来源：91题库
一、选择题 （共10小题）
uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “ 
” ' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “ 
”
Else
MsgBox “ 
”
方框中正确的语句是（ ）。
元素类型 | 元素内容 | 获取方法 | 文件 |
声音 | 背景音乐 | 音乐软件中下载 | ① |
文本 | 世界互联大会简介 | 大会官网 | ② |
图片 | 举办地乌镇 | 网上获取 | ③ |
动画 | 乌镇欢迎你 | Flash创作 | ④ |
已获取的素材文件有wz.jpg、bj.mp3、jj.doc、hy.swf，则表中的①②③④位置应填入的文件依次为（ ）
图A
图B
二、综合题 （共3小题）
①在智能识别软件中打开图像文件
②用鼠标拖曳的方法选定需要识别的区域
③使用“版面分析”命令进行字符识别
④校对、修正识别后的文字
⑤保存识别结果文件
图1
图2
图3
图4
操作是
三、选择题 （共5小题）
B . 
C . 
D . 
原始数据 | 65 | 57 | 59 | 44 | 45 | 69 |
第1遍 | 44 | 65 | 57 | 59 | 45 | 69 |
第2遍 | 44 | 45 | 55 | 57 | 59 | 69 |
第3遍 | 44 | 45 | 57 | 65 | 59 | 69 |
… | … | … | … | … | … | … |
四、主观题 （共3小题）
Private Sub Command1_Click()
Dim I as integer
For i=1 to 10 step 2
If i>=5 then
List1.additem str(i-3)
Else
List1.additem str(i)
Next i
End Sub
Private Sub Command1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec = sec - 1
Else
sec = 59
If min > 0 Then
min = min - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；
第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;
第三步：求出x被除16的商x1;
第四步：对x1重复（1）、（2）、（3）过程，直至商为0；
第五步：最后的S即为所求的十六进制数；
下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。 相应的Visual Basic程序如下：
Private Sub Command1_Click()
Dim s As String, r As Integer
dec = val(Text1.Text) ’dec得到一个十进制整数，例如：255；
base = 16 ’base表示16
s = "" ’s变量存放要转换到的十六进制整数；
Do While dec <> 0
r = ①
If r >= 10 Then ’如果base>10进制，r可能>10；
s = Chr(65 + (r - 10)) + s ’Chr (65)="A", 16进制数A对应10；
Else ’Chr(66)="B", 16进制数B对应11；s = Str(r) + s ‘余数r<10时，十进制数和十六进制基数相同；
End If ‘Chr (65 +( r - 10))或str(r)在s左边，实现了反次序输出；
dec = ②
Loop
Text2.Text = s
End Sub