高中信息技术沪科版（2019）-试题列表-第1652页

17、【加试题】小李编写一个统计学生选考科目的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

查看解析

18、【加试题】某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列。例如2号桶中有1个小旗子，表示2出现了一次；3号桶中有1个小旗子，表示3出现了一次；5号桶中有2个小旗子，表示5出现了两次；8号桶中有1个小旗子，表示8出现了一次，按桶的编号顺序读出旗子数量，没有旗子的桶略过,得到有序整数为“2,3,5,5,8”。

为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。

实现上述功能的VB代码如下，但横线处代码有错，请改正。

Dim a(10) As Integer'数组a表示桶的编号，如a(0)表示第0号桶

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 0 To 10

For j = 1 To i 错①处

List2.AddItem CStr(i)

Next j

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 0 To 10'将数组初始化为0

a(i) = 0

Next i

For i = 1 To 6'产生6个[0,9]的随机数

t = Int(Rnd * 10)

a(t) = t + 1 '第t桶中小旗子数量加1 错②处

List1.AddItem CStr(t)

Next i

End Sub

① ②

查看解析

19、小刘用Flash软件制作了题为“真空实验”的多场景动画，时间轴截图如下图所示，请回答以下问题：

(1)、小刘在创作多媒体作品过程中，脚本编写的最后一个环节是。（选填，填字母）

A、制定脚本大纲 B、分解媒体元素 C、需求分析 D、规划设计

(2)、如图所示“标题”图层第1帧实例如图2所示，第15帧实例如图3所示，则该“标题”实例运动方向是；“标题”图层中补间动画占用的时间约是秒。

(3)、测试影片时，动画播放到最后1帧时能停止播放，则应该在图层添加stop();命令；若要实现“按钮”图层中“Play”按钮最后才出现，则实现的操作是。

(4)、测试影片时，点击“实验网”按钮，弹出浏览器窗口并打开“实验网（www.zxskj.com）”，则该按钮元件上添加的脚本命令是。

(5)、测试影片时，“对话”图层的声音刚好播放完毕，该声音文件采用高保真（44KHZ,16位）立体声录制的WAV音频格式，则该声音文件的容量大小约是。

查看解析

20、小李编写VB程序，实现如下功能：在文本框Text1中输入一个“十六进制数”（注：包含小数），例如：在文本框Text1中输入A2.4，单击“转换”按钮Command1，在文本框Text2中输出该十六进制对应的十进制数，运行界面如图所示。

(1)、为实现上述功能，请在划线处填入合适的代码，使程序正常运行。

Private Sub Command1_Click()

Dim i As Integer, x As String, n As Integer,m As Integer

Dim y As Integer, s As Single, r As String

x = Text1.Text

n = Len(x) '求长度

m = InStr(x, ".") '找小数点的位置

s = 0

For i = 1 To n

r = Mid(x, i, 1)

If r>= "0" And r<= "9" Then y = Val(r)

If r>= "A" And r<= "F" Then y =

If i < m Then s = '整数部分

If i > m Then s = s + y * 16 ^ (m - i) '小数部分

Next i

Text2.Text = + "D"

End Sub

(2)、在文本框Text1中输入“A.8”，则在文本框Text2中输出结果是。

查看解析

相关试卷