【计算机类职业资格】二级VISUAL+BASIC笔试-85及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-85及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-85及答案解析.doc（25页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-85 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.对序列(7，19，24，13，31，8，82，18，44，63，5，29)进行一趟排序后得到的结果如下：(7，18，24，13，5，8，82，19，44，63，31，29)，则可以认为使用的排序方法是_。（分数：2.00）A.希尔排序B.插入排序C.快速排序D.选择排序2.在下列有关测试的论述中，错误的是_。（分数：2.00）A.证明错误存在B.证明错误不存在C.发现程序的错误D.提供诊断信息3.VB 预先设置好的，能够被对象识别的动作是_。（分数：

2、2.00）A.方法B.事件C.对象D.属性4.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程：Private Sub Command1_Click( )A = Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load( )Text1.Text = “Text2.Text = “End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 33 和 44，然后单击命令按钮，

3、则输出结果为_。（分数：2.00）A.77B.33+44C.3344D.44335.在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1)，然后编写如下事件过程：Private Sub Command1_Click( )x = 0: n = 0Do Until x = 30x = (n + 2)* (n + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。（分数：2.00）A.2 和 30

4、B.2 和 240C.3 和 50D.4 和 306.为了在程序运行时，当被遮的该窗口又重现时，用窗体的 Picture 属性设置的背景图像会自动重画，设置值为 True 的属性是_。（分数：2.00）A.ScaleB.AutoRedrawC.ResizeD.AutoSize7.双击窗体中的对象后，VB 将显示的窗口是_。（分数：2.00）A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口8.下面子过程语句说明合法的是_。（分数：2.00）A.Sub f1 (s1 As String*8)B.Sub f1(n( )As Integer)As IntegerC.Function f1(f1

5、As Integer)As IntegerD.Function f1(ByVal n As Integer)9.假定有下面的程序段：For i = 1 To 3For j = 1 To iFor k = j To 3Print “i = “; i， “j = “;j， “k = “; kNext kNext jNext i这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是_。（分数：2.00）A.3、6 和 14B.3、8 和 16C.3、4 和 12D.3、9 和 1810.在窗体上画两个文本框(其名称分别为 Text1 和 Text2)和一个命令按钮(其名称为 Comma

6、nd1)，然后编写如下两个事件过程：Private Sub Command1_Click( )Text1.Text = “Microsoft Visual Basic“End SubPrivate Sub Text1_Change( )Text2.Text = UCase(Text1.Text)End Sub程序运行后，单击命令按钮，则在 Text2 文本框中显示的内容是_。（分数：2.00）A.Microsoft Visual BasicB.microsoft visual basicC.MICROSOFT VISUAL BASICD.空字符串11.关于结构化程序设计原则和方法的描述错误的是

7、_。（分数：2.00）A.选用的控制结构只准许有一个入口和一个出口B.复杂结构应该用嵌套的基本控制结构进行组合嵌套来实现C.不允许使用 GOTO 语句D.语言中所没有的控制结构，应该采用前后一致的方法来模拟12.一棵有 16 结点的完全二叉树，对它按从上到下，从左至右给结点编号，则对于编号为 7 的结点 X，它的父结点及右子结点的编号分别为_。（分数：2.00）A.2，14B.2，15C.3，14D.3，1513.为了使标签覆盖背景，应把 BackStyle 属性设置为_。（分数：2.00）A.0B.1C.TrueD.False14.算法指的是_。（分数：2.00）A.计算机程序B.解决问题的

8、计算方法C.排序算法D.解题方案的准确而完整的描述15.在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click( )Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i)* jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是_。（分数：2.00）A.4321B.12C.34D.123416.下面列出的条目中，哪些是数据库技术的主要特点_。数据的结构化 数据的冗余度小较高的数据独立性 程序的标准化（

