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

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

1、二级 VISUAL+BASIC 笔试-217 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()a=12345Print Format$(a,“000,00“)End Sub程序运行后，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.123.45B.12345.00C.12345D.00123.452.执行 x$=InputBox(“请输入 x 的值“)时，在弹出的对话框中输入 123，在列表框 List

2、1 选中 1 个列表项(数据为 456)，使 y 的值是 123456 的语句是( )。（分数：2.00）A.y=x$+List1.List(O)B.y=x$+List1.List(1)C.y=Val(x$)+Val(List1.List(0)D.y=Val(x$)m(I)（分数：2.00）A.3 11B.3 15C.11 3D.15 36.在一个窗体上添加一命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果是( )。option base 1Private Sub Command1_Ctick()Dim a (5) As IntegerDim k As IntegerDi

3、m total As Integera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6For k=1 To 5total=total+a(k)Next kPrint totalEnd Sub（分数：2.00）A.10B.15C.27D.357.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500,500End Sub程序运行后，单击命令按钮，执行的操作为( )。（分数：2.00）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置C.

4、命令按钮向左、上方向各移动 500D.窗体向左、上方向各移动 5008.设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以下程序后，x 的值是( )。（分数：2.00）A.26B.27C.38D.579.下列程序段的执行结果为( )。a=6For k=1 To 0a=a+kNext kPrint k;a（分数：2.00）A.-1 6B.1 16C.1 6D.11 2110.不能脱离控件(包括窗体)而独立存在的过程是( )。（分数：2.00）A.事件过程B.通用过程C.Sub 过程D.函数过程11.关于多行结构条件语句的执行过程，正确的是( )。（分数：2.0

5、0）A.各个条件所对应的语句块中，一定有一个语句块被执行B.找到条件为 True 的第一个入口，便从此开始执行其后的所有语句块C.若有多个条件为 True，则它们对应的语句块都被执行D.多行选择结构中的语句块，有可能任何一个语句块都不被执行12.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load0ShowText1.Text=“Text2.Text=“Text1.SetFocusEnd SubPrivate Sub Text1 Change()Text2.Text=Mid(Text1.Text,8)End Sub程序运行

6、后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是( )。（分数：2.00）A.BeijingChinaB.ChinaC.BeijingD.BeijingC13.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为 Text1、Text2 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Text1.TextSelect Case nCase 1 To 20x=10Case2,4,6x=20Case Is10x=30Case 10x=40End SelectText2.Text=xEnd

7、 Sub程序运行后，如果在文本框 Text1 中输入 10，然后单击命令按钮，则在 Text2 中显示的内容是( )。（分数：2.00）A.10B.20C.30D.4014.andomize 语句的功能是( )。（分数：2.00）A.产生个(0，1)之间的随机小数B.产生一个1，10之间的随机整数C.产生一个(-1，1)之间的随机小数D.产生新的随机整数15.下面程序运行后输出结果是( )。For I=1 to 2S=1For j=0 to I-1S=S+S*INext jPrint SNext I（分数：2.00）A.1 1B.02C.29D.6916.在窗体上用复制、粘贴的方法建立了一个命

8、令按钮数组，数组名为 M1。设窗体 Form1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代码：Privae Sub M1_Click(Index As Integer)Form1.Caption=“myform2“End Sub运行时，单击按钮数组中的第 1 个按钮，窗本标题为( )。（分数：2.00）A.Form1B.M1C.myform1D.myform217.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1

9、To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是( )。（分数：2.00）A.4 2B.12 18C.12 30D.4 618.设有如下语句：str1=IntputBox(“输入“，“ “，“练习“)从键盘上输入字符串“示例”后，str1 的值是( )。（分数：2.00）A.“输入“B.“ “C.“练习“D.“示例“19.下面程序段执行结果为( )。x=Int(Rnd()+4)Select Case xCase 5Print“excellent“Case4Print“good“Case 3Print“pass

10、“Case ElsePrint“fail“End Select（分数：2.00）A.excellentB.goodC.passD.fail20.Sub 过程与 Function 过程最根本的区别是( )。（分数：2.00）A.Sub 过程名称与 Function 过程名称的格式不统一B.Function 过程可以有参数，Sub 过程不可以C.两种过程参数的传递方式不同D.Sub 过程的过程名称不能有返回值，而 Function 过程能通过过程名称得到返回值21.在窗体上添加一个文本框，名为 text1，然后编写如下的 load 事件过程，则程序的运行结果是( )。Private Sub For

11、m_LoadText1.Text=“ “Text1.SetFocusFor k=1 to 5t=t*kNext kText1.Text=tEnd Sub（分数：2.00）A.在文本框中显示 120B.文本框中仍为空C.在文本框中显示 1D.出错22.文本框控件中将 Text 的内容全部显示为所定义的字符的属性项是( )。（分数：2.00）A.PasswordCharB.需要编程来实现C.PasswordD.以上都不是23.在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim

12、intNum As IntegerintNum=InputBox(“请输入：“)If Flag ThenPrintf(intNum)End IfEnd SubFunction f(x As Integer)As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输出结果为

13、( )。（分数：2.00）A.0B.5C.15D.无任何输出24.程序的基本控制结构是( )。（分数：2.00）A.Do-Loop 结构、Do-Loop While 结构和 For-Next 结构B.子程序结构，自定义函数结构C.顺序结构，选择结构和循环结构D.单行结构，多行结构和多分支结构25.函数 String(n,“str“)的功能是( )。（分数：2.00）A.把数值型数据转换为字符串B.返回由 n 个字符组成的字符串C.从字符串中取出 n 个字符D.从字符串中第 n 个字符的位置开始取子字符串26.下列选项中不符合良好程序设计风格的是( )。（分数：2.00）A.源程序要文档化B.数

14、据说明的次序要规范化C.避免滥用 goto 语句D.模块设计要保证高耦合、高内聚27.下列各种形式的循环中，输出“*”的个数最少的循环是( )。（分数：2.00）A.a=5:b=8DoPrint“*“a=a+1Loop While abB.a=5:b=8DoPrint“*“a=a+1Loop Until abC.a=5:b=8Do Until a-bprint“*“b=b+1LoopD.a=5:b=8DoUntil abPrint“*“a=a+1Loop28.已知数组 a(1 To 10)As Integer,下面调用 GetValue 函数正确的是( )。Private Function G

15、etValue(a()As Integer)As IntegerFor i=1 To 10Get Value=GetValue+a(i)Next iEnd Function（分数：2.00）A.S=GetValue(a(1 To 10)B.S=GetValue(a)C.S=GetValue(a(10)D.S=GetValue a29.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(key Ascii As Integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是( )。（分数：2.00）A

16、.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键30.下列表达式中，( )的运算结果与其他 3 个不同。（分数：2.00）A.10g(Exp(-3.5)B.Int(-3.5)+0.5C.-Abs(-3.5)D.Sin(30*3.14/180)31.计算 z 的值，当 x 大于等于 y 时，z=x；否则 z=y。下列语句错误的是( )。（分数：2.00）A.If x=y Then z=x:z=yB.If x=y Then z=x Else z=yC.z=y:If x=y Then z=xD.If xy Then z=y Else z=x32.使用 ReDim Preserve 可

17、以改变数组( )。（分数：2.00）A.最后一维的大小B.第一维的大小C.所有维的大小D.改变维数和所有维的大小33.窗体上有名称分别为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控件数组 Option1，如图 1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中的数值与该单选按钮所对应的运算(乘以 1、10 或 100)，并将结果显示在 Text2 中，如图 2 所示。为了实现上述功能，在程序中的下划线处应填入的内容是( )。（分数：2.00）A.B.C.D.34.以下( )程序段可以实施 X、Y 变量值的互换。（分数：2.00）A.Y=X:X=Y

18、B.Z=X:Y=Z:X=YC.Z=X:X=Y:Y=ZD.Z=X:W=Y:Y=Z:X=Y35.以下关于菜单的叙述中，错误的是( )。（分数：2.00）A.在程序运行过程中可以增加或减少菜单项B.如果把一个菜单项的 Enabled 属性设置为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少二、填空题(总题数：11，分数：30.00)36.窗体的对象名用 1 表示。（分数：2.00）填空项 1:_37.数据结构分为线性结构和非线性结构，带链的队列属于 1。（分数：2.00）填空项 1:_38.For-Next 循环是一种 1 确定的循环。（分数

19、：2.00）填空项 1:_39.对象是既包含数据又包含对 1 的方法，并将其封装起来的一个逻辑实体。（分数：2.00）填空项 1:_40.在标准模块中用：Dim 或 Private 关键字定义的变量是_变量，它们只能在程序的模块中使用。（分数：2.00）填空项 1:_下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框 Text 输入。例如数组各元素的值依次为 0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。Private Sub Moveright(x()As Integer)Dim i As Integ

20、erDim j As IntegerDim k As Integeri=UBound(x)j=x(i)For k=i To (6) Step-1(7) Next kx(LBound(x)=jEnd SubPrivate Sub Command1_Click()Dim a(10)As IntegerDim i As IntegerDim j As IntegerDim k As IntegerFor i=0 To 10a(i)=iNext ij=Val(Text1.Text)k=0Dok=k+1Call MoveRight(a)Loop Until k=jFor i=0 To 10Print a

21、(i)；Next iEnd Sub（分数：4.00）填空项 1:_填空项 1:_在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：Private Sub Command1_Click()Text1.Text=“VB Programming“Text2.Text=Text1.TextText1.Text=“ABCD“End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为 (8) 和 (9) 。（分数：4.00）填空项 1:_填空项 1:_在窗体上画一个标签(名称为 Label1)和一个计时器(名称为 Timer1)，然后编写如下几个事件过程：Private Su

22、b Form_Load()Timer1.Enabled=FalseTimer1.Interval= (10) End SubPrivate Sub Form_Click()Timer1.Enabled= (11) End SubPrivate Sub Timer1_Timer()Label1.Caption= (12) End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔 1 秒钟变换一次(见下图)。请填空。（分数：6.00）填空项 1:_填空项 1:_填空项 1:_41.执行下面的程序段后，b 的值为_。a=800b=30a=a+bb=a-ba=a-b（分数：2.00）填空项 1

23、:_42.以下程序的功能是将多维数组 a(1 To m,1 To n)中的元素转移到一个名为 b(1 To n*m)的一维数组中，完成该程序。OptionBase 1Private Sub Command1_Click(Index As Integer)Dima(1 To 20,1 To 10)Dim b()ReDimb(1 To 200)For i=1 To 20For j=1 To 10A(i,j)=i*jNext jNext iTran a,20,10bEnd SubSub Tran(a()an,n,b()Dim i As IntegerFor i=1 To mFor j=1 To n_

24、=a(i,j)Next jNext iEnd Sub（分数：2.00）填空项 1:_43.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()n=5f=1S=0For i=1 To nf=f_S=S+fNextPrint sEnd Sub该事件过程的功能是计算 （分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-217 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Priv

25、ate Sub Command1_Click()a=12345Print Format$(a,“000,00“)End Sub程序运行后，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.123.45B.12345.00 C.12345D.00123.45解析：2.执行 x$=InputBox(“请输入 x 的值“)时，在弹出的对话框中输入 123，在列表框 List1 选中 1 个列表项(数据为 456)，使 y 的值是 123456 的语句是( )。（分数：2.00）A.y=x$+List1.List(O) B.y=x$+List1.List(1)C.y=Val(x$)+Val(L

26、ist1.List(0)D.y=Val(x$)m(I)（分数：2.00）A.3 11B.3 15C.11 3 D.15 3解析：6.在一个窗体上添加一命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果是( )。option base 1Private Sub Command1_Ctick()Dim a (5) As IntegerDim k As IntegerDim total As Integera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6For k=1 To 5total=total+a(k)Next kPrint totalEnd Sub（分数：2

27、.00）A.10B.15C.27 D.35解析：7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500,500End Sub程序运行后，单击命令按钮，执行的操作为( )。（分数：2.00）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置 C.命令按钮向左、上方向各移动 500D.窗体向左、上方向各移动 500解析：8.设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以下程序后，x 的值是( )。（分数：2

28、.00）A.26B.27 C.38D.57解析：9.下列程序段的执行结果为( )。a=6For k=1 To 0a=a+kNext kPrint k;a（分数：2.00）A.-1 6B.1 16C.1 6 D.11 21解析：10.不能脱离控件(包括窗体)而独立存在的过程是( )。（分数：2.00）A.事件过程 B.通用过程C.Sub 过程D.函数过程解析：11.关于多行结构条件语句的执行过程，正确的是( )。（分数：2.00）A.各个条件所对应的语句块中，一定有一个语句块被执行B.找到条件为 True 的第一个入口，便从此开始执行其后的所有语句块C.若有多个条件为 True，则它们对应的语句

29、块都被执行D.多行选择结构中的语句块，有可能任何一个语句块都不被执行 解析：12.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load0ShowText1.Text=“Text2.Text=“Text1.SetFocusEnd SubPrivate Sub Text1 Change()Text2.Text=Mid(Text1.Text,8)End Sub程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是( )。（分数：2.00）A.BeijingChinaB.Ch

30、ina C.BeijingD.BeijingC解析：13.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为 Text1、Text2 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Text1.TextSelect Case nCase 1 To 20x=10Case2,4,6x=20Case Is10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框 Text1 中输入 10，然后单击命令按钮，则在 Text2 中显示的内容是( )。（分数：2.00）A.10 B.20C

31、.30D.40解析：14.andomize 语句的功能是( )。（分数：2.00）A.产生个(0，1)之间的随机小数B.产生一个1，10之间的随机整数C.产生一个(-1，1)之间的随机小数D.产生新的随机整数 解析：15.下面程序运行后输出结果是( )。For I=1 to 2S=1For j=0 to I-1S=S+S*INext jPrint SNext I（分数：2.00）A.1 1B.02C.29 D.69解析：16.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为 M1。设窗体 Form1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代

32、码：Privae Sub M1_Click(Index As Integer)Form1.Caption=“myform2“End Sub运行时，单击按钮数组中的第 1 个按钮，窗本标题为( )。（分数：2.00）A.Form1B.M1C.myform1D.myform2 解析：17.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击 Command1 按钮后，窗体

33、上显示的是( )。（分数：2.00）A.4 2B.12 18 C.12 30D.4 6解析：18.设有如下语句：str1=IntputBox(“输入“，“ “，“练习“)从键盘上输入字符串“示例”后，str1 的值是( )。（分数：2.00）A.“输入“B.“ “C.“练习“D.“示例“ 解析：19.下面程序段执行结果为( )。x=Int(Rnd()+4)Select Case xCase 5Print“excellent“Case4Print“good“Case 3Print“pass“Case ElsePrint“fail“End Select（分数：2.00）A.excellentB.g

34、ood C.passD.fail解析：20.Sub 过程与 Function 过程最根本的区别是( )。（分数：2.00）A.Sub 过程名称与 Function 过程名称的格式不统一B.Function 过程可以有参数，Sub 过程不可以C.两种过程参数的传递方式不同D.Sub 过程的过程名称不能有返回值，而 Function 过程能通过过程名称得到返回值 解析：21.在窗体上添加一个文本框，名为 text1，然后编写如下的 load 事件过程，则程序的运行结果是( )。Private Sub Form_LoadText1.Text=“ “Text1.SetFocusFor k=1 to 5

35、t=t*kNext kText1.Text=tEnd Sub（分数：2.00）A.在文本框中显示 120B.文本框中仍为空C.在文本框中显示 1D.出错 解析：22.文本框控件中将 Text 的内容全部显示为所定义的字符的属性项是( )。（分数：2.00）A.PasswordChar B.需要编程来实现C.PasswordD.以上都不是解析：23.在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox(“请输入：

36、“)If Flag ThenPrintf(intNum)End IfEnd SubFunction f(x As Integer)As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输出结果为( )。（分数：2.00）A.0B.5 C.15D.无任何输出解析：24.程

37、序的基本控制结构是( )。（分数：2.00）A.Do-Loop 结构、Do-Loop While 结构和 For-Next 结构B.子程序结构，自定义函数结构C.顺序结构，选择结构和循环结构 D.单行结构，多行结构和多分支结构解析：25.函数 String(n,“str“)的功能是( )。（分数：2.00）A.把数值型数据转换为字符串B.返回由 n 个字符组成的字符串 C.从字符串中取出 n 个字符D.从字符串中第 n 个字符的位置开始取子字符串解析：26.下列选项中不符合良好程序设计风格的是( )。（分数：2.00）A.源程序要文档化B.数据说明的次序要规范化C.避免滥用 goto 语句D.

38、模块设计要保证高耦合、高内聚 解析：27.下列各种形式的循环中，输出“*”的个数最少的循环是( )。（分数：2.00）A.a=5:b=8DoPrint“*“a=a+1Loop While abB.a=5:b=8DoPrint“*“a=a+1Loop Until abC.a=5:b=8Do Until a-bprint“*“b=b+1Loop D.a=5:b=8DoUntil abPrint“*“a=a+1Loop解析：28.已知数组 a(1 To 10)As Integer,下面调用 GetValue 函数正确的是( )。Private Function GetValue(a()As Inte

39、ger)As IntegerFor i=1 To 10Get Value=GetValue+a(i)Next iEnd Function（分数：2.00）A.S=GetValue(a(1 To 10)B.S=GetValue(a) C.S=GetValue(a(10)D.S=GetValue a解析：29.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(key Ascii As Integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是( )。（分数：2.00）A.单击鼠标B.双击文本框C.

40、鼠标滑过文本框D.按下键盘上的某个键 解析：30.下列表达式中，( )的运算结果与其他 3 个不同。（分数：2.00）A.10g(Exp(-3.5)B.Int(-3.5)+0.5C.-Abs(-3.5)D.Sin(30*3.14/180) 解析：31.计算 z 的值，当 x 大于等于 y 时，z=x；否则 z=y。下列语句错误的是( )。（分数：2.00）A.If x=y Then z=x:z=y B.If x=y Then z=x Else z=yC.z=y:If x=y Then z=xD.If xy Then z=y Else z=x解析：32.使用 ReDim Preserve 可以改

41、变数组( )。（分数：2.00）A.最后一维的大小 B.第一维的大小C.所有维的大小D.改变维数和所有维的大小解析：33.窗体上有名称分别为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控件数组 Option1，如图 1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中的数值与该单选按钮所对应的运算(乘以 1、10 或 100)，并将结果显示在 Text2 中，如图 2 所示。为了实现上述功能，在程序中的下划线处应填入的内容是( )。（分数：2.00）A. B.C.D.解析：34.以下( )程序段可以实施 X、Y 变量值的互换。（分数：2.00）A.Y

42、=X:X=YB.Z=X:Y=Z:X=YC.Z=X:X=Y:Y=Z D.Z=X:W=Y:Y=Z:X=Y解析：35.以下关于菜单的叙述中，错误的是( )。（分数：2.00）A.在程序运行过程中可以增加或减少菜单项B.如果把一个菜单项的 Enabled 属性设置为 False，则可删除该菜单项 C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少解析：二、填空题(总题数：11，分数：30.00)36.窗体的对象名用 1 表示。（分数：2.00）填空项 1:_ （正确答案：Form）解析：37.数据结构分为线性结构和非线性结构，带链的队列属于 1。（分数：2.00）填空项 1:_

43、 （正确答案：线性结构）解析：38.For-Next 循环是一种 1 确定的循环。（分数：2.00）填空项 1:_ （正确答案：循环次数）解析：39.对象是既包含数据又包含对 1 的方法，并将其封装起来的一个逻辑实体。（分数：2.00）填空项 1:_ （正确答案：数据进行操作）解析：40.在标准模块中用：Dim 或 Private 关键字定义的变量是_变量，它们只能在程序的模块中使用。（分数：2.00）填空项 1:_ （正确答案：局部 标准）解析：下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框 Text 输入。例如数组各元素的值依次为 0，1，2，3，4，5，6，7，8，

44、9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。Private Sub Moveright(x()As Integer)Dim i As IntegerDim j As IntegerDim k As Integeri=UBound(x)j=x(i)For k=i To (6) Step-1(7) Next kx(LBound(x)=jEnd SubPrivate Sub Command1_Click()Dim a(10)As IntegerDim i As IntegerDim j As IntegerDim k As IntegerFor i=0 To

45、10a(i)=iNext ij=Val(Text1.Text)k=0Dok=k+1Call MoveRight(a)Loop Until k=jFor i=0 To 10Print a(i)；Next iEnd Sub（分数：4.00）填空项 1:_ （正确答案：LBound(x)+1）解析：填空项 1:_ （正确答案：x(k)=x(k-1)）解析：在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：Private Sub Command1_Click()Text1.Text=“VB Programming“Text2.Text=Text1.TextText1.Text=“A

46、BCD“End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为 (8) 和 (9) 。（分数：4.00）填空项 1:_ （正确答案：ABCD）解析：填空项 1:_ （正确答案：VB Programming）解析：在窗体上画一个标签(名称为 Label1)和一个计时器(名称为 Timer1)，然后编写如下几个事件过程：Private Sub Form_Load()Timer1.Enabled=FalseTimer1.Interval= (10) End SubPrivate Sub Form_Click()Timer1.Enabled= (11) End SubPrivate Su

47、b Timer1_Timer()Label1.Caption= (12) End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔 1 秒钟变换一次(见下图)。请填空。（分数：6.00）填空项 1:_ （正确答案：1000）解析：填空项 1:_ （正确答案：True 或任何非 0 数值）解析：填空项 1:_ （正确答案：Time 或 Times）解析：41.执行下面的程序段后，b 的值为_。a=800b=30a=a+bb=a-ba=a-b（分数：2.00）填空项 1:_ （正确答案：800）解析：42.以下程序的功能是将多维数组 a(1 To m,1 To n)中的元素转移到一个名为 b(1 To n*m)的一维数组中，完成该程序。OptionBase 1Private Sub Command1_Click(Index As Integer)Dima(1 To 20,1 To 10)Dim b()ReDimb(1 To 200)For i=1 To 20For j=1 To 10A(i,j)=i*jNext jNext iTran a,20,10bEnd SubSub Tran(a()an,n,b()Dim i As IntegerFor i=1 To mFor j=1 To n_=a(i,j)Next jNext iEnd Sub（分数：2.0