浙江选考信息技术历年vb题汇总（35张PPT）

单击输入您的封面副标题 【15年10月】【加试题】n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如第16题图所示。 实现上述功能的VB代码如下，但加框处代码有错，请改正。 Dim a(1 To 8) As Integer Dim n As Intege Private Sub Form_Load() 'n=8，排序前数据存储在数组a中，并在列表框Listl中显示 '代码略 End Sub Private Sub Command1_Click() Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换 i = 1 flag = True Do While '（1） flag = False For j = n To i + 1 Step -1 If a(j) < a(j - 1) Then k = a(j): a(j) = a(j - 1): a(j - 1) = k flag = True End If Next j i = i + 1 Loop Label3.Caption = "排序过程的加工遍数为" + '（2） For i = 1 To n List2.AddItem Str(a(i)) Next i End Sub 17.【加试题】某数据加密方法描述如下： (1)以字节为单位进行加密处理； (2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数； (3)分别将上述两个4位二进制数转换为十进制数； (4)将每个十