VB实验报告册答案及考试大纲.docx
- 文档编号:3876666
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:26
- 大小:20.92KB
VB实验报告册答案及考试大纲.docx
《VB实验报告册答案及考试大纲.docx》由会员分享,可在线阅读,更多相关《VB实验报告册答案及考试大纲.docx(26页珍藏版)》请在冰豆网上搜索。
VB实验报告册答案及考试大纲
实验一
一、选择题
DDBAB,CC(D)DDC,ADDCA
二、填空题
Windows
中断
工具箱
代码
分类
form2.show
有语法错误
错误
事件
结构化
文件名和结构
工程
代码
双击任意控件或右健快捷菜单选“代码窗口”
vb的安装文件夹
属性
方法
font
load
对象
三、编程
1-1
PrivateSubCommand1_Click()
PrintSqr(8),8^(1/3)
EndSub
1-2
PrivateSubCommand2_Click()
Fori=100To110
PrintSqr(i)
Nexti
EndSub
1-3(基本设置在属性窗口完成!
)
PrivateSubCommand3_Click()
Print"郑州大学在前进!
"
EndSub
1-4(基本设置在属性窗口完成!
)
PrivateSubCommand4_Click()
Label1="蓝天、白云、绿水、青山"
EndSub
实验二
一
BCBCC,CBBDA,CCCBA,CBDCC
二
form_click()
interval,5000
vbp,frm
top,left,height,width,像素
picture
load
locked
font,alignment
gotfocus,lostfocus
属性窗口,代码
三
2-1
PrivateSubCommand1_Click()
Label3=Text1*Text2
EndSub
PrivateSubCommand2_Click()
Label3=Text1/Text2
EndSub
2-2
PrivateSubCommand1_Click()
Picture1.Visible=True
Picture1=LoadPicture("C:
\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Waterlilies.jpg")
EndSub
PrivateSubCommand2_Click()
Picture1.Visible=True
Picture1=LoadPicture("C:
\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Winter.jpg")
EndSub
PrivateSubCommand3_Click()
Picture1.Visible=False
EndSub
2-3
PrivateSubCommand1_Click()
Label3=Text1*Text2
EndSub
2-4
PrivateSubCommand1_Click()
Text2=Text1
EndSub
PrivateSubCommand2_Click()
Text1=""
Text2=""
EndSub
PrivateSubText1_Change()
Command1.Visible=True
Command2.Visible=True
EndSub
2-5
PrivateSubCommand1_Click()
Timer1.Interval=500
EndSub
PrivateSubCommand2_Click()
Timer1.Interval=0
EndSub
PrivateSubTimer1_Timer()
Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width))
Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height))
EndSub
实验三
一
A(BC)(BC)AA,A(BCD)DBB,B
二
3,4,5,6,8,10,11,12,14,15,16
三
abs(x+y)
(3+x*y)^2
(-b+sqr(b^2-4*a*c)/(2*a)
sin(30*3.14/180)+exp
(2)
四
int(rnd*71+20)
x*y<0
xmod3=0orxmod7=0
x>=10andx<20
x>="A"andx<="Z"
left(s,3)或者,mid(s,1,3)
五
3-2
PrivateSubCommand1_Click()
DimxAsSingle
x=Val(Text1)
PrintFormat(x^2,"##.000"),Format(Sqr(x),"##.000"),Format(x^3,"##.000"),Format(x^(1/3),"##.000")
EndSub
3-3
PrivateSubCommand1_Click()
DimxAsInteger
x=Int(Rnd*900+100)
Text1=Trim(Str(x))
Text2=Right(Text1,1)+Mid(Text1,2,1)+Left(Text1,1)
EndSub
3-4
PrivateSubCommand1_Click()
Dimmax,minAsInteger
min=Val(Text1)
max=Val(Text2)
Randomize
PrintInt(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min)
EndSub
3-5
PrivateSubCommand1_Click()
Text1=Date
Text2=Time
Text3=WeekdayName(Weekday(Date))
EndSub
实验四
一
CDCDA,DBBAC
二
(1)48.71E-01,-4.8712
(2)关系,逻辑,数值
(3)900,100,mid(a,2,1),c
(4)
m
1,2,3
printm&"月是第二季度"
endselect
三
(1)x=4y=13
(2)10
四
4-1
PrivateSubCommand1_Click()
Dimnum,a1,a2,a3AsSingle
num=Val(Text1)*180/3.14
a1=Int(num)
num=num-a1
a2=Int(num*60)
num=num*60-a2
a3=Format(num*60,"##.000")
Printa1,a2,a3
EndSub
4-2
PrivateSubCommand1_Click()
DimyAsInteger
y=Val(Text1)
If(yMod400=0OryMod4=0AndyMod100<>0)Then
MsgBoxy&"是闰年"
Else
MsgBoxy&"不是闰年"
EndIf
EndSub
4-3
PrivateSubCommand1_Click()
Dimx,y,z,tAsInteger
x=Val(InputBox("inputx:
"))
y=Val(InputBox("inputy:
"))
z=Val(InputBox("inputz:
"))
Ifx>yThent=x:
x=y:
y=t
Ify>zThen
t=y:
y=z:
z=t
Ifx>yThent=x:
x=y:
y=t
EndIf
Printx,y,z
EndSub
4-4
PrivateSubCommand1_Click()
DimnettimeAsInteger,moneyAsSingle
nettime=Val(InputBox("每月上网时数:
","上网费用"))
Ifnettime=-1Then
money=0
ElseIfnettime<10Then
money=25
ElseIfnettime<50Then
money=nettime*2
ElseIfnettime<100Then
money=nettime*1.5
ElseIfnettime<200Then
money=nettime
Else
money=200
EndIf
Ifmoney<>0ThenMsgBox"该月上网费用为"&money&"元"
实验五
一
BCBAC
二
(1)forx=1to10
s*(1-1/x)
(2)
0
t<1E-6
(3)
j
t
(4)
5
115
三
5-1
PrivateSubCommand1_Click()
Dimi,sumAsInteger
sum=0
Fori=1To100
sum=sum+i
Nexti
Print"1+2+...+100=";sum
EndSub
5-2
PrivateSubCommand1_Click()
Dimx,yAsInteger
Forx=0To20
Fory=0To33
If5*x+3*y+(100-x-y)/3=100Then
Printx,y,100-x-y
EndIf
Nexty
Nextx
EndSub
5-3
PrivateSubCommand1_Click()
DimiAsInteger
i=7
Do
IfiMod2=1AndiMod3=2AndiMod5=4AndiMod6=5AndiMod7=0Then
Printi
ExitDo
Else
i=i+7
EndIf
Loop
EndSub
5-4
PrivateSubCommand1_Click()
Dimx,y,zAsInteger
Forx=1To9
Fory=1To9
Forz=0To9
If100*x+10*x+z+100*y+10*z+z=532Then
Printx,y,z
EndIf
Nextz
Nexty
Nextx
EndSub
5-5
PrivateSubCommand1_Click()
DimsumAsSingle,nAsInteger
sum=1
DoWhilesum<=4
sum=sum*1.1
n=n+1
Loop
Print"经过";n;"年销售收入翻两番"
EndSub
5-6
PrivateSubCommand1_Click()
Dimsum,i,nAsInteger
sum=0
n=Val(InputBox("请输入n的值:
"))
Fori=1Ton
sum=sum+i*(-1)^(i+1)
Nexti
Print"1-2+3-4+...=";sum
EndSub
5-7
PrivateSubCommand1_Click()
Dimsum,isum,i,nAsInteger
sum=0
isum=0
n=Val(InputBox("请输入n的值:
"))
Fori=1Ton
isum=isum+i
sum=sum+isum
Nexti
Print"1+(1+2)+(1+2+3)+...=";sum
EndSub
5-8
PrivateSubCommand1_Click()
Dimpi,tiAsSingle
DimiAsInteger
pi=0
ti=1
i=1
DoWhileAbs(ti)>=0.0001
ti=(-1)^(i+1)/(2*i-1)
pi=pi+ti
i=i+1
Loop
EndSub
5-9
PrivateSubCommand1_Click()
Dimi,j,kAsInteger
Print"水仙花数有:
"
Fori=1To9
Forj=0To9
Fork=0To9
Ifi*100+j*10+k=i^3+j^3+k^3Then
Printi,j,k
EndIf
Nextk
Nextj
Nexti
EndSub
5-10
PrivateSubCommand1_Click()
Dimi,j,kAsInteger
k=0
Fori=999To100Step-1
Forj=2ToInt(Sqr(i))
IfiModj=0ThenExitFor
Nextj
Ifj=Int(Sqr(i))+1Thenk=k+1:
Printi
Ifk=3ThenExitFor
Nexti
EndSub
5-11
PrivateSubCommand1_Click()
Dimi,n,min,maxAsInteger
DimaverAsSingle
min=100
max=50
Fori=1To20
n=Int(Rnd*(99-51)+51)
Printn;
IfiMod5=0ThenPrint
Ifn>maxThenmax=n
Ifn aver=aver+n Nexti Print"max=";max Print"min=";min Print"average=";aver/20 EndSub 5-12 PrivateSubCommand12_Click() Dimi,jAsInteger Fori=1To5 Forj=1To(2*i-1) PrintTab(20-i+j);"*"; Nextj Nexti EndSub 实验六 一 BCCCDDDDCA 二、 6-1 OptionBase1 PrivateSubCommand1_Click() Dimia(10)AsInteger DimMax,min,averAsInteger,iMax,iminAsInteger Fori=1To10 ia(i)=Int(Rnd*51+50) Printia(i); Nexti Print Max=ia (1): iMax=1 min=ia (1): imin=1 aver=ia (1) Fori=2To10 aver=aver+ia(i) Ifia(i)>MaxThenMax=ia(i): iMax=i Ifia(i) imin=i Nexti Print"max=";Max,"imax=";iMax Print"min=";min,"imin=";imin Print"aver=";aver/10 EndSub 6-2 PrivateSubCommand1_Click() Dimia(20),num(5)AsInteger DimMax,min,averAsInteger,iMax,iminAsInteger Fori=1To20 ia(i)=Int(Rnd*101) Printia(i); SelectCaseia(i) CaseIs<60 num (1)=num (1)+1 Case60To69 num (2)=num (2)+1 Case70To79 num(3)=num(3)+1 Case80To89 num(4)=num(4)+1 Case90To100 num(5)=num(5)+1 EndSelect Nexti Print Print"各分数段的人数分别是(0~59,60~69,70~79,80~89,90~100): " Fori=1To5 Printnum(i); Nexti EndSub 6-3 PrivateSubCommand1_Click() Dima(10)AsInteger,t% Fori=1To10 a(i)=Int(Rnd*51) Printa(i); Nexti Print Fori=1To9 Forj=i+1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 报告 答案 考试 大纲
![提示](https://static.bdocx.com/images/bang_tan.gif)