【计算机类职业资格】VB笔试-试卷2及答案解析.doc

上传人:unhappyhay135 文档编号:1318755 上传时间:2019-10-17 格式:DOC 页数:11 大小:75.50KB
下载 相关 举报
【计算机类职业资格】VB笔试-试卷2及答案解析.doc_第1页
第1页 / 共11页
【计算机类职业资格】VB笔试-试卷2及答案解析.doc_第2页
第2页 / 共11页
【计算机类职业资格】VB笔试-试卷2及答案解析.doc_第3页
第3页 / 共11页
【计算机类职业资格】VB笔试-试卷2及答案解析.doc_第4页
第4页 / 共11页
【计算机类职业资格】VB笔试-试卷2及答案解析.doc_第5页
第5页 / 共11页
点击查看更多>>
资源描述

1、VB 笔试-试卷 2 及答案解析(总分:98.00,做题时间:90 分钟)一、选择题(总题数:36,分数:72.00)1.选择题()下列各题 A、B、C、D 四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上。(分数:2.00)_2.无论何种控件,都具有一个共同属性。这个属性是( )。(分数:2.00)A.TextB.FontC.NameD.Caption3.表达式 5Mod3+3/5*2 的值是( )。(分数:2.00)A.0B.2C.4D.64.能够获得一个文本框中被选取文本的内容的属性是( )。(分数:2.00)A.TextB.LengthC.SelTextD.SelS

2、tart5.表达式 Mid(“SHANGHAI“,6,3)的值是( )。(分数:2.00)A.SHANGHB.SHAC.ANGHD.HAI6.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。(分数:2.00)A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对7.决定控件上文字的字体、字形、字号、效果的属性是( )。(分数:2.00)A.TextB.CaptionC.NameD.Font8.与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件,当用户按下并且释放一个键后,这三个事件发生的

3、顺序是( )。(分数:2.00)A.KeyDown、KeyPress、KeyUpB.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律9.下列描述中正确的是( )。(分数:2.00)A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发中的技术问题10.下列程序段错误的是( )。 (分数:2.00)A.B.C.D.11.下列不属于 Visual Basic 特点的是( )。(分数:2.00)A.对象的链接与嵌入B.结构化程序设计

4、C.编写跨平台应用程序D.事件驱动程序编程机制12.新建一工程,将其窗体的 Name 属性设置 MyFirst,则默认的窗体文件名为( )。(分数:2.00)A.Forml.frmB.工程 1.frmC.MyFirst.frmD.Forml.vbp13.以下关于函数过程的叙述中,正确的是( )。(分数:2.00)A.如果不指明函数过程参数的类型,则该参数没有数据类型B.函数过程的返回值可以有多个C.当数组作为函数过程的参数时,既能以传值方式传递,也能以引用方式传递D.函数过程形参的类型与函数返回值的类型没有关系14.窗体上有一个列表框和一个文本框,编写如下两个事件过程: Private Sub

5、 Form_Load() List1.Addltem“Beijing“ List1.Addltem“Tianjin“ List1.Addltem“Shanghai“, Text1.Text=“ End Sub Private Sub Listl_Dbl Click() x=Listl.Text Printx+Textl.Text End Sub 程序运行后,在文本(分数:2.00)A.China BeejingB.China TianjinC.China ShanghaiD.Shanghai China15.在窗体(Name 属性为 Forml)上面添加两个文本框(其 Name 属性分别为 T

6、ext1 和 Text2)和一个命令按钮(Name 属性为 Commandl),然后编写如下两个事件过程: Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text=“ Text2.Text=“ End Sub 程序运行后,在第 1 个文本(分数:2.00)A.444B.321123C.123321D.13223116.决定一个窗体有无控制菜单的属性是( )。(分数:2.00)A.MinBuRonB.CaptionC.MaxBuRonD.Contr

7、olBox17.要获取当前驱动器,应使用驱动器列表框的( )属性。(分数:2.00)A.PathB.DriveC.DirD.Pattern18.下列叙述中正确的是( )。(分数:2.00)A.一个算法的空间复杂度大,则其时间复杂度也必定大B.一个算法的空间复杂度大,则其时间复杂度必定小C.一个算法的时间复杂度大,则其空间复杂度必定小D.上述三种说法都不对19.设有如下的用户定义类型:Type Student number As String name As String age As Integer End Type 则以下正确引用该类型成员的代码是( )。 (分数:2.00)A.B.C.D.

