程序设计期末模拟试卷.doc

VB程序设计期末模拟试卷 一、单项选择 （b ）1被对象所识别的动作与对象可执行的动作分别称为对象的_。 A方法、事件 B事件、方法 C事件、属性 D过程、属性（ c）2下列_是Single型变量。 ATime% BName$ CSheight! DCXYZ&（a ）3以下四个VB的变量名中，合法的是_。 AX23 B$Re C Len D3xy（ d）4在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是_。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型（b ）5表达式(&O3631) and (“A”B”) 的结果是 _。 ATrue BFalse C”&O3631AB” D&O3631（c ）6表达式“100” + 100 和表达式“100” & 100的值分别是_。 A200、200 B“100100”、“100100” C200、“100100” D“100100”、200（b ）7以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是_。 Dim a As String A=InputBox(Input, , Name) Print a AInput BZhao CName D空字符串（b）8语句Print 4 + 5 6 * 7 / 8 Mod 9的运行结果是_。 A4 B5 C6 D7（ d）9在窗体的通用段声明变量时，不能使用_ 关键字。 ADim BPublic CPrivate DStatic（c ）10表达式Abs(-9) + Len(I am a student) 的值是_。 A9 I am a student B9 I am a student C23 D出错（a ）11设a为整型变量，不能正确表达数学关系10 a 15的VB表达式是_。 A10 a 10 And a 15 DNot ( a=15)（b ）12在窗体的“通用”部分用Private定义的变量，其作用域是_。 A局部变量 B窗体/模块级变量 C全局变量 D静态变量（ b）13假设 A = Good Morning.，B = Afternoon,Boys.，则下列_表达式的结果等于Good Boys.。 ALeft(A, 10) + Right( B, 6) BLeft(A, 5) + Right( B, 5) CMid( A ,1, 5) + Mid(B, 1, 6) DMid( A +B ,1, 11)（a ）14执行下面的程序段后，X的值为_。 X=3 For I = 1 To 10 Step 2 X = x +I 3 Next I A3 B10 C-1 D4（ a）15在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim A As Integer Static B As Integer Cls B = 2 B = B + 3 A = 3 + A Print A, B End Sub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为_。 A3 5 B6 6 C9 5 D3 3（d ）16下列_事件不属于文本框的事件。 AChange BKeyPress CLostFocus DDropDown（b ）17在程序中可以通过复选框和单选按钮的_属性值来判断它们的当前状态。 ACaption BValue CChecked DSelected（c）18决定窗体标题条显示内容的属性是_。 AText BName CCaption DBackStyle（ c）19用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是_。 AList BListIndex CText DListCount（b ）20在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。下划线处应填_。 Private Sub Text1_() Text2.Text = Text1.Text End Sub ASetFocus BChange CGetFocus DClick（c ）21要把名称为List1的列表框中当前选中的一项删除，应执行_语句。 AList1.Clear BList1.Delete List1.ListIndex CList1.RemoveItem List1.ListIndex DList1.Clear List1.ListIndex（c ）22要使文本框能显示多行文字，则需设定它的_属性为True。 ACaption BPasswordChar CMultiLine DValue（c ）23列表框的_属性代表着列表框中项目的总数目。 AList BListIndex CListCount DSelected（d ）24用下面语句定义的数组元素个数是_。 Dim Arr1(-2 To 6) As Integer A6 B7 C8 D9（d ）25当Form1_Click事件发生时，程序的输出结果是_。 Private Sub Form_Click() Dim M As Integer, k As Integer, t As Integer M = 6: k = 8 Select Case M Case Is 10 M = k Mod 3 End Select Print M, k, t End Sub A6 6 8 B6 8 6 C8 6 8 D8 6 6（a ）26假定有以下程序段： For I = 1 To 3 For j = 5 To 1 Step 1 Print I * j Next j,I则语句Print I * j 的执行次数是_。 A15 B16 C17 D18（b ）27当拖动某对象A经过对象B时，将会发生对象B的_事件。 ADragDrop BDragOver CDragDown DDrag（a ）28参数传递有按值传递和按地址传递，_关键字表示按值传递。 AByVal BByRef CValue DRefrence（ a）29当Form_Click事件发生时，写出在窗体上显示的第二行和第三行是_。 Private a As Integer, c As Integer Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 10: c = 10 Print a, b, c Call test1(a, b) Print a, b, c End Sub Private Sub test1(m As Integer, ByVal n As Integer) Dim c As Integer m = 5: n = 5: c = 5 Print m, n, c End Sub A5 5 5 5 10 10 B5 5 5 5 5 10 C5 5 10 5 10 10 D5 5 5 10 10 10（c ）30如果想要名为MenuItem1的菜单项在运行时变灰显示，则应执行_语句。 AMenuItem1.Enabled = True BMenuItem1.Checked = True CMenuItem1.Enabled = False D MenuItem1.Visible = False二、填空题1设置对象属性的方法有两种，其一是在设计阶段，在_中直接修改相应属性的值；其二是在应用程序运行时，通过_来动态设置。2书写程序时，要在一行内写多个语句，语句间用_间隔；语句前有一个 (单引号)的语句是_语句。3写出数学式的VB表达式_。4当用户增加、删除或修改文本框（TextBox）的内容时，都会触发文本框的_事件。5InputBox函数返回值的类型为_。6可使用列表框的_方法向列表框中增加一个项目。7要使文本框Text1中显示的字符为宋体，使用的语句是_。8组合框有三种不同的风格：下拉式组合框、_和下拉式列表框，可通过它的_属性进行设置。9计时器事件之间的时间间隔通过_属性设置。10某菜单项显示出来的标题为“文件（F）”，那么在菜单编辑器中输入的标题应为_。11在VB中，有三种文件访问的类型：顺序访问、_和二进制访问。12当采用手工拖放模式时，需要使用_方法来实现控件的拖放操作。13在Visual Basic中，通用过程分为两类，Function和_。14Visual Basic的数组下标的下界默认为_，可通过_语句使数组下标从1开始。15表达式Abs(-32) + Int(-23.02)的值为_8_。16下列程序执行时，从键盘上依次输入123和456，则程序的输出结果是123456 Private Sub Form_Click() A=InputBox(请输入第一个整数) B= InputBox(请输入第二个整数) Print a + b End Sub 三、按要求填空 1.下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空： Const PassWord=12345678 Dim inpass As String Inpass=_(请输入你的密码，输入密码) If inpass=PassWord Then Exit Sub Else msgbox 对不起！你是非法用户。 Unload Me End If2.以下程序的输出结果是_13_。 X=12.7 X=Int(x +0.5) Print X3. 下面程序的功能是求100999之间的所有素数，所谓素数是指只能被1和它本身整除的数。 Private Sub Form_Click() Dim i As Integer Dim k As Integer For i = 100 To 999 For k = 2 To i - 1 If _i Mod k = 0_ Then _ Exit For_ End If Next k If _k = i_Then Print i End If Next i End Sub4.下列程序的功能是：单击窗体时将随机生成12个三位正整数，分别赋给3*4的数组，找出数组中最大元素，并指出该元素所在的行和列。请填空。 Option Base 1 Private Sub Form_Click() Dim a(3, 4) As Integer, i As Integer, j As Integer Dim max As Integer, max_i As Integer, max_j As Integer Randomize For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(999 - 100) * Rnd) + 100 Next j Next i max = _ a(1, 1)_: max_i = 1: max_j = 1 For i = 1 To 3 For j = 1 To 4 If _ a(i, j) max_ Then max = a(i, j) max_i = i max_j = j End If Next j Next i Print max, max_i, max_j End Sub5. 编写一个对列表框进行项目添加、修改和删除操作的应用程序，如图1所示。列表框（名为lstBooks）中的选项在Form_load事件中加载。“添加”按钮（cmdAdd）的功能是将文本框（txtItem）中的内容添加到列表框中，“删除”按钮（cmdDelete）的功能是删除列表框中选定的项目。如果要修改列表框中的选项，可先选定选项，然后单击“修改”(cmdModify) 按钮，所选的项目显示在文本框（txtItem）中，当在文本框中修改完之后，单击“确定修改”按钮（cmdModifty_OK）将更新列表框。程序运行之初，“确定修改”按钮是处于无效状态（灰色）。程序代码如下，请填空。图1 Private Sub cmdAdd_Click() lstBooks._ txtItem txtItem.Text = End Sub Private Sub cmdDelete_Click() lstBooks.RemoveItem _ End Sub Private Sub cmdModify_Click() txtItem.Text = lstBooks.Text txtItem.SetFocus cmdAdd.Enabled = False cmdDelete.Enabled = False cmdModify.Enabled = False cmdModify_OK.Enabled = _ End Sub Private Sub cmdModify_OK_Click() lstBooks.List(_) = txtItem cmdModify_OK.Enabled = False cmdAdd.Enabled = True cmdDelete.Enabled = True cmdModify.Enabled = True txtItem.Text = End Sub Private Sub Form_Load() lstBooks.AddItem 计算机文化基础 lstBooks.AddItem VB6程序设计教程 lstBooks.AddItem 操作系统 End Sub6.窗体中有命令按钮Command1，当程序运行时，只要鼠标移到命令按钮上，该按钮就会随机移动到新位置，用户很难用鼠标单击到它。请补充完善以下程序： Private Sub Command1_MouseMove() X = Abs(Rnd(1) * Form1.Width - Command1.Width) Y = Abs(Rnd(1) * Form1.Height - Command1.Height * 2)_ Command1.Move X, Y_ End Sub7. 求Fibonacci数列中的前20个数，并存放在一个数组中。在窗体上按每行5个数的形式输出。Fibonacci数列的前两个数为1，1，以后每个数都是其前两个数之和。请完善下列程序，计算结果如图2所示。图2 Private Sub Command1_Click() Dim a(1 To 20) As Long, i As Integer a(1) = 1: a(2) = 1: i = 3 Do While_ a(i) = _ _ Loop For i = 1 To 4 For j = 1 To 5 Print a(i - 1) * 5 + j), Next j _ Next i End Sub8.下列程序实现的功能是：当在窗体上单击时，将随机产生的100个3位数用顺序访问方式写到D盘根目录下的文件myfile1.Dat中。 Private Sub Form_Click() Dim k As Integer Open _ Randomize For i = 1 To 10 k = 100 + Int(900 * Rnd) _ Next i _ End Sub四、编程（每题5分，共10分）1随机产生10个1到20之间的整数，放在数组A中，然后将A的元素倒序存放，即第一个变为最后一个，第二个变为倒数第二个，请完成程序。2在窗体上添加一个Picture对象和一个Command对象，编写程序，当单击“画圆”命令按钮时，在图片框中显示一个以图片框的中心点为圆心，图片框的高度为直径，颜色随机改变的圆。程序运行结果如图3所示。图3