题型：综合题 题类：常考题 难易度：困难
浙江省高中信息技术 数组练习
移牌规则：在编号为①的堆上取的纸牌，只能移到编号为②的堆上;在编号为N(N≥2)的堆上取的纸牌，只能移到编号为N-1的堆上;其他堆上取的纸牌，可以移到相邻左边或右边的堆上。
现在要求找出一种移动方法，用最少的移动次数使每堆上纸牌数都一样多。
例如N=4，4堆纸牌数分别为：
|
① |
② |
③ |
④ |
|
9 |
8 |
17 |
6 |
移动3次可达到目的：从③取4张牌放到④(9 8 13 10)→从③取3张牌放到②(9 11 10 10)→从②取1张牌放到①(10 10 10 10)。
现编写如下代码解决4堆任意张数牌的移动问题，请按提示补充划线句的代码：
Private Sub Command1_Click()
Dim aver As Single
Dim st As Integer ‘统计移动的步数
Dim ssum, i, j As Integer
Dim a( 1 To 100) As Integer
a(1) = Val(Text1.Text) ‘读取各堆牌张数,求总张数aver
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
ssum =a(1) + a(2) + a(3) + a(4)
aver=ssum \ 4 ‘求牌的平均张数aver
For i=1 To 4
①
Next i
i=1 ‘过滤初端和末端的0
j = 4
Do While a(i) = 0 And i < 4
i=i+1
Loop
Do While a(j) = 0 And j > 1
j = j-1
Loop
st = 0
Do While i < j ‘开始移动牌使数组a元素值均为0并过滤掉
②
a(i) = 0
st = st + 1
i=i+1
Do While a(i) = 0 And i<j ‘过滤掉数组a元素值均为0
③
Loop
Loop
Print st ‘输出移动次数
End Sub
①将该字符的ASCII码值转化为8位二进制数；
②将后4位二进制数进行按位取反(1变0，0变1)；
③将操作②生成的4位二进制数均左移1位(原第1位变为新的第4位)；
④原高4位二进制数连接到新的后4位二进制数成为最终加密后字符的内码。
例如：字符“a”经过上述加密运算，可得到字符“m”。
|
ASCII码值 |
转二进制 |
后四位取反 |
后四位左移 |
拼合 |
转十进制 |
转字符 |
|
97D |
01100001B |
1110 |
1101 |
01101101B |
109D |
“m” |
程序运行界面如图所示，请改正加框处有误的代码：
Private Sub Command1_Click()
Dim s As String：Dim sl As String：Dim jg As String
Dim n As Integer：Dim x As Integer：Dim i As Integer：Dim j As Integer
Dim a(15)As String
a(0)=“0000”：a(1)=“0001”：a(2)=“0010”：a(3)=“0011”
a(4)=“0100”：a(5)=“0101”：a(6)=“0110”：a(7)=“0111¨
a(8)=“1000”：a(9)=“1001”：a(10)=“1010”：a(11)=“1011¨
a(12)=“1100”：a(13)=“1101”：a(14)“1110”：a(15)=“1111”
jg=“ ”
s=Text1．Text
For i=1 To Len(s)
n=Asc(Mid(s，i，1))
low=n Mod 16
low=15-low ‘执行步骤②
s1=Mid(a(low)，2，3)&Mid(a(low)，1，1) ‘执行步骤③
For i=l To 4
x=x+Val(Mid(s1，j，1))* 
‘⑴{#blank#}1{#/blank#}
Next j
x= 
*16+x ‘⑵{#blank#}2{#/blank#}
jg=jg&Chr(x)
Next i
Text2．Text=jg
End Sub
试题篮