8、20.在列表框中,当前被选中的列表项的序号由下列( )属性表示。(分数:2.00)A.ListB.IndexC.ListlndexD.Tablndex21.如果要向工具箱加入控件和部件,可以利用“工程”菜单中的( )命令。(分数:2.00)A.引用B.部件C.工程属性D.添加窗体22.代数式 eXSin(30)2x/(x+y)Inx 对应的 Visual Basic 表达式是( )。(分数:2.00)A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(X)*Sin(30*3.14/180)*2*X/(

9、X+Y)*Log(X)D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)23.假定有以下函数过程: Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S,i,1)+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() DimStrl As String,Str2 As Str(分数:2.00)A.abcdefgB.ABCDEFGC.gfedcb

10、aD.GFEDCBA24.使用( )方法不能让控件获得焦点。(分数:2.00)A.通过 Tab 切换B.单击该控件C.使用 SetFocus 方法D.使用键盘上的方向键25.在 VB 中,过程共有三种,它们是( )。(分数:2.00)A.事件过程,子过程和函数过程B.Sub 过程,函数过程和属性过程C.事件过程,函数过程和通用过程D.Sub 过程,函数过程和通用过程26.设组合框 Combol 中有 3 个项目,则以下能删除最后一项的语句是( )。(分数:2.00)A.Comb01.Removeltem TextB.Comb01.Removeltem2C.Comb01.Removeltem 3

11、D.Comb01.RemoveltemComb01.ListCount27.关于 Image 控件和 PictureBox 控件的说明,其中错误的是( )。(分数:2.00)A.Image 控件和 Picture Box 控件都有 Picture 属性B.Image 控件和 Picture Box 控件都支持 Print 方法C.Image 控件和 Picture Box 控件都可以用 Load Picture 函数把图形文件装入控件中D.Image 控件和 Picture Box 控件都能在属性窗口装入图形文件,也都能在运行期间装入图形文件28.文本框的 Scroll Bars 属性设置为非

12、零值,却没有效果,原因是( )。(分数:2.00)A.文本框中没有内容B.文本框的 MultiLine 属性值为 FalseC.文本框的 MultiLine 属性值为 TureD.文本框的 Locked 属性值为 Ture29.表达式 Sb(Len(“123“)+Str(77.7)的值为( )。(分数:2.00)A.377.7B.377.7C.80.7D.12377.730.单击一次命令按钮,下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dima As Integer,b As Integer,CASInteger a=2:b=3:c=4 Prin

13、tP2(c,b,A) End Sub PrivateFunctionPl(X As Integer,y As Intege;z As Integer) P1=2*x+y+3*Z End Function Priva(分数:2.00)A.21B.19C.17D.3431.在窗体上画四个文本框(如下图所示), (分数:2.00)A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息32.假定有如下的窗体事件过程: Private Sub Form_Click() a$=“Microsoft Visual Basic“ b$=Right(a$,5) c$=Mid(a$,1,9) MsgB

14、oxa$,34,b$,c$,5 End Sub 程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是( )。(分数:2.00)A.Microsoft VisualB.MicrosoftC.BasicD.533.以下关于窗体的描述中,错误的是( )。(分数:2.00)A.执行 Unload Form1 语句后,窗体 Form1 消失,但仍在内存中B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时,通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽34.把窗体的 KeyPreview 属性设置为 Tr

15、ue,然后编写如下事件过程: Private Sub Form_KeyPress(KeyAsciiASInteger) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch) PrintChr(KeyAscii+2) End Sub 程序运行后,按键盘上的 A 键,则在窗体上显示的内容是( )。(分数:2.00)A.AB.BC.CD.D35.下列关于事件方法说明错误的是( )。(分数:2.00)A.事件的方法不能响应某个事件B.事件的方法的实现步骤可以修改C.事件的方法是预先规定好的D.用户可以直接调用 VisualBasic 所规定的

16、方法36.3 下面程序的运行结果是( )。Option Base 1 Private Sub Commandl_Crick() Dimx,y(3,3) x=Array(1,2,3,4,5,6,7,8,9) Fori=1 To 3 Forj=1 To 3 y(i,j)=(i*j) If(j=i)Then Printy(i,j);Nextj Print Nexti End Sub (分数:2.00)A.B.C.D.二、填空题(总题数:13,分数:26.00)37.填空题(每空)请将每一个空的正确答案写在答题卡上。注意:以命令关键字填空的必须拼写完整。(分数:2.00)_38.欲打开各种 Visua

