2017年浙江省信息技术考前押宝试卷(1)
发布:2024/4/20 14:35:0
一、选择题(共12小题,每小题2分,满分24分)
-
1.关于信息安全与网络道德,下列地正确的是( )
组卷:9引用:1难度:0.9 -
2.下列有关浏览器与网页的说法,不正确的是( )
组卷:9引用:1难度:0.9 -
3.使用Word 软件编辑某文档,部分界面如图所示,下列说法正确的是( )
组卷:5引用:1难度:0.9 -
4.使用UItraEdit 软件观察字符内码,部分界面如图所示,下列说法正确的是( )
组卷:9引用:1难度:0.5 -
5.使用Access 软件创建的数据表,其数据表视图和设计视图的部分界面如图所示,下列说法正确的是( )
组卷:8引用:1难度:0.5
二、解答题(共5小题,满分26分)
-
16.[加试题]如果数据a的任意一个元素都是数组b的元素,那么数组a称为数组b的子集.例如数组a的元素依次为[1,3,5],数组b的元素依次为[1,2,3,4,5],数组a的任意一个元素都是数组b的元素.所以数组a称为数组b的字集.小杜编写了一个VB程序,用于判断数组a是否是数组b的子集,功能如下:程序运行时随机产生na个不重复的随机数存储在数组a中,随机产生vb个不重复的随机数存储在数组b中.单击按钮Command1,在标签Labell上显示判断的结果,程序运行界面如图所示.
实现上述功能的VB程序如下,但加框处代码有错,请改正.
Const na=5
Const nb=10
Dim a(1 To na) As Integer
Dim b(1 To nb) As Integer
Privae Sub Form-Load( )
’产生随机依次存储在数组a和数组b中,并在列表框输出,代码略
End Sub
Private Sub Command1-Click( )
Dim i As Integer,j As Integer
Dim flag As Boolean
flag=True
Do While i<=na And flag
For j=1 To nb
If a (i)=b(j) Then
Exit For
End If
Next j
IfThen flag=False
i=i+1
Loop
If flag Then
Labell.Caption=“数组a是数组b的子集“
Elase
Labell.Caption=“数组a不是数组b的子集“
End If
End Sub.组卷:5引用:1难度:0.3 -
17.[加试题]RGB色彩模式是工业界的一种颜色标准,是通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色.RGB颜色分量的值通常采用十进制数表示,而Flash软件中颜色值采用十六进制数表示.比如RGB(100,255,10)等价于十六进制颜色码#64FFOA,每个RGB颜色分量对应两位十六进制数.
小杜编写一个RGB颜色值转十六进制颜色码的转换程序,程序功能如下:程序运行时在文本框Text1输入RGB颜色值,输入格式为“RGB(x,y,z)”,x,y,z的范围都是[0,255].单击“转换”按钮Command1,在标签Labell上输入对应的十六进制颜色码.程序运行界面如图所示,实现上述功能的VB程序如下,请回答下列问题:颜色 R G B 十进制 100 255 10 十六进制 64 FF OA
(1)程序运行时,在文本框Text1输入RGB(25,0,101),则标签Labell上显示的内容是
(2)请在横线处填入合适的代码.
Private Sub Command1-Click( )
Dim s As String,ch As Integer
Dim ans As String
Dim a(1 To 3)As Integer’用于存储RGB对应的3个分量
Dim i As Integer,j As Integer
s=Mid (s,5,Len(s)-5)’取出括号内的字符串
i=1:j=1
Do While i<=Len(s)
ch=Mid (s,i,1)
If ch>=“0“And ch<=“9“Then
a(j)=
Else
j=j+1
End If
Loop
For i=1 To 3
Next i
Labell.Caption=“#“+ans
End Sub
Function btoh(x As Integer) As String’将十进制数转换成两位十六进制数
Const zf=“0123456789ABCDEF“
Dim r As Integer,h As String
h=““
Do While x>0
r=x Mod 16
h=Mid (zf,r+1,1)+h
x=x\16
Loop
If Len (h)=1 Then h=“0“+h
If Len(h)=0 Then h=“00“
End Function.组卷:4引用:1难度:0.3