实验报告
课程名称程序设计语言(vb
实验学期 2011 至 2012 学年第二学期。
学生所在系部安全工程学院。
年级大一班级安全b116班。
学生姓名邓连军学号 201110044601
任课教师胡为民。
实验成绩。计算机系制。
程序设计语言（vb） 》课程综合性实验报告。
开课实验室： 基础实验室2012 年 6 月 22 日。
四．实验结果分析及设计步骤如下：
1，先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。设计界面如下图所示：
**如下：private sub text1_lostfocus()
if <>安全b116班邓连军" then
msgbox "账号必须为安全b116班邓连军", 警告"
end if
end sub
private sub command1_click()
if <>201110044601" then
i = msgbox("密码错误", 5 + vbexclamation, "警告")
else:
end if
end sub
2，密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。
**如下：private sub 数组menu_click()
end sub
private sub 字符menu_click()
end sub
private sub 计算menu_click()
end sub
private sub 退出程序_click()
end sub
3，“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框。
**如下：1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。
private sub form_load()
= false
= false
= false
= false
= true
= false
falseend sub
单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。 输入完毕后，“输入”按钮变灰，其他变为可用状态。
dim a(1 to 10) as integer
private sub command5_click()
for i = 1 to 10
v = inputbox("请输入第" &i & 个整数 ")
if not isnumeric(v) then
msgbox "输入数据无效，请重。
新输入，请输入第" &i & 个数。",vbinformation
v = inputbox("请输入第" &i & 个整数 ")
end if
a(i) =v
next i
= true
= true
= true
= true
= false
= true
= true
end sub
3）按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用a（10）存放最大数，a（1）存放最小数）。
a , 升序排列。
private sub command2_click()
n = ubound(a)
for i = 1 to n - 1
for j = i + 1 to n
if a(j) >a(i) then
t = a(i): a(i) =a(j): a(j) =t
end if
next j
next i
for i = 1 to n
= +str(a(i))
next i
end sub
b , 降序排列
private sub command1_click()
n = ubound(a)
for i = 1 to n - 1
for j = i + 1 to n
if a(j) t = a(i): a(i) =a(j): a(j) =t end if next j next i for i = 1 to n = +str(a(i)) next i end sub c, 求最大值。 private sub command3_click() max = a(10) for i = 1 to 10 if a(i) >max then max = a(i) next i = val(max) end sub d，求最小值。 private sub command4_click() min = a(1) for i = 1 to 10 if a(i) next i = val(min) end sub e.单击“清空”按钮将所有文本框清空。 private sub command6_click() end sub f，单击“返回”按钮将返回主界面。 private sub command7_click() = false = false = false = false = true = false = false end sub 4.“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图所示。 1）要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。 private sub option1_click() a = b = ucase(a) = bend sub private sub option2_click() a = b = lcase(a) = bend sub private sub command1_click() dim n as long if option3 then n = len(text1) for i = 1 to n k = mid(text1, i, 1) if "a" b = ucase(k) elseif "a" b = lcase(k) end if = &bnext i end if if option1 then = &b 程序编写练习。班级学号姓名。单击命令按钮command1后，从键盘输入n x，其中x的绝对值必须小于1。用do.loop结构甄别，对于不合格的x要求重新输入，直到合格。然后计算并在窗体显示下列表达式的值。课堂作业1 1 改编 2009秋1填空 private sub command1 click d... 习题参 第1章 p17 一 选择题。1 c 2 d 3 b 4 a 5 b 6 d 7 b 二 填空题。1 对象列表框排序方式属性列表框属性说明框。3 内部控件 activx控件可插入对象。4 top和left，width和height 5 f4 视图菜单 工具栏按钮 工程窗口中右键 窗体中使用右键... 单选题多选题判断题sas 一 单选题 共3道试题，共12分。1.语句dim x as integer作用是 将x定义为 变量。a.单精度型b.整型c.布尔型d.字符型。选择 b2.设a 2,b 3,c 4,d 5,下列表达式的值是 not a c or 4 c b 2 and b a ca.2b.1...vb课堂作业 1答案
vb教材课后作业答案
15春《VB》作业2满分答案