操作题 适中0.65 引用1 组卷28
为促进学生学习中互帮互助,每次考后章老师都会按成绩重新编排机房上课位置,编排要求如下:
(1) 按分数从高到低排序。若分数相同,则按学号进行升序排序。
(2) 以班级为单位,排出从 1 号开始的机房座位表。 章老师编写了一个位置编排功能的 VB 程序,运行界面如下图所示。
在文本框 Text1 中输入班级名称,单击“读数据库”按钮 Command1 后,从数据库读取数 据并显示在列表框 List1 中;单击“编排”按钮 Command2,在列表框 List2 中输出学号、姓名、 成绩和位置信息。
![](https://img.xkw.com/dksih/QBM/2020/7/1/2496128856891392/2535708148252672/STEM/fa51b73a59154c4f8366ed4a5577c5ca.png?resizew=319)
实现以上功能的 VB 程序如下,请回答下列问题:
(1)分析程序,可知数据库的文件名为_____ 。
(2)请在划线处填入合适的代码。
Dim n As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer
Private Sub Command1_Click()
'本过程在文本框 Text1 中输入班级名称,从数据库中读取指定班级的学号、姓名和成绩
的
'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="+ App.Path + "\js.accdb"
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
rs.Open "select * from 技术"
'本过程的其他语句略
End Sub
Private Sub Command2_Click()
Dim wz(1 To 40) As Integer
Dim i As Integer, j As Integer
List2.AddItem "学号" & " " & "姓 名" & " " & "成绩" & " " & "位置"
For i = 1 To n
______
Next i
For i = 1 To n
For j = 1 To n
If______ Then
wz(i) = wz(i) + 1
End If
Next j
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String '固定输出 5 个字符长度
Dim i As Integer
______
For i = 1 To 5 - Len(c)
adj = adj + " "
Next i
End Function
(1) 按分数从高到低排序。若分数相同,则按学号进行升序排序。
(2) 以班级为单位,排出从 1 号开始的机房座位表。 章老师编写了一个位置编排功能的 VB 程序,运行界面如下图所示。
在文本框 Text1 中输入班级名称,单击“读数据库”按钮 Command1 后,从数据库读取数 据并显示在列表框 List1 中;单击“编排”按钮 Command2,在列表框 List2 中输出学号、姓名、 成绩和位置信息。
![](https://img.xkw.com/dksih/QBM/2020/7/1/2496128856891392/2535708148252672/STEM/fa51b73a59154c4f8366ed4a5577c5ca.png?resizew=319)
实现以上功能的 VB 程序如下,请回答下列问题:
(1)分析程序,可知数据库的文件名为
(2)请在划线处填入合适的代码。
Dim n As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer
Private Sub Command1_Click()
'本过程在文本框 Text1 中输入班级名称,从数据库中读取指定班级的学号、姓名和成绩
的
'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="+ App.Path + "\js.accdb"
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
rs.Open "select * from 技术"
'本过程的其他语句略
End Sub
Private Sub Command2_Click()
Dim wz(1 To 40) As Integer
Dim i As Integer, j As Integer
List2.AddItem "学号" & " " & "姓 名" & " " & "成绩" & " " & "位置"
For i = 1 To n
Next i
For i = 1 To n
For j = 1 To n
If
wz(i) = wz(i) + 1
End If
Next j
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String '固定输出 5 个字符长度
Dim i As Integer
For i = 1 To 5 - Len(c)
adj = adj + " "
Next i
End Function
2020·浙江·一模
类题推荐
有如下VB程序段:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provider=Microsoft.ACE.OLEDB.12.0;data sourc="
+App.Path+"\socre.accdb"
Conn.Open
Set rs.ActiveConnection=conn
Rs. Open"Selec*from cj"
n=1
Do While Not rs.EOF
下列说法中不正确的是
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provider=Microsoft.ACE.OLEDB.12.0;data sourc="
+App.Path+"\socre.accdb"
Conn.Open
Set rs.ActiveConnection=conn
Rs. Open"Selec*from cj"
n=1
Do While Not rs.EOF
Score(n)=rs.fields("成绩"):Name(n)=rs.fields("姓名")
n=n+1:rs.MoveNext
Loop下列说法中不正确的是
A.定义的ADO的Connection对象实例名称是“conn” |
B.连接的数据库文件名是“\socre.accdb” |
C.查询的数据表名是“cj” |
D.该程序段运行后,可知所查询的数据表共有n-1条记录 |
组卷网是一个信息分享及获取的平台,不能确保所有知识产权权属清晰,如您发现相关试题侵犯您的合法权益,请联系组卷网