程序设计基础A.doc

程序设计基础 课程 期末 考试试卷（第C 卷） 题号一二三四五六七八总分分值20152045密封线学号姓名不准超过密封线，否则试卷作废，成绩记零分。系级班学号姓名一、选择题（每小题只有一个正确答案，请将正确答案填入题后的横线上。每小题1分，共计25分）1、在工具箱中，需要添加才会显示的控件是_。A、Command B、ComboBoxC、Shape D、RichTextBox2、Abs(-8)+Len(ABCD)的值是_。A、12 B、14 C、8ABCD D、-8ABCD3、执行如下两条语句，窗体上显示的是 。 a=9.8596Print Format(a,$00,00.00)A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.864、在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是：_A Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd Sub C Private Sub HScroll_Change()Text1.Text=HScroll.CaptionEnd Sub D Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub5、多窗体程序是由多个窗体组成的，在缺省的情况下，VB应用程序执行时，总是把_指定为启动窗体。A、 不包含任何控件的窗体 B、 设计时的第一个窗体C、 包含控件最多的窗体 D、 命名为Form1的窗体6、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是_。A、Picture1.picture=mypic.jpgB、Picture.image=mypic,jpgC、Picture1.picture=LoadPicture(mypic.jpg)D、LoadPicture(mypic.jpg)7、下列循环语句能正常结束的是_。A、 i = 5 Do i = i + 1 Loop Until i 0 B、 i = 1 Do i = i + 2Loop Until i = 10 C、 i = 10 Do i = i - 1 Loop Until i 0 D、 i = 6 Do i = i - 2 Loop Until i = 18、有如下程序： For i=1 to 3 For j=5 to 1 Step 1 Print i*j Next jNext i则语句Print i*j的执行次数是_。A、15B、16C、17D、189、假定有如下事件过程： Private Sub Form_Click()Dim x As Integerx=1n=0Do While x 60 Then I = 1If A 70 Then I = 2If A 80 Then I = 3If A 90 Then I = 4Text1.Text = IEnd Sub运行后，单击命令按钮，text1中显示_。A、1 B、2 C、3 D、411、下述语句定义的数组元素有_个。OPTION BASE 1DIM A(12,8)A、117 B、128 C、96 D、2012、在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As IntegerPrivate Sub Command1_Click()X = 5 : Y=3Call proc(X,Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。A、5和3 B、25和3 C、25和6 D、5和613、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是_。A、Add 12,5 B、Call(2*x,Add(1.57) C、Call Add x,y D、Call Add(12,12,x)14、要使用列表中的列表显示成复选框形式，则应将其Style属性设置为_。A、0 B、1 C、True D、False15、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array(北京,上海,天津,重庆)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。A、空白 B、错误提示 C、北京 D、上海16、在文件列表框（FileListBox）中，要获取所选文件的完整路径，可以使用的方法是_ A、Dim Mystr as String密封线学号姓名不准超过密封线，否则试卷作废，成绩记零分。系级班学号姓名Mystr=file1.Path B、Dim Mystr as StringIf Right(file1.path,1)=” Then Mystr=File.Path & File1.FileNameElse Mystr=File.Path & “” & File1.FileNameEnd if C、Dim Mystr as StringMystr=file1.ListIndex & “” & File1.FileName D、Dim Mystr as String Dim Mystr as StringIf Right(file1.path,1)=” Then ystr=File.Path & “” & File1.FileNameElse M Mystr=File.Path & File1.FileNameEnd if17、有如下程序段： Private Sub Text1_KeyDown(KeyCode as Integer,Shift as Integer)If KeyCode=13 Then Text2.SetFucusEnd if End Sub运行程序，当在Text1中按下_键时，Text2获取焦点。 A、Backspace B、Ctrl C、Alt D、Enter18、建立如下过程Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)End Sub其参数KeyCode的值是用来判断键盘输入的，如果要使文本框在按下F1键时响应，则需要将其值设置为_A、27 B、16 C、13 D、11219、在使用ADO数据控件编程时，首先要连接数据库，如果使用Acsses或SQL数据库（数据库名称为Book），下列哪种方法是错误的（ ）A.Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data source= & App.Path & book.mdb;Persist Security Info=FalseB.Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & book.mdb;Persist Security Info=TureC.Adodc1.ConnectionString=”Provider=SQLOLEDB.1;Persist Security Info=false;Use ID=sa;Initial Catalog=book”D.Adodc1.ConnectionString=”Provider=SQLOLEDB.1;Persist Security Info=false;Use ID=sa;password=1234;Initial Catalog=book”20、在通用对话框（CommonDialog）中，要调用“颜色”对话框，需要将其对象的Action属性值设置为_ A、1 B、2 C、3 D、4二、填空题（请将正确答案填入题中的横线上。每空1分，共计15分）1、随机生成一个0-1的随机数的表达式是_。2、为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的_属性设置为_.3、在Print的输出中，可以跳过n个空格的函数是_；用于返回n个空格的函数是_；可以把光标移到参数n指定的位置的函数是_。4、在窗体上画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click() a=inputBox(“Enter the First intege”) b=inputBox(“Enter the Second integer”) print b+a密封线学号姓名不准超过密封线，否则试卷作废，成绩记零分。系级班学号姓名 End Sub程序运行后，先后在两个输入对话框中分别输入456和123，则输出的结果是 。5、在设计菜单时，为了实现弹出式菜单而采用的方法是 。6、顺序文件的读操作是采用Input #语句或 语句；而随机文件的读操作是利用 语句进行的。7、用来去除字符串中的空格的函数是_。8、在使用ADO数据控件编程时，Adodc1.Recordset.MoveFirst语句的主要作用是 ；Adodc1.Recordset.MoveNext语句的主要作用是 。9、表达式 4+56*7/8 mod 9的值是 。密封线学号姓名不准超过密封线，否则试卷作废，成绩记零分。系级班学号姓名10、为了暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是 。三、程序填空题（本大题共4小题，每空2分，共计20分） 1、设有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)_1 = arr1(1)For i = 1 To 8If arr1(i) Max Then _2 Next iPrint 最大值是: ; MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。2、以下程序的功能是：把当前应用程序目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click()Dim inData As StringText1.Text = Open _3&.smtext1.txt for Input As #1Do While _4 5, inDataText1.Text = Text1.Text & inDataLoopClose #1End Sub3、下面是一个读取SQL Server2000数据库book中的“作者”表,并查询数据库中的所有记录的程序，查询完毕，将查询结果显示在DataGrid(表格控件)中Option ExplicitPrivate Sub Form_Load()连接数据库Adodc1.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=780816;Initial Catalog=book显示作者表的全部列 6数据控件更新 7显示数据表的内容 8End Sub4、要在窗体上设置弹出式菜单，必须先使用菜单编辑器编辑好下拉式菜单。现有一编辑好的文件（FILE）主菜单如左图所示 。 如果要在窗体的编辑区域设置弹出式菜单，当单击鼠标右键，弹出右图中的弹出式菜单。则程序代码如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If _9 Then 10 End IfEnd Sub四、程序设计题（本大题共3小题，共计40分）1、请利用WhileWend语句中嵌套ForNext设计如下图所示界面，当单击“显示”按钮时，在窗体上显示输出一个以“*”组成的杨辉三角形。试编写其程序代码。（10分）2、如图所示，在小区物业管理系统中有关数据备份的模块，单击“开始备份”按钮，利用二进制形式打开系统的数据库（db_wygl.mdb）,并将这些数据以二进制的形式读出，再以二进制的形式写入到备份的数据文件中。备份过程中，“开始备份”按钮呈灰色（不可用），并利用进度条来显示备份进度