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

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

1、二级 VISUAL+BASIC-79 及答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.设置复选框或单选按钮标题对齐方式的属性是_。（分数：2.00）A.AlignB.StyleC.SortedD.Alignment2.在窗体上添加“控件”的正确的操作方式是_。（分数：3.00）A.先单击工具箱中的控件图标，再单击窗体上适当位置B.先单击工具箱中的控件图标，再双击窗体上适当位置C.直接双击工具箱中的控件图标，该控件将出现在窗体上D.直接将工具箱中的控件图标拖动到窗体上适当位置3.在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Comm

2、and1 和 Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii)“Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String,i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(ss,i,1) Next Text1.Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令

3、按钮，则文本框中显示的是_。（分数：2.50）A.NUMBER 100B.REBMUNC.REBMUN 100D.001 REBMUN4.以下事件过程可以将打开对话框的标题改为“新时代”的是_。（分数：2.50）A.Private Sub Command2_Click()CommonDialog1.DialogTitle=“新时代“CommonDialog1.ShowOpenEnd SubB.Private Sub Command2_Click()Comm013Dialog1.DialogTifle=“新时代“CommonDialog1.ShowFontEnd SubC.Private Sub

4、 Command2_Click()CommonDialog1.DialogTitle=“新时代“CommonDialog1.ShowEnd SubD.Private Sub Command2_Click()CommonDiaIog1.DialogTitle=“新时代“CommonDialog1.ShowColorEnd Sub5.数据库管理系统中负责数据完整性、安全性定义的语言是_。（分数：2.00）A.数据定义语言B.数据管理语言C.数据操纵语言D.数据控制语言6.为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars属性设置为

5、_。（分数：1.00）A.0B.1C.2D.37.有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 30 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为（分数：1.00）A.12B.30C.24D.188.文本框 Text1 的 KeyDown 事件过程如下： Private Sub Text 1_KeyDown(KeyCode As I

6、nteger,Shift As Integer) End Sub 其中参数 KeyCode 的值表示的是发生此事件时( )。（分数：2.00）A.是否按下了Alt键或Ertl键B.按下的是哪个数字键C.所按的键盘键的键码D.按下的是哪个鼠标键9.假定在窗体上建立了一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框：CommonDialog1.Action=2 与该语句等价的语句是_。（分数：2.00）A.CommonDialog1.ShowOpenB.CommonDialog1.ShowSaveC.CommonDialog1.ShowColorD.Common

7、Dialog1.ShowFont10.Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X 和 Y 的值分别为 _。（分数：3.00）A.6, 8B.10, 10C.10, 8D.6, 1011.有下面程序代码： Pri

