将项目命名为“昵称-2-2”。程序编写完成后，将存放程序的...

将项目命名为“昵称-2-1”。程序编写完成后，将存放程序的文件夹压缩后以附件形式提交。压缩文件名为：昵称-2-1.rar。 在窗体上放置一个命令按钮和一个标签。窗体的标题为：“欢迎”，命令按钮上显示的文本为：“点我”，标签初始时没有文本。当用户单击命令按钮时，就会在标签中显示“欢迎使用VB.NET！”。 利用属性窗口对窗体、命令按钮和标签的属性进行设置，具体需要设置的属性及设置的值如下表所示。 序号 控件 属性 值 备注 1 Form Name Form1 系统默认名 Text 欢迎 — 2 Button Name Button1 系统默认名 Text 点我 — 3 Label Name Label1 系统默认名 AutoSize False 不根据字号自动调整大小 Text 标签上显示的文本，初始为空 Size 200, 35 标签的大小 Font 字体：宋体 字形：粗体 大小：三号 设置字体 BackColor 红色（Red） 设置背景色 程序的运行效果如下图所示。（a）程序启动后的界面 （b）点击“点我”命令按钮后的界面 提示：本题需要编写代码的事件过程为命令按钮的Click事件过程，需要编写的语句如下： Label1.Text = "欢迎使用VB.NET！" 注意，在写程序时，一定要将：欢迎使用VB.NET！，用双引号""括起来，因为这是一个字符串。

将项目命名为“昵称-4-1”。程序编写完成后，将存放程序的文件夹压缩后以附件形式提交。压缩文件名为：昵称-4-1.rar。 编写一个发红包的程序。用户单击“开红包”命令按钮后，在弹出的消息框中告诉用户红包的金额。程序界面如下图所示。 使用Rnd函数随机产生红包的金额，金额既可以是整数，也可以是保留两位小数的实数，取值范围由你自己决定。在程序代码中写注释说明红包的取值范围。（a）程序启动后的界面 （b）点击“开红包”命令按钮后弹出的消息框 提示： 假设你想产生0~200之间的、保留两位小数的红包，则代码如下： Dim RedPacket As Single Randomize() RedPacket = Math.Round(Rnd() * 200, 2) MsgBox(RedPacket & "元", , "恭喜") 这里MsgBox函数的第1个参数中的“&”符号是字符串连接运算符，用于将两个字符串连接成一个字符串。 请同学们试试产生任意范围的整数或实数金额的写法。

将项目命名为“昵称-3-2”。程序编写完成后，将存放程序的文件夹压缩后以附件形式提交。压缩文件名为：昵称-3-2.rar。 在窗体上有一个图像为蝴蝶的图片框，四个标题分别为“上移”、“下移”、“左移”、“右移”的命令按钮。编写程序，使得单击某个命令按钮时，蝴蝶向相应的方向移动10个像素。程序界面下图所示。提示： 1）设置图片框的SizeMode属性值为StretchImage。到网上去下载一幅蝴蝶的图片，通过在属性窗口设置图片框的Image属性值将图片加载进图片框。 2）“上移”操作是减小图片框的Top属性值；“下移”操作是增加图片框的Top属性值；“左移”操作是减小图片框的Left属性值；“右移”操作是增加图片框的Left属性值。

将项目命名为：昵称-5-1，其中昵称是你在“中国大学MOOC”网站的昵称。程序编写完成后，将存放程序的文件夹压缩后以附件形式提交。压缩文件名为：昵称-5-1.rar。除了提交附件外，还请将源代码粘贴到答题的文本编辑框中。 编写一个华氏温度与摄氏温度之间转换的程序，运行界面如下图所示。在华氏温度对应的文本框中输入华氏温度时，单击“华氏转摄氏”命令按钮，则在摄氏温度对应的文本框中显示相应的摄氏温度；在摄氏温度对应的文本框中输入摄氏温度时，单击“摄氏转华氏”命令按钮，则在华氏温度对应的文本框中显示相应的华氏温度。提示： 1）华氏温度与摄氏温度转换公式是： 华氏温度=（9/5）* 摄氏温度 + 32 摄氏温度=（5/9）*（华氏温度 - 32） 2）运算结果的小数点后有很多位，可通过使用Round函数保留两位小数点。 3）本题的关键是能否正确书写表达式，从而正确地转换。请运行你的程序并判断结果是否正确，例如：100华氏度为37.78摄氏度，100摄氏度为212华氏度。

