现在是互联网社会，网络技术日新月异，如何将新奇的技术应用到现实生活中来，是21世纪人们所面临的主要难题，今天我们从一个小小的地方开始，感受科技带给生活的美好体验。起名字一直是新手父母的难题，人们通过各种各样的方式寻求一个好听的名字，也将对孩子美好人生的向往寄托在名字里。过去人们普遍文化程度较低，科技也不发达。人们主要通过村里的有威望的人，请他们查找字典上含义优美的字来给小孩命名。或者是自己去翻诗经，古诗词本查找好听的字来给自己小孩求得好名字。方法不尽相同，但都费时费力，今天我们有excel这样强大的工具，可以将我们喜欢的字随机组合成名字，从而给你的小孩取一个好听的名字。
工具/原料
1
Microsoft Excel
2
字典
方法/步骤
1
一、选取你认为好听的字从字典或者网，诗歌，小说，散文或者你喜欢的电视剧中找到你认为好听的字，将它们统统输入excel表格中。
2
二、将excel代码复制进你的vba中下面这段代码复制进你的开发工具下的visual basic 中Private Sub CommandButton1_Click()a = Cells(1, 1).ValueDim arr(1 To 50)For i = 1 To Len(a) arr(i) = Mid(a, i, 1) Cells(i + 1, 2).Value = arr(i)Next im = 2For i = 1 To Len(a)For j = 1 To Len(a) If j <> i Then Cells(m, 3).Value = arr(i) & arr(j): m = m + 1Next jNext in = 2For i = 1 To Len(a)For j = 1 To Len(a)For k = 1 To Len(a) If j <> i And j <> k And i <> k Then Cells(n, 4).Value = arr(i) & arr(j) & arr(k): n = n + 1Next kNext jNext iEnd Sub
3
三、获取你想要的名字新建一个按钮，关联你的代码点击按钮就可以获得你想要的名字序列了，然后从里面选择你想要的名字吧是不是很有意思。
注意事项
取名很关键，父母须慎重