程序题 以下是一段VBA宏代码，请在相应位置按要求写出程序代码。

Sub A1()

With Selection.Font

.NameFarEast = ( )

.NameAscii = "Times New Roman"

.NameOther = "Times New Roman"

.Name = ( "黑段慎体拿燃哗" )

.Size - 14这里是错的，应该是消行=14,表示四号字

.Bold = ( wdToggle )

.Italic = ( wdToggle )

.Underline = wdUndrlineWords

.UnderlineColor = wdcolorAutomatic

.StrikeThrough = False

End With

End Sub

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.Font.Name = "黑体"

Selection.Font.Size = 14

Selection.Font.Bold = wdToggle

Selection.Font.Italic = wdToggle

选C。

一共三层循环

sum初值为0 且只在第三层循环中执行自增

也就是说第三层循环执行几次 sum最后的值就是几

第一层循环1 to 3 执行3次

在3次循环中又执行了第二层循环

第二层循环分别是1 to 4、2 to 4、3 to 4 共执行9次

在9次循环中又执行了第三层循环

第二层循环分别是1 to 5、2 to 5、3 to 5、4 to 5

2 to 5、3 to 5、4 to 5

3 to 5、4 to 5

函数：

Python的函数支持递归、默认参数值、可启州盯变参数，但不支持函数重载。为了增强代码的可读性，可以在函数后书写“文档字符串”(Documentation Strings，或者简称docstrings)，用于迹做解释函数的作用、参数的类型与意义、返回值类型与取值范围等。可悄和以使用内置函数help()打印出函数的使用帮助。

以上内容参考：百度百科-Python

为方便起见盯册，建名称“数独盘”和“可选数”，分别代表B2:J10和B12:J20两个区域。用如下VBA程序清空初盘：Sub 清空初盘()

Dim rag As Range

For Each rag In Range("数独盘")

rag.ClearContents

rag.Font.Bold = False

Next

End Sub

用如下VBA程序把初盘“粗体化”：Sub 粗体初盘()

Dim rag As Range

For Each rag In Range("数独盘")

If rag.Value = "" Then

rag.Font.Bold = False

Else

rag.Font.Bold = True

End If

Next

End Sub为建“可选数”表，先用如下程序语句清空“可选数”区域：Range("可选数").ClearContents '清空可选数

以下程序段，作为解数独的初始化工作的一部分完成如下工作：在“数独盘”区域仅保留粗体的已知数作为初盘。在“可选数”区域的与“数独盘”已知数对应的单元格，抄录已知数，其他单元格取“123456789”。程序如下：For Each rag In Range("可选数")

If rag.Offset(-10, 0).Font.Bold Then '“数独盘”中用粗体字表示已知数

rag.Value = rag.Offset(-10, 0).Value '把“侍肆数独盘”中的已知数抄录到对应的“可选数”区域中的相应位置

Else

rag.Value = "123456789" '“数独盘”中的未知数在“可选数”区域中的相应位置老则轿设置成“123456789”

rag.Offset(-10, 0).Value = "" '“数独盘”中的未知数用空格表示

End If

Next

接下来的初始化工作就是建立对应于初盘的可选数表。这部分工作和以后要讲的用“排除法”解数独题有相似之处。这些相似的工作用“处理确定数”子程序来完成。现在在“可选数”区域，寻找长度为1的数作为确定数，把该单元格置为空格，记下该单元格的行号和列号，由“处理确定数”子程序作相应处理。程序如下：For Each rag In Range("可选数")

If Len(rag.Value) = 1 Then

qds = rag.Value '已知数作为“确定数”

rag.Value = "" '对应于“确定数”在“可选数”区域设为空格，表示无别的数可选

i% = rag.Row - Range("可选数").Row + 1 '计算“确定数”在“可选数”区域的行号

j% = rag.Column - Range("可选数").Column + 1 '计算“确定数”在“可选数”区域的列号

Call 处理确定数(i%, j%, qds)

End If

Next

待续

---