实验.docx
- 文档编号:10859938
- 上传时间:2023-02-23
- 格式:DOCX
- 页数:32
- 大小:23.54KB
实验.docx
《实验.docx》由会员分享,可在线阅读,更多相关《实验.docx(32页珍藏版)》请在冰豆网上搜索。
实验
提示:
指导教师:
夏楠
日期:
可以不填
实验一VB环境和可视化编程基础
一、目的
掌握VisualBasic系统的进入、退出;
熟悉开发环境;
加深理解对象、属性、事件以及事件过程等概念;
掌握工程的保存以及打开方法;
熟悉常用对象的常用属性、事件和方法。
二、内容
1(A.1)输入并显示一个姓名。
2(A.2)实现一个水平移动文字的动画。
3(A.3)显示单击窗体的次数
4(A.5)单击命令按钮“隶书25磅”,将左侧文本框内容设置为隶书、25磅;单击命令按钮“复制=>”,将左侧文本框中被选内容以相同的字体和字号复制到右侧的文本框中。
三、实验记录
1.
PrivateSubCommand1_Click()
Label3=Text1
EndSub
PrivateSubForm_Load()
Label1="欢迎学习"&vbCrLf&"VisualBasic"
EndSub
2.
SubMyMove()
Label1.Left=Label1.Left-50
IfLabel1.Left<-Label1.WidthThenLabel1.Left=Width
EndSub
PrivateSubCommand1_Click()
Timer1.Interval=50
EndSub
PrivateSubCommand2_Click()
Timer1.Interval=0
MyMove
EndSub
PrivateSubTimer1_Timer()
MyMove
EndSub
3.
PrivateSubForm_Click()
Text1=Val(Text1)+1
EndSub
4.
PrivateSubCommand1_Click()
Text1.FontName="隶书":
Text1.FontSize=25
EndSub
PrivateSubCommand2_Click()
Text2=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
EndSub
实验二顺序结构
一、目的
掌握常用函数的用法以及顺序结构程序的编制;
二、内容
1(B.4)输入一字符串,将其中的小写字母变为大写字母,其余不变。
显示转换
后的结果以及字符串的长度。
2(B.5)随机产生一个3位正整数,显示该数以及逆序数。
3(B.6)输入一字符串,显示前11个字符、从第12个字符开始的长度为6的字符串以及后5个字符。
4(B.7)如图显示两个等腰三角形。
5(B.8)已知一个正数,显示其平方、平方根、立方和立方根。
保留三位小数。
三、实验记录
1.
PrivateSubForm_Click()
DimS$
S=InputBox("请输入一个字符串")
Cls
Print"原始字符串:
";S
Print"结果字符串:
";UCase(S)
Print"长度:
";Len(S)
EndSub
2.
PrivateSubForm_Click()
DimI%,S$,A%,B%,C%
Cls
I=100+Int(Rnd*900)
A=IMod10
B=I\10Mod10
C=I\100
S=A&B&C
Print"随机数";I
Print"逆序数";S
EndSub
PrivateSubForm_Load()
Randomize
EndSub
3.
PrivateSubForm_Click()
Label1=Left(Text1,11)
Label2=Mid(Text1,12,6)
Label3=Right(Text1,5)
EndSub
4.
PrivateSubCommand1_Click()
DimI%
Cls
ForI=1To5
PrintTab(13-2*I);String(2*I-1,"★");Space(22-4*I);String(2*I-1,"★")
'PrintTab(13-2*I);String(2*I-1,"★");String(11-2*I,"☆");String(2*I-1,"★")
NextI
EndSub
PrivateSubCommand2_Click()
Cls
EndSub
5.
PrivateSubForm_Click()
DimS#
Cls
S=Val(InputBox("请输入一个正数"))
Print"原数=";S
Print"平方=";Format(S*S,"0.000");"平方根=";Format(Sqr(S),"0.000");
Print"立方=";Format(S*S*S,"0.000");"立方根=";Format(S^(1/3),"0.000")
EndSub
实验三选择结构
一、目的
掌握关系表达式和逻辑表达式的用法;
掌握选择结构的基本用法。
二、内容
1(C.1)已知价钱,按公式计算并显示实际付款额。
2(C.3)已知三个数,按降序显示。
3(C.5)编程解决鸡兔同笼问题。
4(C.6)求解一元二次方程的根。
5(C.7)实现一个简单的计算器。
6(C.8)已知用整数表示的星期,显示对应的英文名称。
三、实验记录
1.
PrivateSubForm_Click()
DimX!
Y!
X=Val(InputBox("价钱=?
"))
IfX<1000Then
Y=X
ElseIfX<2000Then
Y=0.9*X
ElseIfX<3000Then
Y=0.8*X
Else
Y=0.7*X
EndIf
PrintX;Y
EndSub
2.
PrivateSubCommand1_Click()
DimX!
Y!
Z!
T!
X=InputBox("inputX")
Y=InputBox("inputY")
Z=InputBox("inputZ")
Print"XYZ"
Print"排序前";X;"";Y;"";Z
IfX X=Y: Y=T IfX X=Z: Z=T IfY Y=Z: Z=T Print"排序后";X;Y;Z EndSub 3. PrivateSubForm_Click() DimZzs%,Zjs%,T#,J# Zzs=Val(Text1) Zjs=Val(Text2) T=(Zjs-2*Zzs)/2 J=Zzs-T IfT<0OrJ<0OrInt(T)<>TOrInt(J)<>JThen MsgBox"总只数或总脚数错误" Else Label5=J: Label6=T EndIf EndSub 4. PrivateSubCommand1_Click() DimA! B! C! D! X1! X2! A=Val(Txt_A): B=Val(Txt_B): C=Val(Txt_C) Lbl_X1="": Lbl_X2="" IfA=0Then MsgBox"不是二次方程" ExitSub EndIf D=B*B-4*A*C IfD<0ThenMsgBox"无实根": ExitSub X1=(-B+Sqr(D))/(2*A): X2=(-B-Sqr(D))/(2*A) Lbl_X1=Format(X1,"0.00"): Lbl_X2=Format(X2,"0.00") EndSub PrivateSubCommand2_Click() End EndSub 5. PrivateSubCommand1_Click() SelectCaseTrim(Text3) Case"+" Text4=Val(Text1)+Val(Text2) Case"-" Text4=Val(Text1)-Val(Text2) Case"*" Text4=Val(Text1)*Val(Text2) Case"/" IfVal(Text2)=0Then MsgBox"分母为零,重新输入" Text2="" Text2.SetFocus Else Text4=Val(Text1)/Val(Text2) EndIf EndSelect EndSub PrivateSubCommand2_Click() End EndSub 6. PrivateSubCommand1_Click() DimD% Cls D=Val(InputBox("1-7")) PrintD; SelectCaseD Case1 Print"Sun" Case2 Print"Mon" Case3 Print"Tue" Case4 Print"Wed" Case5 Print"Thu" Case6 Print"Fri" Case7 Print"Sat" CaseElse Print"Err" EndSelect EndSub PrivateSubCommand2_Click() DimD% Cls D=Val(InputBox("1-7")) IfD<1OrD>7Then Print"Err" Else PrintD;Choose(D,"Sun","Mon","Tue","Wed","Thu","Fri","Sat") EndIf EndSub 实验4循环结构 一、目的 掌握循环结构的功能; 掌握For-Next和Do-Loop循环控制语句的用法; 掌握多重循环结构的用法。 二、内容 1(D.1)显示用数字组成的等腰三角形。 2(D.2)显示用字母组成的倒立的等腰三角形。 3(D.3)计算S=1/1+1/2+1/4+1/7+……,要求最后一项小于10-4。 4(D.4)计算圆周率。 5(D.6)显示水仙花数。 三、实验记录 1. PrivateSubForm_Click() DimI% ForI=1To9 PrintTab(10-I);String(2*I-1,Trim(Str(I))) NextI EndSub 2. PrivateSubForm_Click() DimI% ForI=1To9 PrintTab(I);String(20-2*I,Chr(Asc("A")+I-1)) NextI EndSub 3. PrivateSubCommand1_Click() DimS! T! I& S=1 T=1 I=1 DoWhile1/T>=0.0001 T=T+I S=S+1/T I=I+1 Loop Print"DoWhile结构";S,I;"项" EndSub 4. PrivateSubForm_Click() DimPi#,I%,N% N=Val(InputBox("N=")) Pi=2 ForI=1ToN Pi=Pi*4*I*I/(2*I-1)/(2*I+1) NextI PrintPi EndSub 5. PrivateSubForm_Click() DimI%,A%,B%,C% ForI=100To999 A=I\100 B=I\10Mod10 C=IMod10 IfA^3+B^3+C^3=IThenPrintI NextI EndSub 实验五数组 一、目的 掌握数组的概念; 体会数组在处理有序数据方面的优越性; 掌握数组的常用解题算法。 二、内容 1(E.1)随机产生10个30至100之间的整数,求最大值、最小值和平均值。 2(E.2)已知6个学生成绩,以图形方式显示每个学生的成绩。 每5分显示一个“◆”。 3(E.3)随机产生20个成绩(百分制),显示各分数段人数。 4(E.4)随机产生10个两位正整数,按降序显示。 5(E.5)随机产生两个4行4列的方阵A和B。 A的取值范围是35到70,B的取值范围是100到141。 显示A的左下三角阵、B的右上三角阵、A的主对角线元素之和以及B的副对角线元素之和。 E(E.6)显示指定行数的杨辉三角形。 三、实验记录 1. PrivateSubForm_Click() DimA(1To10)AsInteger,I% ForI=1To10 A(I)=Int(Rnd*71+30) PrintA(I);""; NextI Max=A (1) Min=A (1) Avg=A (1) ForI=2To10 IfA(I)>MaxThenMax=A(I) IfA(I) Avg=Avg+A(I) NextI Avg=Avg/10 Print Print"Max=";Max;"Min=";Min;"Avg=";Avg EndSub 2. PrivateSubForm_Click() DimA A=Array(56,78,98,88,76,78) Fori=0To5 PrintString(A(i)\5,"◆");A(i) Print Nexti EndSub 3. DimA%(19) PrivateSubCommand1_Click() DimI% ForI=0To19 A(I)=Int(Rnd*101) IfIMod4=0ThenPicture1.Print Picture1.PrintA(I);""; NextI EndSub PrivateSubCommand2_Click() DimS%(5To9),K%,I% ForI=0To19 K=A(I)\10 SelectCaseK Case0To5 S(5)=S(5)+1 Case9To10'90~100分的人数 S(9)=S(9)+1 Case6To8'存放其他三个分数段的下标有规律,根据K获得 S(K)=S(K)+1 EndSelect NextI ForI=5To9 IfS(I)<>0ThenPicture2.Print"s(";I;")的人数有";Format(S(I),"0");"个" NextI EndSub 4. PrivateSubForm_Click() DimA%(1To10),I%,J%,T% ForI=1To10 A(I)=10+Int(Rnd*90) PrintA(I); NextI Print ForI=1To10 ForJ=I+1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验