还剩37页未读，继续阅读
本资源只提供10页预览，全部文档请下载后查看！喜欢就下载吧，查找使用更方便
文本内容:
第1章VisuaI Basic
6.0程序设计概述
一、判断题
1.V
2.V说明同类控件如两个标签相互重叠，设计时可以设置“置前”、“置后”属性
3.X
4.V
5.X
6.V
7.X
8.V
9.V
10.X
11.V
12.V
13.X
14.V
15.X
16.V
17.V
18.V
19.V
20.V
二、选择题
1...
2...
3...
4...
5...
6...
7...
8...
9...
10...
11...
12.D
三、填空题对象、事件
2.属性、方法、事件
3.控件、屏幕（Screen）
1.属性、〈对象名〉〈属性名＞=＜表达式＞、
6.对象
5.Left Top
4.网格
8.F orml
7.或或或（自动执行的先后顺序也按此排列）
9.Load InitializeResize Activate
10.Act ivate^Deact ivate
四、程序设计题程序界面设计参看图以及表
1.10-
1.10-210-1o表实例各控件的主要属性设置10-12控件属性（属性值）属性（属性值）标签控件（“我的第一个程序”）1NameLabell CaptionVB（请输入你的姓名”）NameLabel2Caption标签控件2FontU nderLineTrue FontltalicTrue命令按钮，确定1NameCommand1CaptionO”命令按钮结束2NameCommand2Caption X”过程设计如下Private subForm_ClickCommand
2.Enabled=FalseEen SubPrivate Sub Commandl_ClickLabel
2.Visible=False”:欢迎使用+㊀Labell.Caption=Textl.Text+Lab
11.Caption
3.1Text
2.Enabled=False2p=23Print i或4ValTextl.Text2ValTextl.Text=15Key Ascii=
134.1List
1.ListCount2List
1.Removeitem I3i=i+l
5.1Timer
1.Enabled=True2x\3600或3x Mod3600\60x-3600*h\604x=x+l
6.1Label
1.Left2Label
1.Left=-Labe
11.Width
六、程序设计题程序.界面设计略，过程设计如下1Private SubCommancll_Click显示“If Commandl.Caption=Then”欢迎使用清除Print Visual Basic!”:Commandl.Caption=Else显示”Forml.Cis:Commandl.Caption=End IfEnd SubPrivate Sub Command2_ClickEndEnd SubPrivate Sub Form_Load显示”:退出”Forml.Cis:Commandl.Caption=Command
2.Caption=End Sub程序界面设计略，过程设计如下
2.Private Sub Form_LoadTextl.MaxLength=1:Textl.Text=End SubPrivate Sub Textl_KeyPressKeyAscii As IntegerLabell.Caption=CStr KeyAsciiEnd Sub程序界面设计略，过程设计如下
3.预设密码为Const pwdAs String=123456”123456Private Sub Commandl_Click”欢迎进入！nCis:PrintEnd SubPrivate Sub Form_Load进入”:Commandl.Caption=Commandl.Enabled=FalsewTextl.Text=Textl.PasswordChar=End SubPrivate Sub Textl_KeyPressKeyAscii As IntegerIf KeyAscii=13ThenIf Textl.Text=pwd Then口令正确，欢迎进入！n:m=MsgBoxCommandl.Enabled=True Else口令错误，请重新输入！m=MsgBox”Textl.Text=End IfEnd IfEnd Sub程序界面设计略，过程设计如下
4.工工工㊀㊀㊀㊀㊀Dim num As nt g r,m As nt g r,rec As nt garPrivate Sub Form_Load出题”:Commandl.Caption=Commandl.Enabled=True Textl.Text=Textl.Enabled=False:rec=0End SubPrivate Sub Commandl_ClickRandomize:num=IntRnd*100+1:Textl.Enabled=True Label
1.Caption=Commandl.Enabled=FalseEnd SubPrivate Sub Command2_Click EndEnd SubPrivate Sub Textl_KeyPressKeyAscii As IntegerIf KeyAscii=13Thenm=VaiTextl.Text:rec=rec+1:Textl.SelStart=0Textl.SelLength=LenTextl.Text:Textl.SetFocus Ifrec10Then差！重新开始”Labell.Caption=Call Form_Load ElseIfmnum Then”大了！”Labell.Caption=Str mElselfmnum Then了!”Labell.Caption=Str mElseIf rec5Then”好！猜对了HLabell.Caption=Else还彳亍！猜对了HLabell.Caption=End IfCallForm LoadEnd IfEnd IfEnd IfEnd Sub程序界面设计如图所示，过程设计如下
5.10-3Private SubForm_LoadCommandl
0.Enabled=False:Commandl
1.Enabled=FalseCommandl
2.Enabled=False:Labell.Caption=End Sub工㊀㊀Private Sub Commandl_ClickIndex As ntgr Select Case IndexCase0Clipboard.Clear:Clipboard.SetText Textl.SelText Textl.SelText=“请选择要粘贴的位置！HLabell.Caption=Commandl
0.Enabled=False:Commandl
1.Enabled=False Commandl
2.Enabled=True㊀Cas1Clipboard.Clear:Clipboard.SetText Textl.SelText请选择要粘贝占的位置！”Labell.Caption=Commandl
0.Enabled FalseCommandl
1.Enabled=False:Commandl
2.Enabled=True CaseElseTextl.SelText=Clipboard.GetText:Form_Load粘贝占完成！”㊀Lab
11.Caption=End SelectEnd SubPrivate Sub Textl_MouseUpButton As Integer,Shift As Integer,_X As Single,Y As SingleDim n As Integern=Textl.SelLength Ifn0Then选择了“”个字，请选择下一步操作！”Labell.Caption=nCommandl
0.Enabled=True:Commandl
1.Enabled=True Else㊀Lab
11.Caption=EndIfEnd Sub程序界面设计如图所示，过程设计如下
6.10-4Private SubForm Load当前日期::Labell.Caption=Textl.Text=Date显示日期“显示时间”Optionl
0.Caption=Optionl
1.Caption=退出”Optionl
0.Value=True:Commandl.Caption=End SubPrivate Sub Optionl_ClickIndex As IntegerSelect CaseIndexCase0当前日期::Labell.Caption=Textl.Text=Date㊀Cas1当前时间Labell.Caption=Textl.Text=TimeEnd SelectEnd SubPrivate Sub Commandl_ClickEndEnd Sub程序过程设计如下
7.Private SubForm_Load当前日期::㊀Labell.Caption=Textl.Text=Dat显示日期显示时间”Optionl
0.Caption=Optionl
1.Caption=退出”Optionl
0.Value=True:Commandl.Caption=”年一月一日:工八月一日一年”㊀Combol.Additem Combo
1.Add tm”日一月一年:=年一月一日”Combol.Additem Combol.TextEnd SubPrivate Sub Combol_ClickDim n As StringSelect Case Combol.Listindexn nCase0:n=yyyy-mm-ddn nCase1:n=mm-dd-yyyyn nCase2:n=dd-mm-yyyy㊀㊀EndS1ctTextl.Text=FormatDate,nEnd SubPrivate Sub Optionl_ClickIndex As IntegerSelect CaseIndex当前日期::Case0:Labell.Caption=Textl.Text=Date当前时间Case1:Labell.Caption=Textl.Text=TimeEnd SelectEnd SubPrivate Sub Commandl Click EndEnd Sub程序.界面设计如图所示，过程设计如下810-5Private SubForm_LoadHListl.Additem happy”:Listl.Additem applen nListl.Addltem student:Listl.Additem computer”End SubPrivate SubCommandl_Click工㊀Listl.Add tm Text
1.Text:Textl.SetFocus㊀・㊀㊀㊀・㊀T xtlS IStart=0:Textl.SelLength=L nT xtlT xtEnd SubPrivate SubCommand3_ClickListl.ClearEnd SubPrivate SubCommand4_ClickEndEnd SubPrivate SubCommand2_ClickIf Listl.ListIndex-1Then Listl.Removeitem Listl.ListIndex End Sub界面设计如图所示，过程设计如下
9.10-6Private SubForm_Load八进制十六进制”Optionl
0.Caption=Optionl
1.Caption=Optionl二进制”
2.Caption=End SubPrivateFunction trank As Long,n As Integer As StringDim x As Integer,y As String*1,kl AsLong tran=kl=Absk DoWhilekl0x=kl ModnH nIfx=10Then y=ChrAsc A+x-10Else y=CStr xtran=y+trankl=kl\nLoopIf k0Then tran=+tranEnd FunctionPrivate Sub Optionl_ClickIndex As Integer DimkAsLong,n As Integer k=VaiTextl.TextSelect CaseIndexCase0八进制Label
2.Caption=n=8Case1十六进制Label
2.Caption=n=16Case2二进制Label
2.Caption=n=2End Select㊀㊀T xt
2.T xt=trank,nEnd Sub界面设计如图所示，过程设计如下
10.10-7Private SubForm_LoadLabell.Left=Width/2-Labell.Width/2=㊀㊀Lab
11.AutoSiz TrueHScrolll.Min=1:HScrolll.Max=1000HScrolll.SmallChange=10:HScrolll.LargeChange=100HScrolll.Value=500:Timerl.Interval=500End SubPrivate Sub HScrolll_ChangeTimerl.Interval=HScrolll.ValueEnd SubPrivate Sub HScrolll_ScrollCall HScrolll_ChangeEnd SubPrivate Sub Timerl_TimerLabell.Fontsize=Labell.Fontsize+2Labell.Left=Width/2-Labell.Width/2If Labell.Fontsize=72Then Timerl.Enabled=False End Sub第6章图形控件和图形方法
一、判断题
1.V
2.X
3.V
4.X
5.V
6.X
7.X
8.X
9.V
10.V
二、选择题I.C
2.B
3.C
4.A
5.A
6.C
7.A
8.C
9.C
10.BII.A
12.B
13.B
14.C
15.C
三、填空题
1.Circle ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2,800选中、属性
2.LoadPicture
3.AutoSize StretchFalse False
4.形状、矩形
5.
6.Picturel.Picture=LodePicturenC:\Windows\Cloud.bmpn图片框、其他控件堤、颜色
7.
8.SclaeMode
9.颜色、圆弧起点处转角、圆弧终点处转角椭圆纵轴与横轴长度之比
10.四程序阅读题程序转动一条红色直线，其轨迹形成一个圆L程序.在窗体上随机的位置、用随机的颜色、半径绘制个空心的圆21000程序.在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换3
五、程序填空题
1.1Combo
1.Listindex2Shape
1.BorderStyle3Combo
2.Additem Stri
2.1Call pic2False3n=n+14LoadPicturenc:\windows\l.bmpn4LoadPicturefn
六、程序设计题程序界面设计略，过程设计如下
1.Private SubForm_LoadPicturel.ScaleMode=3End SubPrivate SubCommandl_ClicknDim xlAs Single,yl As Single,x2As Single,y2As Singlexl=InputBoxxln n n H n=:yl=InputBoxyl=x2=InputBoxx2=:y2=InputBoxy2n=Picturel.Line xl,yl-x2,y2,,B End Sub程序界面设计略，过程设计如下
2.Private SubForm_clickDim rAs Single,xo As Single,yo AsSingleIf Forml.ScaleHeightForml.ScaleWidth Thenr=Forml.ScaleHeight/3Elser=Forml.Scalewidth/3End Ifxo=Forml.ScaleLeft+Forml.Scalewidth/2yo=Forml.ScaleTop+Forml.ScaleHeight/2Forml.FillStyle=0:Forml.FillColor=vbBlueForml.DrawWidth=2:Forml.ScaleMode=6Forml.Circle xo,yo r,vbYellowrEnd Sub程序界面设计略，过程设计如下
3.Private SubForm_LoadDim i As IntegerFor i=1To7:Listl.Additem i:Next iForml.ScaleMode=1End SubPrivate Sub Listl_ClickForml.Cis:Forml.ScaleMode=Listl.TextForml.Circle Forml.ScaleLeft+Forml.Scalewidth/2,Forml.ScaleTop+Forml.ScaleHeight/2,50End Sub第7章对话框与菜单程序设计
1.V
2.
3.
4.X
5.X
6.X
7.V
8.V
9.V
10.V
一、判断题
1.D
2.A
3.C
4.C
5.B
6.D
7.A
8.B9,D
10.B
二、选择题
三、填空题窗体控制菜单、下拉式菜单、快捷菜单
2.ShowFont
1..打开文件、另存为、颜色、字体、打印对话框工程、部件
34.
5.CommonDialog
1.Action=
3.CommonDialog
1.ShowColor
6.提示信息、对话框类型、对话框标题
7.Click工具代码窗口、相同、正
8.
9.Cl ick
10.
四、程序阅读题程序.显示提示信息为、标题为的输出结果”、有一个“确定”按钮的消息框1“5”“na程序.显示提示信息为“您选择了第项”标题为“第一项”有一个“确定”按钮的消21息框
五、程序填空题
1.1IntRnd*1002Stri3Exit For
2.1Fa Ise2Date3CommonDialog
1.Color4
六、程序设计题程序界面设计略，过程设计如下
1.Private SubCommandl_Click CommonDialogl.ShowOpen㊀㊀Listl.Additem CommonDialogl.Fil NamEnd Sub程序界面设计略，过程设计如下
2.Private SubCommandl_Click CommonDialogl.ShowSaveListl.Additem CommonDialogl.FileNameEnd Sub程序界面设计如图、表所示，过程设计如下:
3.10-910-2Private SubSqr_ClickShapel.Shape=1End SubPrivate Sub Rec_ClickShapel.Shape=0End SubPrivate Sub Oval_Click=㊀㊀Shap l.Shap2End Sub㊀Private SubCircl_ClickShapel.Shape=3End SubPrivate Sub Rrec_ClickShapel.Shape=4End SubPrivate Sub RSqr_ClickShapel.Shape=5End SubPrivate Sub Shp_ClickShapel.Fillstyle=2End SubPrivate Sub Shzh_ClickShapel.FillStyle=3End SubPrivate Sub Xiex_ClickShapel.FillStyle=4End SubPrivate Sub ShPJ_ClickShapel.FillStyle=6End SubPrivate Sub XJ_ClickShapel*FillStyle=7End SubPrivate Sub FillColor_ClickCommonDialogl.ShowColorShapel.FillColor=CommonDialogl.ColorTextl.Visible=FalseCommandl.Enabled=False:Command
2.Enabled=TrueEnd SubPrivate SubCommand2_ClickEndEnd Sub程序界面设计略，过程设计如下:
2.字体变大Private SubCommandl_Click Forml.Fontsize=Forml.Fontsize+3”欢迎使用Forml.Cis:Print VB”End Sub字体变小Private SubCommand2_Click Forml.Fontsize=Forml.Fontsize-3”欢迎使用Forml.Cis:Print VB”End Sub，字体加粗Private SubCommand3_ClickForml.FontBold=True”欢迎使用Forml.Cis:Print VB”End Sub，字体不加粗PrivateSubCommand4_ClickForml.FontBold=False”欢迎使用Forml.Cis:Print VB”EndSub运行时，不得连续、过多次单击“字体变小”按钮，因为当属性值小于会产生适时FontSize0错误程序界面设计略，过程设计如下窗体值的计量包括标题、边框，而值仅
3.Height ScaleHeight与窗体有效绘图区域的高度有关PrivateSubForm_Load程序设十”tTextl.Text=Visual BasicEnd SubPrivateSubForm_ResizeTextl.Top=0:Textl.Left=0效果优于•用!.Textl.Widt..Forml.Scalewidth/..Forml.ScaleWidthForml.WidthPrivate SubExit ClickEnd
一、判断题
3.X
6.X
7.V
8.X
1.X
2.V
9.V
10.
11.X
12.X
13.
14.X
15.X
二、选择题
1.A
2.C
3.B
4.B
5.A
6.C
7.C
8.B
9.C
10.
11.D
12.B
13.EndSub
1.ChDir
2.F iI eLen
3.Change
4.EOF
5.L ine Input
三、填空题
四、程序阅读题程序程序程序
1.y…a..
3..
2.
1.
2.
6.122窗体上显示内容:20333文件中内容4681012444455555
五、程序填空题3C:\windows\calc.exe”3Output4End11Dim n AsInteger21For Output As#2204temp.dat Asc:\al.dat”
3.1Open He:\dataout.txtn ForOutput As#12tl Modt2=03If flagThen4Print coun
六、程序设计题程序界面设计如图所示，过程设计如下:
1.10-1Dim fn As StringPrivateSub Drivel_Change㊀㊀Dirl.Path=Driv
1.DrivPrivate SubDirl_ChangeFilel.Path=Dirl.PathEnd SubPrivateSub Filel_ClickH nIfRightFilel.Path,1=\Then fn=Filel.Path+Filel.FileNameElsen nfn=Filel.Path+\+Filel.FileNameEnd IfEnd SubPrivateSubCommandl_ClickDim yesnoAs Byte确认要册除吗？，删除文件”yesno=MsgBox ljvbYesNo,If yesno=vbYes ThenKill fnFilel.RefreshEnd Sub程序建立个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮
2.4追加该记录到磁盘文件过程设计如下d:\student.datoPrivate SubCommandl_ClickDim b As Date,m AsByte,e AsByte㊀n HOpn d:\student.dat For Append As#1b=Text
2.Text:m=Text
3.Text:e=Text
4.TextWrite#1,Textl.Text,b,m,eTextl.Text=Text
2.Text=Text
3.Text=Text
4.Text=Close#1EndSub程序界面设计如图所示，过程设计如下
3.10-11PrivateSubForm_LoadDim ss AsString”，如文件不存在则先建立该文件㊀㊀Open\stud nt.txt”ForAppendAs#1Close#1，将文件中所有记录在列表框中显示n HOpend:\student.dat ForInput As#1While NotEOF1Line Input#1,ss:Listl.Additem ssWend，在选中表项之前“删除”、“修改”按钮不可用Close#1J㊀Command
2.Enabl d=False:Commands.Enabled=FalseEnd Sub，选中表项后可“删除”或“修改”,不可“追加”PrivateSubListl_Click Commandl.Enabled=False:Command
2.Enabled=TrueCommand
3.Enabled=True:Textl.Text=Listl.Text EndSub，追力口己录PrivateSubCommandl_Click1If TrimTextl.TextThen Listl.Additem Textl.TextTextl.Text=EndSub，修改记录PrivateSubCommand2_Click Listl.Additem Textl.Text,Listl.ListindexListl.RemoveItem Listl.ListindexCommandl.Enabled=True:Command
2.Enabled=False，修改后，不可“册除”、“修1Command
3.Enabled=False:Textl.Text=j改”EndSub，册除己录PrivateSubCommand3_Click Ut册除后,不可“册除”、“修Listl.Remove ItemListl.List IndexU U改”Commandl.Enabled=True:Command
2.Enabled=False㊀㊀Command
3.Enabled=False:T xtl.T xt=EndSub”呆存文件，将列表框中所有表项输出到文件PrivateSubCommand4_Click工㊀Dim i As nt garn nOpend:\student.dat ForOutput As#1For i=0To Listl.ListCount-1:Print#1,Listl.List i:Next iClose#1EndSub退出之前先保存文件PrivateSubCommand5_Click CallCommand4_Click:EndEnd Sub第9章数据库与数据访问技术
一、判断题
10.X
11.V
12.V
13.V
14.V
15.V
16.X
17.X
18.X
19.V
20.V
21.V22,X
二、选择题l.A
2.D
3.C
4.B
5.C
6.A
7.C
8.D
9.D
10.C ll.A
12.D
13.A
14.B
15.B
16.C
1...
2...
3...
4...
5...
6...
7...
8...
9.X
三、程序设计题程序
1.数据访问控件以及数据绑定控件的相关属性设置如下
（1）、㊀学籍・、㊀㊀”学生HnDatal:ConnectAccessDatabas Named:\mdb”R cordSourc、“学号”Textl:DataSource Datal”DataField、姓名”Text2:DataSourceDatal”DataField、，性别”Checkl:DataSourceDatal”DataField、出生日期Text3:DataSource Datal”DataField、奖学金”Text4:DataSource Datal”DataField、“简历”n nText5:DataSourceDatalDataField、“照片”OLE1:DataSourceDatal”DataFieldAdodcl:ConnectionstringProvider=Microsoft.Jet.OLEDB.
4.0;学籍㊀Data Source=E:\GYH\VB\lb.mdb;Persist SecurityInfo=Fais成绩”㊀㊀㊀㊀n CommandTypel-adCmdTextR cordSourcs1ct*from DataGridl:H nDataSource Adodcl主要事件过程代码2Option ExplicitPrivateSubForm_Load学籍信息编辑浏览”Caption=学号姓名”㊀Lab
11.Caption=Label
2.Caption=出生年月::”奖学金:“㊀Lab
13.Caption=Labe
14.Caption=简历:照片”Label
5.Caption=Label
6.Caption=性别选中表示男，否则为女”Checkl.Caption=成绩信息查询显示Label.Caption=Adodcl.Visible=FalseEnd SubPrivateSub Datal_Reposition成绩.课程号,课程名，成绩学生，课程，成绩_nAdodcl.Recordsource=select from学生.学号=成绩.学号”成绩.课程号=课程.课程号”成where andand”_绩.学号（“学号）…”成绩.课程号”㊀Datal.R cordsetorder by（（姓名“”成绩信息查询显示”㊀㊀））Label.Caption=Trim Datal.R cords tAdodcl.RefreshEnd Sub程序
2.数据访问控件以及数据绑定控件的相关属性设置如下（）1（HAdodcl:Connectionstring Provider=Microsoft.Jet.OLEDB.
4.0;_学籍11Data Source=E:\GYH\VB\lb.mdb;Persist SecurityInfo=False（）（学生）nn nCommandType1-adCmdTextRecordSource select*from（）DataGridl:DataSource Adodcl”（）主要事件过程代码2Option Explicit（）PrivateSubForm_LoadDim i AsInteger”学籍信息查询浏览Caption=Adodcl.Visible=False选择查询方式=全部者显示”Labell.Caption=Combol.Text E全部表文件数据浏览表格”:Label
2.Caption=Label
3.Visible=FalseTextl.Visible=False:Textl.Text=For i=0To2（全部都显示按学号查询按姓名查询”，）Combol.Additem Mid5*i+1,5Next iEnd Sub（）PrivateSubCombol_ClickSelect CaseCombol.ListindexCase0Textl.Visible=False:Label
3.Visible=False学生”nAdodcl.Recordsource=select*from全部表文件数据浏览表格Label
2.Caption=Adodcl.RefreshCase1输入查询条件（学号）”:Label
3.Caption=Textl.Visible=TrueLabel
3.Visible=True:Textl.SetFocusCase2输入查询条件（姓名）”:Label
3.Caption=Textl.Visible=TrueLabel
3.Visible=True:Textl.SetFocusEnd SelectEndSub（工）㊀PrivateSubTextl KeyDown KeyCode As nt ger,Shift AsIntegerIf KeyCode=vbKeyReturn ThenIfCombol.Listindex=1ThenAdodcl.Recordset.MoveFirst“学号=I H1HAdodcl.Recordset.Find Textl.Text If Adodcl.Recordset.EOF Then学生”★Adodcl.Recordsource=select from全部表文件数据浏览表格”Label
2.Caption=”查无止匕人！”Adodcl.Refresh:MsgBoxElse学生”n HAdodcl.Recordsource=select*from where学号Textl.Text学生”++”的数据浏览表格nLabel
2.Caption=Textl.TextEnd IfElseAdodcl.Recordset.MoveFirst”姓名H1HAdodcl.Recordset.FindTextl.Text If Adodcl.Recordset.EOF Then学生”nAdodcl.Recordsource=select*from全部表文件数据浏览表格”Label
2.Caption=”查无止匕人！”Adodcl.Refresh:MsgBox㊀Els学生”_姓名nAdodcl.Recordsource=select*from whereTextl.Text EndIfEnd IfAdodcl.RefreshEnd IfEndSub程序
3.数据访问控件以及数据绑定控件的相关属性设置如下1Adodclxs:HConnectionstring Provider=Microsoft.Jet.OLEDB.
4.0;学籍HData Source=E:\GYH\VB\lb.mdb;Persist SecurityInf o=FaIse、学生”n nCommandType2-adCmdTableRecordsourceAdodc2kc:nConnectionstring Provider=Microsoft.Jet.OLEDB.
4.0;学籍nData Source=E:\GYH\VB\lb.mdb;Persist SecurityInf o=False、课程”n nCommandType2-adCmdTableRecordsourceAdodc3cj ex:nConnectionstring Provider=Microsoft.Jet.OLEDB.
4.0;学籍nData Source=E:\GYH\VB\lb.mdb;Persist SecurityInfo=False n nCommandType1-adCmdText成绩.学号，学生.姓名，成绩.课程号，课程.课程名，_成绩.Recordsourceselect成绩学生，课程，成绩成绩.课程号=课程.课程号_成绩.学号=学生.from where and学号n nDataGridl:DataSourcecj cx“姓名”、“学号”H nDataListl:RowSourcexsListField BoundColumn、课程名”、课程号”H HDataList2:RowSourcekcListField BoundColumn主要事件过程代码2Option ExplicitDimp AsBytePrivate SubForm_Load工㊀㊀Dim i Asntg rFor i=0To4优秀良好中等及格差等”，Labell i.Caption=Mid2*i+1,2Text1i.Text=Textl i.BackColor=RGB205,205,192Textli.Locked=TrueNext i成绩.学号，学生.姓名，成绩.课程号，课程.课程名，”—Hcjex.Recordsource=select”成绩.成绩学生，课程，成绩_from成绩.课程号=课程.课程号成绩.学号=学生.学号”whereand成绩信息歹表”cj ex.Refresh:Label
2.Caption=U选择学生姓名::选择课程名:㊀㊀Lab
13.Caption=Lab
14.Caption=xs.Visible=False:kc.Visible=False:cj ex.Visible=False Caption=学籍信息查询“p=0EndSubPrivateSub DataListl_Clickp=0:Call cjdetjEndSubPrivateSubDataList2_Clickp=1:Call cjdetjEndSubPrivateSubcj detj工㊀Dim cjdcj s5Asntgar,dcase AsByte,i AsByteIf p=0Then成绩.学号，学生.姓名，成绩.课程号，”_Hcj ex.Recordsource=select”课程.课程名，成绩.成绩学生，课程，成绩_from成绩.学号H whereDataListl.BoundText”成绩.课程号=课程.课程号-and and”_”成绩.学号=学生.学号成绩.课程号”order by单位门”Framel.Caption=”成绩信息歹表”Label
2.Caption=Trim DataListl.Text UElse成绩.学号，学生.姓名，成绩.课程号,”nc jex.Recordsource=select”课程.课程名，成绩.成绩学生，课程，成绩_from成绩.课程号=㊀㊀”wh rDataList
2.BoundText_成绩.课程号=课程.课程号and and_”成绩.学号=学生.学号成绩.学号”order by单位人”Framel.Caption=”成绩信息歹表”Label
2.Caption=Trim DataList
2.Text UEndIfcj ex.Refresh“成绩”㊀㊀If cjex.R cords t60Thendcase=0Els成绩”\・㊀㊀dcase=cjex R cords t10-5End IfSelect Case dcaseCase4,5:cj dejs0=cj dejs0+1Case3:cj dejs1=cj dejs1+1Case2:cj dejs2=cj dejs2+1Case1:cjdcj s3=cjdcjs3+1Case0:cj dejs4=cj dejs4+1End SelectWendFor i=0To4:Textl i.Text=cjdej si:Next iEndSub程序
4.数据访问控件以及数据绑定控件的相关属性设置如下:1㊀Adodcl:Conn ctionStringProvider=Microsoft.Jet.OLEDB.
4.0;学籍nData Source=E:\GYH\VB\lb.mdb;PersistSecurityInfo=False、“学生”nnCommandType2-adCmdTableRecordsourcenLockType4-adBatchOptimisticHAdodc2:Connectionstring Provider=Microsoft.Jet.OLEDB.
4.0;学籍HData Source=E:\GYH\VB\lb.mdb;Persist SecurityInfo=False、“课程”H nCommandType2-adCmdTableRecordsourceH HLockType4-adBatchOptimistic HAdodc3:Connectionstring Provider=Microsoft.Jet.OLEDB.
4.0;学籍HData Source=E:\GYH\VB\lb.mdb;Persist SecurityInfo=False、成绩”nnCommandType2-adCmdTableRecordsourceH HLockType4-adBatchOptimistic用于显示编辑“学号”，但是本字段不设置数据绑定属性，输入或修改后的“学号”数Textl:据通过代码方式写入数据源中、姓名”n nText2:DataSource AdodclDataField、“性别”H nCheckl:DataSource AdodclDataField、出生日期”H nText3:DataSourceAdodclDataField、奖学金”Text4:DataSource Adodcl”DataField用于显示编辑“课程号”，但是本字段不设置数据绑定属性，输入或修改后的”课程Text5号”数据通过代码方式写入数据源中、课程名”Text6:DataSource”Adodc2DataField“学时数”n nText7:DataSource Adodc2DataField学分数”H HText8:DataSource Adodc2DataField、开课学期”Text9:DataSource Adodc2DataField、考试考查标志”n TextlO:DataSourceAdodc2DataField用于显示编辑成绩表中的“学号”，但是本字段不设置数据绑定属性，输入或修改后Textll的“学号”数据通过代码方式写入数据源中用于显示编辑成绩表中的“课程号”，但是本字段不设置数据绑定属性，输入或修改Textl2后的“课程号”数据通过代码方式写入数据源中、“成绩”n nTextl2:DataSourceAdodc3DataField主要事件过程代码2Option ExplicitDimvlt AsBoolean,rn AsVariantPrivate SubForm_Load工㊀㊀Dim iAsntg rFori=0To7追加更新删除表首前翻后翻表尾返回”，Commandli.Caption=Mid2*i+1,2Next iCommandl
3.Enabled=False:Commandl
4.Enabled=False学号”:姓名”Labell.Caption=Label
2.Caption=出生年月::奖学金:Label
3.Caption=Label
4.Caption=性别（选中为男，否则为女）”Checkl.Caption=课程号::课程名:“Label
5.Caption=Label
6.Caption=学时数::学分数:“Labe
17.Caption=Labe
18.Caption=开课学期”考试考查标志”Label
9.Caption=Label
10.Caption=学号::课程号:“Labelll.Caption=Label
12.Caption=成绩”Label
13.Caption=”“追加”、“删除”或是修改操作完成之后必须按“更新”按钮”Labell
4.Caption=学籍信息浏览编辑”Caption=（学号）:（呈号”）Textl.Text=Adodcl.Recordset Text
5.Text=Adodc
2.Recordset（“学号）（Textl
1.Text=Adodc
3.Recordset Textl
2.Text=Adodc
3.Recordset潮）vlt=TrueEnd Sub（）PrivateSubCommandl_Click Index AsInteger㊀Dim xhAsString,kch AsString,answ rAs ByteOnError GoToerrshowSelect CaseIndexCase0Select CaseSSTabl.TabCase0（学号）=・㊀㊀n HAdodcl.Recordset.AddNew:Adodcl R cords t000000Case1（“课程号）Adodc
2.Recordset.AddNew:Adodc
2.Recordset=“0000”Case2（“学号）=㊀㊀㊀nAdodc
3.R cordst.AddN w:Adodc
3.Recordset000000（“课程号“）=Adodc
3.Recordset“0000”End SelectCase1Select CaseSSTabl.TabCase1:Case2:End SelectCase2（“真的确定要删除当前记录吗？“删除确认”），answer=MsgBox”1+32,If answer=1ThenSelect CaseSSTabl.TabCase0（“学号）:・㊀xh=Adodcl R cordset Adodc
3.Recordset.MoveFirst Do优于用・1Textl.Heigh..Forml.ScaleHeight/..Forml.ScaleHeightForml.HeightCommandl.Top=Forml.ScaleHeight-Commandl.HeightCommandl.Left=Forml.Scalewidth-Commandl.WidthEnd Sub“学号Adodc
3.Recordset.Findxh”If Not Adodc
3.Recordset.EOF ThenAdodc
3.Recordset.Delete:Adodc
3.Recordset.MoveNext ElseExitDoEnd IfLoop㊀㊀㊀1tAdodcl.Recordset.MoveNextCase1“课程号:㊀kch=Adodc2-Records tAdodc
3.Recordset.MoveFirst Do”课程号=’Adodc
3.Recordset.Find kchIf NotAdodc
3.Recordset.EOF ThenAdodc
3.Recordset.Delete:Adodc
3.Recordset.MoveNext ElseExitDoEnd IfLoopAdodc
3.Recordset.MoveFirst:Adodc
2.Recordset.DeleteAdodc
2.Recordset.MoveNextCase2End SelectEndIfCase3Select CaseSSTabl.TabCase1:Case2:End SelectCommandl
3.Enabled=False:Commandl
4.Enabled=FalseCommandl
5.Enabled=True:Commandl
6.Enabled=TrueCase4㊀㊀S1ctCaseSSTabl.TabCase0If Not Adodcl.Recordset.BOF AndAdodcl.Recordset.Bookmark1ThenAdodcl.Recordset.MovePreviousElseCommandl
3.Enabled=False:Commandl
4.Enabled=False EndIfCase1I fNotAdodc
2.Recordset.BOF AndAdo de
2.Recordset.Bookmark1ThenAdodc2,Recordset.MovePreviousElseCommandl
3.Enabled=False:Commandl
4.Enabled=False EndIfCase2㊀㊀㊀㊀If NotAdodc
3.R cordst.BOF AndAdodc
3.R cordst.Bookmark1ThenAdodc3,Recordset.MovePreviousElseCommandl
3.Enabled=False:Commandl
4.Enabled=False EndIfEnd SelectCommandl
5.Enabled=True:Commandl
6.Enabled=TrueCase5SelectCaseSSTabl.TabCase0If NotAdodcl.Recordset.EOF And_Adodcl.Recordset.BookmarkAdodcl.Recordset.RecordCount ThenAdodcl.Recordset.MoveNextElseCommandl
5.Enabled=False:Commandl
6.Enabled=False EndIfCase1If NotAdodc
2.Recordset.EOF And_Adodc
2.Recordset.BookmarkAdodc
2.Recordset.RecordCountThenAdodc
2.Recordset.MoveNextElseCommandl
5.Enabled=False:Commandl
6.Enabled=False EndIfCase2㊀㊀If NotAdodc3•R cordst•EOF And_㊀㊀㊀Adodc
3.Recordset.BookmarkAdodc
2.R cordst.R cordCountThenAdodc3,Recordset.MoveNextElseCommandl
5.Enabled=False:Commandl
6.Enabled=FalseEnd IfEnd SelectCommandl
3.Enabled=True:Commandl
4.Enabled=TrueCase6SelectCaseSSTabl.TabCase1:Case2:EndSelect㊀Commandl
6.Enabl d=False:Commandl
5.Enabled=FalseCommandl
4.Enabled=True:Commandl
3.Enabled=TrueCase7Unload MeEndSelect“学号”㊀㊀If NotAdodcl.Recordset.EOF ThenTextl.Text=Adodcl,R cordst课程㊀If NotAdodc
2.Recordset.EOF ThenText
5.Text=Adoclc
2.Records t号”If NotAdodc
3.Recordset.EOF Then“学号”㊀㊀Textll.Text=Adodc3,R cordst“课程号”㊀㊀Textl
2.Text=Adodc3,R cordstEnd IfExitsuberrshow:MsgBox Err.DescriptionEnd SubPrivateSub SSTabl_ClickPreviousTab AsInteger“学号”・㊀㊀㊀If NotAdodcl R cordst.EOF ThenTextl.Text=Adodcl.Records t“课程㊀㊀If NotAdodc
2.Recordset.EOF ThenText
5.Text=Adodc
2.R cordst号”If NotAdodc
3.Recordset.EOF ThenTextll.Text=Adodc
3.Recordset课程号”㊀㊀Textl
2.Text=Adodc3,R cordstEnd IfEndSub工㊀PrivateSubTextl_KeyDownKeyCode Asntgar,Shift AsInteger Dim xh AsString=㊀㊀㊀㊀If KyCod vbKyR turnThen“学号Adodcl.Recordset.FindTextl.Text㊀IfAdodcl.Recordset.EOF Thn“学号”・㊀㊀Adodcl.Recordset.Bookmark=rn:xh=Adodcl R cordst“学号=Adodcl.Recordset Textl.Text・Adodc3Recordset.MoveFirst Do“学号Adodc
3.Recordset.Findxh“”If NotAdodc
3.Recordset.EOF Then（“学号）=Adodc
3.Recordset Textl.TextElseExit DoEnd IfLoop・㊀㊀㊀㊀㊀Adodc3Rcordst.Mov First:S ndKys{tab}”:vlt=True㊀Els”学号重号，重新输入！”，,”输入验证！”MsgBox・Adodcl.Recordset.Bookmark=rn:vlt=False:Textl.SelStart=0Textl（）㊀㊀㊀㊀・㊀S IL ngth=LnT xtlT xtEndIfEndIfEndSub（）PrivateSubTextl_Validate CancelAs BooleanIf vlt=True ThenCancel=FalseElse”学号重号，重新输入！“，,”输入验证！”MsgBox Cancel=TrueEnd IfEndSub（）PrivateSubText5_KeyDownKeyCode AsInteger,Shift AsInteger Dimkch AsStringIf KeyCode=vbKeyReturn Thenrn=Adodc
2.Recordset.Bookmark:Adodc
2.Recordset.MoveFirst Adodc
2.”课程号=’”Recordset.Find Text
5.TextIfAdodc
2.Recordset.EOF Then（“课程号”）・㊀㊀Adodc
2.Recordset.Bookmark=rn:kch=Adodc2Rcordst（“课程号）=Adodc
2.Recordset Text
5.Text:Adodc
3.Recordset.MoveFirst Do课程号Adodc
3.Recordset.Findkch㊀㊀If NotAdodc3•Rcordst.EOF Then（“课程号）Adodc3,Recordset=Text
5.Text ElseExitDoEnd IfLoopnnAdodc
3.Recordset.MoveFirst:SendKeys{tab}:vlt=True Else”课程号重号，重新输入！”，,”输入验证！”MsgBox㊀Adodc
2.Recordset.Bookmark=rn:vlt=False:Text
5.SelStart=0T xt
5.S㊀㊀IL ngth=LenText
5.TextEnd IfEndIfEndSubPrivateSubText5_ValidateCancel AsBoolean㊀Ifvlt=True Thn Cancel=FalseElse”课程号重号，重新输入！“，,“输入验证！”MsgBox Cancel=TrueEnd IfEndSubPrivateSubTextll_KeyDownKeyCode AsInteger,Shift AsInteger Dim xh AsStringIfKeyCode=vbKeyReturn ThenAdodcl.Recordset.MoveFirst“学号=】㊀㊀Adodcl.Rcordst.Find Textl
1.Text If NotAdodcl.Recordset.EOF ThenAdodc
3.Recordset=Textll.Text:SendKeys”{tab}”:vlt=True Else”学号不存在，重新输入！”，,”输入验证！”MsgBoxvlt=False:Textll.SelStart=0:Textll.SelLength=LenTextll.TextEnd IfAdodcl.Recordset.MoveFirstEnd IfEndSubPrivateSubTextll_ValidateCancel AsBoolean Ifvlt=True ThenCancel=False㊀Els”学号不存在，重新输入！”，,”输入验证！”㊀MsgBox Cancel=TruEnd IfEndSubPrivateSubTextl2_KeyDownKeyCode AsInteger,Shift AsIntegerDim kchAs StringIfKeyCode=vbKeyReturn ThenAdodc
2.Recordset.MoveFirst”课程号=’”Adodc
2.Recordset.Find Textl
2.Text・㊀㊀IfNotAdodc2Rcordst,EOF Then课程号nAdodc
3.Recordset=Textl
2.Text:SendKeys{tab}:vlt=True㊀Els”课程号不存在，重新输入！“，,“输入验证！”MsgBox㊀vlt=False:Textl
2.S lStart=0:Textl
2.SelLength=LenTextl
2.TextEnd IfAdodc
2.Recordset.MoveFirstEnd IfEndSubPrivateSubTextl2_ValidateCancel AsBooleanIf vlt=True ThenCancel=FalseElse”课程号不存在，重新输入！“，,”输入验证！”MsgBox Cancel=TrueEnd IfEndSub复习重点.三种程序设计语言结构的理解（大量的选择、填空）
1.过程调用、按值、地址调用
2.画图（在自定义的坐标系上进行画圆、画直线的操作）
3、定时器动画操作，上下左右边界的判断
4.列表框、组合框操作（添加、删除表项等）
5.顺序文件的读写
6、数组排序7第2章程序设计基础
一、判断题
二、选择题
1.V
2.X3・X
4.X
5.V
6.X
7.V
8.V
9.V
10.X
1...
2...
3...
4...
5...
6...
7...
8...
9...
10.A
三、填空题
1.String
2.
43.Haaan
4.
1455.
66.
37.
188.False
9.x Mod10*10+x\
1010.10+Int Rnd*
9011.a*b Modc,日期
12.Logx+Sin
3.141593/
613.Const Pl=
3.
14159261415.I ntx+1
四、程序设计题程序界面设计略，过程设计如下方法
一、用文本框控件输入圆的半径
1.Private SubCommandl_Click㊀Dim xAs Singlx=Text
1.TextLabell.Caption=x*x*
3.141593EndSub方法
二、用函数输入圆的半径InputBoxPrivate SubCommancll_Click，若要求计算结果具有位有效位数，声明为类型㊀DimxAsSingle15x Doubl工，输入圆的半径”x=nputBox“r=㊀Lab
11.Caption=x*x*
3.141593EndSub程序
2.略第3章结构化程序设计与数组
一、判断题
1.V
2.X
3.V
4.X
5.V
6.X
7.X
8.V
9.X
10.
二、选择题
1.A
2.D
3.C
4.C
5.D
6.B三填空题
1.If xy Then t=y:y=x:x=t
2.IS
3.Fori=0to9:Bi=InputBoxHBni=Next i
4.Dim
5.String
6.8
四、程序阅读题（写出下列程序的运行结果）程序程序程序
1.......
2.
2...
3....
1.16程序
4....
1.25
五、程序填空题2s+p*i/q3Nexti
1.1q*i2m Modn
2.1r=027-i3Print
3.1i+j-1程序程序
5...
6.□
4.110+I ntRnd*90⑵i+1To303a⑴=aj4a⑴二Mod21
六、程序设计题程序界面设计略，过程设计如下
1.PrivateSubForm_Click工㊀㊀DimxAsntgr,y AsInteger,z AsIntegerDim maxAsInteger,midd AsInteger,min AsInteger工请输入的值”x=nputBoxx工请输入的值Hy=nputBox”y工请输入的值”z=nputBox”zIf xy Thenmax=x Elsemax=yIf zmax Thenmax=zIf xyThenmin=x Elsemin=yIf zmin Thenmin=zmidd=x+y+z-max-minPrint max;midd;minEnd Sub程序界面设计略，过程设计如下
2.PrivateSubForm_ClickDim xAsSingle,y AsSingle工请输入的值”x=nputBoxxIf x3Theny=x+3Elself x=1Theny=x*xElself x0Theny=Sqrx㊀Els y=0End IfPrintyEnd Sub程序界面设计略，过程设计如下
3.PrivateSubForm_ClickDim iAsInteger^j AsIntegerFor i=1To9For j=1To9Print Tabj-1*4;i*j;Next jPrintNext iEndSub程序界面设计略，过程设计如下
4.PrivateSubForm_ClickDim xAsSingle,sAsSingle,t AsSingleDim iAsIntegern AsIntegerz工请输入的值”x=nputBoxx工请输入的值nn=nputBox”nt=x/2:s=tFor i=3To nt=t*x/is=s+tNext iPrintsEnd Sub程序界面设计略，过程设计如下:
5.PrivateSubForm ClickDimeAsSingle,tAsSingle,iAsInteger e=2:t=1:i=1While t=
0.0001i=i+1:t=t/i:e=e+t WendPrint eEndSub程序界面设计略，过程设计如下
6.Option Base1PrivateSubForm_ClickDim nAsInteger,a9,9AsInteger,iAsInteger,j AsInteger OnError GoTo，下列代码中若出现错误，转到标号为的语句执行k K请输入nn=[nputBoxn,0n10Fori=1To n:ai,1=1:ai,i=1:Next iFor i=3To nFor j=2To i-1lai,j=ai-1,j-1+a i-f jNext j,iFori=1To nPrintTab30-2*i;Forj=1To iPrintSpace4-LenTrimStrai,j;TrimStrai,j;NextjPrintNext iExitSub”输入值小于或大于数组下标超界”k:MsgBox n110,EndSub第4章函数与过程
一、判断题
1.X
2.V
3.X
4.X
5.V
6.X
7.X
8.V
二、填空题,按值传递按地址传递按地址传送
2.bAsLong
3.
645.
1.
6.Pub Ii cxAsSingle
7.Static xAsInteger
8.Form
2.y
三、程序阅读题（写出下列程序的运行结果）程序程序
111.•…2121s=51331s=9程序
四、程序填空题2kModi3k=k\i4Call ppi
1.1ByeVai2n-13ajak
2.1a AaDouble⑶千二
3.1aAs DoubI e,nAsI ntegers
五、程序设计题程序界面设计略，过程设计如下:LPrivate Functionfsumx AsDouble,nAsInteger AsDoubleDimiAsIntegerFor i=1To nfsum=fsum+xiNext ifsum=fsum/nEnd Function程序界面设计略，过程设计如下
2.PrivateSubff aAsSingle^nAsInteger DimiAsInteger,xAsSingle Fori=1To n\2x=a n-i+1:a n-i+1=a i:a i=x NextiEndSub程序界面设计略，过程设计如下
3.PrivateSubfindx AsSingle,mAsbyte,nAsByte,xmax AsSingle,ki AsByte,kj AsByte xmax=x1,1:ki=1:kj=1Fori=1To mForj=1To nIfAbs x i jAbs xmaxThen xmax=xi,j:zNext j,iEndSub第5章常用控件
1.X
2.X
3.X
4.V
5.X
6.V
7.X
8.V
9.V
10.
11.X
12.X
13.V
14.V
15.X
16.X
17.X
18.V
19.
20.
21.
22.
23.V
24.
25.V选择题
1.C
2.D
3.B
4.B
5.B
6.C
7.B
8.B
9.B
10.A
11.D
12.
13.B
14.
15.
16.D
17.B
18.
19.B
20.
三、填空题上、下、左、堤、无关、
1.
2.
3.Alt+Y
4.Enabled
5.MaxLength
6.Textl.SetFocus
7.MultiLine
8.Visible
9.Alignment
10.AutoSize
11.ForeColor或
13.True
14.
115.Additem
12.01文本框、列表框
16.
117.List
1.Clear
18.下拉式组合框、简单组合框、下拉式列表框
19.
20.Scroll
21.Value定时器不起作用
22.Change
23.
24.Timer
25.65535
四、程序阅读题
一、判断题程序…程序
1.
11.
2.8小李，你好!欢迎使用34512VisualBasic!程序…程序.小，你好…程序.您好
3.234545程序
6.李…程序
8...1苹果y=14n=3橘子n=5葡萄柚子香蕉
五、程序填空题或
1.1ai=Midstrl,i,1ai=MidTextl.Text,i,12p=j3ai=ap4Command
2.Enabled=True二
2.11To2*i-12Command
2.Enabled=True3Command
2.Enabled False。
个人认证
优秀文档
获得点赞 0
