VB实验 数组程序设计.docx
- 文档编号:29935745
- 上传时间:2023-08-03
- 格式:DOCX
- 页数:19
- 大小:692.25KB
VB实验 数组程序设计.docx
《VB实验 数组程序设计.docx》由会员分享,可在线阅读,更多相关《VB实验 数组程序设计.docx(19页珍藏版)》请在冰豆网上搜索。
VB实验数组程序设计
实验三数组程序设计
一、实验目的
通过实验掌握vb的数组的概念和使用。
二、实验设备
1.PC机一台;2.VB6.0集成开发环境。
三、实验内容及要求
1.编写程序实现方阵的运算示例。
点击“生成方阵A、B”按钮,允许用户输入方阵阶数,根据阶数随机产生两个方阵。
分别点击运算框中的命令按钮,完成相应的运算。
要求:
方阵A、B、C采用动态二维数组存放;三个运算命令按钮使用命令按钮控件数组。
2.编写程序实现一个信息输入与查询系统。
用户从界面输入人员信息,点击新增按钮将信息加入记录数组;通过界面上的按钮完成人员信息的查询。
要求使用记录数组。
五、程序代码草稿
六、实验结果
要求:
将实验调试通过的程序代码考屏;程序运行结果考屏。
七、实验中遇到的问题与解决方法或实验收获
答案:
1.方阵运算代码:
OptionBase1
Dima()AsInteger,b()AsInteger
DimnAsInteger
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
n=InputBox("请输入方阵阶数","阶数")
Show
Randomize
ReDima(n,n)
Print"方阵A:
"
Fori=1Ton
Forj=1Ton
a(i,j)=Int(9*Rnd+1)
Printa(i,j);
Nextj
Nexti
Print"方阵B:
"
ReDimb(n,n)
Fori=1Ton
Forj=1Ton
b(i,j)=Int(Rnd*9+1)
Printb(i,j);
Nextj
Nexti
EndSub
PrivateSubCommand2_Click(IndexAsInteger)
SelectCaseIndex
Case0
Print"方阵A:
"
Fori=1Ton
Forj=1Ton
Printa(j,i);
Nextj
Nexti
Print"方阵B:
"
Fori=1Ton
Forj=1Ton
Printa(j,i);
Nextj
Nexti
Case1
Print"C=A+B"
Fori=1Ton
Forj=1Ton
PrintFormat(a(i,j)+b(i,j),"00");
Nextj
Nexti
Case2
Print"C=A×B"
Fori=1Ton
Forj=1Ton
PrintFormat(a(i,j)*b(i,j),"00");
Nextj
Nexti
EndSelect
EndSub
截图:
2.职工信息处理
代码:
OptionBase1
PrivateTypeworker
numAsLong
namAsString
depAsString
monAsLong
EndType
Dima()Asworker
DimnAsInteger
PrivateSubCommand2_Click()
ReDimPreservea(n+1)Asworker
n=n+1
a(n).num=Text1.Text
a(n).nam=Text2.Text
a(n).dep=Text3.Text
a(n).mon=Text4.Text
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand3_Click()
p=InputBox("请输入要查找人的姓名:
","查找")
DimiAsInteger,tAsInteger
t=0
Fori=1Ton
Ifp=a(i).namThen
Text1.Text=a(i).num
Text2.Text=a(i).nam
Text3.Text=a(i).dep
Text4.Text=a(i).mon
t=1
EndIf
Nexti
Ift=0Then
q=MsgBox("抱歉,没有您要查找的人!
",5+48,"查找")
Ifq=4Then
p=InputBox("请输入要查找人的姓名:
","查找")
t=0
Fori=1Ton
Ifp=a(i).namThen
Text1.Text=a(i).num
Text2.Text=a(i).nam
Text3.Text=a(i).dep
Text4.Text=a(i).mon
t=1
EndIf
Nexti
EndIf
EndIf
EndSub
PrivateSubCommand1_Click(IndexAsInteger)
DimiAsInteger
SelectCaseIndex
Case0
Text1.Text=a
(1).num
Text2.Text=a
(1).nam
Text3.Text=a
(1).dep
Text4.Text=a
(1).mon
Case1
Fori=1Ton
Ifa(i).num=Text1.TextAndi>1Then
Text1.Text=a(i-1).num
Text2.Text=a(i-1).nam
Text3.Text=a(i-1).dep
Text4.Text=a(i-1).mon
ExitFor
EndIf
Next
Case2
Fori=1Ton
Ifa(i).num=Text1.TextAndi Text1.Text=a(i+1).num Text2.Text=a(i+1).nam Text3.Text=a(i+1).dep Text4.Text=a(i+1).mon ExitFor EndIf Next Case3 Text1.Text=a(n).num Text2.Text=a(n).nam Text3.Text=a(n).dep Text4.Text=a(n).mon EndSelect EndSub 截图: 初次运行,没有新增职工信息时是没有职工信息的: 新增第一个编号为1001的职工信息: 新增至最后编号为1004的职工信息: 点“第一个”按钮可以显示编号为1001的职工信息: 点“后一个”显示编号为1002的职工信息: 点“最后一个”显示编号为1004的职工信息: 点“前一个”显示编号为1003的职工信息: 点“按姓名查询”查询姓名为“韩雪琳”的职工信息: 查询到信息: 点“按姓名查询”查询姓名为“李香香”的职工信息: 没有查到,于是出现提示对话框: 点重试可以重新查询另外的职工。 新增第五个编号为“1005”名为“李香香”职工信息: 此时,最后一个变为名为“李香香”职工信息了。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB实验 数组程序设计 VB 实验 数组 程序设计