下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。 Private Sub MoveRight(x()As Integer)Dim i As IntegerDim j As IntegerDim k As Integeri＝UBound(x)j＝x(i)For k＝i To 【9】 Step—1 【10】 Next kx(LBound(x))＝jEnd Sub Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i＝0 To 10 a(i)＝i Next i j＝Val(Text1.Text) k=0 Do k＝k+1 Call MoveRight(a) Loop Until k＝j For i=0 To 10Print a(i); Next i End Sub

日本人民善于学习、善于创造，勤劳智慧、奋发向上。远在1400多年前，日本就先后20多次向中国派出遣隋使、遣唐使，借鉴中国的制度、典章、律令，引入佛教、汉字、技术，结合自己的实际形成了独具特色的日本文化。明治维新以后，日本人民努力学习吸收世界先进文明成果，逐步发展成为亚洲第一个现代化国家。日本人民以有限的国土资源创造出举世瞩目的发展成就，日本在制造业、信息、金融、物流等领域位居世界前列，拥有世界一流的节能环保技术。这是日本人民的骄傲，也值得中国人民学习。

请回答： 

（1）“远在1400多年前”，日本“借鉴中国的制度、典章、律令”进行的一次改革叫什么？

______________________________________________________________________

（2）日本明治维新又是借鉴了哪里的“先进文明成果”？具体通过哪些措施使日本“逐步发展成为亚洲第一个现代化国家”？

______________________________________________________________________

（3）两次改革分别使日本的社会制度产生了什么变化？

______________________________________________________________________