题目

编程找出100到1000之间满足以下条件的整数：该数和该数平方合并后的数字串中不存在重复的数字。例如209，其平方数为43681，209和43681合并后的数字串“20943681”中无重复数字，209就是符合条件的数。实现上述功能的VB代码如下，但加框处代码有错，请改正。 Private Sub Command1_Click() Dim x As Integer, y As Long, st As String For x=100 To 1000 y=x^2 st=Str(x) & Str(y) IfThen ‘① List1. AddItemx: & Str(x) & x2: &Str(y) &x&y: & Str(st) End If Next x End Sub Private Function清代史学家章学诚在《与汪龙庄书》一文中指出：“今日学者风气，征实太多，发挥太少，有如桑蚕食时（吃桑叶），而不能抽丝。拙撰《文史通义》，中问议论开辟，实有不得已而发挥，为千古史学辟其蓁芜（杂乱）。”可见其主张史学研究应该（　　）A.重视秉笔直书B.具有创造精神C.贵在言必有据D.注重因果联系