2017-2018学年江苏省无锡市暨阳地区高三(上)联考信息技术试卷(8月份)
发布:2024/12/31 22:0:2
一、选择题(共12小题,每小题2分,满分24分)
-
1.关于信息安全、网络道德和知识产权,下列做法正确的是( )
组卷:8引用:2难度:0.9 -
2.关于搜索引擎和网页,下列说法正确的是( )
组卷:10引用:3难度:0.9 -
3.使用Word软件编辑某文档,部分界面如图所示.下列说法正确的是( )
组卷:4引用:2难度:0.9 -
4.使用UltraEdit软件观察字符“Good Luck!”的内码,部分界面如图所示.下列说法正确的是( )
组卷:12引用:5难度:0.7 -
5.使用Access软件创建的“student”数据表,部分界面如图所示.下列说法正确的是( )
组卷:3引用:2难度:0.7
二、解答题(共5小题,满分26分)
-
16.【加试题】尼克斯彻定理:任何一个大于等于1的整数的立方等于一串连续奇数之和,如:13=1,23=3+5,33=7+9+11.编写一个VB程序验证尼克斯彻定理,程序运行时,在文本框Text1中输入
一个大于等于1的整数,单击“验证”按钮Commandl,在文本框Text2中显示验证结果,运行界面如图所示。
实现上述功能的VB代码如下,其中加框处代码有错,请改正。
Dim n As Integer,i As Integer,t As Integer,sum As Long,s As string
n=Val(Text1.Text)
For i=1 Ton^3 Step 2'变量i表示连续奇数的首个整数
sum=0:t=i:flag=False
Do While sum<=n^3 And flag=False
sum=sum+t
(1)
If sum=n^3 Then flag=True
Loop
If flag=True Then Exit For
Next i
s=Str(n)+“^“+Str(3)+“=“
Do While sum>0
(2)
If sum=0 Then
s=s+Str(i)
Else
s=s+Str(i)+''+“
End If
i=i+2
Loop
Text2.Text=s
End Sub。组卷:6引用:3难度:0.3 -
17.某校开展“七选三”选课调查,选课数据存数据库文件“student.jye.ai”中,如图a所示.“选课”字段存储7位“0”、“1”组成的数串,每位对应一个科目,从左往右依次为“物化生政史地技”,“1”表示选择,“0”表示未选择,如“1110000”表示选择科目“物化生”.小吴设计了一个VB程序统计全校选课情况,功能如下:程序启动时从数据库中读入全校学生的学籍辅号、姓名、班级、选课信息,处理后在列表框List1中显示,单击“选课统计”按钮Command1,在列表框List2中按选课人数从高到低输出各选课组合及人数,程序界面如图b所示(学籍辅号和姓名的部分内容不显示).
实现上述功能的VB程序如下,请回答下列问题:
(1)若某记录“选课”字段值为“1100001”,则该生的选课科目是
(2)请在横线处填上合适的代码.
Const max=1000
Const s=“物化生政史地技“
Dim n As Integer'存放学生人数
Dim xjfh(1 To max)As String,xm(1 To max)As String
'数组xjfh存放学生学籍辅号,数组xm存放学生姓名
Dim bj(1 To max)As Integer,xk(1 To max)As String
'数组bj存放学生班级,数组xk存储学生的选课标志
Dim zh(1 To 35)As String,tj(1 To 35)As Integer
'数组zh存储不同选课组合,数组tj存储某一组合选课的学生数
Function adj(a As String,n As Integer)As String
'函数功能:在被显示数据之后添加上合适的空格,代码略
End Function
Function convert(x As String)As String
Dim i As Integer,st As String
st=““
For i=1 To Len(x)
If Mid(x,i,1)=“1“Then st=st+Mid(s,i,1)
Next i
convert=st
End Function
Private Sub Form_Load( )
Dim i As Integer,km As String
Dim conn As New ADODB,Connection
Dim rs As New ADODB,Recordset
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=“+App.Path+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu_info“
n=0
Do While Not rs.EOF
n=n+1
xjfh(n)=rs.Fields(0):xm(n)=rs.Fields(1)
bj(n)=rs.Fields(2):xk(n)=rs.Fields(3)
List1.AddItem xjfh(n)+adj(xm(n),4)+adj(Str(bj(n)),4)+adj(km,6)
rs.MoveNext
Loop
'剩余部分代码略
功能:产生35种选课组合的“0”、“1”数串,存数组zh;数组tj各元素初始化为0
End Sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,temp2 As Integer,temp1 As Integer
For i=1 To 35
For j=1 To n
If xk(j)=zh(i) Then
Next j
Next i
For i=1 To 34
For j=35 To i+1 Step-1
If
temp1=zh(j):zh(j)=zh(j-1):zh(j-1)=temp1
temp2=tj(j):tj(j)=tj(j-1):tj(j-1)=temp2
End If
Next j
Next i
For i=1 To 35
List2.Str(i)+adj(convert(zh(i)),6)+adj(Str(tj(1)),6)
Next i
End Sub.组卷:2引用:1难度:0.3