人名起名(婴儿名字取名)
12
2023 / 11 / 24
泽、初、锦、瑾、暖、轩、扬、影、莹、良、玉、谦、朗、然、瑶、遥、韶、颦、敏、航、宇、凌、修、远、沐、城、皓、澜、清、如、景、 嗯,好多阿,其实看你姓什么姓,然后想起一个什么样寓意的名字啦。
男女Leslie——LesleyAdrian——AdrienneAlexander——AlexandraChristine——ChristinaDaniel——DanielleDenis——DeniseEric——EricaFrederic——FredericaGeorge——GeorgianneGlenn——GlendaHarry——HarrietJack——JacquelineJoe——JoeyJohn——JoanJoseph——JosephineJustin——JustineLawrence——LauraLuke——LuciaMichel——MichelleNicholas——Nicole(Nichole)Oliver——OliviaPatrick——PartriciaPaul——PaulaSam——SammyStephen——StephanieVictor——Victoria
001、 黑骑战队
002、 胜者联盟
003、 汐黛
004、 极限穿越
005、 血式家族
006、 阵雨
007、 琬忆
008、 蕊妍
009、 媛爱
010、 挽歌
011、 野橘
012、 闲语
013、 顾北
014、 如吟
015、 宗大
016、 黑加吉战队
017、 圣狱
018、 司宥
019、 玖梦
020、 南笩
021、 赤色火焰
022、 赛斯佣兵团
023、 界限
024、 旭尧
025、 菟族丶零番队
026、 柚菀
027、 ex梦之队
028、 北执
029、 雪狼
030、 想加个战队
031、 浩树
032、 轩芫
033、 源唯
034、 炫魂之队
035、 云端梦之都
036、 征战四方
037、 断罪之翼
038、 怡白
039、 樱花
040、 梵音战阁
041、 奇异夸克团
042、 妙代
043、 灵安
044、 緈諨迴憶
045、 v丶show概念
046、 宛亦
047、 狄同
048、 top堡龙e族
049、 dark绝伦独舞
050、 天辰
051、 逆天零界
052、 雪儿灬盟队
053、 夜朝
054、 血誓盟
055、 冷〤液轩
056、 紫帝
057、 盛良
058、 ck丶战战队
059、 天使冒险
060、 雨樱
061、 寅衡
062、 宸腾
063、 death战队
064、 清江
065、 淇洁
066、 希倩
067、 娴思
068、 媛荣
069、 晓涵
070、 洋菁
071、 澄正
072、 凡容
073、 霖汉
074、 筷楽丗家
075、 枫萱
076、 菲爽
077、 rp℃战队
078、 卫清
079、 梦伊
080、 菲希
081、 乐天
082、 suiya丶战队
083、 逗比敢死队
084、 欢乐谷
085、 s.du天娇团
086、 宇克
087、 沐歌
088、 风韵
089、 v字仇杀队
090、 筠梦
091、 岚月
092、 淡默
093、 嚣嚣张张族
094、 雨灵
095、 夏眸
096、 娅楚
097、 百分百战队
098、 捍雨卫队
099、 君临山河亡
100、 草帽海盗团
101、 雪域传说
102、 飘姝
103、 魅力丶战队
104、 静丽
105、 滢倩
106、 各种求战队
107、 晴静
108、 死亡圆舞曲
109、 丶muma丨team
110、 金牌敢死队
111、 单纯de丨team
112、 振冬
新言(妍)、新勤(晴)、新辉(慧)、新越(玥)、新耀(瑶)、新嘉(佳)、新睿(蕊)、新杰(洁)、新俊(君)、新宏(虹)、新力(俐)、新斌(冰)、新爵(珏)、新勇(咏)、新洋(阳)、新晨(辰)、新毅(亦)、新雷(蕾)
蔡恩熙、蔡林熙,熙字放最后面还是比较好听的,熙有光明、兴盛之意,个人认为这是男孩子、女孩子都可以用的名字。
第一步,制作抽签界面。
打开WPS表格2009,新建一个空白文档。假设一个年级有20个班,在a1单元格中录入“班主任姓名”,在(a2:a21)单元格区域中录入班主任姓名;在b1单元格中录入“抽中班级”,在(b2:b21)单元格区域中录入“未抽签”字样;若用e3单元格显示抽签后抽到的班级,则将e3单元格设置合适的边框和字号;接着执行“视图→工具→控件工具箱”,单击“命令按钮”,在e3单元格下方插入两个按钮,并在“属性”窗口中设置Caption选项分别为“抽签”和“停止”,名称选项为默认的CommandButton1和CommandButton2。
第二步,为按钮实现其功能。
双击“抽签”按钮,打开代码窗口,输入下列代码(该代码中包含“停止”按钮的代码):
Option Explicit
Dim flag As Boolean, i, j, m As Integer
Private Sub CommandButton1_Click()
flag = True '初始化中断变量 当中断变量为真时开始抽签
tiaozhuan1:
For i = 1 To 20 '假如有20个班
DoEvents '释放程序控制权 允许执行其它事件
For j = 2 To 21 '第2行到21行
If Cells(j, 2) = i Then GoTo tiaozhuan2
Next
Cells(3, 5) = i '即e3单元格显示循环变量的值
If flag = False Then GoTo tiaozhuan3 '如果按下了停止按钮则退出
tiaozhuan2:
Next
If flag = True Then GoTo tiaozhuan1
'如果一次循环结束还没按下停止按钮则进行下一次循环
tiaozhuan3:
For m = 2 To 21
If Cells(m, 2) = "未抽签" Then
Cells(m, 2) = Cells(3, 5)
Exit Sub
End If
Next
End Sub
Private Sub CommandButton2_Click()
flag = False '中断循环
End Sub
现在关闭代码窗口,退出设计模式,一个抽签程序就制作好了。当单击“抽签”按钮,在e3单元格中轮流显示没有被抽中的班级,单击“停止”按钮时e3单元格显示该班主任抽中的班级,并将抽中的班号自动填写到相应的单元格中,该班号不再参与下一轮抽签;当下一位班主任单击“抽签”按钮时进行下一轮抽签