VB语言-2013-2014第一学期vb试卷A.doc

此文档收集于网络，如有侵权，请联系网站删除20132014学年第一学期VB期末试卷答题纸（A卷）2013级学院 专业班级： 学号： 姓名： 成绩 一、单选题 (用铅笔把选中的方格涂黑 501=50分)1ABCD2ABCD3ABCD4ABCD5ABCD6ABCD7ABCD8ABCD9ABCD10ABCD11ABCD12ABCD13ABCD14ABCD15ABCD16ABCD17ABCD18ABCD19ABCD20ABCD21ABCD22ABCD23ABCD24ABCD25ABCD26ABCD27ABCD28ABCD29ABCD30ABCD31ABCD32ABCD33ABCD34ABCD35ABCD36ABCD37ABCD38ABCD39ABCD40ABCD41ABCD42ABCD43ABCD44ABCD45ABCD46ABCD47ABCD48ABCD49ABCD50ABCD二、填空题（每空占一行，每行写一个答案 202=40分）1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 三、程序设计（52=10分）1编写一个求N!的函数过程。2. 设在文本框1中已经生成了含有10个元素的一维数组，并在窗体的通用声明部分已经将数组A（10）定义为整型。编写程序，完成单击“输出奇数”命令按钮，找出小于平均数的奇数，在文本框2中逆序输出。20132014学年第一学期VB期末试卷（A卷）2013级学院 专业班级： 学号： 姓名： 成绩 一、选择题（1分50=50分）1. 设整型变量a已赋值1345，以下表达式中结果为4的是 。 A a mod 10010 Ba mod 100/10C a mod 100 mod 10 D(a mod 100)102. 不论何种控件，都具有_ _属性 A. Text B. Name C. Caption D. Value3. 下列数组定义中错误的是 。 A. Dim A(-3 To -5) As Integer B. Dim A(-5 To -3) As Integer C. Dim A(3 To 8, 2) As Integer D. Dim A(5 To 5, 2) 4. 表达式XX+1是 。A算术表达式 B非法表达式 C字符串表达式 D关系表达式5. 动态数组说法中错误的是 。 A. 动态数组可用Redim语句重新说明其维数和大小 B. 不能用Redim语句改变动态数组的数据类型C. 含有Preserve关键字的Redim语句只能改变数组最后一维的维上界D. 主调过程中说明的动态数组只能在本过程中使用Redim语句重新定义6. Chr(Asc(“A”)+2)的结果是 。 A. 大写字母B B. 大写字母C C. 小写字母c D. 数值677复选框的Value属性为1时，表示_。 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作有误 8表达式Fix(Rnd+1)+Int(Rnd-1)的值是 。 A. 1 B. 0 C. -1 D. 29VB是面向 的高级程序设计语言A. 现代B. 数据C. 对象D.过程10. 在块结构条件语句If-Then/End If中 。 A必须至少有一个ElseIf语句B可以有Else语句，但其中不能嵌套Do循环C可以没有Else语句，运行时将出现错误D给定的条件既能是关系表达式也能是逻辑表达式11 下列可以任意产生一个两位随机数的是 。 AInt(9 * Rnd + 1) BInt(90 * Rnd + 10) CInt(900 * Rnd + 100) DInt(Rnd + 9)12. 下列可以在窗体通用声明处正确定义的语句是 。A. Static x As Integer B. Private s As String C. Public s As String*10D. Public a(10) As Integer 13. Print方法使用在 上输出数据。窗体文本框 图片框 列表框 A. B. C. D. 14. 下列语句中，正确的是 。A. Text1.clear B. List1= C. Combo1.cls D. Picture1.Cls15. 在过程中可以用 语句定义变量。A. Dim、Public B. Dim、Private C. Dim、Static D. Dim、Static、Private16. 对于Dim a, b As Integer , s As String*5下列描述正确的是 。 A. a和b都是整型变量，初始值都为0； s为定长字符串型变量，初始值为5个空格。 B. a是变体型变量，初始值为空； b是整型变量，初始值为0；s为定长字符串型变量，初始值为空串。 C. a和b都是整型变量，初始值都为0；s为变长字符串型变量，初始值为空串。 D. a是变体型变量，初始值为空；b是整型变量，初始值为0；s为定长字符串型变量，初始值为5个空格。17.要在一个文本框中显示多行内容，应在界面设计时对下列的 属性进行设置。 A. Text B. Font C. MultiLine D. Alignment18. 在一个控件数组中用 属性标识不同的控件数组元素。 A. Index B. Text C. Caption D. Enabled19. 设定义了某过程：Private Sub abc(Y As Integer)。以下按地址传递的语句是 。Aabc (x) BCall abc(x) Cabc X DCall abc(x+5)20. 为了给X，Y，Z三个变量赋初值1，下面正确的赋值语句是 。 A. X=1:Y=1:Z=1 B. X=1,Y=1,Z=1 C. X=Y=Z=1 D. XYZ=121. 若a为整型变量，则执行a = 321 ： Print Len(a)；Len(Str(a)； Len(CStr(a)后，在窗体上看到的是 。A4 2 3 B4 3 2C2 4 3 D2 3 422. 使文本框获得焦点的方法是 。 A. Change B. GotFocus C. SetFocus D. LostFocus23如果希望动态数组在重新定义后还能保留原来的内容，应用 关键字。 A. Preserve B. Static C. Dim D. Restore24. 以下能使窗体背景色变红的语句是 。 A. Form1.FillColor = RGB(0,0,255) B. Form1.BackColor = vbRed C. Form1.BackColor = RGB(0,255,0) D. Form1.ForeColor = vbRed25. 下列语句中，不能放在模块通用声明处的是 。 A. Option Explicit B. Option Base 1 C. Dim A() As Integer D. ReDim A(10) 26. 任意生成10个数，放在数组A中，利用FOR循环，在文本眶中正确输出10个数的语句为 。 A. Text1.Text=a(i) B. Text1.Text=Text1.Text & Str(a(i) C. Text1.Text=Print a(i) D. Text1.Text=AddItem a(i)27若执行定义语句Dim a As Integer，以下给a赋值的语句中，错误的是 。 A. a=35 B. a=2*327603 C. a=True D. a=1E228. 在VB程序设计中所产生的错误通常分为三类，下列 不属于这三类错误类型。 A语法错误 B逻辑错误 C设计错误 D运行错误29. 以下列表框ListBox和文本框TextBox共同具有的属性、事件或方法是 。 AScrollBars属性 B. Change事件 C. Clear方法 D. Text属性30. 若将一个命令按钮设置为灰色的、不可用的，应将其 属性设置为False。 A. Visible B. Enabled C. BackColor D. Default 31在窗体Form1的Name属性是frm，它的Load事件过程名是 。A. Form_Load B. Form1_Load C. Frm_Load D. Me_Load32. 在同一窗体内安排两组相互独立的单选按钮，可使用 控件做容器将它们分开。 A框架控件(Frame)或图象控件(Image) B. 组合框(ComboBox)或图象控件(Image) C组合框(ComboBox)或图片框控件(PictureBox) D. 框架控件(Frame)或图片框控件(PictureBox)33. 若要求在文本框中输入密码时，文本框中只显示“*”，则应在此文本框的属性窗口中设置 。 A. Caption属性值为* B. Text属性值为* C. PasswordChar属性值为* D. Name属性值为*34. 在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用Public G As Integer、Private G As Integer和Dim G As Integer语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句G=1234，则该语句是给在 说明部分定义的变量G赋值。 A. 标准模块 B. 过程Sub1 C. 窗体模块 D. 标准模块、窗体模块和过程Sub135. 不能正确表示条件“两个整型变量A和B之一为0，但不能同时为零”的布尔表达式是 。 A. A*B=0 AND AB B. (A=0 OR B=0) AND AB C. A*B=0 AND A+B0 D. A*B=0 AND (A=0 OR B=0)36. 要声明一个长度为4个字符的定长字符串变量st，以下 语句是正确的。 A. Dim st As String *4 B. Dim st As String (4) CDim st As String 4 DDim st As String37VB窗体文件的扩展名是 。A.FrmB.BasC. .Vbp D. .Xls 38. 在窗体Form1中用“Public Sub Fun(x As Integer, y As Single)”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在此过程中调用Form1中的Fun过程，则下列语句中正确的是 。ACall Fun(I, J)BCall Form1.Fun(I, J)CFun I, (J)DForm1.Fun I, (J)39. 数学式子sin30写成VB表达式为 。 A. sin30 B. sin(30) C. sin(30) D. Sin(30*3.14/180)40. 窗体通用声明部分的 “Option Base 1” 语句，决定本窗体中数组下标 。A维下界必须为1 B缺省的维下界为1 C维下界不能为0 D缺省的维下界为041. 下列 不是正确的VB常量。A. #09/01/2013B. 50.25 C. 江苏 D. False42 以下叙述中错误的是 。A. 下拉式菜单和弹出式菜单都用菜单编辑器编辑B. 在多窗体程序中，每个窗体都可以建立自己的菜单系统C. 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键D. 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见43VB程序设计时常用的Print、Cls属于 。 A. 属性 B. 打印字库 C. 方法 D. 事件 44下列对象中，具有Caption属性的是 。PictureBox Frame OptionButton ListBox TextBox Form ComboBox A. B. C. D. 45设字符串变量a已赋值Visual Basic，表达式结果等于2的是 。 A. InStr(a, a) B. InStr(Left(a, 2) & Right(a, 6), a)C. InStr(Right(a, InStr(a, a), a) D. InStr(Left(a, InStr(a, a), a)46. 变量S为字符型，若在文本框Text1、Text2中分别输入数字10与20后，再执行以下语句，S的最终结果为30的是 。A. S = Val(Text1.Text) + Text2.Text B. S = Text1.Text + Text2.TextC. S = Text1.Text & Text2.Text D. S = Val(Text1.Text) & Text2.Text47. 通用Sub过程的说法中正确的是 。 A. 可以为通用Sub过程的过程名说明数据类型 B. 通用Sub过程中不得调用其他通用过程或事件过程 C. 通用Sub过程的形参可以与模块级或全局变量同名 D. 通用Sub过程的数组形参可以按值传递48以下的控件或方法具有输入和输出双重功能的为 。APrint BTextbox COptionbutton DCheckbox49以下是定义某子过程或函数的第一行语句，其中正确的是 。A. Private Sub Fact（S As String） B. Private Sub Fact(S As String * 5)C. Private Sub Fact（byval A() As String）D. Private Function Fact(a(5) As Integer) As Integer50. 以下关于文件的叙述中错误的是 。 A. VB中有三种文件访问的类型：顺序访问、随机访问、二进制访问 B. 处理文件的一般步骤是：打开文件访问文件关闭文件 C. 可以用Print #语句和Write #语句将数据写到顺序文件中D. 只有顺序文件在读写前需要用Open语句打开二、填空题（2分20=40分）1如果在被调过程中改变了形参值，只影响副本，而不会影响实参变量本身。这种参数传递方式称为 _(1)_传递。2计时器控件没有方法，可以响应的事件仅有 (2) 。3. 列表框和组合框的清空可以用 (3) 方法。4. 为了在窗体上增加文字说明，最常用的是标签控件，其中设置AutoSize属性为 （4） 时，它的大小自动适应文字的长短。5在程序代码中，使用方法 （5） 可以隐藏窗体。6列表框的ListIndex属性为列表项索引。列表框中的第一项，其索引值（即ListIndex值）为 （6） 。7. 执行下面程序 , 单击命令按钮后 , 窗体上第一行显示的内容是 （7） ， 第二行显示内容是 （8） 。Private Sub Command1_Click() Dim ch As String, i As Integer ch = DEF i = 1 Do While i j Then a(i, j) = i * j ElseIf i j Then a(i, j) = 4 * i - 3 * j Else a(i, j) = 5 * j - 2 * i End If Next j Next i For i = 1 To 3 For j = 1 To 3 Print a(i, j); Next j Print Next iEnd Sub9执行下面程序 , 单击 Commandl 按钮 , 则窗体上显示的第二行内容是 （11） ； 窗体上显示的第四行内容是 （12） . Private Sub Command1_Click() Dim n As Integer n = 3 Print n; wx(n)End SubPrivate Function wx(n As Integer) As Single If n = 1 Then wx = 1 Else wx = wx(n - 1) / 2 + 50 End If Print n; wxEnd Function10. 执行下面程序 , 单击 Command 1 按钮 , 则在窗体上显示的内容是 （13） 。 Private Sub Command1_Click() Dim a As Integer, b As String a = 7 Do b = fun(a) a = a 3 Loop Until a = 0 Print bEnd SubPrivate Function fun(n As Integer) As String Static s As String s = s & Cstr(n) fun = sEnd Function11在文本框TEXT1中输入一串字符，判断其是否是回文字符串。所谓回文字符串是指正读和反读都一样的字符串，比如ABBA、DEAED等就是回文字符串。Private Sub Command1_Click() Dim s As String, n As Integer, m As Integer s = Text1.Text n = 1 (14) Do While n m Then Text2.Text = Text1.Text & 是回文 Else Text2.Text = Text1.Text & 不是回文 End IfEnd Sub12.本程序功能是找出100以内所有相差4的素数对。Private Sub Command1_Click() Dim i As Integer For i = 1