求帮做一个VB程序

显示全部楼层 · 2011-7-9 22:35:00

一、实验题目：Visual Basic综合应用程序开发
二、实验目的：
1、掌握数组的应用：
（1）数组的定义
（2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。
2、会使用过程编程和字符串操作
（1） sub过程的定义与调用
（2） function过程的定义调用
（3）字符串的大小写转换操作
3、掌握基本控件的使用
包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。
4、掌握菜单和工具栏的使用
三、实验设备及环境：
硬件：多媒体计算机
软件：Windows 2000以上的操作系统、Visual Basic集成开发环境
四、实验内容及要求：
1、先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5％）
2、密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10％）
3、 “数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35％，每个按钮功能为5％）。
题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：
（1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。
（2）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。
（3）输入完毕后，“输入”按钮变灰，其他变为可用状态。
（4）按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。
（5）单击“清空”按钮将所有文本框清空。

图1
4、 “过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25％）
题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。
图2
5、单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%）
题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。

图3
6、单击“退出”菜单，退出程序运行。
五、考核标准：
1、成实验要求全部功能；或完成90％以上功能；或完成85％以上功能，并能对部分程序有自己的创新，成绩为优。
2、完成80％以上功能；或完成75％以上功能，并能对部分程序有自己的创新，成绩为良。
3、完成70％以上功能；或完成65％以上功能，并能对部分程序有自己的创新，成绩为中。
4、完成60％以上功能；或完成55％以上功能，并能对部分程序有自己的创新，成绩为及格。
5、完成60％以下功能者，成绩不及格。

千问 · 2011-7-9 22:35:00

Dim P As Single, SJ, SHI As Integer, FEN As Integer, MIAO As IntegerPrivate Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueP = 3.1415926End Sub...

千问 · 2011-7-9 22:35:00

怎么没有答案啊...

千问 · 2011-7-9 22:35:00

怎么没答案？老白，我也来了，哈哈...

千问 · 2011-7-9 22:35:00

的确是华科的同求答案二楼的专业不能说不能说万一有潜伏的老师呢...

千问 · 2011-7-9 22:35:00

我也是华科的你是哪个专业的啊...