VB2003─2004 学年 第二学期A卷.doc

长江大学试卷 学院 班 级 姓 名 班内序号 密 封 线20032004 学年 第二学期VB程序设计课程考试试卷( A卷: 共4页)注意：1. 姓名、序号必须写密封线内的指定地方； 2. 答案必须填写在随试卷一起提供的专用答题纸上，否则无效。 3. 考试时间：120分钟 4. 考试日期：2004.6.23一、选择题（每题2分，共30分）(1) 确定一个控件在窗体上的位置的属性是：A） Width和Height B） Left和HeightC） Left和Top D） Width和Top(2) 为了使一个控件在程序运行时不可见，应将该控件的Visible属性设置成何值。A) 1 B) 0 C) False D) True(3) 运行一个VB程序时，系统自动执行启动窗体的哪个事件过程。A) Load B) ClickC) Autosize D) Autorun(4) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是：A) 工程资源管理器窗口 B) 工具箱窗口 C) 代码窗口 D) 属性窗口(5) 执行语句s=Len(Mid(VisualBasic,1,6)后，s的值是A) VisualB) Basic C) 6 D) 11(6) 下列可作为Visual Basic变量名的是：A) A#a B) A4a C) A$a D) A&a(7) 语句Print 5/4*65 Mod 2的输出结果是A) 0B)1 C) 2 D) 3(8) 在过程定义中，用 来表示形参采用值传递方式。A) Var B) ByVal C) ByDef D) Value(9) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() Dim i%, j% For i = 2 To 18 For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i; Next iEnd Sub该事件过程的功能是A) 输出小于等于18的奇数B) 输出小于等于18的偶数C) 输出小于等于18的素数D) 输出小于等于18又能被j整除的数(10) 编程时，若要在一行内写多条语句，语句和语句之间的分隔符是：A) ， B) ； C) ： D) 、(11) 设a=18则以下表达式值为True的是：A) a1 And a10 B) a=1 Or aaa1(12) 数组声明语句Dim a(1 to 3, -1 to 5) 中，数组a包含的元素个数为：A) 15 B) 18 C) 21 D) 24(13) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 15B) 14C) 13D) 12(14) 以下哪个程序段不能正确地求出两个数中的大数。A) Max = IIf(xy, x, y)B) IF xy then Max=x else Max = yC) Max = x : If yx then Max = yD) If yx then Max=y : Max = x(15) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样二、基本概念填空题( 每空1分，共20分)(1) VB应用程序中标准模块文件的扩展名是【1】、窗体文件的扩展名是【2】。(2) 结构化程序设计方法的三种基本结构分别为：【3】 、 【4】和【5】。(3) 整型数据的类型符为【6】 ，其所能表示的最小值为 【7】 ，最大值为【8】。(4) 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【9】属性设置为【10】。长江大学试卷 学院 班 级 姓 名 班内序号 密 封 线(5) 组合框控件组合了【11】和【12】两个控件的特性。(6) 单选按钮的Value属性的值为【13】类型，复选框的Value属性的值为【14】类型。(7) 将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【15】。(8) VB表达式113、100 MOD 7、Round(3.586,2)、Asc(“A”) 、50-True的运算结果分别为：【16】、【17】、【18】、【19】、【20】。三、程序填空题( 每空2分，共20分)(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x%(1 To 10), i%, j%, n%, t% For i=1 To 10 x(i) =Int(Rnd*101+【1】) Next i For i = 1 To 【2】 n = i For j = i + 1 To 10 If (x(j) 【3】 x(n) Then n = 【4】 Next j t = 【5】 x(i) = 【6】 x(n) = t Next iEnd Sub该事件过程的功能是用随机函数产生10个100200之间的整数，然后将它们按从小到大的顺序排序。请在程序中指定的地方填入适当的内容，将程序补充完整。(2) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim n%, f!, s!n = 5 f = 【7】 s = 【8】 For i = 1 To n f = f*【9】 s = s + 【10】 Next i Print sEnd Sub该事件过程的功能是计算的值。请在程序中指定的地方填入适当的内容，将程序补充完整。四、读程序写结果( 每题5分，共10分) (1) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()Dim i%For i = 1 To 5Print Tab(i); String(6 - i, )Next iEnd Sub (2) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() Dim m%, n%, r% m = 35 n = 21 Do Print m; ,; nr = m MOD n If r = 0 Then Exit Do m = n n = r Loop Print nEnd Sub五、编程题( 每题10分，共20分)(1) 小猴在某天摘桃若干个，当天吃掉一半，觉得还