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

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

1、二级 VISUAL+BASIC 笔试-230 及答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列叙述中，不符合良好程序设计风格要求的是（分数：2.00）A.程序的效率第一，清晰第二B.程序的可读性好C.程序中要有必要的注释D.输入数据前要有提示信息2.编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) P

2、rint Chr(KeyAscii) End Sub在一般情况下(即不按住“Shift“键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是) A ) a ) A ) aA A a a（分数：2.00）A.B.C.D.3.数据处理的最小单位是（分数：2.00）A.数据B.数据元素C.数据项D.数据结构4.单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click() Print Fun(23，18) End SubPublic Function Fun(m As Integer，n As Integer) As IntegerDO While mnDO

3、While mn:m=m-n:LoopDO While mn:n=n-m:LoopLoopFun=mEnd Function（分数：2.00）A.0B.1C.3D.55.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应使用的语句是（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False6.在窗体上有一个文本框控件，名称为 TextTime；一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。程序为：Private

4、 Sub Timer1_TxtTime.text=TimeEnd Sub在下画线上应填入的内容是（分数：2.00）A.EnabledB.VisibleC.IntervalD.Time7.在窗体上画一个命令按钮 Command1 和两个文本框，名称分别为 Text1 和 Text2。编写如下两个事件过程：Dim Str1 As String，str2 As StringPrivate Sub form_load() Text1.Text=“Text2.Text=“Text1.Enabled=FalseText2.Enabled=FalseEnd SubPrivate Sub Form_KeyPr

5、ess(KeyAscii As Integer) str1=str1 arr(n) End Sub程序的运行结果为（分数：2.00）A.3 11B.11 3C.13 3D.3 1310.有如下程序：Private Sub Form_Click() Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i Mod 20 And i Mod 3=0 ThenSum=Sum+iEndIfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为（分数：2.00）A.12B.30C.24D.1811.关闭当前的工程并退出 Visual B

6、asic 的快捷键是（分数：2.00）A.“Alt+B”B.“Alt+Q”C.“Alt+Shift”D.“Alt+A”12.下面的属性中，用于自动调整图像框中图形内容的大小的是（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch13.在程序运行期间可以将图形载入窗体、图片框或图像框的函数是（分数：2.00）A.DrawStyleB.AutoSizeC.PasswordCharD.LoadPicture14.以下用户自定义函数Function Func(a As Integer，b As Integer) As IntegerStatic m As Int

7、eger，i As Integerm=0:i=2i=i+m+im=i+a+bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integerk=4:m=1P=Func(k,m) Print pEnd Sub程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8B.9C.10D.1115.一个关系中属性个数为 1 时，称此关系为（分数：2.00）A.对应关系B.单一关系C.一元关系D.二元关系16.软件生命周期中所花费用最多的阶段是

8、（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护17.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程：PrivateSub Form_Load() List1.AddItem “Item1“List1.AddItem “Item2“List1.AddItem “Item3“End SubPrivate Sub Command1_Click() List1.List(List1.Listcount) =“AAAA“End Sub程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但

9、位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item3“的后面)C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“Item1“的前面)18.下列说法正确的是（分数：2.00）A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框是由用户根据自己需要定义的C.预定义对话框是用户在设置程序代码后定义的D.MsgBox 函数是用户的自定义对话框的函数19.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序：Private Sub Command

10、1_Click() Dim x，y，z As Integerx=5y=7z=0Text1.Text=“Call Fun1(x，y，z) Text1.Text=Str(z) End SubSub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer) c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.0B.12C.Str(z)D.没有显示20.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统C.模拟模D.软件工程21.表达式 Right(“Beijing“，4)的值是（分数

11、：2.00）A.BeijB.jingC.eijiD.ijin22.确定复选框是否选中，可访问的属性是（分数：2.00）A.ValueB.CheckedC.SelectedD.Caption23.在深度为 5 的满二叉树中，叶子节点的个数为（分数：2.00）A.32B.31C.16D.1524.在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为Private Sub Comand1_Click() For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+5NextNextNextPrint xEnd Sub（分数：2.00）A.1

