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) =1
elsemat(i, j) =0
end if
next j
next i
for i = 1 to 10
for j = 1 to 10
print mat(i, j);
next j
printnext i
end sub
2、结果截图：
二、 有10名运动员的百米短跑比赛成绩如下右表，请编写程序，对成绩进行排序，并按左侧格式分行输出成绩排名表。
1、 **。
private sub form_click()
dim m, x
m = array(207, 156, 453, 96, 339, 77, 231, 276, 122, 302)
x = array(14.5, 14.2, 15.2, 15.7, 14.9, 15.1, 14.7, 13.9, 13.7, 14.5)
printprint , 名次", 运动员号", 成绩"
printfor i = 1 to 9
for j = i + 1 to 10
if x(i) >x(j) then
t = x(i)
x(i) =x(j)
x(j) =t
t = m(i)
m(i) =m(j)
m(j) =t
end if
next j
print , i, m(i), x(i)
next i
print , 10, m(10), x(10)
end sub
2、 结果截图、
三、 编写二进制整数转换十进制整数的函数，编写十进制实数（考虑整数部分和小数部分）转换二进制实数的函数。
1 function dtob(d as integer) as string
dim b as string, numnow as integer
do while (d > 0)
numnow = d mod 2
b = b + cstr(numnow)
d = d \ 2
loop dtob = strreverse(b)
end function
2 function btod(b as long) as integer
dim d as integer, exponent as integer, numnow as integer
exponent = 0
d = 0
do while (b > 0)
numnow = b mod 10
d = d + numnow * 2 ^ exponent b = b \ 10
exponent = exponent + 1
loop btod = d
end function
四、 建立一个图表显示应用程序。（文件、图形、多重窗体、对话框设计、菜单和控件综合设计）
数据源：某测试项目中不同功能模块所发现软件问题的类型统计数据，例如：
系统崩溃或挂起：29个软件问题。
功能失效或数据丢失：15个软件问题。
功能容错性问题：89个软件问题。
用户易用性问题：76个软件问题。
界面或文字问题：23个软件问题。
用户使用菜单和对话框来输入/改动不同功能模块的软件问题数量统计信息，请使用随机文件来存取图表数据源；
chart类型必须是平面饼图；
需要自行绘制图例区域、图表标题；
各个系列数据的显示颜色可以通过菜单和对话框改变；
所有的操作和显示选择均需通过菜单、对话框完成，请自行设计。
必须自己使用图形方法来绘制图表，不得使用mschart控件完成该作业。
**：dim color(5) as long
dim syserror(5) as integer, temp as string
private sub chartprint()
dim area1 as double, area2 as double, i as integer, j as integer, sum as integer
dim nameofproblem(5) as string
const pi = 3.1415927 cls
= "黑体"
print "软件问题统计数据"
for i = 1 to 5 sum = sum + syserror(i)
next i drawwidth = 2
for i = 1 to 5
area2 = syserror(i) /sum
for j = 1 to 250 circle (270, 500), j, color(i), area1, -area2 * 2 * pi + area1
next j area1 = area2 * 2 * pi + area1
next i = 720
= "幼圆"
print "图列"
line (590, 300)-(920, 725), b
nameofproblem(1) =系统崩溃或挂起"
nameofproblem(2) =功能失效或数据丢失"
nameofproblem(3) =功能容错性问题"
nameofproblem(4) =用户易用性问题"
nameofproblem(5) =界面或文字问题"
= "黑体"
for i = 1 to 5
print nameofproblem(i)
line (870, 700 - 86 * i - 1))-900, 670 - 86 * i - 1)),color(i), bf
next i
end sub
private sub chart_click()
chartprint
end sub
private sub colordatalost_click()
color(2) =
chartprint
end sub
private sub colorgui_click()
color(5) =
chartprint
end sub
private sub colorsyscrash_click()
color(1) =
chartprint
end sub
private sub colorsyserror_click()
color(3) =
chartprint
end sub
private sub coloruser_click()
color(4) =
chartprint
end sub
private sub editdatalost_click()
temp = inputbox("请输入新的数值", 功能失效或数据丢失", syserror(2))
if not temp = then syserror(2) =int(temp)
end sub
private sub editgui_click()
temp = inputbox("请输入新的数值", 界面或文字问题", syserror(5))
if not temp = then syserror(5) =int(temp)
end sub
private sub editsyscrash_click()
temp = inputbox("请输入新的数值", 功能容错性问题", syserror(3))
if not temp = then syserror(3) =int(temp)
end sub
private sub editsyserror_click()
temp = inputbox("请输入新的数值", 系统崩溃或挂起", syserror(1))
if not temp = then syserror(1) =int(temp)
end sub private
sub edituser_click()
temp = inputbox("请输入新的数值", 用户易用性问题", syserror(4))
if not temp = then syserror(4) =int(temp)
end sub
private sub form_load()
dim i as integer
syserror(1) =29
syserror(2) =15
syserror(3) =89
syserror(4) =76
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 大作业 二 数组 过程与菜单设计 2017 年 5 月 28 日。掌握一维和二维数组的定义及应用 掌握子程序过程的定义 调用及嵌套 掌握函数过程的定义 调用 掌握菜单和工具栏与对话框的设计与制作 1 一维和二维数组的定义 初始化 赋值，数组元素的输入与输出，数组与循环语句的配合使...
VB大作业 考试系统
考试系统。采用vb access设计。技术要求 1.access数据库要求采用相对路径连接。2.data或ado数据控件动态连结。必做部分。系统管理。1 用户登陆。2 用户管理 添加，修改，删除，更改密码 3 查分 按学号，按姓名 考试界面。1.选择题，判断题，有答题格式，上一题，下一题，放弃，提交...