9、分数：2.00）A.、和B.和C.、和D.都是17.下列叙述中正确的是_。（分数：2.00）A.只有窗体才是 Visual Basic 中的对象B.只有控件才是 Visual Basic 中的对象C.窗体和控件都是 Visual Basic 中的对象D.窗体和控件都不是 Visual Basic 中的对象18.假定窗体的名称(Name 属性)为 Form1，则把窗体的标题设置为“等级考试“的语句为_。（分数：2.00）A.Form1 = “等级考试“B.Caption = “等级考试“C.Form1.Text = “等级考试“D.Form1.Name = “等级考试“19.以下合法的变量名是_

10、。（分数：2.00）A.Len1B.LenC.6LenD.Lena20.下列工具中，为需求分析常用工具的是_。（分数：2.00）A.PADB.PFDC.N-SD.DFD21.为了使文本框同时具有水平和垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars属性设置为_。（分数：2.00）A.0B.1C.2D.322.在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim Arr1(12)As Integer， Arr2(3)As IntegerDim Sum As IntegerS

11、um = 2For i = 1 To 12Arr1(i)= iNext iFor i = 1 To 3Arr2(i)= Arr1(i * i)Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是_。（分数：2.00）A.16B.24C.32D.3623.在窗体上画一个名称为 Timer1 的计时器、一个名称为 Command1 的命令按钮和一个名称为 Label1 的标签。程序如下：Private Sub Command1_Click( )Timer1.Enabled = Tru

12、eTimer1.Interval = 1000End SubPrivate Sub Timer1_timer( )Label1.Caption = TimeEnd Sub当运行程序后，单击命令按钮，将在标签中显示的内容形式为_。（分数：2.00）A.TimeB.TrueC.1000D.10:06:5524.在窗体中添加一个命令按钮，名称为 Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer, b As String, c As Integera = 1234 : b = Str（分数：2.00）A.(a)c = Len

13、B.Print c25.有如下程序：Function F(a As Integer)b = 0Static cb = b + 1c = c + 2F = a + b + cEnd FunctionPrivate Sub Command1_Click( )Dim a As Integera = 2For i = 1 To 3Print F（分数：2.00）A.;Next iEnd S26.以下关于 VB 程序模块的描述中正确的是_。（分数：2.00）A.标准模块中的所有过程可以在整个工程文件的范围内被调用B.窗体模块 Form1 中的过程可以调用其他窗体中被声明为 Public 的通用过程C.如

14、果工程文件中包含 sub Main 过程，则运行该工程文件时，一定先执行 sub Main 过程D.如果工程文件中不包含 sub Main 过程，则程序从第一个创建的窗体开始运行27.下列关于队列的叙述中正确的是_。（分数：2.00）A.在队列中只能插入数据B.在队列中只能删除数据C.队列是先进先出的线性表D.队列是先进后出的线性表28.设已经建立了下面的菜单结构：表 1 菜单结构标题 名称 层次数据库操作 Db 1添加记录 Tj 2查询记录 Cx 2按姓名查询 Xm 3按学号查询 Xh 2删除记录 Delte 2在窗体上还有一个名称为 c1 的命令按钮，要求在运行时，单击命令按钮则把菜单项“

15、按姓名查询“设置为无效，下面正确的事件过程是_。（分数：2.00）A.Private Sub c1_Click ( )Cx. Xm. Enabled = FalseEnd SubB.Private Sub c1_Click( )Db.Cx.Xm.Enabled = FalseEnd SubC.Private Sub c1_Click( )Xm.Enabled = FalseEnd SubD.Private Sub c1_Click( )Me.Db.Cx.Xm.Enabled = FalseEnd Sub29.设有如下变量声明 Dim time1 As Date，为变量 time1 正确赋值的表

16、达式是_。（分数：2.00）A.time1 = #11:34:04#B.time1 = Format(Time，“yy:mm:dd“)C.time1 = #“11:34:04“#D.time1 = Format(“hh:mm:ss“， Time)30.将 E-R 图转换到关系模式时，实体与联系都可以表示成_。（分数：2.00）A.属性B.关系C.键D.域31.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim x As Integer, y As Integerx = 41: y = 54Call sub1