17、l Basic 窗口或显示工具栏,其对应的菜单命令均放置于主菜单项 1。的下拉菜单中。(分数:2.00)填空项 1:_39.代码窗口分为左右两栏,左边一栏称为 1,右边一栏称为过程框。(分数:2.00)填空项 1:_40.设有如下程序段:a$=“BeujingShanghai“ b$=Mid(a$,Instr(a$,“g“)+1)。 执行上面的程序段后,变量 b$的值为 1。(分数:2.00)填空项 1:_41.把“Visual Basic 程序设计”添加到列表框 lstBooks 的语句为 1。(分数:2.00)填空项 1:_42.数学公式(x+y)4 的 VB 算述表达式是 1。(分数:2

18、.00)填空项 1:_43.在命令按钮上释放鼠标按钮时,所触发的事件称为 1。(分数:2.00)填空项 1:_44.在工具栏的右侧还有两个栏,分别用来显示窗体的当前位置和大小,其单位为 twip,1 英寸等于 1。左边一栏显示的是窗体左上角的坐标,右边一栏显示的是窗体的长 X 宽。(分数:2.00)填空项 1:_45.Visual Basic 中的控件分为 3 类,它们是标准控件、 1 和可插入对象。(分数:2.00)填空项 1:_46.用 Line Input 语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到 1 分隔符,即认为一行的结束。(分数:2.00)填空项 1:_47.下

19、列程序段的输出结果为 1。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer N=4 ForI=1 To N S1(I)=I L=N+i-I S2(I)=L NextI S3(5)=0 ForK=1 To N S3(K)=S1(K)*S2(K) S3(5)=S3(5)+S3(K) NextK PrintS1(3)=S1(5);S1(2) PrintS2(4)=S3((分数:2.00)填空项 1:_48.下面运行程序后,单击命令按钮,输出的结果是 1。Private Sub Commandl_clck() Dim a%(1 To 4),b%(3

20、 To 6),i%,s1#,s2# Fori=1 To 4 a(i)=i Nexti For i=3 To 6 b(i)=i Nexti s1=YAS(a) S2=YAS(b) Printt“s1=“;S1“S2=“;s2 End Sub(分数:2.00)填空项 1:_49.下面程序运行的结果为 1 11 12 21 22 23 31 32 33 34 请在画线处填上适当的内容使程序完整。 Private Sub Form_Click() Call 13 End Sub Private Sub Pl6() End Sub Private Sub p16() ForI=1 to 4 Forj=1

21、 to I a= 14 Print Tab(j-(分数:2.00)填空项 1:_VB 笔试-试卷 2 答案解析(总分:98.00,做题时间:90 分钟)一、选择题(总题数:36,分数:72.00)1.选择题()下列各题 A、B、C、D 四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上。(分数:2.00)_解析:2.无论何种控件,都具有一个共同属性。这个属性是( )。(分数:2.00)A.TextB.FontC.Name D.Caption解析:3.表达式 5Mod3+3/5*2 的值是( )。(分数:2.00)A.0B.2 C.4D.6解析:4.能够获得一个文本框中被选取文

22、本的内容的属性是( )。(分数:2.00)A.TextB.LengthC.SelText D.SelStart解析:5.表达式 Mid(“SHANGHAI“,6,3)的值是( )。(分数:2.00)A.SHANGHB.SHAC.ANGHD.HAI 解析:6.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。(分数:2.00)A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对 解析:7.决定控件上文字的字体、字形、字号、效果的属性是( )。(分数:2.00)A.TextB.CaptionC.NameD.Font 解

23、析:8.与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件,当用户按下并且释放一个键后,这三个事件发生的顺序是( )。(分数:2.00)A.KeyDown、KeyPress、KeyUp B.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律解析:9.下列描述中正确的是( )。(分数:2.00)A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D.软件工程只是解决软件开发中的技术问题解析:10.下列程序段错误的是( )。 (

24、分数:2.00)A. B.C.D.解析:11.下列不属于 Visual Basic 特点的是( )。(分数:2.00)A.对象的链接与嵌入B.结构化程序设计C.编写跨平台应用程序 D.事件驱动程序编程机制解析:12.新建一工程,将其窗体的 Name 属性设置 MyFirst,则默认的窗体文件名为( )。(分数:2.00)A.Forml.frm B.工程 1.frmC.MyFirst.frmD.Forml.vbp解析:13.以下关于函数过程的叙述中,正确的是( )。(分数:2.00)A.如果不指明函数过程参数的类型,则该参数没有数据类型B.函数过程的返回值可以有多个C.当数组作为函数过程的参数时

25、,既能以传值方式传递,也能以引用方式传递D.函数过程形参的类型与函数返回值的类型没有关系 解析:14.窗体上有一个列表框和一个文本框,编写如下两个事件过程: Private Sub Form_Load() List1.Addltem“Beijing“ List1.Addltem“Tianjin“ List1.Addltem“Shanghai“, Text1.Text=“ End Sub Private Sub Listl_Dbl Click() x=Listl.Text Printx+Textl.Text End Sub 程序运行后,在文本(分数:2.00)A.China BeejingB.C

26、hina TianjinC.China ShanghaiD.Shanghai China 解析:15.在窗体(Name 属性为 Forml)上面添加两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Commandl),然后编写如下两个事件过程: Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text=“ Text2.Text=“ End Sub 程序运行后,在第 1 个文本(分数:2.00)A.4

27、44B.321123C.123321 D.132231解析:16.决定一个窗体有无控制菜单的属性是( )。(分数:2.00)A.MinBuRonB.CaptionC.MaxBuRonD.ControlBox 解析:17.要获取当前驱动器,应使用驱动器列表框的( )属性。(分数:2.00)A.PathB.Drive C.DirD.Pattern解析:18.下列叙述中正确的是( )。(分数:2.00)A.一个算法的空间复杂度大,则其时间复杂度也必定大B.一个算法的空间复杂度大,则其时间复杂度必定小C.一个算法的时间复杂度大,则其空间复杂度必定小D.上述三种说法都不对 解析:19.设有如下的用户定义

28、类型:Type Student number As String name As String age As Integer End Type 则以下正确引用该类型成员的代码是( )。 (分数:2.00)A.B. C.D.解析:20.在列表框中,当前被选中的列表项的序号由下列( )属性表示。(分数:2.00)A.ListB.IndexC.Listlndex D.Tablndex解析:21.如果要向工具箱加入控件和部件,可以利用“工程”菜单中的( )命令。(分数:2.00)A.引用B.部件 C.工程属性D.添加窗体解析:22.代数式 eXSin(30)2x/(x+y)Inx 对应的 Visual

29、 Basic 表达式是( )。(分数:2.00)A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Log(X) D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)解析:23.假定有以下函数过程: Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S,i,1)+s1 Nexti Fun=s1 End

