《2022年《Visual_Basic程序设计基础》课后编程习题答案 .pdf》由会员分享，可在线阅读，更多相关《2022年《Visual_Basic程序设计基础》课后编程习题答案 .pdf（33页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Visual Basic程序设计基础教材习题参考答案第 1 章 Visual Basic 6.0程序设计概述四、程序设计题程序 1界面设计参看图10-1、10-2 以及表 10-1。表 10-1 实例 2 各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件 1 Name(Label1)Caption(我的第一个VB 程序)标签控件 2 Name(Label2)Caption(请输入你的姓名)FontUnderLine(True)FontItalic(True)命令按钮 1 Name(Command1)Caption(确定(&O)命令按钮 2 Name(Command2)Caption
2、(结束(&X)过程设计如下：Private sub Form_Click()Command2.Enabled=False Een Sub Private Sub Command1_Click()Label2.Visible=False Label1.Caption=Text1.Text+:欢迎使用 +Label1.Caption Text1.Visible=False Command1.Enabled=False:Command2.Enabled=True End Sub Private Sub Command2_Click()End End Sub 程序 2界面设计略，过程设计如下：Priv
3、ate Sub Command1_Click()字体变大 Form1.FontSize=Form1.FontSize+3 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 33 页 -Form1.Cls:Print 欢迎使用VB End Sub Private Sub Command2_Click()字体变小 Form1.FontSize=Form1.FontSize-3 Form1.Cls:Print 欢迎使用VB End Sub Private Sub Command3_Click()字体加粗 Form1.FontBold=True Form1.Cls:Print 欢迎使用VB
4、 End Sub Private Sub Command4_Click()字体不加粗 Form1.FontBold=False Form1.Cls:Print 欢迎使用VB End Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize 属性值小于0 会产生适时错误。程序 3界面设计略，过程设计如下（窗体 Height 值的计量包括标题、边框，而 ScaleHeight值仅与窗体有效绘图区域的高度有关）：Private Sub Form_Load()Text1.Text=Visual Basic 程序设计 End Sub Private Sub Form_Resize()T
5、ext1.Top=0:Text1.Left=0 Text1.Width=Form1.ScaleWidth/2 用 Form1.ScaleWidth效果优于用Form1.Width Text1.Height=Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用 Form1.Height Command1.Top=Form1.ScaleHeight-Command1.Height Command1.Left=Form1.ScaleWidth-Command1.Width End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 33 页 -第 2
6、 章程序设计基础四、程序设计题程序 1界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径Private Sub Command1_Click()Dim x As Single x=Text1.Text Label1.Caption=x*x*3.141593 End Sub方法二、用InputBox 函数输入圆的半径Private Sub Command1_Click()Dim x As Single 若要求计算结果具有15 位有效位数，声明x 为 Double类型 x=InputBox(r=,输入圆的半径)Label1.Caption=x*x*3.141593 End Sub 程序 2
7、略。第 3 章结构化程序设计与数组四、程序阅读题（写出下列程序的运行结果）程序 1.0 5 程序 2.20 程序 3.2 4 7 11 16 程序 4.1 4 9 16 25 程序 5.程序 6.五、程序填空题1（1）q*i（2）s+p*i/q（3）Next i 2（1）r=0（2）m Mod n 3（1）i+j-1（2）7-i（3）Print 4（1）10+Int(Rnd*90)（2）i+1 To 30（3）a(i)=a(j)（4）a(i)Mod 2=1 六、程序设计题程序 1界面设计略，过程设计如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 33 页 -Private
8、Sub Form_Click()Dim x As Integer,y As Integer,z As Integer Dim max As Integer,midd As Integer,min As Integer x=InputBox(请输入 x 的值：)y=InputBox(请输入 y 的值：)z=InputBox(请输入 z 的值：)If x y Then max=x Else max=y If z max Then max=z If x y Then min=x Else min=y If z 3 Then y=x+3 ElseIf x=1 Then y=x*x ElseIf x 0
9、 Then y=Sqr(x)Else y=0 End If Print y End Sub程序 3界面设计略，过程设计如下：Private Sub Form_Click()Dim i As Integer,j As Integer For i=1 To 9 For j=1 To 9 Print Tab(j-1)*4);i*j;Next j Print Next i End Sub名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 33 页 -程序 4界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Single,s As Single,t A
10、s Single Dim i As Integer,n As Integer x=InputBox(请输入 x 的值：)n=InputBox(请输入 n 的值：)t=x/2:s=t For i=3 To n t=t*x/i s=s+t Next i Print s End Sub程序 5界面设计略，过程设计如下：Private Sub Form_Click()Dim e As Single,t As Single,i As Integer e=2:t=1:i=1 While t=0.0001 i=i+1:t=t/i:e=e+t Wend Print e End Sub程序 6界面设计略，过程设
11、计如下：Option Base 1 Private Sub Form_Click()Dim n As Integer,a(9,9)As Integer,i As Integer,j As Integer On Error GoTo k 下列代码中若出现错误，转到标号为K 的语句执行。n=InputBox(请输入 n，0n10)For i=1 To n:a(i,1)=1:a(i,i)=1:Next i For i=3 To n For j=2 To i-1 a(i,j)=a(i-1,j-1)+a(i-1,j)Next j,i For i=1 To n Print Tab(30-2*i);For
12、j=1 To i Print Space(4-Len(Trim(Str(a(i,j);Trim(Str(a(i,j);Next j 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 33 页 -Print Next i Exit Sub k:MsgBox 输入 n 值小于 1 或大于 10，数组下标超界。End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 33 页 -第 4 章函数与过程四、程序填空题1（1）ByeVal（2）k Mod i（3）k=k i（4）Call pp(i)2（1）a()Aa Double（2）n-1（3）a(j)Abs(xmax)
13、Then xmax=x(i,j):ki=i:kj=j Next j,i End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 33 页 -第 5 章常用控件四、程序阅读题程序 1.116 程序 2.8 程序 3.23451 程序 4.小，你好！程序 5.您好34512 小李，你好！欢迎使用Visual Basic!程序 6.李子程序 7.y=6 程序 8.n=1 苹果y=14 n=3 橘子n=5 葡萄柚子香蕉五、程序填空题1（1）a(i)=Mid(str1,i,1)或 a(i)=Mid(Text1.Text,i,1)（2）p=j（3）a(i)=a(p)（4）Comman
14、d2.Enabled=True 2（1）1 To 2*i 1（2）Command2.Enabled=True（3）Command2.Enabled=False 3（1）Text2.Enabled=False（2）p=2（3）Print i（4）Val(Text1.Text)2 或 Val(Text1.Text)10 Then Label1.Caption=差！重新开始:Call Form_Load Else If m num Then Label1.Caption=Str(m)&大了！ElseIf m num Then Label1.Caption=Str(m)&小了！Else If rec
15、0 Then Label1.Caption=选择了&n&个字,请选择下一步操作！Command1(0).Enabled=True:Command1(1).Enabled=True Else Label1.Caption=End If End Sub 程序 6界面设计如图10-4 所示，过程设计如下：Private Sub Form_Load()Label1.Caption=当前日期：:Text1.Text=Date Option1(0).Caption=显示日期:Option1(1).Caption=显示时间 Option1(0).Value=True:Command1.Caption=退出
16、End Sub Private Sub Option1_Click(Index As Integer)Select Case Index Case 0 Label1.Caption=当前日期：:Text1.Text=Date Case 1 Label1.Caption=当前时间：:Text1.Text=Time End Select End Sub Private Sub Command1_Click()End End Sub 程序 7过程设计如下：Private Sub Form_Load()名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 33 页 -Label1.Capti
17、on=当前日期：:Text1.Text=Date Option1(0).Caption=显示日期:Option1(1).Caption=显示时间 Option1(0).Value=True:Command1.Caption=退出 Combo1.AddItem 年-月-日:Combo1.AddItem 月-日-年 Combo1.AddItem 日-月-年:Combo1.Text=年-月-日 End Sub Private Sub Combo1_Click()Dim n As String Select Case Combo1.ListIndex Case 0:n=yyyy-mm-dd Case
18、1:n=mm-dd-yyyy Case 2:n=dd-mm-yyyy End Select Text1.Text=Format(Date,n)End Sub Private Sub Option1_Click(Index As Integer)Select Case Index Case 0:Label1.Caption=当前日期：:Text1.Text=Date Case 1:Label1.Caption=当前时间：:Text1.Text=Time End Select End Sub Private Sub Command1_Click()End End Sub 程序 8.界面设计如图10
19、-5 所示，过程设计如下：Private Sub Form_Load()List1.AddItem happy:List1.AddItem apple List1.AddItem student:List1.AddItem computer End Sub Private Sub Command1_Click()List1.AddItem Text1.Text:Text1.SetFocus Text1.SelStart=0:Text1.SelLength=Len(Text1.Text)End Sub Private Sub Command3_Click()List1.Clear End Sub
20、 Private Sub Command4_Click()End 名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 33 页 -End Sub Private Sub Command2_Click()If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex End Sub9界面设计如图10-6 所示，过程设计如下：Private Sub Form_Load()Option1(0).Caption=八进制:Option1(1).Caption=十六进制 Option1(2).Caption=二进制 End Sub Pri
21、vate Function tran(k As Long,n As Integer)As String Dim x As Integer,y As String*1,k1 As Long tran=:k1=Abs(k)Do While k1 0 x=k1 Mod n If x=10 Then y=Chr(Asc(A)+x-10)Else y=CStr(x)tran=y+tran k1=k1 n Loop If k=72 Then Timer1.Enabled=False End Sub第 6 章图形控件和图形方法四、程序阅读题程序 1.转动一条红色直线，其轨迹形成一个圆程序 2.在窗体上随机的
22、位置、用随机的颜色、半径绘制1000 个空心的圆。程序 3.在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。五、程序填空题1（1）Combo1.ListIndex（2）Shape1.BorderStyle（3）Combo2.AddItem Str(i)2（1）Call pic（2）False（3）n=n+1（4）LoadPicture(c:windows1.bmp)（4）LoadPicture(fn)六、程序设计题程序 1界面设计略，过程设计如下：Private Sub Form_Load()Picture1.ScaleMode=3 End Sub Private Su
23、b Command1_Click()Dim x1 As Single,y1 As Single,x2 As Single,y2 As Single x1=InputBox(x1=):y1=InputBox(y1=)x2=InputBox(x2=):y2=InputBox(y2=)Picture1.Line(x1,y1)-(x2,y2),B End Sub 程序 2界面设计略，过程设计如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 33 页 -Private Sub Form_click()Dim r As Single,xo As Single,yo As Single
24、If Form1.ScaleHeight Form1.ScaleWidth Then r=Form1.ScaleHeight/3 Else r=Form1.ScaleWidth/3 End If xo=Form1.ScaleLeft+Form1.ScaleWidth/2 yo=Form1.ScaleTop+Form1.ScaleHeight/2 Form1.FillStyle=0:Form1.FillColor=vbBlue Form1.DrawWidth=2:Form1.ScaleMode=6 Form1.Circle(xo,yo),r,vbYellow End Sub 程序 3界面设计略，
25、过程设计如下：Private Sub Form_Load()Dim i As Integer For i=1 To 7:List1.AddItem i:Next i Form1.ScaleMode=1 End Sub Private Sub List1_Click()Form1.Cls:Form1.ScaleMode=List1.Text Form1.Circle(Form1.ScaleLeft+Form1.ScaleWidth/2,_ Form1.ScaleTop+Form1.ScaleHeight/2),50 End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共
26、33 页 -第 7 章对话框与菜单程序设计四、程序阅读题程序 1.显示提示信息为“5”、标题为“na 的输出结果”、有一个“确定”按钮的消息框。程序 2.显示提示信息为“您选择了第1 项”、标题为“第一项”、有一个“确定”按钮的消息框。五、程序填空题1（1）Int(Rnd*100)（2）Str(i)（3）Exit For 2（1）False（2）Date（3）CommonDialog1.Color（4）m1 六、程序设计题程序 1界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowOpen List1.AddItem Commo
27、nDialog1.FileName End Sub程序 2界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowSave List1.AddItem CommonDialog1.FileName End Sub程序 3界面设计如图10-9、表 10-2 所示，过程设计如下：Private Sub Sqr_Click()Shape1.Shape=1 End Sub Private Sub Rec_Click()Shape1.Shape=0 End Sub Private Sub Oval_Click()Shape1.Shape=2
28、End Sub Private Sub Circle_Click()Shape1.Shape=3 End Sub Private Sub Rrec_Click()Shape1.Shape=4 End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 33 页 -Private Sub RSqr_Click()Shape1.Shape=5 End Sub Private Sub Shp_Click()Shape1.FillStyle=2 End Sub Private Sub Shzh_Click()Shape1.FillStyle=3 End Sub Private Su
29、b Xiex_Click()Shape1.FillStyle=4 End Sub Private Sub ShPJ_Click()Shape1.FillStyle=6 End Sub Private Sub XJ_Click()Shape1.FillStyle=7 End Sub Private Sub FillColor_Click()CommonDialog1.ShowColor Shape1.FillColor=CommonDialog1.Color End Sub Private Sub Exit_Click()End End Sub 第 8 章文件四、程序阅读题程序 1.y=1 a=
30、1 程序 2.NO.1 3 程序 3.y=3 a=2 NO.2 4 窗体：36 25 16 9 4 1 y=6 a=3 NO.3 7 文件：1 4 9 16 25 36 y=10 a=4 NO.4 11 程序 4.程序 5.1 程序 6.1 窗体上显示内容：20 2 2 1 2 文件中内容：4 6 8 10 12 3 3 3 1 2 3 4 4 4 4 5 5 5 5 5 名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 33 页 -五、程序填空题1（1）Dim n As Integer（2）C:windowscalc.exe（3）Output（4）End 2（1）For Out
31、put As#2（2）0（3）temp.dat As c:a1.dat 3（1）Open e:dataout.txt For Output As#1（2）t1 Mod t2=0（3）If flag Then（4）Print coun 六、程序设计题程序 1界面设计如图10-10 所示，过程设计如下：Dim fn As String Private Sub Drive1_Change()Dir1.Path=Drive1.Drive End Sub Private Sub Dir1_Change()File1.Path=Dir1.Path End Sub Private Sub File1_Cli
32、ck()If Right(File1.Path,1)=Then fn=File1.Path+File1.FileName Else fn=File1.Path+File1.FileName End If End Sub Private Sub Command1_Click()Dim yesno As Byte yesno=MsgBox(确认要删除吗？,vbYesNo,删除文件)If yesno=vbYes Then Kill fn File1.Refresh End Sub 程序 2建立 4 个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:stude
33、nt.dat。过程设计如下：Private Sub Command1_Click()Dim b As Date,m As Byte,e As Byte Open d:student.dat For Append As#1 b=Text2.Text:m=Text3.Text:e=Text4.Text Write#1,Text1.Text,b,m,e Text1.Text=:Text2.Text=:Text3.Text=:Text4.Text=名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 33 页 -Close#1 End Sub 程序 3界面设计如图10-11 所示，过程设计如
34、下：Private Sub Form_Load()Dim ss As String Open e:student.txt For Append As#1 如文件不存在则先建立该文件 Close#1 Open d:student.dat For Input As#1 将文件中所有记录在列表框中显示 While Not EOF(1)Line Input#1,ss:List1.AddItem ss Wend Close#1 在选中表项之前“删除”、“修改”按钮不可用 Command2.Enabled=False:Command3.Enabled=False End Sub Private Sub L
35、ist1_Click()选中表项后可“删除”或“修改”，不可“追加”。Command1.Enabled=False:Command2.Enabled=True Command3.Enabled=True:Text1.Text=List1.Text End Sub Private Sub Command1_Click()追加记录 If Trim(Text1.Text)Then List1.AddItem Text1.Text Text1.Text=End Sub Private Sub Command2_Click()修改记录 List1.AddItem Text1.Text,List1.Lis
36、tIndex List1.RemoveItem List1.ListIndex Command1.Enabled=True:Command2.Enabled=False Command3.Enabled=False:Text1.Text=修改后，不可“删除”、“修改”End Sub Private Sub Command3_Click()删除记录 List1.RemoveItem List1.ListIndex 删除后，不可“删除”、“修改”Command1.Enabled=True:Command2.Enabled=False Command3.Enabled=False:Text1.Tex
37、t=End Sub Private Sub Command4_Click()保存文件，将列表框中所有表项输出到文件 Dim i As Integer 名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 33 页 -Open d:student.dat For Output As#1 For i=0 To List1.ListCount-1:Print#1,List1.List(i):Next i Close#1 End Sub Private Sub Command5_Click()退出之前先保存文件 Call Command4_Click:End End Sub名师资料总结-精品
38、资料欢迎下载-名师精心整理-第 20 页，共 33 页 -第 9 章数据库与数据访问技术三、程序设计题程序 1.（1）数据访问控件以及数据绑定控件的相关属性设置如下Data1：Connect(Access)、学籍.mdb)、RecordSource(学生)Text1：DataSource(Data1)、DataField(学号)Text2：DataSource(Data1)、DataField(姓名)Check1：DataSource(Data1)、DataField(性别)Text3：DataSource(Data1)、DataField(出生日期)Text4：DataSource(Data
39、1)、DataField(奖学金)Text5：DataSource(Data1)、DataField(简历)OLE1：DataSource(Data1)、DataField(照片)Adodc1：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0;_ Data Source=学籍 1b.mdb;Persist Security Info=False)CommandType(1-adCmdText)、RecordSource(select*from 成绩)DataGrid1：DataSource(Adodc1)（2）主要事件过程代码Option Ex
40、plicit Private Sub Form_Load()Caption=学籍信息编辑浏览 Label1.Caption=学号:Label2.Caption=姓名:Label3.Caption=出生年月:Label4.Caption=奖学金:Label5.Caption=简历:Label6.Caption=照片:Check1.Caption=性别(选中表示男,否则为女)Label7.Caption=成绩信息查询显示:Adodc1.Visible=False End Sub Private Sub Data1_Reposition()Adodc1.RecordSource=select 成绩.
41、课程号,课程名,成绩 from 学生,课程,成绩 _&where 学生.学号=成绩.学号 and&成绩.课程号=课程.课程号 and&_ 成绩.学号=&Data1.Recordset(学号)&order by 成绩.课程号 Label7.Caption=Trim(Data1.Recordset(姓名)&成绩信息查询显示 Adodc1.Refresh End Sub 程序 2.名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 33 页 -（1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1：ConnectionString(Provider=Microsoft.Jet
42、.OLEDB.4.0;_ Data Source=学籍 1b.mdb;Persist Security Info=False CommandType(1-adCmdText)、RecordSource(select*from 学生)DataGrid1：DataSource(Adodc1)（2）主要事件过程代码Option Explicit Private Sub Form_Load()Dim i As Integer Caption=学籍信息查询浏览:Adodc1.Visible=False Label1.Caption=选择查询方式：:Combo1.Text=全部都显示 Label2.Cap
43、tion=全部表文件数据浏览表格：:Label3.Visible=False Text1.Visible=False:Text1.Text=For i=0 To 2 Combo1.AddItem Mid(全部都显示按学号查询按姓名查询,5*i+1,5)Next i End Sub Private Sub Combo1_Click()Select Case Combo1.ListIndex Case 0 Text1.Visible=False:Label3.Visible=False Adodc1.RecordSource=select*from 学生 Label2.Caption=全部表文件数
44、据浏览表格：:Adodc1.Refresh Case 1 Label3.Caption=输入查询条件(学号):Text1.Visible=True Label3.Visible=True:Text1.SetFocus Case 2 Label3.Caption=输入查询条件(姓名):Text1.Visible=True Label3.Visible=True:Text1.SetFocus End Select End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=vbKeyReturn
45、Then If Combo1.ListIndex=1 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 学号=&Text1.Text&If Adodc1.Recordset.EOF Then Adodc1.RecordSource=select*from 学生 Label2.Caption=全部表文件数据浏览表格：名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 33 页 -Adodc1.Refresh:MsgBox 查无此人!Else Adodc1.RecordSource=select*from 学生&where _
46、学号=&Text1.Text&Label2.Caption=学生 +Text1.Text+的数据浏览表格：End If Else Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 姓名=&Text1.Text&If Adodc1.Recordset.EOF Then Adodc1.RecordSource=select*from 学生 Label2.Caption=全部表文件数据浏览表格：Adodc1.Refresh:MsgBox 查无此人!Else Adodc1.RecordSource=select*from 学生&_ where 姓名=&T
47、ext1.Text&End If End If Adodc1.Refresh End If End Sub 程序 3.（1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1(xs)：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0;_ Data Source=学籍 1b.mdb;Persist Security Info=False)CommandType(2-adCmdTable)、RecordSource(学生)Adodc2(kc)：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.
48、0;_ Data Source=学籍 1b.mdb;Persist Security Info=False)CommandType(2-adCmdTable)、RecordSource(课程)Adodc3(cjcx)：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0;_ Data Source=学籍 1b.mdb;Persist Security Info=False)CommandType(1-adCmdText)RecordSource（select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名,_ 成绩.成绩 from 学生,课程,
49、成绩 where 成绩.课程号 =课程.课程号 _ and 成绩.学号 =学生.学号 DataGrid1：DataSource(cjcx)DataList1：RowSource(xs)、ListField(姓名 ）、BoundColumn(学号)DataList2：RowSource(kc)、ListField(课程名)、BoundColumn(课程号)名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 33 页 -（2）主要事件过程代码Option Explicit Dim p As Byte Private Sub Form_Load()Dim i As Integer For
50、 i=0 To 4 Label1(i).Caption=Mid(优秀良好中等及格差等,2*i+1,2)Text1(i).Text=:Text1(i).BackColor=RGB(205,205,192)Text1(i).Locked=True Next i cjcx.RecordSource=select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名,_&成绩.成绩 from 学生,课程,成绩&_ where 成绩.课程号=课程.课程号 and 成绩.学号=学生.学号 cjcx.Refresh:Label2.Caption=成绩信息列表 Label3.Caption=选择学生姓名:Lab