VB试验教材的试验与习题答案

本文格式为Word版，下载可任意编辑——VB试验教材的试验与习题答案第一章VB开发环境与VB概述习题答案

习题

一、选择题..9.10.BC

ADAABDDBAACB4.其次章常用控件与界面设计习题答案

习题

一、选择题..9.10.CBBBBD61.BBBBCADCDBBBCAACBBDABCDDDBBCBACBB27.ADA57.ABCBDBCCCBBDCCDCACB8.59.60.第三章试验与习题

试验

试验3_1?算术运算

PrivateSubCommand1_Click()

ConstaAsSingle=3,bAsSingle=2,cAsSingle=-1,dAsSingle=6DimxAsSingle,yAsSingle,zAsSingle,mAsSinglex=2:y=1:z=1:m=1List1.Clear

List1.AddItema/(b+c/b)

List1.AddItem(x+Sqr(x^2+1))^(1/3)

List1.AddItem((2*y)/(a*x+b*y)*(a*x-b*y))List1.AddItem1+1/(1+1/m)List1.AddItem1/2*(d/3)^(2*x)List1.AddItemLog(y+Cos(x)^2)

List1.AddItemAbs((Exp(x)+Sin(x)^3)/(x+y))

List1.AddItemLog((Exp(x*y)+Abs(1/Tan(z)+Cos(x)^3))/(x+y-z))List1.AddItemSin(45*3.1415/180)+(Exp(10)+Log(10))/Sqr(x+y+1)List1.AddItemLog(a)/Log(b)EndSub?关系运算

PrivateSubCommand2_Click()List1.Clear

