起名字亚(亚字后面用什么名字好听)
16
2023 / 11 / 26
小十、双十、咪咪、圆圆、豆豆、鲁比、小贝、咿咿、糖糖、宝宝、小小、嘟嘟、西西、熊熊、露露、乐乐、丁丁、胖胖、猫猫、毛毛、天天、M仔、兜兜、扑扑、哒哒!这些都挺好听的!
第一步,制作抽签界面。
打开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单元格显示该班主任抽中的班级,并将抽中的班号自动填写到相应的单元格中,该班号不再参与下一轮抽签;当下一位班主任单击“抽签”按钮时进行下一轮抽签
白色:招福 金色:财运亨通 黑色:避邪消灾 粉色:恋爱顺利 红色:无病息灾 绿色:金榜题名 黄色:缔结良缘 蓝色:事业有成 紫色:美丽健康
举起左手的意思是“招财”,而举起右手则意指“招福”
猫身上的图案:宝船:象征财富 鹰:象征理想和梦想 茄子:象征愿望与理想实现 富士山:象征富贵、名利双得 龟鹤:象征长寿 松竹梅:象征吉祥 四季花卉:象征富贵 铃当:象征开运、缘份 樱花:象征爱情、事业顺利 鱼:象征年年有余
2021年最旺公猫名2021年最旺的公猫名有很多,比如直接可以叫它旺旺,发财,元宝,多多,钱钱,银子,金金,一般给猫起名字,只要朗朗上口,叫起来顺嘴,久而久之,他就能听明白了,起什么名字都是最好听的,如果想起王超的名字,那你就直接就叫他财神爷好了😁
猫咪名字:
妞妞,尼可,辛缔,莎拉,安妮,凯迪,凯琳,仙缔,珠丽,虎妞
米菲,卡哇伊,米菲,贝贝,璐璐,豆儿,旺财,乐乐,球球,圆圆
当当,爱米,小乖,娜娜,来福,奔奔, 果果,美美,崽崽,琪琪