12、3B.26C.30D.4025.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述C.软件层次结构D.软件开发过程26.下列程序段的执行结果为m=2n=3Dom=m+nn=n+1Loop While m10Print m;n（分数：2.00）A.1 5B.14 6C.a bD.10 2527.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer) As IntegerIf X20 ThenY=XElseY=

13、20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=FalseEnd SubPdvate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=TrueEnd SubPrivate Sub Command1_Click() Dim intNum As IntegerintNum=InputBox(“) If

14、SW ThenPrint func(intNum) End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 25C.输出 45D.无任何输出28.能够将 Picture 对象 Pic1 加载当前目录中的 face.bmp 的语句是（分数：2.00）A.Pic1.Picutre=LoadPicture(App.path arr(n) End Sub程序的运行结果为（分数：2.00）A.3 11B.11 3 C.13 3D.3 13解析：解析 在给数组赋值时，如果每次都是赋给数组中同一个成员，那么

15、后面的赋值将覆盖以前的值。10.有如下程序：Private Sub Form_Click() Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i Mod 20 And i Mod 3=0 ThenSum=Sum+iEndIfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为（分数：2.00）A.12 B.30C.24D.18解析：解析 本题考查的是 For 循环语句和 If 条件语句的应用。从本题可以看出，本题程序段的作用是将从 210 中不是 2 的倍数但是 3 的倍数的数相加然后输出。在 210 中满足条件的数字

16、是 3 和 9，所以和是 12。11.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.“Alt+B”B.“Alt+Q” C.“Alt+Shift”D.“Alt+A”解析：解析 “Alt+Q”关闭当前的工程并退出 VisualBasic。12.下面的属性中，用于自动调整图像框中图形内容的大小的是（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：解析 Picture 属性用于窗体、图片框和图像框中，它可以通过属性窗口设置把图形放到这些对象中，因此选项 A)是不正确的；CurrentX 和 CurrentY 用来设置下

17、一个输出的水平坐标和垂直坐标，因此选项 B)和 C)都不正确；Stretch 属性用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为 True 或 False，当其值为 False 时，将自动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项 D)是正确的。13.在程序运行期间可以将图形载入窗体、图片框或图像框的函数是（分数：2.00）A.DrawStyleB.AutoSizeC.PasswordCharD.LoadPicture 解析：解析 LoadPicture 函数用于在程序运行期间对窗体、图片框或图像框的 Picture 属性赋值、加

18、载图形文件，它的格式为：对象.Picture=LoadPicture(“文件名“) 。当默认文件名为空时，清空所指定对象中的图形；PasswordChar 是用于决定文本的显示方式的，不正确；Drawstyle 决定外观。14.以下用户自定义函数Function Func(a As Integer，b As Integer) As IntegerStatic m As Integer，i As Integerm=0:i=2i=i+m+im=i+a+bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim

19、 k As Integer，m As Integer，p As Integerk=4:m=1P=Func(k,m) Print pEnd Sub程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8 B.9C.10D.11解析：解析 变量；的计算过程为 i=2+0+1=3，变量 m 的计算过程为 m=3+4+1=8，m 的值通过子函数名Fun c 返回。15.一个关系中属性个数为 1 时，称此关系为（分数：2.00）A.对应关系B.单一关系C.一元关系 D.二元关系解析：解析 在关系模型数据库中，基本结构是二维表，这种二维表称为关系。关系的列称为属性，一个具有 N 个属性的关系称为 N

20、元关系。16.软件生命周期中所花费用最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护 解析：解析 软件生命周期分为软件定义、软件开发及软件运行维护 3 个阶段。本题中，详细设计、软件编码和软件测试都属于软件开发阶段。维护是软件生命周期的最后一个阶段，也是持续时间最长，花费代价最大的一个阶段，软件工程学的一个目的就是提高软件的可维护性，降低维护的代价。17.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程：PrivateSub Form_Load() List1.AddItem “Item1“List1.Add

