东北林业大学VB期末复习资料.docx
- 文档编号:4313296
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:35
- 大小:23.47KB
东北林业大学VB期末复习资料.docx
《东北林业大学VB期末复习资料.docx》由会员分享,可在线阅读,更多相关《东北林业大学VB期末复习资料.docx(35页珍藏版)》请在冰豆网上搜索。
东北林业大学VB期末复习资料
期末成绩:
笔试50分、上机40分、平时10分、。
笔试时间为1小时。
四道大题为:
程序运行结果(10分)、叙述程序段功能(10分)、程序填空(10分)、编程题(20分)
上机考试时间40分钟。
两道大题,每题20分。
笔试复习提纲
1、常用函数使用:
String(N,C)、随机函数Rnd、chr(N)、Round(N)、Str(N)、val(C)、mid(C,N1,N2)、Left(C,N)Trim(C)、Time()、Now()等。
参考例题:
P263实验第4、5、6题
2、顺序结构:
理解赋值语句、会使用Inputbox()函数和Msgbox子过程、print语句进行输入和输出。
参考例题:
P67例4.3,P263第8题
3、选择结构:
参考例题:
P265第1、3题
4、循环结构:
利用循环结构输出图形;判断素数、水仙花数、回文数算法;计算最大公约数和最小公倍数;计算级数部分和;参考例题:
P268第1、2题,P83例4.15,P269第6题,P278第4题,P87例4.17
5、数组:
掌握静态数组、动态数组的使用以及利用数组的常用算法。
计算一组数中的最大值、最小值、平均值;数组排序(选择排序法);显示杨辉三角形;参考例题:
P105例5.4、5.5,P271第1、4、6题
6、过程:
掌握函数过程、子过程的定义及调用方法、参数的传递方式。
参考例题:
P133例6.6,P277第1、2、4题以及如下例题:
使用函数过程计算:
s=4!
+5!
+6!
主程序
PrivateSubForm_Click()
Printfax(4)+fax(5)+fax(6)
EndSub
函数定义
PrivateFunctionfax(kAsInteger)AsSingle
t=1
Fori=2Tok
t=t*i
Nexti
fax=t
EndFunction
7、文件
要求对随机文件进行操作,实现以下功能:
(1)输入:
由键盘输入5个学生信息保存到随机文件D:
\TT\T.DAT中
(2)每个学生包括学号、姓名、总分
(3)显示:
显示不及格的学生信息
(4)修改:
将不及格的学生成绩增加5分
机试复习提纲
1.单选按钮和复选框。
参考例题:
P154例7.1;P280第2题
2.组合框、列表框。
参考例题:
P111例5.9;P273第7题及以下例题:
(1)文本框的内容添加到列表框:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
List1.AddItemText1.Text
Text1.Text=""
EndIf
EndSub
(2)在窗体上显示列表框中的所有内容:
PrivateSubForm_Click()
Fori=0ToList1.ListCount-1
PrintList1.List(i)
Nexti
EndSub
(3)组合框中的文本框中的内容添加到组合框:
style=1
PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Combo1.AddItemCombo1.Text
Combo1.Text=""
EndIf
3.滚动条调色板程序P157例7.4
4.时钟参考例题:
P4例1.1及以下例题:
建立对象时钟、两个命令按钮、一个标签,随机产生六位数中奖号码。
(时钟Interval=100)
PrivateSubCommand1_Click()PrivateSubForm_Load()
Timer1.Enabled=TrueTimer1.Enabled=False
EndSubEndSub
PrivateSubCommand2_Click()PrivateSubTimer1_Timer()
Timer1.Enabled=FalseLabel1.Caption=Int(Rnd*900000+100000)
EndSubEndSub
5.通用对话框掌握利用通用对话框实现打开文件功能。
参考例题:
P164例7.9
6.菜单掌握菜单的设计及菜单编程。
参考例题:
P281第6、7题
7.要求会画圆、画椭圆、画曲线(正弦、余弦、y=x^3、玫瑰曲线等)、画矩形以及边框颜色和填充颜色。
参考例题:
P209例9.1,P2851、2、3、4及以下例题:
本程序含有如下菜单系统:
一级菜单有“文件”和“画图”,“文件”菜单下有一二级菜单“退出”;“画图”菜单下有两个二级菜单“画曲线”、“画矩形”,“文件”名称为:
mn_fl;“退出”名称为:
mn_fl_end;“画图”名称为:
mn_dr;“画曲线”名称为:
mn_dr_yx3;“画矩形”名称为:
mn_dr_re。
完成以下功能:
画曲线:
以(-10,1000)和(10,-1000)为对角顶点建立坐标系;画出坐标轴和Y=X^3的曲线,X的取值区间为[-10,10];
PrivateSubmn_dr_yx3_Click()
Scale(-10,1000)-(10,-1000)
Forx=-10To10Step0.01
y=x^3
PSet(x,y)
Nextx
EndSub
实验AVB环境和可视化编程基础
1
PrivateSubCommand1_Click()
Label3=Text1
EndSub
2.
PrivateSubForm_Load()
Timer1.Interval=0
EndSub
PrivateSubCommand1_Click()'手动
Timer1.Interval=0
CallMyMove
EndSub
PrivateSubCommand2_Click()'自动
Timer1.Interval=200
EndSub
PrivateSubTimer1_Timer()
CallMyMove
EndSub
SubMyMove()
Label1.MoveLabel1.Left-50,Label1.Top
IfLabel1.Left<0ThenLabel1.Left=Form1.Width
EndSub
3
PrivateSubForm_Click()
Text1=Val(Text1)+1
EndSub
PrivateSubForm_Load()
Text1=0
EndSub
5
SubCommand1_Click()
Text1.FontName="隶书"
Text1.FontSize=25
EndSub
SubCommand2_Click()
Text2.Text=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
EndSub
实验B:
顺序结构
①目的
掌握常用函数的用法以及顺序结构程序的编制;
掌握关系表达式和逻辑表达式的用法;
掌握选择结构的基本用法。
②内容
教材中P263实验4、5、6、7、8
程序代码:
实验4
PrivateSubCommand1_Click()
Text2=UCase(Text1.Text)
Print"长度";Len(Text1.Text)
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
EndSub
实验5
PrivateSubCommand1_Click()
Randomize
Text1=Int(Rnd*901+100)
EndSub
PrivateSubCommand2_Click()
Dimx%,x1%,x2%,x3%
x=Val(Text1)
x1=xMod10
x2=(xMod100)\10
x3=x\100
Label1=x1*100+x2*10+x3
EndSub
实验6
PrivateSubForm_Load()
Label1=Left(Text1,11)
Label2=Mid(Text1,12,6)
Label3=Right(Text1,5)
EndSub
实验7
PrivateSubCommand1_Click()
Fori=1To5
PrintTab(15-i*2);String(2*i-1,"★");Spc(18-4*(i-1));String(2*i-1,"★")
Nexti
EndSub
PrivateSubCommand2_Click()
Cls
EndSub
另一种
PrivateSubCommand1_Click()
Fori=1To5
PrintTab(15-i*2);String(2*i-1,"★");String(11-2*i,"☆");String(2*i-1,"★")
Nexti
EndSub
PrivateSubCommand2_Click()
Cls
EndSub
实验8
PrivateSubForm_Click()
DimaAsSingle
a=InputBox("请输入一个正实数")
Print"a的平方是";Int(a*a*1000+0.5)/1000;
Print"a的平方根是";Int(Sqr(a)*1000+0.5)/1000;
Print"a的立方是";Int(a*a*a*1000+0.5)/1000;
Print"a的立方根是";Int(a^(1/3)*1000+0.5)/1000
EndSub
实验三:
选择结构
①目的
掌握常用函数的用法以及顺序结构程序的编制;
掌握关系表达式和逻辑表达式的用法;
掌握选择结构的基本用法。
②内容
教材中P2651、3、5、6、7、8
程序代码:
1、
DimxAsSingle
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
Print"你应支付:
";y
3、
PrivateSubCommand2_Click()
Dimx!
y!
z!
x=InputBox("inputx")
y=InputBox("inputy")
z=InputBox("inputz")
Print"xyz"
Print"排序前";x;"";y;"";z
Ifx x=y: y=t Ify t=y: y=z: z=t Ifx t=x: x=y: y=t EndIf EndIf Print"排序后"&x&""&y&""&z EndSub 5、 Dimm%,n%,x%,y% PrivateSubForm_Load() Text1.Text="" Text2.Text="" EndSub PrivateSubText2_LostFocus() m=Text1.Text n=Text2.Text IfnMod2<>0Then MsgBox("脚数为奇数,重新输入") Text2.Text="" Text2.SetFocus EndIf Ifn<2*mOrn>4*mThen MsgBox("脚数小于头数的倍数或大于4倍,重新输入") Text2.Text="" Text2.SetFocus EndIf EndSub PrivateSubText3_GotFocus() y=n/2-m x=m-y Text3.Text=x Text4.Text=y EndSub 6、 PrivateSubCommand1_Click() DimaAsSingle,bAsSingle,cAsSingle Dimx1AsSingle,x2AsSingle a=Val(Text1.Text): b=Val(Text2.Text): c=Val(Text3.Text) d=b*b-4*a*c Ifa<>0Then Ifd>0Then MsgBox"两实根" x1=(-b+Sqr(d))/2/a x2=(-b-Sqr(d))/2/a Text4.Text=x1: Text5.Text=x2 ElseIfd=0Then MsgBox"两重根" x1=-b/2/a x2=x1 Text4.Text=x1: Text5.Text=x2 Else MsgBox"两复根" x1=-b/2/a x2=Sqr(-d)/2/a Text4.Text=x1&"+"&x2&"i" Text5.Text=x1&"-"&x2&"i" EndIf Else Ifb<>0Then MsgBox"单根" x1=-c/b: x2=-c/b Text4.Text=x1: Text5.Text=x2 Else MsgBox"无意义" EndIf EndIf EndSub PrivateSubCommand2_Click() end EndSub PrivateSubForm_Load() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" EndSub 7、 PrivateSubText3_LostFocus() 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 8、 方法一 ch=InputBox("请输入一个数字1--7") t=Choose(ch,"星期一","星期二","星期三","星期四","星期五","星期六","星期日") MsgBox(t) 方法二 PrivateSubForm_Click() ch=InputBox("请输入一个数字1--7") SelectCasech Case"1" MsgBox"星期一" Case"2" MsgBox"星期二" Case"3" MsgBox"星期三" Case"4" MsgBox"星期四" Case"5" MsgBox"星期五" Case"6" MsgBox"星期六" Case"7" MsgBox"星期日" EndSelect EndSub 实验三: 循环结构 ①目的 掌握循环结构的功能; 掌握For-Next和Do-Loop循环控制语句的用法; 掌握多重循环结构的用法。 ②内容 教材中P2681、2、3、4、6 1 PrivateSubForm_Click() Fori=1To10 PrintTab(20-i);String(2*i-1,Right(Str(i),1)) Nexti EndSub 2 PrivateSubForm_Click() Fori=1To9 PrintTab(i+10);String(20-2*i,Chr(i+64)) 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-1;"项" EndSub PrivateSubCommand2_Click() Dims! t! i& s=1 t=1 Fori=1To100000 t=t+i s=s+1/t If1/t<0.0001ThenExitFor Nexti Print"For结构";s,i;"项" EndSub 4 PrivateSubForm_Click() DimpiAsDouble,nAsSingle n=InputBox("sdfd") pi=2 Fori=1Ton pi=pi*2*i*2*i/(2*i-1)/(2*i+1) Nexti Printpi EndSub 6 PrivateSubForm_Click() Fori=100To999 x=Int(i/100) y=Int((i-x*100)/10) z=i-x*100-y*10 Ifi=x*x*x+y*y*y+z*z*zThen Printi, EndIf Nexti EndSub 另一种方法 PrivateSubForm_Click() Fori=1To9 Forj=0To9 Forz=0To9 Ifi*i*i+j*j*j+z*z*z=i*100+j*10+zThen Printi*100+j*10+z, EndIf Nextz Nextj Nexti EndSub 实验E: 数组和自定义类型 ①目的 掌握数组的概念; 体会数组在处理有序数据方面的优越性; 掌握数组的常用解题算法。 ②内容 教材中实验: 1、2、3、4、5、6 1、 PrivateSubForm_Click() Dima(1To10)AsInteger,i%,maxa%,mina%,avera! Fori=1To10 a(i)=Int(Rnd*100) Nexti mina=a (1) maxa=a (1) avera=a (1) Fori=2To10 Ifa(i)>maxaThenmaxa=a(i) Ifa(i) avera=avera+a(i) Nexti Fori=1To10 Printa(i); Nexti Print Print"max=";maxa,"min=";mina,"aver=";avera/10 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(1To20)AsInteger PrivateSubCommand1_Click() Randomize Fori=1To20 a(i)=Int(Rnd*101) j=j+1 Picture1.PrintTab(6*j-5);a(i); IfjMod4=0ThenPicture1.Print: j=0 Nexti EndSub PrivateSubCommand2_Click() Dims(5To9)AsInteger Fori=1To20 j=a(i)\10 Ifj<6Then s(5)=s(5)+1 ElseIfj<9Then s(j)=s(j)+1 Else s(9)=s(9)+1 EndIf Nexti Fori=5To9 Picture2.Print"s(";i;")的人数有";s(i) Nexti EndSub 4、 PrivateSubForm_Click() Dima(1To10)AsInteger Randomize Fori=1To10 a(i)=Int(Rnd*90+10) Printa(i); Nexti Print Fori=1To9 k=i Forj=i+1To10 Ifa(k) Nextj
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 东北 林业大学 VB 期末 复习资料
![提示](https://static.bdocx.com/images/bang_tan.gif)