List1.AddItemMid(\List1.AddItem\List1.AddItemInt(134.69)>=CInt(134.9)

List1.AddItem78.9/32.77-4.98List1.AddItemStr(32.345)=CStr(32.345)EndSub?规律运算

PrivateSubCommand3_Click()DimxAsInteger,yAsInteger

DimC1AsInteger,C2AsInteger,C3AsIntegerC1=70:C2=80:C3=90x=9:y=-2List1.Clear

List1.AddItemx+y0

List1.AddItem(x%>=0Andy%>=0)Or(x%=255OrC1>90AndC2>90AndC3>80

EndSub试验3_2略

试验3_3略

试验3_4?零售结算

PrivateSubCommand1_Click()

DimdjAsSingle,slAsSingle,jeAsSingle,nAsIntegerLabel1.Caption=\金额：\

dj=InputBox(\请输入商品的单价：\单价框\sl=InputBox(\请输入商品的数量：\数量框\je=dj*sl

n=MsgBox(\共计金额=\结果\Ifn=vbOKThenLabel1.Caption=\金额：\元\EndSub?产生随机数

PrivateSubCommand2_Click()DimmAsInteger,nAsInteger

Dimx1AsInteger,x2AsInteger,x3AsIntegerm=Val(Text1.Text):n=Text2.TextRandomize

x1=Int(Rnd*(n-m+1)+m)x2=Int(Rnd*(n-m+1)+m)x3=Int(Rnd*(n-m+1)+m)

Label4.Caption=\结果为：\EndSub?求逆序数

PrivateSubCommand3_Click()

DimaAsInteger,hAsInteger,tAsInteger,nAsIntegerRandomize

a=Int(Rnd*(999-100+1)+100)h=Mid(CStr(a),1,1)t=Mid(CStr(a),2,1)n=Right(CStr(a),1)

Label5.Caption=a&\EndSub试验3_5略

习题选择题

1.D11.D21.D31.B41.B51.C61.B71.C81.C

2.B12.D22.C32.C42.C52.B62.B72.B82.B3.B13.D23.D33.A43.B53.D63.C73.B83.D4.D14.C24.A34.D44.D54.D64.A74.D84.B5.B15.D25.A35.A45.C55.D65.B75.D85.B6.D16.D26.B36.B46.C56.A66.B76.C86.B7.D17.B27.A37.B47.A57.B67.D77.B87.A8.B18.A28.A38.B48.D58.A68.A78.D88.D9.C19.D29.C39.C49.B59.A69.A79.A89.C10.A20.B30.A40.D50.A60.A70.A80.D填空题

1、2-32768~32767

2、整型长整型单精度双精度3、0False“〞

4、Chr(Int(Rnd*(Asc(“L〞)-Asc(“C〞))+Asc(“C〞)))x>0Andy>0Orx=〞a〞Andc=〞A〞Andc=10Andx0OrYMod400=09、HeSaid,“Goodmorning〞.10、EDEF

11、(A>0AndAInt(A))And(BInt(B))12、a+b+c+d

(a+b+c+d)/4sumaver

13、(f-2*h)/2

(4*h-f)/2

简答题

1、略

2、PrivateSubForm_Click()Constg=9.8

DimV0AsSingle,tAsSingleDimSAsSingle

V0=InputBox(\请输入V0的值：\t=InputBox(\请输入时间t的值：\S=(1/2)*g*t^2+V0*tMsgBox(\位移量为：\EndSub

3、PrivateSubCommand1_Click()

DimlAsSingle,wAsSingle,hAsSingleDimsAsSinglel=Text1.Textw=Text2.Texth=Text3.Text

s=(l*w+l*h+w*h)*2Label1.Caption=s

DimFilenumAsIntegerDimFilenum1AsIntegerDimReclengthAsLongFilenum=FreeFile

Reclength=Len(Tempstudent)

Open\Filenum1=FreeFile

Open\DoWhileNotEOF(Filenum)Get#Filenum,,TempstudentWithTempstudent

IfNot(.Computer0.4Then

y=(-1)*Tan(a*pi/180)*500+1500x=a*8+3000

PSet(x,y),RGB(255,0,0)EndIf

IfAbs(Sin(a*pi/180))>0.4Then

y=(-1)*Cos(a*pi/180)/Sin(a*pi/180)*500+1500x=a*8+3000

PSet(x,y),RGB(0,0,255)EndIf

IfaMod90=0ThenLine(x,1500)-(x,1600)PrintaEndIfNextEndSub

2．PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimxAsInteger,yAsInteger

DimflagAsBooleanflag=Falsex=500y=500

Fori=1To9Forj=1To9IfflagThen

Line(x,y)-Step(200,200),RGB(255,255,255),BFflag=FalseElse

Line(x,y)-Step(200,200),RGB(0,0,0),BFflag=TrueEndIf

x=x+200Nextjx=500y=y+200NextiEndSub

3．PrivateSubCommand1_Click()Constpi=3.1415926DrawWidth=2FillStyle=0

FillColor=RGB(180,180,180)

Circle(1000,1500),800,,-7*pi/6,-5*pi/6FillColor=RGB(210,210,210)

Circle(3000,1500),800,RGB(210,210,210),-7*pi/6,-5*pi/6EndSub

第十章习题

一．选择题题号答案题号答案1D9C2C10B3C11A4B12A5C13A6B14A7A15B8A16A二．填空题

1．数据DatabaseNameRecordSource

2．绑定DataSourceDataFieldDataSourceDataField3．AddNewDeleteUpdate

4．关系

5．关系mdb

6．Data.Recordset.Update

7．DELETEFROMxshWHERE性别=〞男〞

8．ALTERTABLExshADDCOLUMNSextext(2)

三．编程题

1．CREATETABLExsh(NumberText(5),NameText(6))?建立表

ALTERTABLExshADDCOLUMNSexText(2)?添加字段ALTERTABLExshDROPCOLUMNSex?删除字段

SELECTNumber,Name,SexFROMxshWhereSex=“男〞?数据查询

INSERTINTOxsh(Number,Name,Sex)VALUE(“98001〞,〞李小平〞，〞男〞)?添加纪录DELETEFROMxshWHERESex=〞男〞?删除纪录

UPDATExshSETName=〞王东升〞WHEREName=〞李小平?更新纪录〞2．（1）．INSERTINTOkch(课程编号,课程名称,课程性质,学分)VALUE(“k004〞,〞Java程序设计〞,〞专业选修〞,2)

(2)．DELETEFROMkchWHERE课程名称=〞操作系统〞(3)．UPDATEkchSET学分=2WHERE课程编号=“k003

3．PrivateSubM1_1_Click()Data1.Recordset.AddNewData1.Recordset.UpdateData1.Recordset.MoveLastEndSub

PrivateSubM1_2_Click()Data1.Recordset.MoveNext

MsgBox\数据更新成功!!\提醒信息\EndSub

PrivateSubM1_3_Click()Data1.Recordset.DeleteData1.Recordset.MoveLastEndSub

PrivateSubM1_4_Click()

Picture1.Print\课程编号\课程名称\课程性质\学分\Data1.Recordset.MoveFirstDoUntilData1.Recordset.EOF

Picture1.PrintData1.Recordset.Fields(0),Data1.Recordset.Fields(1),_Data1.Recordset.Fields(2),Data1.Recordset.Fields(3)Data1.Recordset.MoveNextLoop

EndSub

模拟练习一答案

笔试模拟题（一）答案

第一部分计算机基础知识

1.A11.B2.D12.C3.C13.D4.A14.C5.B15.D6.B16.D7.D17.C8.C18.D9.A19.C10.C20.B其次部分VisualBasic程序设计

一、选择题62.D63.A64.B65.C66.D67.D68.A69.B70.B71.A二、填空题

（1）（X+Y5AndY>5)（2）31（3）63（4）0（5）4

（6）23456（7）678（8）10

（9）112（10）111（11）314（12）131（13）6.5

（14）4913（15）19.5

（16）Val（Text1.Text）（17）x^n或t*x（18）s*n

Student.Language=Text2Student.Math=Text3Student.English=Text4PrintList1.ListIndex

List1.AddItemText1

IfiMod4=0ThenPrint#10,vbCrLfEndIfNext

Close#10MsgBox\EndSub

第三题：

OptionExplicit

PrivateSubCommand1_Click()DimSourceAsStringDimLineStrAsString

OpenText1.TextForInputAs#10DoWhileNotEOF(10)LineInput#10,LineStrSource=Source+LineStrLoop

Text3.Text=Search(Source,Text2.Text)Close#10EndSub

PrivateFunctionSearch(SourceAsString,wordAsString)AsIntegerDimnumAsInteger,iAs