21、Item “Item2“List1.AddItem “Item3“End SubPrivate Sub Command1_Click() List1.List(List1.Listcount) =“AAAA“End Sub程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item3“的后面) C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“Item1“的前面)解析：解析 列表框的 list 属性用来列出列表项的内容，也可以改变数组中的已有值。列表

22、框中列表项的排列是从 O 开始，最后项的序号为 ListCount-1，该题语句的作用足把字符串“AAAA“添加到列表框的最后，但不改变 Item3 的值，所以本题的正确答案是选项 B)。18.下列说法正确的是（分数：2.00）A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框是由用户根据自己需要定义的 C.预定义对话框是用户在设置程序代码后定义的D.MsgBox 函数是用户的自定义对话框的函数解析：解析 在 Visual Basic 中，对话框分为 3 种类型：即预定义对话框、自定义对话框和通用对话框，所以选项 A)不正确；预定义对话框也称预

23、制对话框，是由系统提供的，Visual Basic 系统提供了两种预定义对话框：即输入框和信息框(或消息框)，前者用 InputBox 函数建立，后者用 MsgBox 函数建立，所以选项 C)和选项 D)不正确；自定义对话框也称定制对话框，这种对话框由用户根据自己的需要进行定义，输入框和信息框尽管很容易建立，但在应用上有一定的限制，所以选项 B)是正确的；通用对话框是一种控件，用这种控件可以设计较为复杂的对话框。19.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序：Private Sub Command1_Click() Dim x，y，

24、z As Integerx=5y=7z=0Text1.Text=“Call Fun1(x，y，z) Text1.Text=Str(z) End SubSub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer) c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.0B.12 C.Str(z)D.没有显示解析：解析 过程 Fun1 的参数 c 是按地址传递的(ByRef，默认的传递方式) ，而 Fun1 用语句CallFun1(x，y，2) 调用后，形参 c 的值为 12，则实参 z 的值

25、亦为 12。20.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统 C.模拟模D.软件工程解析：解析 数据库管理系统(Database Management System，简称 DBMS)是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等。数据库管理系统是数据库系统的核心。21.表达式 Right(“Beijing“，4)的值是（分数：2.00）A.BeijB.jing C.eijiD.ijin解析：解析 Risht$(字符串，n) 是返回“字符串”的最后 n 个字符。22.确定复选框是否选中，可访问的属性是（分数：2.00）A

26、.Value B.CheckedC.SelectedD.Caption解析：解析 复选框 CheckBox 控件的 Value 属性用来返回或设置控件状态(0 未选中；1 选中；2 灰色) 。23.在深度为 5 的满二叉树中，叶子节点的个数为（分数：2.00）A.32B.31C.16 D.15解析：解析 满二叉树是指除最后一层外，每一层上的所有节点都有两个叶子节点。在满二叉树中，层上的节点数都达到最大值，即在满二叉树的第 A 层上有 2k-1个节点，且深度为 m 的满二叉树有 2m-1 个节点。24.在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为Private

27、 Sub Comand1_Click() For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+5NextNextNextPrint xEnd Sub（分数：2.00）A.13 B.26C.30D.40解析：解析 本题考查多重 For 循环结构。做题时要注意每次循环时变量的初始值。25.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述 C.软件层次结构D.软件开发过程解析：解析 软件设计包括软件结构设计、数据设计、接口设计和过程设计。其中，结构设计是定义软件系统各主要部

