vb大作业(难).docVIP

简易计算器 模仿windows自带的计算器的外观和功能，做一个简易的计算器。 要求： （1）用户通过键盘或者点选按钮进行输入计算。 （2）用户可以在下拉菜单中选择“标准型”和“科学型”两种模式。 （3）“标准型”计算器进行加、减、乘、除等基本运算。 （4）“科学型”计算器进行正反三角函数运算、对数运算、阶乘运算、幂运算。还可以进行不同进制数的转换，如2进制、8进制、10进制、16进制。 简易通讯录 运用编写一个通讯录软件来存储联系人的通讯信息。 要求： 本软件应有一个用于显示所有联系人的列表。 用户能够对记录进行增加、删除、查看、修改。 当用户选择增加按钮时，能够弹出一个form用于用户输入新信息。选择删除按钮时将联系人信息从列表中删除。点选查看按钮时，能够弹出一个form，显示联系人的详细信息。点选修改按钮时，能够弹出一个form用户用户修改联系人信息。 查看信息窗口可以仿照下图 将联系人的信息保存到一个文件便于存取。有余力的同学可以考虑使用数据库来存储信息（有额外的奖励偶！）。 记事本 模仿windows自带的记事本的外观和功能，做一个简易记事本。 要求： 用户能够在该记事本中输入和修改文字。 使用的菜单控件。具体如下： “文件”子菜单主要有“保存”、“另存为”、“新建”，“打开”四个功能。 “编辑”子菜单主要有“全选”、“复制”、“剪切”、“粘贴”四个功能 “格式”子菜单主要有“修改字体”的功能。 定时关机程序 要求： 用户设定自动关机的时间，时间到时关闭计算机 快到设定时间时，应有提示框弹出以提醒用户注意。最好能有声音提醒，比如提示：“离关机时间还有XX分，请保存好文档。” 关机时询问用户是否关机，如果是，则关闭计算机。 程序最小化到系统托盘运行，不在任务栏中出现。 系统托盘如图所示：（如QQ一样最小化到托盘） 右击本程序的系统在托盘中的系统图标，弹出菜单进行关机时间等参数的设置。参数保存在一个文本文件中。 获取网络时间，比如百度时间，进行时间校对，按照网络时间或者本地时间计算是否关机。 获取网络时间参考代码: Function GetNetTime() As Date Dim XmlHttp As Object Dim datetxt As String Dim temdate() As String Dim tempvar As String Dim temptim() As String Dim mon As String Dim timeGMT As Date XmlHttp = CreateObject(Microsoft.XMLHTTP) XmlHttp.Open(Get, /, False) XmlHttp.send() datetxt = XmlHttp.getResponseHeader(Date) XmlHttp = Nothing //将获取到的原始时间进行格式化 2009年01月08日 04:09:52 temdate = Split(datetxt, ,) tempvar = Replace(temdate(1), GMT, ) temptim = Split(tempvar, ) Select Case temptim(2) Case Jan mon = 01 Case Feb mon = 02 Case Mar mon = 03 Case Apr mon = 04 Case Mar mon = 05 Case Jun mon = 06 Case Jul mon = 07 Case Aug mon = 08 Case Sep mon = 09 Case Oct mon = 10 Case Nov mon = 11