4.1解析法训练6（含答案）

4.1解析法训练6 学校:_____姓名：_____班级：_____考号：_____ 一、操作题 1．完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个）， 单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示 在标签 Label1中。 程序运行效果如图所示。 （1）文本框 Text1不具备的属性为 （单选，填字母： A．Text/B．Caption/C．Width/D．Font）。 （2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。 Private Sub Command1_Click() Dim s As String Dim i As Integer, j As Integer, ans As Long Dim f As Boolean ans = 0 s = Text1.Text: j = 1: For i = 1 To Len(s) ch = Mid(s, i, 1) If ch = "," Then x = Val(Mid(s, j, i - j)) If Then ans = ans + x f = True j = i + 1 ElseIf ch = "-" Then f = False j = j + 1 End If Next i Label1.Caption = "完全平方数之和为： " + Str(ans) End Sub （3）若文本框 Text1中输入的内容为“-4,4,4”（不包括双引号），则标签Label1 中输出的内容为“完全平方数之和为： ”。 2．获取字符串中指定范围内的元素，可以通过字符编号来实现，字符编号有正向编号和反向编号。如字符串"ABCDEF"，字符A的正向编号为1、反向编号为-6，如下表： "2：4"表示获取正编号"2"到"4”的字符串，即"BCD"，-5：-3、2：-3、-5：4这三种编号范围也表示的是字符串"BCD"。 小王根据上述算法设计如下程序，在文本框Textl输入字符串，在文本框Text2和Text3中输入字符编号，单击"获取"按钮，在标签Labell中显示指定范围的字符串。当Text2中的编号位置在Text3中的编号位置之前，则输出正向字符串，反之输出逆向字符串。程序运行界面如图所示。 (1)用户单击命令按钮Command1时调用的事件处理过程为 。(单选，填字母：A．Command1/ B．Caption/C．Click/D．Commandl_Click)。 (2)实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim s As String， ans As String Dim a As Integer，b As Integer， n As Integer s=Textl.Text：n= Len(s)： ans="" a=Val(Text2.Text)： b = Val(Text3.Text) If Abs(a)>n Or Abs(b)>n Or a *b=0 Then ans="输入范围有误" Else If a<0 Then a=a+n+ 1 If b<0 Then b= ① If a<=b Then ans= ② Else Fori=a To b Step-1 ans=ans+Mid(s，i，1) Next i End If End If Label1.Caption=ans End Sub (3)若文本框Textl中输入的内容为"123456789"，文本框Text2和Text3中输入的内容分别为-3和5，单击"获取”按钮，标签框Labell中显示的内容是 。 3．【加试题】四宫数独规则：在4×4的格子中，根据已知数字，推理出所有剩余空格的数字，并满足每一行、每一列、每一个宫（粗线框区域）内均含1到4的数字并且不重复，每道数独有且仅有唯一答案。 例如，根据规则推理图1数独，在第一宫中4个格子已经3个格子分别是数字1到3，缺的数字为4，因此第一行第一格空缺的数字填4，以此类推，直至将所有格子都推理出来。 图1 图2 （1）根据上述规则推理，数独（图2）第一行A处应是数字 。 （2）小明编写了四宫数独推算的VB程序，单击“推算”按钮 Command1后，在列表框List1中输出数独推算过程和结果，如第17题-3题图所示。实现推算的VB程序如下，请在划线处填入合适的代码。 Dim d(1 To 16) As Integer '数组d逐行存储四宫数独 Private Sub Command1_Click() Dim i As Integer，flag As Boolean For i = 1 To 16 d(i) =0 ‘值0表示该位置还未填数字 Ne ... ...