28、件之间的关系；数据设计是将分析时创建的模型转化为数据结构的定义；接口设计是描述软件内部、软件和操作系统之间及软件与人之间如何通信；过程设计则是把系统结构部件转换成软件的过程性描述。26.下列程序段的执行结果为m=2n=3Dom=m+nn=n+1Loop While m10Print m;n（分数：2.00）A.1 5B.14 6 C.a bD.10 25解析：解析 此题内容比较简单，开始 m 为 2，n 为 3，执行 Do 语句，具体运行为：执行 m=m+n；n=n+1语句后，m 为 5，n 为 4。这样运行到 m=14，程序终止循环，此时 n=6。27.在窗体上画一个名称为 Command1

29、 的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer) As IntegerIf X20 ThenY=XElseY=20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=FalseEnd SubPdvate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Sin

30、gle) SW=TrueEnd SubPrivate Sub Command1_Click() Dim intNum As IntegerintNum=InputBox(“) If SW ThenPrint func(intNum) End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 25C.输出 45 D.无任何输出解析：解析 本题考查的是鼠标事件，当按下鼠标左键(发生 MouseDown 时)，SW 的值为 False，当松开鼠标左键(触发 MouseUp 时)，SW 的值为 True

31、。28.能够将 Picture 对象 Pic1 加载当前目录中的 face.bmp 的语句是（分数：2.00）A.Pic1.Picutre=LoadPicture(App.path & “face.bmp“) B.Pic1.LoadPieture(App.path & “face.bmp“)C.Picutre1.Pieutre=LoadPicture(App.path & “face.bmp“)D.Picutre1.LoadPicture(App.path & “face.bmp“)解析：解析 LoadPicture 是 Visual Basic 的函数，不是图片对象的方法，因此选项 B 和

32、D 是错误的。图片的 Picture 属性必须用 LoadPicture 函数才能加载图片。本题中图片对象的名称为 Pic1，而不是默认的 Picture1，因此正确答案是选项 A) 。29.为了提高测试的效率，应该（分数：2.00）A.随机选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.集中对付那些错误群集的程序 解析：解析 测试的目的是发现软件中的错误。经验表明，程序中存在错误的概率与该程序中已发现的错误成正比。这一现象说明，为了提高测试效率，测试人员应该集中对待那些错误群集的程序。30.以下语句用于打开一个顺序文件 Open “C:/MyFile.

33、txt“ For OutPut，但是该语句的一个重要错误是没有（分数：2.00）A.指定打开方式B.指定文件号 C.指定打开文件名D.指定文件类型解析：解析 打开顺序文件时，一定要指定一个文件号才能打开，否则出错。31.以下不是面向对象思想中的主要特征的是（分数：2.00）A.多态B.继承C.封装D.垃圾回收 解析：解析 面向对象思想中的 3 个主要特征是：封装性、继承性和多态性。32.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.00）A.GotFocus 事件B.Click 事件C.Change 事件 D.DblClick 事件解析：

34、解析 文本框 Change 事件在用户改变正文或通过代码改变 Text 属性的设置时发生。33.下列程序运行后的输出结果是Function Fun(n) X=n*nFun=x-11End FunctionPrivate Sub Command1_Click() For k=1 To 2y=Fun(k):Print yNextEnd Sub（分数：2.00）A.-10 -7 B.10 8C.1 3D.0 4解析：解析 本题的难点是子函数过程的调用。子函数过程的名称变量 Fun 将计算结果返回。34.将一个窗体设置为 MDI 子窗体的方法是（分数：2.00）A.将窗体的名称改为 MDIB.将窗体的

35、 MDIChild 属性设为 True C.将窗体的 MDIChild 属性设为 FalseD.将窗体的 Enabled 属性设为 False解析：解析 MDIChild 属性返回或设置一个值，它表示一个窗体是否被作为 MDI 子窗体在一个 MDI 窗体内部显示，在运行时是只读的。35.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为 M1。设窗体 Form1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代码：Prinvate Sub M1_Click(Index As Integer) Form1.Caption=“myform2“End Su

