程序设计基础（vb）
大作业（二）
数组、过程与菜单设计
2017 年 5 月 28 日。
掌握一维和二维数组的定义及应用；
掌握子程序过程的定义、调用及嵌套；
掌握函数过程的定义、调用；
掌握菜单和工具栏与对话框的设计与制作；
1) 一维和二维数组的定义、初始化、赋值，数组元素的输入与输出，数组与循环语句的配合使用。
2) sub过程的定义方法、调用语句，过程的定义与调用及返回值知识；
3) 过程调用时的参数传递方式（传值和传址两种方式）。
4) 下拉式菜单和弹出式菜单的设计与制作，工具栏的设计与制作。
5) 对话框的设计与制作技术。
题目1：编写一个小工程，实现用户输入一个数组，单击按钮后输出该数组的逆序结果（第一个元素和最后一个元素对调，依次类推）。
题目2：编写一个工程，实现功能：用户在文本框或列表框里输入（选择）几个数字后，求出这几个数字的阶乘之和（求一个数的阶乘用函数过程实现）。
题目3：自己设计一个某企业的“商品销售管理系统”的菜单系统并在vb工程中实现它。
题目4：编写一个小工程，实现用通用对话框打开磁盘中存储的某个文件**。
题目1：1） 工程设计（思路）：
2） 实现**如下：
private sub command1_click()
fontsize = 22
dim a(10) as integer
dim i as integer
for i = 1 to 10
a(i) =inputbox("请输入数据" &cstr(i) &
nextfor i = 10 to 1 step -1
a(i);next
print输出下一行。
end sub
private sub command2_click()
endend sub
3） 运行结果及分析：
依次输入0；1；2；3；4；5；6；7；8；9。输出结果如下：
题目2：1） 工程设计（思路）：
2） 实现**如下：
private sub command1_click()
dim a as long, b as long, c as long, s as long
a = val(inputbox("请输入一个正整数：")
b = val(inputbox("请输入一个正整数：")
c = val(inputbox("请输入一个正整数：")
jc ajc b
jc cs = a + b + c
msgbox s
end sub
public sub jc(byref n as long)
dim i as long, y as long
if n <>0 then
y = 1else
n = 0exit sub
end if
for i = 1 to n
y = y * i
next i
n = yend sub
private sub command2_click()
endend sub
3） 运行结果及分析：
依次输入1；2；3。输出结果如下：
题目3：1） 工程设计（思路）：
单击“标准”工具栏中的“菜单编辑器”按钮，打开“菜单编辑器”对话框。在“标题”文本框中输入第一个菜单项的标题“文件（&f）”，然后在“名称”文本框中输入当前菜单项的名称“munfile”。单击“下一个”按钮，再单击右箭头按钮，在该菜单项的“标题”文本框中输入“注册（&l）”。
依次按如下设计菜单设置。
2） 实现**：(无)
3） 运行结果及分析：
题目4：1） 工程设计（思路）：
command1,command2”的font设置为“宋、22”。
运行前，先进行如下操作：选择“工程”菜单中的“部件”命令，打开“部件”对话框。在“部件”对话框中打开“控件”选项卡，然后在控件列表中选中“microsoft common dialog control 6.
0”复选框，如下图所示：
单击“确定”按钮，commondialog控件出现在工具箱中，单击“commondialog”控件，在窗体上设置commondialog控件。
2） 实现**如下：
private sub command1_click()
= "f;\"
'对话框中可显示六种格式的图像文件：位图（*.bmp）、windows
'图元文件（*.wmf）、图标（*.ico）、光标（*.cur）、jpeg格式（*.jpg）
'以及gif格式（*.gif）
= "位图（*.bmp）|*bmp|jpeg格式(*.jpg)|*jpg|"
= &gif格式（*.gif)|*gif|windows图元文件(*.wnf)|*wmf|"
= &图标（*。ico）|*ico|光标(*.cur)|*cur|"
'制定默认的过滤器为7，及默认显示“所有支持文件。
'(*bmp;*jpg;*.gif;*.wmf;*.ico;*.cur)"
"所有支持文件(*.bmp;*.jpg;*.gif;*.wmf;*.ico;*.cur)|"
on error goto usercancle
selectfile =
= loadpicture(selectfile)
usercancle:
end sub
private sub command2_click()
endend sub
3）运行结果及分析：
需要知道自己做的程序是命令计算机去做什么，首先该怎么做，下个一步骤又怎么做，知道每一个**的含义，每一个部件的运行功能和方法，才能编好一个程序，具体的每一步操作都很关键，需要清醒的头脑，认真的态度。
VB大作业
2010 2011学年第一学期。课程大作业。一 编写程序，建立并输出一个10x10的矩阵，该矩阵主对角线元素为1，其余元素为0。1 private sub form click dim mat 10,10 for i 1 to 10 for j 1 to 10 if i j then mat i,j...
vb大作业
学生信息管理系统。组长 姓名 学号 组员 姓名 学号 专业班级 指导教师 结束时间 年 月 日 目录。摘要1 第1章开发背景和系统概述2 1.1开发背景2 1.2系统概述2 1.3开发环境3 第2章需求分析与功能介绍5 2.1需求分析5 2.2系统软件结构7 2.3系统功能介绍8 第3章主要界面设计...
VB大作业 考试系统
考试系统。采用vb access设计。技术要求 1.access数据库要求采用相对路径连接。2.data或ado数据控件动态连结。必做部分。系统管理。1 用户登陆。2 用户管理 添加，修改，删除，更改密码 3 查分 按学号，按姓名 考试界面。1.选择题，判断题，有答题格式，上一题，下一题，放弃，提交...