VB-2(10-11-1)试卷及答案.doc

VB-2（10-11-1）试卷一、 判断题（本大题共12小题，每小题1分，共12分）1. 要修改命令按钮和标签表面文本，应设置其Text属性；而设置文本框里内容的属性则是Caption属性。2. 对象的任何事件都必须由用户人工来触发，如用户单击对象会触发其Click事件。3. 若要使定义数组下标下界缺省值时，下界值为1，则可用语句Option Base 1。4. 计时器控件在VB应用程序启动后自动计时，无法暂停或关闭。5. VB要对一个文件进行写操作时，需要先使用Open语句打开该文件，但可以不打开文件就对其进行读操作。6. 若在列表框List1中首项之前插入一项目“ABCD”，则所使用的语句为List1.AddItem ABCD, 1。7. 数组作为过程参数只能传数值。8. Point方法可以用来画点。9. 一个For循环内可以完整地包含另一个For循环，但是却不可以包含另一个DoLoop循环。10. 数组在内存中占据一片连续的内存空间。11. 过程的作用域分为三种：局部级、窗体/模块级和全局级。12. 时钟控件只有一个Timer事件。二、 单选题（本大题共20小题，每小题1分，共20分）1. 将文本框控件的（ ）属性设置为False，文本框的文本只能单行输入。（A）Locked （B）Enabled（C）MultiLine （D）Visible2. 下列选项中，（ ）不属于日期型常量。（A）#09/02/99#（B）#January 4,1989#（C）10/28/2004（D）#2008-5-4 14:30:00#3. 下列表达式中，（ ）的值为False。（A）4*10=65（B）ABCDEABCDF（C）Not 20*5100（D）5020 Or 10+10=304. 条件“|a|b+5|”写作 VB 的表达式为（ ）。（A）|a|=|b+5|（B）Abs(a)=Abs(b+5)（C）Sqr(a)=Sqr(b+5) （D）Int(a)= a And UCase(s) = a Or LCase(s) = Asc(a) And s = a Or Chr(s) = a10. 下列窗口中，（ ）不属于VB集成开发环境。（A）预览窗口（B）属性窗口（C）立即窗口（D）窗体设计窗口11. 在菜单项的标题设置中，字母前加（ ），就在菜单上显示下划线字母，即热键字母。（A）（B）分隔（C）&（D）-12. 在VB的文件操作语句中，功能为删除文件的是（ ）。（A）Kill（B）Rmdir（C）RmFile（D）FileRm13. 列表框和组合框的属性中，（ ）属性是一个逻辑类型的数组。（A）Selected（B）List（C）Sorted（D）ListCount14. 下列数组声明的语句中，正确的是（ ）。（A）Dim a() As Integer ReDim a(1 To 5) As String（B）Dim n%, a() As Integer n = 5 ReDim a(1 To n) （c）Dim n%,a(1 To n) As String（D）Dim a%(3) As Integer15. 关于文件列表框控件，下列说法正确的是（ ）。（A）文件列表框中的内容可以通过AddItem方法来添加。（B）文件列表框中的内容可以通过RemoveItem方法来删除。（C）文件列表框可以实现多选。（D）文件列表框的Drive属性用于返回和设置运行时选择的驱动器。16. 执行下列语句后，窗体上显示的是（ ）。Form1.ForeColor = vbRedForm1.FillColor = vbBlueForm1.FillStyle = 0Form1.Line (0, 0)-(1000, 2000), vbGreen, B（A）一个绿框蓝芯的矩形（B）一个红框蓝芯的矩形（C）一个红框绿芯的矩形（D）一条绿色的直线17. 除了在窗体上使用Print方法打印内容，还可以在（ ）打印。（A）图片框（B）标签（C）列表框（D）文本框18. 想要给窗体建立一个坐标系统，X轴方向向右，范围-350,400，Y轴方向向上，范围-200，500，则可以使用（ ）语句。（A）Form1.Scale (-350, 400)-(-200, 500)（B）Form1.Scale (-350, 500)-(400, -200)（c）Form1.Scale (-350, 400)-(550, -100)（D）Form1.Scale (-350, 500)-(750, -700)19. 使用ShowOpen方法或设置（ ）属性为1，可以将通用对话框以“打开为对话框”的方式打开。（A）Action （B）Show（C）OpenFile（D）Caption20. 下列变量中，一般来说（ ）的生命周期最短。（A）Dim定义的局部变量（B）Static定义的静态变量（C）窗体/模块级变量（D）全局变量三、 程序填空题（本大题共4小题，每空2分，共24分）1. 下面Transpose过程用于产生一个矩阵，将其转置后再次打印出来（所谓转置是指将二维数组中所有行和对应列的元素进行交换）。Swap过程用于交换两个变量的值。Public Sub Transpose() 产生一个66的转置矩阵，将二维数组中所有行和对应列的元素进行交 Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print 原始数据 For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j Form1.Print Next i For i = 2 To 6 For j = 1 To _（1）_ _（2）_ Next j Next i Form1.Print 转置后数据 For i = 1 To 6 For j = 1 To 6 _（3）_ Next j Form1.Print Next iEnd SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a : a = b : b = tempEnd Sub（1）（A）i - 1（B）i + 1（C）6 - i（D）6（2）（A）a(i, j) = a(j, i)（B）temp = a(i, j) （C）Swap a(i, j), a(j, i)（D）a(j, i) = temp（3）（A）a(i, j) = Int(Rnd * 10)（B）a(i, j) = a(j, i)（C）Form1.Print a(i, j);（D）Swap a(i, j), a(j, i)2. 下面程序用于判断输入的一个数是否为完数（所谓完数是指该数等于其所有因子之和），若是完数，在窗体上显示该数及其因子。例如：输入6，则在窗体上显示6=1+2+3；输入28，则显示28=1+2+4+7+14。Private Sub Command1_Click() Dim x%, i%, n%, a%(), s% x = Val(InputBox(input) n = 0 s = 0 For i = _（4）_ If x Mod i = 0 Then n = n + 1 ReDim Preserve a(1 To n) a(n) = i s = s + i End If Next i If _（5）_ Then Print x; =; For i = 1 To n If i x（D）n 0（6）（A）Print s;（B）Print（C）Print +;（D）Print a(i);3. 下面的程序完成字母大小写的转换。在文本框Text1中输入小写字母，即自动在文本框Text2中显示相应的大写字母；若输入大写字母，则转换成小写字母。文本框Text1不接受非字母键。（大写字母a和小写字母A的ASCII码之差为32）Private Sub Text1_KeyPress(KeyAscii As Integer) Dim k% k = _（7）_ If k = Asc(A) And k = Asc(a) And k = 60 Print 及格; Spc(2); Case Is = 70 Print 中; Spc(2); Case Is = 80 Print 良; Spc(2); Case Is = 90 Print 优; Spc(2); Case Else Print 不及格; End SelectEnd Sub（A）优 中 不及格（B）及格 及格 及格 （C）优 良 中（D）及格 及格 不及格6. 运行程序，单击窗体后，窗体上显示的结果是（ ）。Private Sub Form_Click() Dim i%, j%, t% For i = 1 To 9 t = Abs(i - 5) Print Spc(t); For j = 1 To 2 * (5 - t) 1 Print Trim(i); Next j Print Next iEnd Sub（A）（B）（C）（D）五、 程序设计题（本大题共2小题，每小题10分，共20分）1. 编写一个计算表达式值的程序，要求：单击命令按钮Command1，用输入对话框输入m和n的值（要求输入必须达到条件mn0，否则重输），在窗体上打印出计算的结果。编写函数fact函数求x！（即x的阶乘）的值。2. 随机产生50个互不相同的两位正整数，按升序排列后，每行10个打印在窗体上。答案:一、判断题（每题1分，共12分）请在各小题正确选项的对应位置上填“”，A表示正确，B表示错误。123456789101112AB二、单选题（每题1分，共20分）请在各小题正确选项的对应位置上填“”。12345678910ABCD11121314151617181920ABCD三、程序填空题（每题2分，共24分）请在各小题正确选项的对应位置上填“”。123456789101112ABCD四、程序阅读题（每题4分，共24分）请在各小题正确选项的对应位置上填“”。123456ABCD五、编程题1.Public Function fact(x As Integer) As Long （2分） Dim i As Integer fact = 1（1分） For i = 1 To x（2分） fact = fact * i Next iEnd FunctionPrivate Sub Command1_Click() Dim n%, m%, y! Do m = Val(InputBox(m=)（1分） n = Val(InputBox(n=) Loop Until m = n And n = 0（1分） y = fact(m) / (fact(n) * fact(m - n)（2分） Print y（1分）End Sub2.Private Sub Form_Click() Dim a%(1 To 50) （1分） For i = 1 To 50（1分） a(i) = Int(Rnd * 90) + 10（1分） For j = 1 To i - 1（2分） If a(j) = a(i