- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省普通高校招生信息技术选考模拟卷（一）

【加试题】小李编写一个统计学生选考科目的VB程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名。程序运行时，单击“显示”按钮Commmad1，学生选课数据显示在列表框List1中，各科编号及对应科目名称显示列表框list2中，单击“统计”按钮Commmad2，选课结果按各科百分率由高到低显示在列表框list3中，程序运行结果如图所示。

实现上述功能的VB程序如下，请回答下列问题：

（1）、学生选课的编码数据存储在数据表中，其字段名为。

（2）、请在划线处填入合适的代码.

Dim ach(1 To 500) As String '存储各学生选课编码

Dim bno(1 To 10) As Integer '存储各科目编号

Dim bname(1 To 10) As String '存储各科目名称

Dim bnum(1 To 10) As Integer '存储各科目被选次数

Dim bmc(1 To 10) As Integer '存储各科目被选的名次

Dim n As Integer, num As Integer

Private Sub Command1_Click()

Dim i As Integer, km As String

km = "物理化学生物政治历史地理技术"

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String

cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"

rs.Open "select * from choose", cn

Do While Not rs.EOF

n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext

Loop

rs.Close : cn.Close

Set rs = Nothing

Set cn = Nothing

For i = 1 To 7

bno(i) = i : bname(i) = Mid(km, (i - 1) * 2 + 1, 2)

List2.AddItem Str(bno(i)) + "---" + bname(i)

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer, k As Integer

Dim c As String, per As Integer

For i = 1 To n

If check(ach(i)) = True Then

For j = 1 To 3

c = Mid(ach(i), j, 1)

bnum(Val(c)) =

Next j

num = num + 1

End If

Next i

i = 1

Do While i <= 7 '该循环得到各学科被选人数的名次

bmc(i) = 1

For j = 1 To 7

If bnum(j) > bnum(i) Then

Next j

i = i + 1

Loop

For i = 1 To 7

For j = 1 To 7

If Then

per = Int(bnum(j) * 100 / num * 100) / 100

List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"

End If

Next j

Next i

End Sub

Function check(s As String) As Boolean

'代码略！若学生选科代码有效，函数返回True，否则返回False

End Function

举一反三

小月设计了一个VB程序，用于对全班55名同学的体质调查分析，该程序能将55名同学的身高与体重录入到数据库中，之后通过如图所示的VB应用程序计算出这些同学的BMI指数，并按BMI指数从小到大进行排序，并显示这些学生的体质情况。

注：BMI指数的计算公式为：BMI=体重（千克）除以身高（米）的平方（kg/m2）。 BMI<18.5为偏瘦（表明营养不足）；BMI=18.5～24.9为体重正常；BMI=25～29.9为超重；BMI>30为肥胖。

该VB应用程序的代码如下：

Dim stuBMI(1 To 55) As Single

Dim stuName(1 To 55) As String

Private Sub Command1_Click()

Dim k As Integer, i As Integer, j As Integer

Dim t1 As Single, t2 As String

Dim Results As String

For i = 1 To 54

For j = i + 1 To 55

If stuBMI(j) < stuBMI(k) then ②

Next j

If k<>I Then

t1 = stuBMI(i): stuBMI(i) = stuBMI(k): stuBMI(k) = t1

t2 = stuName(i): stuName(i) = stuName(k): stuName(k) = t2

End If

Next i

List1.AddItem "姓名" + vbTab + "BMI指数" + vbTab + "结果"

For i = 1 To 55

If stuBMI(i) < 18.5 Then

Results = "偏瘦"

ElseIf stuBMI(i) >= 18.5 And stuBMI(i) < 25 Then

Results = "正常"

ElseIf stuBMI(i) >= 25 And stuBMI(i) < 30 Then

Results = "超重"

Else

Results = "肥胖"

End If

List1.AddItem stuName(i) + vbTab + str(stuBMI(i)) + vbTab + Results

Next i

End Sub

Private Sub Form_load()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

Dim i As Integer

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\Student.accdb"

conn.Open

strSQL = "SELECT * FROM Student"

Set rs.ActiveConnection = conn

rs.Open strSQL

i = 0

Do While Not rs.EOF

i = i + 1

stuName(i) = rs.Fields("StuName")

stuBMI(i) = Round(rs.Fields("Weight") / rs.Fields("height") ^ 2, 1)

rs.MoveNext

Loop

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

假设共有500个市民，市民的相关信息都存储在“information.accdb”的data表中，”xm, ye,kh” 字段放市民的姓名，余额,卡号。查询程序界面如第16题图所示。工作人员在文本框Text1中输入卡号，单击“查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。程序如下，请按要求将程序补充完整。

Private Sub command1_click()

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim strSQL As String

Dim a,b,c as string

Dim n as integer

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ ① "

conn.Open

strSQL ="select * from data"

Set rs.ActiveConnection = conn

rs.Open strSQL

Label1.Caption = ""

c=val(text1.text)

n=0

rs.movefirst

Do while not rs.EOF

n=n+1

a=rs.Fields("xm")

②

If c= rs.Fields("kh") then

Label1.caption=a+ "的卡内余额为"+b+"元"

Exit if

else

rs.movenext

end if

loop

if n=500 then Label1.caption=”查无此人”

rs.close

conn.close

set rs=nothing

set conn=nothing

End Sub

小杰为学校教务处编写了一个排考场座位的VB程序，考场采用“6排5列”共30人的模式，程序执行后，考生的考号与姓名显示在列表框List1中，单击“考场座位”按钮，考场号与座位显示在Text1中，程序运行界面如图所示，数据表如图

实现上述功能的VB程序如下，请回答下列问题：

小王为学校教务处编写了一个排考场座位的VB程序。考场采用“6排5列”共30人的模式。程序执行后，考生的考号与姓名显示在列表框List1中，单击“考场座位”按钮Command1，考场号与座位显示在Text1中，程序运行界面如图a所示，考生数据存放在数据库文件“kaochang.accdb”中，数据表如图b所示。

实现上述功能的VB程序如下，请回答下列问题:

下图是通过VB程序读取“GDP2018.accdb”文件中的GDP总量，显示在列表框中，部分代码实现如下：

Private Sub Command1_Click() ‘列表框中输出 b(i)，代码略

End Sub

Private Sub Form_Load()

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP"

n = 0

Do While Not myrecord.EOF n = n + 1

a(n) = myrecord.Fields("2018")

b(n) = Left(myrecord.Fields("Area"), 5) & " " & myrecord.Fields("2018") myrecord.MoveNext

Loop

conn.Close: myrecord.Close: Set myrecord = Nothing: Set conn = Nothing End Sub

下列说法不正确的是（）

使用Python语言编写某信息系统，数据存放在SQLite数据库中，将ssex值为“man”的所有记录转换为JSON格式文件，代码如下：

#数据库中获取数据存储在列表中

import json #导入json函数库

① #导入SQLite函数库

conn = sqlite3.connect("test.db")

json_ info=[] #变量json_info存储记录数据

cur = conn.cursor( )

sql= "select * fromstd ② " #查询ssex字段值为“man”的所有记录

cur.execute(sql)

json_ info = cur.fetchal( ) #将符合记录数据保存到变量json_info

conn.commit( )

cur.close( )

conn.close( )

#将记录转换为json格式的数据

file = open('b.json', 'w', encoding-'utf-8') #打开json格式文件

json.dump( ③ , file) #将变量json_info转换为json格式保存到文件中

file.close( )

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心