资源描述
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
展开阅读全文