将项目命名为“昵称-4-2”。程序编写完成后，将存放程序的文件夹压缩后以附件形式提交。压缩文件名为：昵称-4-2.rar。 在窗体上有一个写有2016年度优秀学生姓名的文本框，在另一个文本框中输入一个同学的姓名，单击“我是优秀学生吗？”命令按钮，则弹出消息框告诉用户此人是否是优秀学生。程序界面如下图所示。提示： 1）使用Instr函数判断用户输入的姓名是否在优秀学生名单中，如果找到，则函数的返回值为该姓名在名单字符串中的位置；如果没有找到，则返回值为0。 2）通过If语句判断Instr函数的返回值是否为0，从而决定在消息框中显示的内容。语句如下： If InStr(TextBox1.Text, TextBox2.Text) = 0 Then MsgBox("你不是优秀学生") Else MsgBox("你是优秀学生") End If 这里TextBox1为显示优秀学生名单的文本框，TextBox2为输入姓名的文本框。

以“昵称-7-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-7-2.rar，以附件形式提交。 求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a)，其中a是通过滚动条获得的1~9(包括1和9)之间的一个正整数，n是通过滚动条获得的5~10(包括5和10)之间的一个数。 例如：当a=2，n=5时，Sn=2+22+222+2222+22222。 【提示】 ① 因为滚动条产生的数值范围比较小，所以将LargeChange设置为1～2； Maximum设置为最大值-LargeChange+1，否则到不了最大值。 为了得到不断重复a的n位的数Temp，可用如下程序段实现： Temp=0 For i=1 To n Temp=Temp*10+a Next i ② 产生的表达式以横向和纵向两种形式显示，如下图所示。横向显示运行结果纵向显示运行结果

以“昵称-7-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-7-2.rar，以附件形式提交。 求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a)，其中a是通过滚动条获得的1~9(包括1和9)之间的一个正整数，n是通过滚动条获得的5~10(包括5和10)之间的一个数。 例如：当a=2，n=5时，Sn=2+22+222+2222+22222。 【提示】 ① 因为滚动条产生的数值范围比较小，所以将LargeChange设置为1～2； Maximum设置为最大值-LargeChange+1，否则到不了最大值。 为了得到不断重复a的n位的数Temp，可用如下程序段实现： Temp=0 For i=1 To n Temp=Temp*10+a Next i ② 产生的表达式以横向和纵向两种形式显示，如下图所示。横向显示运行结果纵向显示运行结果

实验所需的素材，参考上一题。编写数据库应用程序，实现如下几个功能： （1）初始界面在DataGridView控件显示Personal表的全部信息，如下图所示。（2）添加：弹出新的窗体，输入添加员工的信息，如下图所示。（3）修改：弹出新的窗体，显示DataGridView中当前所选择员工的具体信息，以待修改。如下图所示。（4）删除：删除当前选择的员工，弹出窗体以确认是否删除，如下图所示。以“昵称-7-2”为项目名保存，项目完成后，将整个项目文件夹压缩成：昵称-7-2.rar，以附件形式提交。

编写递归过程，绘制递归三角形图。从1个大的三角形开始，将其三条边的中点进行连线，分成相同的4个三角形，除中间外的3个三角形重复上述过程，直到满足给定的条件底层为止，如图所示。程序界面自行设置，以“昵称-9-2”为项目名保存。 项目完成后，将整个项目文件夹压缩成：昵称-9-2.rar，以附件形式提交。 提示： ①分形三角形的生成原理是：先作一个大三角形，然后取各边中点连成一个小三角形，挖去这个小三角形后，在剩下的三个小三角形里重复这个步骤。随着迭代次数不断增加而重复进行前述步骤。 ②设置初始三角形的顶点位置（x1,y1），（x2,y2），（x3,y3），读取迭代次数n。 ③调用递归函数Sier3(int x1, int y1, int x2, int y2, int x3, int y3, int n)：若n=1，绘制由三个顶点组成的三角形；若n>1，挖去由三角形各边中点连成的小三角形，且n减小1，再在剩下的三个小三角形中分别调用递归函数。