30、Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() DimStrl As String,Str2 As Str(分数:2.00)A.abcdefgB.ABCDEFGC.gfedcbaD.GFEDCBA 解析:24.使用( )方法不能让控件获得焦点。(分数:2.00)A.通过 Tab 切换B.单击该控件C.使用 SetFocus 方法D.使用键盘上的方向键 解析:25.在 VB 中,过程共有三种,它们是( )。(分数:2.00)A.事件过程,子过程和函数过程 B.Sub 过程,函数过程和属性过程C.事件过程,函数过程和通用过

31、程D.Sub 过程,函数过程和通用过程解析:26.设组合框 Combol 中有 3 个项目,则以下能删除最后一项的语句是( )。(分数:2.00)A.Comb01.Removeltem TextB.Comb01.Removeltem2 C.Comb01.Removeltem 3D.Comb01.RemoveltemComb01.ListCount解析:27.关于 Image 控件和 PictureBox 控件的说明,其中错误的是( )。(分数:2.00)A.Image 控件和 Picture Box 控件都有 Picture 属性B.Image 控件和 Picture Box 控件都支持 Pr

32、int 方法 C.Image 控件和 Picture Box 控件都可以用 Load Picture 函数把图形文件装入控件中D.Image 控件和 Picture Box 控件都能在属性窗口装入图形文件,也都能在运行期间装入图形文件解析:28.文本框的 Scroll Bars 属性设置为非零值,却没有效果,原因是( )。(分数:2.00)A.文本框中没有内容B.文本框的 MultiLine 属性值为 False C.文本框的 MultiLine 属性值为 TureD.文本框的 Locked 属性值为 Ture解析:29.表达式 Sb(Len(“123“)+Str(77.7)的值为( )。(分

33、数:2.00)A.377.7B.377.7 C.80.7D.12377.7解析:30.单击一次命令按钮,下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dima As Integer,b As Integer,CASInteger a=2:b=3:c=4 PrintP2(c,b,A) End Sub PrivateFunctionPl(X As Integer,y As Intege;z As Integer) P1=2*x+y+3*Z End Function Priva(分数:2.00)A.21 B.19C.17D.34解析:31.在窗体上画四个

34、文本框(如下图所示), (分数:2.00)A.0 1 2 3 B.1 2 3 4C.0 1 3 2D.出错信息解析:32.假定有如下的窗体事件过程: Private Sub Form_Click() a$=“Microsoft Visual Basic“ b$=Right(a$,5) c$=Mid(a$,1,9) MsgBoxa$,34,b$,c$,5 End Sub 程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是( )。(分数:2.00)A.Microsoft VisualB.MicrosoftC.Basic D.5解析:33.以下关于窗体的描述中,错误的是( )。(分数:2.

35、00)A.执行 Unload Form1 语句后,窗体 Form1 消失,但仍在内存中 B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时,通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽解析:34.把窗体的 KeyPreview 属性设置为 True,然后编写如下事件过程: Private Sub Form_KeyPress(KeyAsciiASInteger) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch) PrintChr(KeyA

36、scii+2) End Sub 程序运行后,按键盘上的 A 键,则在窗体上显示的内容是( )。(分数:2.00)A.AB.BC.C D.D解析:35.下列关于事件方法说明错误的是( )。(分数:2.00)A.事件的方法不能响应某个事件B.事件的方法的实现步骤可以修改 C.事件的方法是预先规定好的D.用户可以直接调用 VisualBasic 所规定的方法解析:36.3 下面程序的运行结果是( )。Option Base 1 Private Sub Commandl_Crick() Dimx,y(3,3) x=Array(1,2,3,4,5,6,7,8,9) Fori=1 To 3 Forj=1

