题库 高中信息

题干

(加试题)用绳索围成回字迷宫图(左图所示),迷宫路宽是 1 米,如果绳索长为 X 米,则可以构成多少个边长为1米并且至少两边在绳索上的正方形。程序效果如右图所示。

Dim X As Integer, L As Integer, i As Integer
Dim n As Integer, a As Integer, b As Integer
X = Val(Text1.Text)
If X < 2 Then
 n = 0
ElseIf X >= 2 And X <= 4 Then
 n = 1
Else
 i = 1: L = 3
 Do While    

i = i + 2

L = L + 4 * i

 Loop
 If L = X Then
  n = i ^ 2
 Else
  L = L - 4 * i
  a =        
  b = ((X - L) \ i) * (i - 1) - 1 + (X - L) Mod i
  n = a + b
 End If
End If
 Label1.Caption = " 绳索长度为 " + Str(X) + " 米,可以构成 " + Str(n) + " 个边长为 1 米的正方形。"
(1)为实现该程序的功能,画线处的语句应填写为:
①________________________
②_________________________
(2)如果绳索长度 X 为 15 米,则可以构成相应的正方形个数为________。
上一题 下一题 0.99难度 填空题 更新时间:2019-05-06 06:22:01

答案(点此获取答案解析)