17、(x, y)x = x + 1Print x; yEnd SubPrivate Sub sub1(n As Integer, ByVal m As Integer)n = n Mod 10m = m / 10End Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.41 54B.2 54C.1 3D.42 332.关于 Move 方法，下列叙述正确的是_。（分数：2.00）A.用来移动窗体和控件，不能改变其大小B.“对象“是窗体时，移动基准以屏幕左边界和上边界为准C.Move 方法移动出计时器以外的所有标准控件D.“对象“是控件时，移动基准以屏幕左边界和上边界为准3

18、3.在窗体中添加两个文本框，其名称为别为 Text1 和 Text2；两个标签，其名称为别为 Label1 和Label2。编写程序，使得程序运行后，在文本框 Text2 中输入小写字母，能转换为比此字母 ASCII 代码小4 的大写字母，结果显示在文本框 Text1 中。如输入“efg“，则输出结果为“ABC“，运行后如下。能够实现上述功能的程序是_。（分数：2.00）A.Private Sub Form_Load( )ShowText1.Text = “Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode

19、As Integer， Shift As Integer)Text1.Text = Chr(KeyCode - 4)End SubB.Private Sub Form_Load( )ShowText1.Text = “Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer， Shift As Integer)Text1.Text = Text1.Text + Chr(KeyCode - 4)End SubC.Private Sub Form_Load( )ShowText1.Text = “

20、Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_Click(KeyCode As Integer， Shift As Integer)Text1.Text = Text1.Text + Chr(KeyCode - 4)End SubD.Private Sub Form_Load( )ShowText1.Text = “Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_Click(KeyCode As Integer， Shift As Integer)Text1.Text = Ch

21、r(KeyCode - 4)End Sub34.某线性表采用顺序存储结构，每个元素占 4 个存储单元，首地址为 200，则第 12 个元素的存储地址为_。（分数：2.00）A.248B.247C.246D.24435.在窗体上画一个命令按钮，其名称分别为 Command1，然后编写如下事件过程：Private Sub Command1_Click( )a = 0For m = 1 To 10a = a + 1b = 0For j = 1 To 10a = a + 1b = b + 2Next jNext mPrint a， bEnd Sub程序运行时，单击命令按钮 Command1 后，窗体上

22、显示的结果为_。（分数：2.00）A.10 20B.20 110C.110 20D.200 110二、填空题(总题数：15，分数：30.00)36.如图所示的二叉树，若按后序遍历，则其输出序列为_。（分数：2.00）填空项 1:_37.在长度为 n 的线性表中顺序查找元素 x 时，查找成功的平均查找长度为 1。（分数：2.00）填空项 1:_38.在面向对象方法中，一个对象请求另一个对象为其服务是通过发送 1 来完成的。（分数：2.00）填空项 1:_39.软件开发环境是全面支持软件开发全过程的 1 集合。（分数：2.00）填空项 1:_40.给出了数据库物理存储结构与物理存取方法称为数据库的

23、 1。（分数：2.00）填空项 1:_41.响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做 1。（分数：2.00）填空项 1:_42.在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是 1。（分数：2.00）填空项 1:_43.要求打开随机文件“c:/Example.txt“文件，文件号为 1。实现的语句是 1。（分数：2.00）填空项 1:_44.程序如下：Private Sub Form_Click( )Const PI = 3.14159Dim r As Single，