37、To 3 y(i,j)=(i*j) If(j=i)Then Printy(i,j);Nextj Print Nexti End Sub (分数:2.00)A.B.C.D. 解析:二、填空题(总题数:13,分数:26.00)37.填空题(每空)请将每一个空的正确答案写在答题卡上。注意:以命令关键字填空的必须拼写完整。(分数:2.00)_解析:38.欲打开各种 Visual Basic 窗口或显示工具栏,其对应的菜单命令均放置于主菜单项 1。的下拉菜单中。(分数:2.00)填空项 1:_ (正确答案:正确答案:视图)解析:39.代码窗口分为左右两栏,左边一栏称为 1,右边一栏称为过程框。(分数:2

38、.00)填空项 1:_ (正确答案:正确答案:对象框)解析:40.设有如下程序段:a$=“BeujingShanghai“ b$=Mid(a$,Instr(a$,“g“)+1)。 执行上面的程序段后,变量 b$的值为 1。(分数:2.00)填空项 1:_ (正确答案:正确答案:Shanghai)解析:41.把“Visual Basic 程序设计”添加到列表框 lstBooks 的语句为 1。(分数:2.00)填空项 1:_ (正确答案:正确答案:LsBooks.AddItem“Visual Basic 程序设计“)解析:42.数学公式(x+y)4 的 VB 算述表达式是 1。(分数:2.00)

39、填空项 1:_ (正确答案:正确答案:(x+y)4)解析:43.在命令按钮上释放鼠标按钮时,所触发的事件称为 1。(分数:2.00)填空项 1:_ (正确答案:正确答案:MouseUp 方法)解析:44.在工具栏的右侧还有两个栏,分别用来显示窗体的当前位置和大小,其单位为 twip,1 英寸等于 1。左边一栏显示的是窗体左上角的坐标,右边一栏显示的是窗体的长 X 宽。(分数:2.00)填空项 1:_ (正确答案:正确答案:1440twip)解析:45.Visual Basic 中的控件分为 3 类,它们是标准控件、 1 和可插入对象。(分数:2.00)填空项 1:_ (正确答案:正确答案:Ac

40、dve 控件)解析:46.用 Line Input 语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到 1 分隔符,即认为一行的结束。(分数:2.00)填空项 1:_ (正确答案:正确答案:Enter)解析:47.下列程序段的输出结果为 1。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer N=4 ForI=1 To N S1(I)=I L=N+i-I S2(I)=L NextI S3(5)=0 ForK=1 To N S3(K)=S1(K)*S2(K) S3(5)=S3(5)+S3(K) NextK PrintS1(3)=S1(

41、5);S1(2) PrintS2(4)=S3((分数:2.00)填空项 1:_ (正确答案:正确答案:3 0 2 1 4 20)解析:48.下面运行程序后,单击命令按钮,输出的结果是 1。Private Sub Commandl_clck() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# Fori=1 To 4 a(i)=i Nexti For i=3 To 6 b(i)=i Nexti s1=YAS(a) S2=YAS(b) Printt“s1=“;S1“S2=“;s2 End Sub(分数:2.00)填空项 1:_ (正确答案:正确答案:S1=24 S2=360)解析:49.下面程序运行的结果为 1 11 12 21 22 23 31 32 33 34 请在画线处填上适当的内容使程序完整。 Private Sub Form_Click() Call 13 End Sub Private Sub Pl6() End Sub Private Sub p16() ForI=1 to 4 Forj=1 to I a= 14 Print Tab(j-(分数:2.00)填空项 1:_ (正确答案:正确答案:p16,(I-1)*10+j)解析:

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试资料 > 职业资格

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1