东北林业大学VB期末复习资料Word文档下载推荐.docx
- 文档编号:17235900
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:35
- 大小:23.47KB
东北林业大学VB期末复习资料Word文档下载推荐.docx
《东北林业大学VB期末复习资料Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《东北林业大学VB期末复习资料Word文档下载推荐.docx(35页珍藏版)》请在冰豆网上搜索。
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
(2)在窗体上显示列表框中的所有内容:
Fori=0ToList1.ListCount-1
PrintList1.List(i)
(3)组合框中的文本框中的内容添加到组合框:
style=1
PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)
Combo1.AddItemCombo1.Text
Combo1.Text="
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)
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
实验AVB环境和可视化编程基础
1
PrivateSubCommand1_Click()
Label3=Text1
2.
PrivateSubForm_Load()
Timer1.Interval=0
PrivateSubCommand1_Click()'
手动
CallMyMove
PrivateSubCommand2_Click()'
自动
Timer1.Interval=200
PrivateSubTimer1_Timer()
SubMyMove()
Label1.MoveLabel1.Left-50,Label1.Top
IfLabel1.Left<
0ThenLabel1.Left=Form1.Width
3
Text1=Val(Text1)+1
Text1=0
5
SubCommand1_Click()
Text1.FontName="
隶书"
Text1.FontSize=25
SubCommand2_Click()
Text2.Text=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
实验B:
顺序结构
①目的
掌握常用函数的用法以及顺序结构程序的编制;
掌握关系表达式和逻辑表达式的用法;
掌握选择结构的基本用法。
②内容
教材中P263实验4、5、6、7、8
程序代码:
实验4
Text2=UCase(Text1.Text)
Print"
长度"
;
Len(Text1.Text)
Text2.Text="
实验5
Randomize
Text1=Int(Rnd*901+100)
PrivateSubCommand2_Click()
Dimx%,x1%,x2%,x3%
x=Val(Text1)
x1=xMod10
x2=(xMod100)\10
x3=x\100
Label1=x1*100+x2*10+x3
实验6
Label1=Left(Text1,11)
Label2=Mid(Text1,12,6)
Label3=Right(Text1,5)
实验7
Fori=1To5
PrintTab(15-i*2);
String(2*i-1,"
★"
);
Spc(18-4*(i-1));
)
Nexti
EndSub
Cls
另一种
String(11-2*i,"
☆"
实验8
DimaAsSingle
a=InputBox("
请输入一个正实数"
a的平方是"
Int(a*a*1000+0.5)/1000;
a的平方根是"
Int(Sqr(a)*1000+0.5)/1000;
a的立方是"
Int(a*a*a*1000+0.5)/1000;
a的立方根是"
Int(a^(1/3)*1000+0.5)/1000
实验三:
选择结构
教材中P2651、3、5、6、7、8
1、
DimxAsSingle
x=Val(InputBox("
请输入价钱"
))
Ifx<
1000Then
y=x
ElseIfx<
2000Then
y=0.9*x
3000Then
y=0.8*x
Else
y=0.7*x
你应支付:
y
3、
Dimx!
y!
z!
x=InputBox("
inputx"
y=InputBox("
inputy"
z=InputBox("
inputz"
Print"
xyz"
排序前"
x;
"
y;
z
Ifx<
yThent=x:
x=y:
y=t
Ify<
zThen
t=y:
y=z:
z=t
yThen
t=x:
EndIf
排序后"
&
x&
y&
5、
Dimm%,n%,x%,y%
PrivateSubText2_LostFocus()
m=Text1.Text
n=Text2.Text
IfnMod2<
>
0Then
MsgBox("
脚数为奇数,重新输入"
Text2.Text="
Text2.SetFocus
Ifn<
2*mOrn>
4*mThen
脚数小于头数的倍数或大于4倍,重新输入"
PrivateSubText3_GotFocus()
y=n/2-m
x=m-y
Text3.Text=x
Text4.Text=y
6、
DimaAsSingle,bAsSingle,cAsSingle
Dimx1AsSingle,x2AsSingle
a=Val(Text1.Text):
b=Val(Text2.Text):
c=Val(Text3.Text)
d=b*b-4*a*c
Ifa<
Ifd>
MsgBox"
两实根"
x1=(-b+Sqr(d))/2/a
x2=(-b-Sqr(d))/2/a
Text4.Text=x1:
Text5.Text=x2
ElseIfd=0Then
两重根"
x1=-b/2/a
x2=x1
Else
两复根"
x2=Sqr(-d)/2/a
Text4.Text=x1&
+"
x2&
i"
Text5.Text=x1&
-"
Ifb<
单根"
x1=-c/b:
x2=-c/b
无意义"
end
Text3.Text="
Text4.Text="
Text5.Text="
7、
PrivateSubText3_LostFocus()
SelectCaseTrim(Text3)
Case"
Text4=Val(Text1)+Val(Text2)
-"
Text4=Val(Text1)-Val(Text2)
*"
Text4=Val(Text1)*Val(Text2)
/"
IfVal(Text2)=0Then
分母为零,重新输入"
Text2="
Text4=Val(Text1)/Val(Text2)
EndSelect
8、
方法一
ch=InputBox("
请输入一个数字1--7"
t=Choose(ch,"
星期一"
"
星期二"
星期三"
星期四"
星期五"
星期六"
星期日"
MsgBox(t)
方法二
SelectCasech
Case"
1"
MsgBox"
2"
3"
4"
5"
6"
7"
EndSelect
循环结构
掌握循环结构的功能;
掌握For-Next和Do-Loop循环控制语句的用法;
掌握多重循环结构的用法。
教材中P2681、2、3、4、6
Fori=1To10
PrintTab(20-i);
String(2*i-1,Right(Str(i),1))
2
Fori=1To9
PrintTab(i+10);
String(20-2*i,Chr(i+64))
Dims!
t!
i&
s=1
t=1
i=1
DoWhile1/t>
0.0001
t=t+i
s=s+1/t
i=i+1
Loop
DoWhile结构"
s,i-1;
项"
Fori=1To100000
If1/t<
0.0001ThenExitFor
For结构"
s,i;
4
DimpiAsDouble,nAsSingle
n=InputBox("
sdfd"
pi=2
Fori=1Ton
pi=pi*2*i*2*i/(2*i-1)/(2*i+1)
Printpi
6
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,
另一种方法
Forj=0To9
Forz=0To9
Ifi*i*i+j*j*j+z*z*z=i*100+j*10+zThen
Printi*100+j*10+z,
Nextz
Nextj
实验E:
数组和自定义类型
掌握数组的概念;
体会数组在处理有序数据方面的优越性;
掌握数组的常用解题算法。
教材中实验:
1、2、3、4、5、6
Dima(1To10)AsInteger,i%,maxa%,mina%,avera!
Fori=1To10
a(i)=Int(Rnd*100)
mina=a
(1)
maxa=a
(1)
avera=a
(1)
Fori=2To10
Ifa(i)>
maxaThenmaxa=a(i)
Ifa(i)<
minaThenmina=a(i)
avera=avera+a(i)
Printa(i);
max="
maxa,"
min="
mina,"
aver="
avera/10
2、
Dima
a=Array(56,78,98,88,76,78)
Fori=0To5
PrintString(a(i)\5,"
◆"
a(i)
3、统计各分数段的个数
Dima(1To20)AsInteger
Fori=1To20
a(i)=Int(Rnd*101)
j=j+1
Picture1.PrintTab(6*j-5);
a(i);
IfjMod4=0ThenPicture1.Print:
j=0
Dims(5To9)AsInteger
j=a(i)\10
Ifj<
6Then
s(5)=s(5)+1
ElseIfj<
9Then
s(j)=s(j)+1
s(9)=s(9)+1
Fori=5To9
Picture2.Print"
s("
i;
)的人数有"
s(i)
4、
Dima(1To10)AsInteger
a(i)=Int(Rnd*90+10)
Printa(i);
k=i
Forj=i+1To10
Ifa(k)<
a(j)Thenk=j
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 东北 林业大学 VB 期末 复习资料