8、vate Sub Command1_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是_。（分数：1.00）A.15B.13C.4D.112.命令按钮 Command1 的单击事件过程如下： Private Sub Command1_Click() x=10 Printf(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是_。（分数：2.50）A

9、.程序运行出错，x 变量的类型与函数参数的类型不符B.在窗体上显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 1013.能够存放组合框的所有项目内容的属性是（分数：2.50）A.CaptionB.TextC.ListD.Selected14.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序： Private Type Record ID AS Integer Name As String*20 End Type Private Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open “d: /t

10、emp/female. txt“ For Input As #1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 MyChar=Input(1, #1) Next NextChar Print EOF(1) Close #1 End Sub 运行程序，单击命令按钮，其输出结果为_。（分数：2.50）A.TrueB.FalseC.0D.Null15.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.在程序运行状态下，通用对话框控件是不显示的B.通用对话框控件是 Visual Basic 的标准控件C.设计时，通用对话框控件的大小是固定的

11、，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框16.下面变量定义中错误的是（分数：2.50）A.Public mod As IntegerB.Static bufC.Dim ch As String*10D.Dim a!(-5 To -1)17.下列选项中不属于软件生命周期开发阶段任务的是_。（分数：2.50）A.软件测试B.概要设计C.软件维护D.详细设计18.在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=“VB Programming“ Tex

12、t2.Text=Text1.Text Text1.Text=“ABCD“ End Sub 程序运行后，单击命令按钮，Text1 文本框中显示的内容为_。（分数：2.00）A.“VB Programming“B.“ABCD“C.“VB Programming ABCD“D空19.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是 A B C D （分数：2.50）A.B.C.D.20.要使一个文本框可以显示多行文本，应设置为 True 的属性是（分数：2.00）A.EnabledB.MultiLineC.MaxLengthD.Width21.下列_是字符型常量。（分数：1.00）A.“I a

13、m a student“B.“江苏南京“C.#02/25/1999#D.123#22.假定 Picture1 和 Text1 分别为图片框和文本框的名称，则下列错误的语句是（分数：2.50）A.Print 25B.Picture1.Print 25C.Text1.Print 25D.Debug.Print 2523.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Cha

14、nge() Text2.Text=Mid(Text1.Text，6) End Sub 程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是_。（分数：2.50）A.ChinaBeijingB.ChinaC.BeijingD.ChinaB24.以下语句的输出结果是(在立即窗口中) a=27 CR (CR为回车， 表示空格，下同) b=65 CR Print a:b CR（分数：2.50）A.2765B.2765C.2765D.276525.唯一能区别一个控件的属性是 _。（分数：2.50）A.IndexB.TextC.NameD.Capt

15、ion26.下列运算符中，优先级别最高的是（分数：2.00）A.NotB.IsC. n=n/0 Wend Print End Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2 个数之和的每一位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是_。（分数：1.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As IntegerB.把 Cal

16、l pro(a+b)改为 pro a+bC.把 n=n/10 改为 n=n/10D.在 pro b 语句之后增加语句 c%=a+b，再把 Call pm(a+b)改为 pro c29.下列排序方法中，最坏情况下时间复杂度(即比较次数)低于 O(n 2 )的是_。（分数：1.00）A.快速排序B.简单插入排序C.冒泡排序D.堆排序30.窗体上有一个如下图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件_。 （分数：1.00）A.是图像框(Image)B.是图片框(PictureBox)C.是形状控件D.不是上述 3 种控件中的一种31.下列叙述中正确的是_。（分数：2.50）A.

17、不同的对象可以具有相同名称的方法B.“abcd“是一个合法的字符串常量C.语句 Dim a(1 To 6，-2 To 4) As Integer 定义数组时出错D.向随机文件中写数据时，既可用 Write #语句也可用 Put #语句32.以下自定义数据类型的语句中，正确的是 AType student ID As String * 20 name As String * 10 age As Integer End student BType student ID As String * 20 name As String * 10 age As Integer End Type CType

18、student ID As String name As String age As Integer End student CType ID As String * 20 name As String * 10 age As Integer End Type student （分数：2.50）A.B.C.D.33.在程序运行时，下面的叙述中正确的是（分数：2.50）A.用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B.用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C.只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D.装

19、入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程34.为了在形状控件中填充图案，应设置的属性是_。（分数：1.00）A.BorderColorB.BackStyleC.FillStyleD.BorderStyle35.下面程序的执行结果是_。 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka k=k+1 Print x; Loop End Sub（分数：1.00）A.31427B.111C.149D.000二、填空题(总题数：15，分数：28.00)36.在窗体上画一个名称为 Command1 的命令按钮，然

20、后编写如下事件过程： Privme Sub Command1_Click 1 n=5 f=1 s=0 For i=1 To n f=f _ 2_ s=s+f Next Print s End Sub 该事件过程的功能是计算 （分数：1.00）37.下列语句的输出结果是 _ 1_ 。 Print Format$(1258.6，“000，000.00“) （分数：1.00）38.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填上合适的代码，将程序补充完整。 Private Type Ang K As I

21、nteger Sinx As Single Cosx As Single End Type 1“定义 Ang 类型的变量 Ksc Private Sub Form_Click() Dim Y As Single Open “C:/Data1.txt“For Random As #1 Len=10 Put #l, 1, Ksc Y=3.14159/180 For i=1 To 90 Ksc.K = i 2 = Sin(i * Y)“给变量 Ksc 的正弦函数值赋值 Ksc. Cosx=Cos(i * Y) Next i Close #1 End Sub （分数：2.00）39.面向对象的模型中，

22、最基本的概念是对象和 _ 1_ 。 （分数：1.00）40.下列语句的输出结果是 1。 Print Format$(1258.6，“000,000.00“) （分数：2.00）41.在命令按钮上释放鼠标按钮时，所触发的事件称为 1。 （分数：2.00）42.在数据库系统中，实现各种数据管理功能的核心软件称为 1。 （分数：2.00）43.在 Visual Basic 的中断模式下，要想“逐语句”调试程序，可按 1 键；要想“逐过程”调试程序，可按 2 键。 （分数：1.00）44.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private Sub Fo

23、rm_Click() Dim i As Integer Open“Num.txt“For Output As #1 For i=1 To 8 1 Next Close #1 End Sub （分数：2.00）45.在窗体上有 1 个名称为 Command1 的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click() Dim p As Integer p=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer Fork=1 T

24、o n s=s+1 Next m=s End Function 运行程序，单击命令按钮 Command1 后的输出结果为 1。 （分数：2.00）46.在链表的运算过程中，能够使空表与非空表的运算统一的结构是 1。 （分数：2.00）47.在文本框中，通过 1，属性能获得当前插入点所在的位置。 （分数：2.00）48.实现算法所需的存储单元多少和算法的工作量大小分别称为算法的 _ 1_ 。 （分数：2.00）49.下列程序用于在带垂直滚动条的文本框 Text1 中输出 3 到 100 之间的全部素数。请填空。 Private Sub Command1_click() Text1.Text=“

25、For n=3 to 100 k=Int(Sqr(n) i=2 Flag=0 Do While i= 1And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop Lf 2Trhen Text1.Text=Text1.Text Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X 和 Y 的值分别为 _。（分数：3.00）A.6, 8B.10, 10C.10, 8D.6, 10 解析：解析 事件发生时，

26、首先定义两个变量 X，Y 并给他们赋值 6 和 8。然后调用过程 ABC，在过程ABC 中有两个形参 X，Y。X 是按值传递，Y 是按地址传递，所以在 ABC 过程中，对形参 x 的修改并不影响对应的实参 x，但对形参 Y 的修改将影响到相应的实参 Y。所以过程调用后，输出的 X、Y 值分别为6、100。11.有下面程序代码： Private Sub Command1_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是_。（分数：1.00）A.15B.

27、13C.4 D.1解析：解析 Mod 为求余函数。For 循环执行 5 次。第一次执行时 a Mod k 的值为 0，则 s=0，a=4；循环继续直到 k=5 退出。分步计算可得最后 s=4，选 C。12.命令按钮 Command1 的单击事件过程如下： Private Sub Command1_Click() x=10 Printf(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是_。（分数：2.50）A.程序运行出错，x 变量的类型与函数参数的类型不符 B.在窗体上显示 100C.

28、函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 10解析：解析 变量 x 在按钮单击事件过程中没有定义，因此系统自动将它定义为 Variant 类型，由于过程中参数类型为 Integer，因此程序运行时会提示“ByRef 参数类型不符”的错误信息，故 A 选项正确。只在按钮事件中加上 Dim x asInteger 就可以解决问题，或者 f 过程中的 y as Integer 改为 ByVal y as Integer 也可以解决此问题。13.能够存放组合框的所有项目内容的属性是（分数：2.50）A.CaptionB.TextC.List D.Selected解析：解析 本题考查的考

29、点是组合框的基本属性。Caption 属性设置列表框的标题；List 属性是一个数组，存放组合框中所有项目的内容；Text 属性可返回列表框中当前选中项目的内容；Selected 属性用于设置或返回指定索引号列表项的选中状态。14.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序： Private Type Record ID AS Integer Name As String*20 End Type Private Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open “d: /temp/female. txt“ F

30、or Input As #1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 MyChar=Input(1, #1) Next NextChar Print EOF(1) Close #1 End Sub 运行程序，单击命令按钮，其输出结果为_。（分数：2.50）A.True B.FalseC.0D.Null解析：解析 程序中以顺序输入方式打开 d:/temp/female.txt 文件。LOF 函数取得打开文件的长度。EOF 函数用来测试文件的结束状态。根据文件长度值，利用 Input 函数逐一取出文件中的字符，每读取一个字符，文件指针自动下移

31、，指向下一个字符。当执行最后一次循环时，Input 函数读取了最后一个字符，文件指针再向下移动就会指向文件的结尾。因此当 EOF 函数测试文件结束状态时，就会返回 True。对于逻辑值，Print 语句会直接输出 True。因此答案为 A。15.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.在程序运行状态下，通用对话框控件是不显示的B.通用对话框控件是 Visual Basic 的标准控件 C.设计时，通用对话框控件的大小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框解析：解析 通用对话框是一个 ActiveX 控件，不是标准控件，故 B

32、 选项错误。16.下面变量定义中错误的是（分数：2.50）A.Public mod As Integer B.Static bufC.Dim ch As String*10D.Dim a!(-5 To -1)解析：解析 定义变量时需要使用 As 类型或者类型说明符来指明变量的数据类型，如果不指明则为隐式声明，该变量为变体型；mod 是关键字表示求余运算，根据标识符命名规则不能作为变量名。17.下列选项中不属于软件生命周期开发阶段任务的是_。（分数：2.50）A.软件测试B.概要设计C.软件维护 D.详细设计解析：解析 软件生命周期分为软件定义、软件开发及软件维护。其中软件开发阶段的任务中软件设

33、计阶段可分解成概要设计阶段和详细设计阶段；软件维护不属于软件开发阶段。18.在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=“VB Programming“ Text2.Text=Text1.Text Text1.Text=“ABCD“ End Sub 程序运行后，单击命令按钮，Text1 文本框中显示的内容为_。（分数：2.00）A.“VB Programming“B.“ABCD“ C.“VB Programming ABCD“D空解析：19.如果要在窗体上画一个标签，应在工具箱

34、窗口中选择的图标是 A B C D （分数：2.50）A.B. C.D.解析：解析 本题考查对控件工具箱的熟悉程度，选项 A 代表文本框、选项 B 代表标签、选项 C 代表命令按钮、选项 D 代表形状。20.要使一个文本框可以显示多行文本，应设置为 True 的属性是（分数：2.00）A.EnabledB.MultiLine C.MaxLengthD.Width解析：解析 MultiLine 用来设定文本框的显示方式。默认值为 False，此时文本框中输入数据和显示的结果都是单行的。若将其值设为 True，则可以在文本框中实现多行文本的输入和多行文本的显示。21.下列_是字符型常量。（分数：1

35、.00）A.“I am a student“ B.“江苏南京“C.#02/25/1999#D.123#解析：22.假定 Picture1 和 Text1 分别为图片框和文本框的名称，则下列错误的语句是（分数：2.50）A.Print 25B.Picture1.Print 25C.Text1.Print 25 D.Debug.Print 25解析：解析 Print 方法可以在窗体上显示文本字符串和表达式的值，并且可以在图片框、立即窗口或打印机上输出这些信息，但是不能在文本框中输出。23.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub F

36、orm_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，6) End Sub 程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是_。（分数：2.50）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：解析 程序运行后，在文本框 Text.1 中输入字符后，会触发它的 Change 事件，通过中部截取函数 Mid 把文本框 T

37、ext1 中的内容从第 6 个字符“B”开始截取后面的字符，得到“Beijing”字符串，然后把截取的字符串在 Text2 中显示出来。因此 C 选项正确。24.以下语句的输出结果是(在立即窗口中) a=27 CR (CR为回车， 表示空格，下同) b=65 CR Print a:b CR（分数：2.50）A.2765B.2765C.2765D.2765 解析：25.唯一能区别一个控件的属性是 _。（分数：2.50）A.IndexB.TextC.Name D.Caption解析：解析 在程序中每个控件都有个名字，控件的名字也是它们互相区别的唯一标志。26.下列运算符中，优先级别最高的是（分数：

38、2.00）A.NotB.IsC. n=n/0 Wend Print End Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2 个数之和的每一位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是_。（分数：1.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As Integer B.把 Call pro(a+b)改为 pro a+bC.把

39、n=n/10 改为 n=n/10D.在 pro b 语句之后增加语句 c%=a+b，再把 Call pm(a+b)改为 pro c解析：解析 在过程定义中过程的形式参数定义时如果没有 ByVal 指明参数的传递方式，那么默认为地址传递，这样过程中对形参的改变将影响到实参的值。本程序中过程定义语句 Private Sub pro(n As Integer)说明形参 n 为按地址传递的，而在过程内语句 n=n/10 改变了形参的值，因此，a、b 的值就不再是最初输入的值了，表达式 a+b 就不是期望的两个输入数的和。因此得不到正确结果。 只要把 Private Sub pro(n As Integ

40、er)改为 Private Sub pro(ByVal n As Integer)，程序即可得到正确结果，因此 A 选项正确。29.下列排序方法中，最坏情况下时间复杂度(即比较次数)低于 O(n 2 )的是_。（分数：1.00）A.快速排序B.简单插入排序C.冒泡排序D.堆排序 解析：解析 对长度为 n 的线性表排序，下表为常用排序方法最坏情况的时间复杂度。 方法 最坏情况时间 冒泡排序 O(n 2 ) 简单插入排序 O(n 2 ) 简单选择排序 O(n 2 ) 快速排序 O(n 2 ) 堆排序 O(nlog 2 n) 时间复杂度低于 O(n 2 )的排序算法是堆排序，D 选项正确。30.窗体

41、上有一个如下图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件_。 （分数：1.00）A.是图像框(Image)B.是图片框(PictureBox) C.是形状控件D.不是上述 3 种控件中的一种解析：解析 图片框是“容器”控件，可以作为父控件，而图像框不能。图片框可以通过 Print 方法接收文本，并可接收由像素组成的图形，而图像框不能接收 Print 方法输入的信息，也不能用绘图方法在图像框上绘制图形。而形状控件 3D 效果的样式，根据题目图示显然不是形状控件。因此这个图形控件是图片框。31.下列叙述中正确的是_。（分数：2.50）A.不同的对象可以具有相同名称的方法 B.

42、“abcd“是一个合法的字符串常量C.语句 Dim a(1 To 6，-2 To 4) As Integer 定义数组时出错D.向随机文件中写数据时，既可用 Write #语句也可用 Put #语句解析：解析 字符串常量由字符组成，可以是双引号和回车符以外的任何 ASCII 字符，选项 B 中应该用一对双引号括起来。选项 C 所定义的数组正确，Write#语句的功能是向顺序文件写入记录，Put#语句的功能是把“变量”的内容写入由“文件”号所指定的磁盘文件中，故本题正确选项为 A。32.以下自定义数据类型的语句中，正确的是 AType student ID As String * 20 name

43、 As String * 10 age As Integer End student BType student ID As String * 20 name As String * 10 age As Integer End Type CType student ID As String name As String age As Integer End student CType ID As String * 20 name As String * 10 age As Integer End Type student （分数：2.50）A.B. C.D.解析：解析 Type 语句用于在模块

44、级别中定义一个用户自己的数据类型，其本质上是一个数据类型集合，它含有一个或一个以上的元素，每个元素可以被定义为不同的数据类型。自定义类型中的元素可以是变长字符串，也可以是定长字符串。但在随机文件中使用时，必须使用定长字符串，一般格式为：String*常数。其中，“常数”是用于指定字符串长度的数。33.在程序运行时，下面的叙述中正确的是（分数：2.50）A.用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B.用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C.只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程 D.装入窗体后，每次

45、显示该窗体时，都会执行窗体的 Form_Click 事件过程解析：解析 窗体的 Click(单击)事件在程序运行时单击窗体内的某个无其它控件的部位时发生；窗体的 Load(装载)事件在一个窗体被装载时发生，常用于在程序启动时对属性和变量进行初始化，该条件与窗体是否显示无关。34.为了在形状控件中填充图案，应设置的属性是_。（分数：1.00）A.BorderColorB.BackStyleC.FillStyle D.BorderStyle解析：解析 FillStyle 属性的设置值决定了形状控件内部的填充图案，可以取以下 8 种值。 0-Solid(实心)1-Transparent(透明)2-H

46、orizontal Line(水平线)3-Vertical Line(垂直线)4-Upward Diagonal(向上对角线)5-Downward Diagonal(向下对角线)6-Cross(交叉线)7-Diagonal Cross(对角交叉线)故 C 选项正确，所以答案为 C 选项。35.下面程序的执行结果是_。 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka k=k+1 Print x; Loop End Sub（分数：1.00）A.31427B.111 C.149D.000解析：解析 a=0，x=kka=(kk)0=1。循环

47、执行 3 次后，k=4，循环结束，所以一共输出 3 个 1。二、填空题(总题数：15，分数：28.00)36.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click 1 n=5 f=1 s=0 For i=1 To n f=f _ 2_ s=s+f Next Print s End Sub 该事件过程的功能是计算 （分数：1.00）解析：/i 或*1/i解析 根据已给的等式37.下列语句的输出结果是 _ 1_ 。 Print Format$(1258.6，“000，000.00“) （分数：1.00）解析：001，258.

48、60 解析 Formats()为格式输出函数，格式为： Formats(数值表达式，“格式字符串”) 其功能是：按“格式字符串”指定的格式输出“数值表达式”的值。如果省略了“格式字符串”，则把“数值表达式”的值转换为一个字符串原样输出；在本题中， 1258.6 将按 000，000.00 的格式输出，即输出结果为： 001，258.60。38.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填上合适的代码，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type 1“定义 Ang 类型的变量 Ksc Private Sub Form_Click() Dim Y As Single Open “C:/Data1.txt“For Random As #1 Len=10 Put #l, 1, Ksc Y=3.14159/180 For i=1 To 90 Ksc.K = i 2 = Sin(i * Y)“给变量 Ksc 的正弦函数值赋值 Ksc. Cosx=Cos(i