VB 实习四数组与自定义数据类型.docx
- 文档编号:30133202
- 上传时间:2023-08-05
- 格式:DOCX
- 页数:46
- 大小:523.35KB
VB 实习四数组与自定义数据类型.docx
《VB 实习四数组与自定义数据类型.docx》由会员分享,可在线阅读,更多相关《VB 实习四数组与自定义数据类型.docx(46页珍藏版)》请在冰豆网上搜索。
VB实习四数组与自定义数据类型
实习四数组与自定义数据类型
一、实习目的
1.理解数组的概念、分类,数组定义方法;
2.掌握数组的操作(赋值、运算、输出)的基本方法;
3.掌握与数组有关的算法;
4.理解自定义数据类型;
5.了解控件数组。
二、实习内容
1.掌握一维数组的定义、赋值和输出方法;
2.理解静态数组与动态数组的区别和使用
3.掌握一维数组基本应用和有关算法(统计、求极值、排序、查询)等;
4.掌握二维数组程序设计方法和的基本应用;
5.完成课后编程习题。
6.阅读教材自定义数据类型和控件数组的内容,通过上机验证进一步理解。
三、程序算法及代码
课本习题验证:
例题5-1、
界面设置:
数据来源:
属性结果:
代码编写:
PrivateSubCommand1_Click()
Dimsum!
aver!
i%,x!
(1To10)
Open"c:
\000.txt"ForInputAs#1
aver=0
Fori=1To10
Input#1,x(i)
Print"第"&i&"个学生的成绩为:
"&x(i)
aver=aver+x(i)
Nexti
Close
aver=aver/10
Print"平均分为:
"&aver
Print"=======以下成绩高于平均分======="
Fori=1To10
Ifx(i)>averThen
Print"第"&i&"个学生成绩为:
"&x(i)
EndIf
Nexti
EndSub
例题5-2
代码编写:
PrivateSubCommand1_Click()
Dimaver!
i%,n%,x!
()
Open"c:
\000.txt"ForInputAs#1
aver=0
n=0
DoUntilEOF
(1)
n=n+1
ReDimPreservex(n)
Input#1,x(n)
Print"第"&i&"个学生的成绩为:
"&x(n)
aver=aver+x(n)
Loop
Close
aver=aver/n
Print"平均分为:
"&aver
Print"=======以下成绩高于平均分======="
Fori=1Ton
Ifx(i)>averThen
Print"第"&i&"个学生成绩为:
"&x(i)
EndIf
Nexti
EndSub
属性结果:
例题5-3、
属性结果:
代码编写:
PrivateSubCommand1_Click()
Dima(),x%
a=Array("sunday","monday","tuesday","wednesday","thursday","friday","saturday")
Do
x=InputBox("请输入0-6之间的一个数字")
LoopWhilex>6Orx<0
MsgBoxa(x)
EndSub
例题5-4
属性设计:
属性结果:
代码编写:
PrivateSubCommand1_Click()
Dima$(),x
a=Split(Text1.Text,",")
ForEachxIna
i=i+1
Picture1.PrintTab(6*(iMod10)+1);x;
Nextx
IfiMod10=0ThenPrint
EndSub
例题5-5
属性:
属性结果:
代码编写:
PrivateSubCommand1_Click()
Dimx%
Open"c:
\000.txt"ForInputAs#1
Text1=""
DoUntilEOF
(1)
Input#1,x
Text1=Text1&x&","
Loop
Text1=Left(Text1,Len(Text1)-1)
Close
EndSub
PrivateSubCommand2_Click()
Dima$(),k%,y
Dimx(0To10)AsInteger
IfText1=""Then
MsgBox"请先从数据文件中读取数据!
"
ExitSub
EndIf
a=Split(Text1,",")
ForEachyIna
k=y\10
x(k)=x(k)+1
Nexty
Picture1.Print"统计结果如下:
"
Picture1.Print"100分的有:
"&x(10)&"人"
Fori=9To0Step-1
Picture1.Printi*10&"分-";i*10+9&"分有:
"&x(i)&"人"
Nexti
EndSub
PrivateSubText1_Change()
End
EndSub
例题5-6
属性设计:
属性结果:
代码编写:
PrivateSubCommand1_Click()
Dima%(65To90),cAsString*1
le=Len(Text1)
Fori=1Tole
c=UCase(Mid(Text1,i,1))
Ifc>="A"Andc<="Z"Then
j=Asc(c)
a(j)=a(j)+1
EndIf
Nexti
Forj=65To90
Ifa(j)>0ThenPicture1.Print"";Chr(j);"=";a(j);"";
Nextj
EndSub
例题5-7
属性结果:
代码编写:
OptionBase1
PrivateSubCommand1_Click()
Dima%(10),i%,k%
Randomize
Fori=1To10
a(i)=Int(Rnd*90)+10
Printa(i);
Nexti
k=1
Fori=2To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实习四 数组与自定义数据类型 实习 数组 自定义 数据类型
![提示](https://static.bdocx.com/images/bang_tan.gif)