24、 S As SingleR = InputBox(“请输入圆的半径“，“输入数据“，“50“)S = PI*r*rPrint “S = “; Format(S，“#，#.#“)End Sub程序运行后，单击窗体，将显示一个输入对话框，输入 35，则单击“确定“按钮后，输出结果为_。（分数：2.00）填空项 1:_45.在窗体上画一个列表框，然后编写如下两个事件过程：Private Sub Form_Click( )List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 1End SubPrivate Sub Form_Load( )List1.

25、AddItem “ItemA“List1.AddItem “ItemB“List1.AddItem “ItemC“List1.AddItem “ItemD“List1.AddItem “ItemE“End Sub运行上面的程序，然后单击窗体，列表框中所显示的项目为_。（分数：2.00）填空项 1:_46.计时器事件之间的间隔通过 1 属性设置。（分数：2.00）填空项 1:_47.下列过程的功能是：用来计算并输出 S = 1+1/2+1/3+1/100 的值。请完善下列程序。Function SumD(n As Integer)As Singles = 1i = 1Doi = i + 1s =

26、 s + 1 / i Loop Until _SumD = sEnd FunctionPrivate Sub Form_Click( )sum1 = SumD(100)Print “sum1 = “; sum1End Sub（分数：2.00）填空项 1:_48.下面语句 Static x(7，8)As Double 定义了 1 个元素。（分数：2.00）填空项 1:_49.下列程序运行后，在窗体上打印的结果是_。Private Sub test(a， b， c)a = a + 1: b = b + 2: c = c + 3End SubPrivate Sub Command1_Click( )

27、x = 1: y = 2: z = 3Call test(x， y + 3， (z)Print “Main:“; x; y; zEnd Sub（分数：2.00）填空项 1:_50.编写如下通用过程：Sub proc(By Val num As Long， ByRef ren As Long)Dim k As LongK = 1hum = Abs(num)Do While numk = k *(num Mod 10)num = num/ 10Loopren = kEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim n As

28、 Long， r As Longn = InputBox(“请输入一个整数“)n = CLng(n)proc n， rPrint rEnd Sub程序运行后，单击命令按钮，在输入对话框中 345，输出结果是_。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-85 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.对序列(7，19，24，13，31，8，82，18，44，63，5，29)进行一趟排序后得到的结果如下：(7，18，24，13，5，8，82，19，44，63，31，29)，则可以认为使用的排序方法是_。（分数：2

29、.00）A.希尔排序 B.插入排序C.快速排序D.选择排序解析：2.在下列有关测试的论述中，错误的是_。（分数：2.00）A.证明错误存在B.证明错误不存在C.发现程序的错误 D.提供诊断信息解析：3.VB 预先设置好的，能够被对象识别的动作是_。（分数：2.00）A.方法B.事件 C.对象D.属性解析：4.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程：Private Sub Command1_Click( )A = Text1.Text+Text2.Te

30、xtPrint aEnd SubPrivate Sub Form_Load( )Text1.Text = “Text2.Text = “End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 33 和 44，然后单击命令按钮，则输出结果为_。（分数：2.00）A.77B.33+44C.3344 D.4433解析：5.在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1)，然后编写如下事件过程：Private Sub Command1_Click( )x = 0: n = 0Do

31、Until x = 30x = (n + 2)* (n + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。（分数：2.00）A.2 和 30B.2 和 240 C.3 和 50D.4 和 30解析：6.为了在程序运行时，当被遮的该窗口又重现时，用窗体的 Picture 属性设置的背景图像会自动重画，设置值为 True 的属性是_。（分数：2.00）A.ScaleB.AutoRedraw C.ResizeD.AutoSize解析：7.双击窗体中的对象后，VB 将显示

32、的窗口是_。（分数：2.00）A.工具箱B.项目(工程)窗口C.代码窗口 D.属性窗口解析：8.下面子过程语句说明合法的是_。（分数：2.00）A.Sub f1 (s1 As String*8)B.Sub f1(n( )As Integer)As IntegerC.Function f1(f1 As Integer)As IntegerD.Function f1(ByVal n As Integer) 解析：9.假定有下面的程序段：For i = 1 To 3For j = 1 To iFor k = j To 3Print “i = “; i， “j = “;j， “k = “; kNext

33、 kNext jNext i这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是_。（分数：2.00）A.3、6 和 14 B.3、8 和 16C.3、4 和 12D.3、9 和 18解析：10.在窗体上画两个文本框(其名称分别为 Text1 和 Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程：Private Sub Command1_Click( )Text1.Text = “Microsoft Visual Basic“End SubPrivate Sub Text1_Change( )Text2.Text = UCase(Text1.T

34、ext)End Sub程序运行后，单击命令按钮，则在 Text2 文本框中显示的内容是_。（分数：2.00）A.Microsoft Visual BasicB.microsoft visual basicC.MICROSOFT VISUAL BASIC D.空字符串解析：11.关于结构化程序设计原则和方法的描述错误的是_。（分数：2.00）A.选用的控制结构只准许有一个入口和一个出口B.复杂结构应该用嵌套的基本控制结构进行组合嵌套来实现C.不允许使用 GOTO 语句 D.语言中所没有的控制结构，应该采用前后一致的方法来模拟解析：12.一棵有 16 结点的完全二叉树，对它按从上到下，从左至右给结

35、点编号，则对于编号为 7 的结点 X，它的父结点及右子结点的编号分别为_。（分数：2.00）A.2，14B.2，15 C.3，14D.3，15解析：13.为了使标签覆盖背景，应把 BackStyle 属性设置为_。（分数：2.00）A.0B.1 C.TrueD.False解析：14.算法指的是_。（分数：2.00）A.计算机程序B.解决问题的计算方法C.排序算法D.解题方案的准确而完整的描述 解析：15.在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click( )Dim aa = Array(1, 2, 3, 4)j = 1

36、For i = 4 To 1 Step -1s = s + a(i)* jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是_。（分数：2.00）A.4321B.12C.34D.1234 解析：16.下面列出的条目中，哪些是数据库技术的主要特点_。数据的结构化 数据的冗余度小较高的数据独立性 程序的标准化（分数：2.00）A.、和 B.和C.、和D.都是解析：17.下列叙述中正确的是_。（分数：2.00）A.只有窗体才是 Visual Basic 中的对象B.只有控件才是 Visual Basic 中的对象C.窗体和控件都是 Visual B

37、asic 中的对象 D.窗体和控件都不是 Visual Basic 中的对象解析：18.假定窗体的名称(Name 属性)为 Form1，则把窗体的标题设置为“等级考试“的语句为_。（分数：2.00）A.Form1 = “等级考试“B.Caption = “等级考试“ C.Form1.Text = “等级考试“D.Form1.Name = “等级考试“解析：19.以下合法的变量名是_。（分数：2.00）A.Len1 B.LenC.6LenD.Lena解析：20.下列工具中，为需求分析常用工具的是_。（分数：2.00）A.PADB.PFDC.N-SD.DFD 解析：21.为了使文本框同时具有水平和

38、垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars属性设置为_。（分数：2.00）A.0B.1C.2D.3 解析：22.在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim Arr1(12)As Integer， Arr2(3)As IntegerDim Sum As IntegerSum = 2For i = 1 To 12Arr1(i)= iNext iFor i = 1 To 3Arr2(i)= Arr1(i * i)Next iFor i = 1 To 3Sum =

39、 Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是_。（分数：2.00）A.16 B.24C.32D.36解析：23.在窗体上画一个名称为 Timer1 的计时器、一个名称为 Command1 的命令按钮和一个名称为 Label1 的标签。程序如下：Private Sub Command1_Click( )Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_timer( )Label1.Caption = TimeEnd Sub当运行程序后，

40、单击命令按钮，将在标签中显示的内容形式为_。（分数：2.00）A.TimeB.TrueC.1000D.10:06:55 解析：24.在窗体中添加一个命令按钮，名称为 Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer, b As String, c As Integera = 1234 : b = Str（分数：2.00）A.(a)c = LenB.Print c解析：25.有如下程序：Function F(a As Integer)b = 0Static cb = b + 1c = c + 2F = a + b +

41、cEnd FunctionPrivate Sub Command1_Click( )Dim a As Integera = 2For i = 1 To 3Print F（分数：2.00）A.;Next iEnd S解析：26.以下关于 VB 程序模块的描述中正确的是_。（分数：2.00）A.标准模块中的所有过程可以在整个工程文件的范围内被调用B.窗体模块 Form1 中的过程可以调用其他窗体中被声明为 Public 的通用过程C.如果工程文件中包含 sub Main 过程，则运行该工程文件时，一定先执行 sub Main 过程 D.如果工程文件中不包含 sub Main 过程，则程序从第一个创

42、建的窗体开始运行解析：27.下列关于队列的叙述中正确的是_。（分数：2.00）A.在队列中只能插入数据B.在队列中只能删除数据C.队列是先进先出的线性表 D.队列是先进后出的线性表解析：28.设已经建立了下面的菜单结构：表 1 菜单结构标题 名称 层次数据库操作Db 1添加记录 Tj 2查询记录 Cx 2按姓名查询Xm 3按学号查询Xh 2删除记录Delte 2在窗体上还有一个名称为 c1 的命令按钮，要求在运行时，单击命令按钮则把菜单项“按姓名查询“设置为无效，下面正确的事件过程是_。（分数：2.00）A.Private Sub c1_Click ( )Cx. Xm. Enabled = F

43、alseEnd SubB.Private Sub c1_Click( )Db.Cx.Xm.Enabled = FalseEnd SubC.Private Sub c1_Click( )Xm.Enabled = FalseEnd Sub D.Private Sub c1_Click( )Me.Db.Cx.Xm.Enabled = FalseEnd Sub解析：29.设有如下变量声明 Dim time1 As Date，为变量 time1 正确赋值的表达式是_。（分数：2.00）A.time1 = #11:34:04# B.time1 = Format(Time，“yy:mm:dd“)C.time

44、1 = #“11:34:04“#D.time1 = Format(“hh:mm:ss“， Time)解析：30.将 E-R 图转换到关系模式时，实体与联系都可以表示成_。（分数：2.00）A.属性B.关系 C.键D.域解析：31.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim x As Integer, y As Integerx = 41: y = 54Call sub1(x, y)x = x + 1Print x; yEnd SubPrivate Sub sub1(n As Integer, ByV

45、al m As Integer)n = n Mod 10m = m / 10End Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.41 54B.2 54 C.1 3D.42 3解析：32.关于 Move 方法，下列叙述正确的是_。（分数：2.00）A.用来移动窗体和控件，不能改变其大小B.“对象“是窗体时，移动基准以屏幕左边界和上边界为准 C.Move 方法移动出计时器以外的所有标准控件D.“对象“是控件时，移动基准以屏幕左边界和上边界为准解析：33.在窗体中添加两个文本框，其名称为别为 Text1 和 Text2；两个标签，其名称为别为 Label1 和Lab

46、el2。编写程序，使得程序运行后，在文本框 Text2 中输入小写字母，能转换为比此字母 ASCII 代码小4 的大写字母，结果显示在文本框 Text1 中。如输入“efg“，则输出结果为“ABC“，运行后如下。能够实现上述功能的程序是_。（分数：2.00）A.Private Sub Form_Load( )ShowText1.Text = “Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer， Shift As Integer)Text1.Text = Chr(KeyCode - 4)

47、End SubB.Private Sub Form_Load( )ShowText1.Text = “Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer， Shift As Integer)Text1.Text = Text1.Text + Chr(KeyCode - 4)End Sub C.Private Sub Form_Load( )ShowText1.Text = “Text2.Text = “Text2.SetFocusEnd SubPrivate Sub Text2_Click(KeyCode As Integer， Shift As Integer)Text1.Text = Text1.Text + Chr(KeyCod