2017年10月浙江省十校联盟选考信息技术试卷
发布:2024/12/26 4:0:2
一、选择题(每小题2分,共24分.在每小题列出的4个选项中,只有一项是符合题目要求的)
-
1.下列关于信息的说法,正确的是( )
组卷:10引用:2难度:0.9 -
2.下列说法不正确的是( )
组卷:14引用:2难度:0.9 -
3.使用Word软件编辑某文档,部分界面如图所示:
下列说法正确的是( )组卷:4引用:2难度:0.9 -
4.关于Access数据表的操作,说法正确的是( )
组卷:7引用:2难度:0.5 -
5.某算法的部分流程图如图所示,执行这部分流程后,下列说法正确的是( )
组卷:3引用:3难度:0.7
二、非选择题
-
16.小林编写了一个实现英文句子每个单词首字母大写功能的VB程序,运行界面如图所示.文本框Text1显示原文内容,单击“首字母大写”按钮Command1后,Text2显示首字母大写的结果.
实现上述功能的VB程序如下,但加框处代码有错,请改正.
Private Sub Command1_Click ( )
Dim a(1 To 1000)As String
Dim s As String result As String
s=Text1.Text:n=Len(s)
For i=1 To n
a(i)=Mid(s,i,l)
Next i
If a(i)>''a''And a(1)<=“z“Then a(1)=Chr(Asc(a(1))-32)
result=a(1)
For i=2 To n-1
IfThen'(1)
If a(i+1)>=''a''And a(i+1)<=''z''Then
a(i+1)=Chr(Asc(a(i+1))-32)
result=result+a(i)
End If
Eslse
result=result+a(i)
End If
Next i'(2)
End Sub.组卷:4引用:1难度:0.1 -
17.小林编写了一个统计高三16个班级选考技术人数占比的VB程序.运行界面如图所示,窗体加载时,从数据库中调用数据,统计各班选考技术的人数占比,并在列表框List1中显示“班级”和“选技术占比”.单击“排序”按钮Command,数据按选技术占比降序排序,在List2中显示排序结果.实现上述功能的VB程序如下,请回答下列问题:
(1)分析程序,可知调用的数据表的名称为
(2)请在横线处填入合适的代码.①
Dim n As Integer,i As Integer,j As Integer'变量n用于统计学生总数
Dim rate(l To 16)As Integer,num(1 To 16)As Integer,class (1 To 16)As Integer
Dim tech (1 To 50)As Integer,cinfo(1 To 5000)As lnteger,subj(1 To 5000)As String
Private Sub Command1_Click ( )
Dim i As Integer,As Integer,s As Integer
For i=1 To 15
For j=
If rate(j)>rate (j-1)Then
t=rate (j):rate(j)=rate(j-1):rate(j-1):=t
s=class(j):class(j)=class(j-1):class(j-1)=s
End If
Next j
Next i
List2:AddItem''班级''+''''+''选技术占比''
For i=1 To 16
List2.AddItem ads(class(i),3)+''''+ads(rate(i),7)+''%''
Next i
End Sub
Private Sub Form-Load( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString=''Provider=Microsoft.ACE.OLEDB.12.0DATA Source=''&
App.Path&''\stuimfo.jye.ai''
conn.open
Set rs.ActiveConnection=conn
rs.open''SELECT*FROM xkqk''
此处代码略,代码实现将学生班级信息存储到数组cinfo中,选考科目存储到数组subj中
For i=1 To n
Next i
For i=1 To 16
class (i)=i
If
If subj(j)=''技术''Then
tech(i)=tech(i)+1
End If
End If
Next j
rate(i)=Round(tech(i)/num(i)*100,2)
’Round( )返回指定位数进行四舍五入的数值
List 1.AddItem ads(class(i),3)+''''+ads(rate(i),7)+''%''
Next i
’ads( )整数转换长度固定的字符串
Function ads (x As Integer,n As Integer)As String
代码略
End Function.组卷:6引用:1难度:0.1