36、b运行时，单击按钮数组中的第 1 个按钮，窗体标题为（分数：2.00）A.Form1B.MIC.myform1D.myform2 解析：解析 数组控件在不区别控件下标时，单击任一按钮都会改变窗体标题。二、填空题(总题数：14，分数：28.00)36.软件定义时期主要包括 1 和需求分析两个阶段。（分数：2.00）填空项 1:_ （正确答案：可行性研究）解析：解析 软件生命周期一般包括可行性研究与需求分析、设计、实现、测试、交付使用以及维护等。另外还可以将软件生命周期分为三个阶段：软件定义阶段：可行性研究和需求分析；软件开发阶段：设计、实现和测试；软件运行维护阶段：交付使用和维护。37.软件维护

37、活动包括：改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00）填空项 1:_ （正确答案：完善性）解析：解析 软件维护活动包括：改正性维护、适应性维护、完善性维护和预防性维护。改正性维护是指在软件交付使用后，为了识别和纠正软件错误，改正软件性能上的缺陷，排除实施中的误使用，应当进行的诊断和改正错误的过程；适应性维护是指为了使软件适应变化，而去修改软件的过程；完善性维护是指为了满足用户对软件提出的新功能与性能要求，需要修改或再次开发软件，以扩充软件功能、增强软件性能、改进加工效率、提高软件的可维护性；预防性维护是为了提高软件的可维护性、可靠性等，为以后的进一步改进软件打下良好基础。

38、38.数据的逻辑结构有线性结构和 1 两大类。（分数：2.00）填空项 1:_ （正确答案：非线性结构）解析：解析 数据的逻辑结构有线性结构和非线性结构两大类。39.某二叉树中度为 2 的节点有 n 个，则该二叉树中有 1 个叶子节点。（分数：2.00）填空项 1:_ （正确答案：n+1）解析：解析 在任意一棵二叉树中，度为 0 的节点(即叶子节点)总是比度为 0 的节点多一个。40.在 E-R 图中，矩形表示 1。（分数：2.00）填空项 1:_ （正确答案：实体）解析：解析 在 E-R 图中用矩形表示实体；椭圆形表示属性；菱形表示联系。41.在窗体上画两个文本框和一个命令按钮，然后在代码窗

39、口中编写如下事件过程：Private Sub Command1_Click() Text1.Text=“VB Programming“Text2.Text=Text1.TextText1.Text=“ABCD“End Sub程序运行后，单击命令按钮，Text1 文本框中显示的内容为_。（分数：2.00）填空项 1:_ （正确答案：ABCD）解析：解析 Text1 中的值被赋到 Text2 中，Text1 中的值被重新赋值为 ABCD。42.在窗体上有一个名称为 Label1 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Lab

40、e1 中显示所选中的项目，如图 2.2 所示。请在空白处填入适当的内容，将程序补充完整。（分数：2.00）填空项 1:_ （正确答案：List1.Text）解析：解析 双击事件为 DblClick；ListBox 的 Text 属性返回当前列表项的文本。43.当对象得到焦点时，会触发 GotFocus 事件，当对象失去焦点时将触发 1 事件。（分数：2.00）填空项 1:_ （正确答案：LostFocus）解析：解析 在 Visual Basic 中，当对象得到焦点时，它可以接收用户的输入；当得到焦点时会触发GotFocus 事件，当失去焦点时会触发 LostFocus 事件。44.下列事件过

41、程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1 2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TyPeDim Ksc As AngPrivate Sub Form_Click() Dim Y As SingleOpen “c:/Data1.txt“ For Random As #2 Len=10Y=3.14159/180For i=1 T0 90Ksc.K=iKsc.Sinx=Sin(i*Y) Ksc.Co

42、sx=Cos(i*Y) _NextClose #2End Sub（分数：2.00）填空项 1:_ （正确答案：“C:/Data1.txt” For Random As #2 Len=10）解析：解析 打开一个随机文件的一般格式为：“Open “文件名称“ For Random As #文件号Len=记录长度”45.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度：1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private TyPe AngK As IntegerSinx As SingleCosx As Single