VB实验3.docx
- 文档编号:5239440
- 上传时间:2022-12-14
- 格式:DOCX
- 页数:12
- 大小:141.15KB
VB实验3.docx
《VB实验3.docx》由会员分享,可在线阅读,更多相关《VB实验3.docx(12页珍藏版)》请在冰豆网上搜索。
VB实验3
实验题目
数组和过程
小组合作
否
姓名
班级
学号
一、实验目的
1、掌握数组的声明、数组元素的引用、重定义数组大小。
2、掌握数组的基本操作。
3、应用数组解决与数组有关的常用算法。
4、掌握列表框和组合框的使用。
5、掌握自定义类型及数组的使用。
6、掌握自定义函数过程和子过程的定义和调用方法。
7、掌握形参和实参的对应关系。
8、掌握值传递和地址传递的传递方式。
9、掌握变量、函数和过程的作用域。
10、掌握递归概念和使用方法。
11、熟悉程序设计中的常用算法。
二.实验环境
一台装有MicrosoftVisualStudio2008软件的计算机
三、实验内容与步骤
实验五数组
3、随机产生20个学生的成绩,统计个分数段的人数,即0-59,60-69,70-79,80-89,90-100,并显示结果。
产生的数据在TextBox1中显示,统计结果在TextBox2中显示
运行界面如下:
编写代码如下:
PublicClassSy5_3
Dimmark(19)AsInteger
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
Randomize()
Fori=0To19
mark(i)=Int(Rnd()*100)
Label1.Text&=mark(i)&Space(6-Len(Str(mark(i))))
Nexti
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Me.Close()
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimS(9)AsInteger
DimK%,i%
Fori=0To19
K=mark(i)\10
SelectCaseK
Case0To5'不及格人数
S(5)=S(5)+1
Case9To10'优秀人数
S(9)=S(9)+1
Case6To8'其他三个分数段的人数
S(K)=S(K)+1
EndSelect
Nexti
Fori=5To9
Label2.Text&="S("&i&")的人数有"&S(i)&"个"&vbCrLf
Next
EndSub
EndClass
运行过程如下:
单击“产生”按钮
单击“统计”按钮
7、利用文本框,下拉组合框和标签控件,设计一个进行四则运算和计算机进行评判的程序
要求:
用户输入两个运算数,选择运算符并输入计算结果,由计算机评判,正确则显示相应信息,错误则显示错误并给出正确结果。
运行界面如下:
编写代码如下:
PublicClassSy5_7
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimA%
IfComboBox1.SelectedItem="+"Then
A=Val(TextBox1.Text)+Val(TextBox2.Text)
EndIf
IfComboBox1.SelectedItem="-"Then
A=Val(TextBox1.Text)-Val(TextBox2.Text)
EndIf
IfComboBox1.SelectedItem="*"Then
A=Val(TextBox1.Text)*Val(TextBox2.Text)
EndIf
IfComboBox1.SelectedItem="/"Then
A=Val(TextBox1.Text)/Val(TextBox2.Text)
EndIf
IfTextBox3.Text=""Then
MsgBox("请输入答案")
EndIf
IfTextBox3.Text=AThen
Label2.Text="正确"
Else
Label2.Text="错误,正确答案为:
"&A
EndIf
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Me.Close()
EndSub
EndClass
运行过程如下:
填写运算数和运算符
填写一个错误的结果
单击“计算机评判”按钮
填写正确的结果后单击“计算机评判”按钮
实验六过程
4、编写一个函数过程MySin(
)=
。
当第n项的精度小于
时结束,
为弧度。
主调程序同时调用MySin和内部函数Sin,进行验证。
运行界面如下:
编写代码如下:
ImportsSystem.Math
PublicClassSy6_4
FunctionMySin(ByValxAsSingle)AsSingle
Dimi%
DimsAsSingle=0
Fori=0To100000
DimtAsSingle=1
Dimj%
Forj=1To2*i-1
t=t*j
Next
DimkAsSingle
k=(-1)^(i-1)*(x^(2*i-1)/t)
IfAbs(k)<=0.000001Then
ExitFor
EndIf
s=s+k
Next
mysin=s
EndFunction
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimnnAsSingle
nn=Val(TextBox1.Text)
nn=nn*3.1415926/180
TextBox2.Text=Sin(nn)
TextBox3.Text=mysin(nn)
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Me.Close()
EndSub
EndClass
运行过程如下:
填写x的值
单击“计算”按钮
9、编一子过程MaxLength(s,MaxWord),在已知的字符串S中,最长的单词MaxWord。
字符串S内只含有字母和空格,空格分隔不同的单词。
运行界面如下:
编写代码如下:
PublicClassSy6_9
DimS,S1,S2,MAXAsString
DimN%
Subzdw(ByValSAsString,ByRefMAXAsString)
N=InStr(S,"")
MAX=""
DoWhileN>0
S1=Mid(S,1,N-1)
IfLen(S1)>Len(MAX)Then
MAX=S1
EndIf
S=Mid(S,N+1)
N=InStr(S,"")
Loop
IfLen(S)>Len(MAX)Then
MAX=S
EndIf
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Me.Close()
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
S2=TextBox1.Text
MAX=""
Callzdw(S2,MAX)
TextBox2.Text=MAX
EndSub
EndClass
运行过程如下:
输入字符串
单击“确定”按钮
四、实验过程与分析
过程分析:
在刚开始做实验五的题时,数组的输入感觉很困难,我的做法是,产生一个数组就输出一个,后来经老师讲解后,知道我的作法不合理,应该在数组全部产生后再输入。
五、实验总结
通过本次实验,我对.NET环境和基本控股结构程序设计有了一定的了解,每个实验都可以学到不同的知识。
通过这次实验我掌握了数组的相关的知识,掌握了数组的掌握数组的声明、数组元素的引用、如何重定义数组大小以及数组的基本操作和与数组有关的常用算法。
通过实验,同时我也掌握了函数的定义方法,以及函数的调用方法,掌握形参和实参的对应关系。
并且通过实验我知道了只有掌握了随机函数的应用才能正确的运行结果。
同时也发现了一些问题,就是循环部分,在做涉及到循环的题时,对for循环的掌握还可以,对dowhile循环掌握的不够好,还需进一步的练习和掌握。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验
![提示](https://static.bdocx.com/images/bang_tan.gif)