题目

在n个连续的方格内填字母A或B，但相邻两格都不能填B，求所有可能方案。可以用枚举算法解决，此题可以采用进制转换来解决。考虑到只包含了A与B两个字母，我们可以用二进制的0和1来代替。程序部分代码如下：Private Sub Command1_Click()Dim n, m, s, i, j, countAs LongDim flag As BooleanDim a(1 To 100) As Integern = Val(Text1.Text)count = 0 ①For i = 0 to s-1 m = i For j = 1 To n a(j) = m Mod 2 m = m \ 2Next jflag = TrueFor j = 1 To n - 1 If ② Thenflag = false: exit For Next jIf flag = True Then ③Next iLabel1.Capti钱塘湖春行(白居易)|||| 欣赏下列诗歌，完成后面习题。 钱塘湖春行(白居易) 孤山寺北贾亭西，水面初平云脚低。 几处早莺争暖树，谁家新燕啄春泥。 乱花渐欲迷人眼，浅草才能没马蹄。 最爱湖东行不足，绿杨阴里白沙堤。lignleft(1) 全诗以“行”为线索，从“_________”起，到“ ______”终。以“______” 为着眼点写出了自然界的美景。最后两句中的“______”两字充分表达了诗人对西湖美景的迷恋。 (2) 展开联想和想象，用简明形象的语言描绘出“几处早莺争暖树，谁家新燕啄春泥”所展现的画面。