推荐vb程序设计实验报告 精品.docx
- 文档编号:16529061
- 上传时间:2023-07-14
- 格式:DOCX
- 页数:16
- 大小:90.33KB
推荐vb程序设计实验报告 精品.docx
《推荐vb程序设计实验报告 精品.docx》由会员分享,可在线阅读,更多相关《推荐vb程序设计实验报告 精品.docx(16页珍藏版)》请在冰点文库上搜索。
推荐vb程序设计实验报告精品
VB程序设计实验报告
实验三选择结构程序设计
一、实验目的
1.掌握逻辑表达式的正确书写形式。
2.掌握单分支与双分支条件语句的使用。
3.掌握多分支条件语句的使用。
4.掌握情况语句的使用及与多分支条件语句的区别。
二﹑实验内容
4.编制程序,计算某个学生奖学金的等级(假定只考虑一等奖),以三门功课成绩m1,m2,m3为评奖依据。
奖学金一等奖评定标准如下:
(1)平均分大于95分者。
(2)有两门成绩是100分,且第三门功课成绩不低于80分者。
5.编一模拟袖珍计算器的完整程序,界面如图2.3.1所示。
要求:
输入两个操作数和一个操作符,根据操作符决定所做的运算。
6.输入一个数字(1~7),用英文显示对应的星期一~星期日。
提示:
用Select语句来实现。
三﹑实验步骤
4,打开VB后,建立一个命令按钮,输入"奖学金评定",编辑代码如下:
PrivateSubmand1_Click()
Dimm1!
m2!
m3!
m1=InputBox("输入m1的值")
m2=InputBox("输入m2的值")
m3=InputBox("输入m3的值")
If(m1+m2+m3)/3>95Or_
(m1=100Andm2=100Andm3>=85Or_
m1=100Andm3=100Andm2>=85Or_
m3=100Andm2=100Andm1>=85)Then
MsgBox"一等奖学金"
Else
MsgBox"不是一等奖学金"
EndIf
EndSub
5,打开VB后,建立4个Lebel标签,4个Text文本框,2个mand按钮,如上图。
编辑代码如下:
PrivateSubmand1_Click()
SelectCaseTrim(Text3)
Case"+"
Text4.Text=Val(Text1.Text)+Val(Text2.Text)
Case"-"
Text4.Text=Val(Text1.Text)-Val(Text2.Text)
Case"*"
Text4.Text=Val(Text1.Text)*Val(Text2.Text)
Case"/"
Text4.Text=Val(Text1.Text)/Val(Text2.Text)
EndSelect
EndSub
PrivateSubmand2_Click()
End
EndSub
6,打开VB后,建立1个Text文本框,1个mand按钮。
代码如下:
PrivateSubmand1_Click()
a=Text1.Text
SelectCasea
Case1
Print"Monday"
Case2
Print"Tuesday"
Case3
Print"Wednesday"
Case4
Print"Thursday"
Case5
Print"Friday"
Case6
Print"Saturday"
Case7
Print"Sunday"
EndSelect
EndSub
四﹑实验总结
1,从此此实验中掌握了IF语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别.
2,写在不同行的条件代码要用空格加下划线分开,有关m1,m2,m3的三个条件要用AND隔开
3,使用Select语句时,Case后的条件是字符型。
实验四循环结构程序设计
一﹑实验目的
1.掌握For语句的使用。
2.掌握Do语句的各种形式的使用。
3.掌握如何控制循环条件,防止死循环或不循环。
二﹑实验内容
3.用单循环显示有规律图形,如图4.1。
提示:
(1)循环体内显示用String函数来实现,找出循环控制变量与String函数内个数的关系,即:
String(i,Trim(Str(i)))。
(2)Trim函数是去除字符串两边的空格。
因为将数值i转换成字符,系统自动在数字前加符号位,正数为空格,负数为“-”;而String函数只取字符串中的第一个字符,本例中为空格,因此要利用Trim函数去除空格。
(3)为了使得最后一行的0显示,如按照上面公式为1,则要对公式修改为:
String(i,Right((Str(i),1))
图4.1实验4.3运行界面之一
4.计算2912211611117141211S当第i项的值<10-4时结束。
提示:
找出规律,第i项的分母是前一项的分母加上表示有分母项开始的计数项
8.求Sn=a+aa+aaa+aaa+⋯aa⋯aaa(n个a),其中a是一个由随机数产生的1~9(包括1,9)中的一个正整数,n是一个由随机数产生的5~10(包括5,10)中的一个数。
例如:
当a=2,n=5时,Sn=2+22+222+2222+22222。
提示:
为了得到不断重复的数Temp,可在循环体利用下面通项:
Temp=Temp*10+a
Temp的初值为0。
三﹑实验步骤
3,打开VB,程序代码如下:
PrivateSubForm_Click()
Fori=1To10
PrintSpc(10-i);
Ifi<10ThenPrintString(i*2-1,Trim(Str(i)));
Ifi=10ThenPrintString(i*2-1,Right(Str(i),1)):
Nexti
EndSub
4,打开VB,程序代码如下:
PrivateSubForm_Click()
a=0
b=1
s=0
Do
b=b+a
s=s+1/b
a=a+1
LoopUntil1/b<0.0001
Prints
EndSub
8,打开VB,程序代码如下:
PrivateSubForm_Click()
a=Int(Rnd*9+1)
n=Int(Rnd*6+5)
temp=0
s=0
Fori=1Ton
temp=temp*10+a
s=s+temp
Nexti
Prints
EndSub
四﹑实验总结
1,从此次实验中得到的是掌握了FOR语句的使用,还有的是DO语句的各种形式的使用,如何控制循环和防止死循环或不循环。
2,学会了String函数的用法。
实验五数组
一﹑实验目的
1.掌握数组的声明、数组元素的引用。
2.掌握静态数组和动态数组的使用差别。
3.应用数组解决与数组有关的常用算法。
二﹑实验内容
3.随机产生10个30~100(包括30,100)的正整数,求最大值、最小值、平均值,并显示整个数组的值和结果。
4.用起泡法对10个数进行从大到小排序,可以参考教材中的【例3-22】。
6.编一对已知数组a(),删除数组中数组元素中某个元素的程序。
假定数组a的值利用Array函数,分别为{1,6,8,3,5,9,10,2,7,4},删除Key值为10的元素。
三﹑实验步骤
3,打开VB,建立1个mand按钮,程序代码如下:
PrivateSubmand1_Click()
Dima(10)
Randomize
DimsumAsInteger,minAsInteger,maxAsInteger
sum=0:
min=100:
max=30
Fori=0To9
a(i)=Int(30+(71*Rnd))
sum=sum+a(i)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 推荐vb程序设计实验报告 精品 推荐 vb 程序设计 实验 报告