1、二级 VISUAL+BASIC-24-2 及答案解析(总分：71.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：62.00)1.执行下面的程序，单击命令按钮后，窗体中的输出结果是 _。Private Sub Cotomand1_Click()Ch$=“Welcome Home!“a=Len(ch$)For i= 1 To ab$ = Mid(ch$， i 1)If b$ = “m“ Then m = m + 1Next 1Print mEnd Sub A.2 B.3 C.1 D.0（分数：3.00）A.B.C.D.2.下列程序段的执行结果为_。Private Sub Com
2、mand1_Click()a=1：b=1Select Case aCase 1Select Case bCase 0Print “你好!“Case 1Print “Hello!“End SelectCase 2Print“谢谢使用!“End SelectEnd Sub A.你好! B.谢谢使用! C.Hello! D.你好!谢谢使用!（分数：2.00）A.B.C.D.3.下列叙述中不正确的是_。 A. 变量名中的第一个字符必须是字母 B. 变量名的长度不超过 255 个字符 C. 变量名可以包含小数点或者内嵌的类型声明字符 D. 变量名不能使用关键字（分数：2.00）A.B.C.D.4.声明一
3、个变量为局部变量应该用 A. Global B. Private C. Static D. Public（分数：2.00）A.B.C.D.5.下列是一个循环结构的程序，循环体内的语句将执行的次数是k=0For i=1 to 100For j=1 to 10k=k+1NextNext A. 0 B. 10 C. 100 D. 1000（分数：2.00）A.B.C.D.6.假定编写了如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single)If Button=2 The
4、nPrint “aaaa“End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 A. 左键 B. 右键 C. 同时按下左、右键 D. 按什么键都不显示（分数：1.00）A.B.C.D.7.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 A. Value B. Default C. Calicel D. Enabled（分数：2.00）A.B.C.D.8.下列程序运行后在立即窗口输出结果是( )。Private Sub Form_Click()x=“a“:y=“b“z=1:u=2Debug.
5、Print x; y, z; uDebug. Print z; x, y; uEnd Sub A. a b 1 2 1 ab 2 B. a b 1 2 1 a b 2 C. a b 1 2 1 a b 2 D. a b 1 2 1 a b 2（分数：2.00）A.B.C.D.9.如果 Tab 函数的参数小于 1，则打印位置在第_列。 A. 0 B. 1 C. 2 D. 3（分数：2.00）A.B.C.D.10.下列程序的执行结果为U /UPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=20Call Value(X,
6、y)Print x;yEnd SubPrivate Sub Value(ByVal m As Integer,ByVal n As Integer)m=m * 2:n=n-5Print m; nEnd Sub A.20 12 20 15 B.12 20 12 25 C.24 15 12 20 D.24 12 12 15 （分数：2.00）A.B.C.D.11.软件开发的结构化分析方法常用的描述软件功能需求的工具是_。 A. 数据流程图、数据字典 B. 软件流程图、模块说明 C. 事务流程图、处理说明 D. 系统流程图、程序编码（分数：1.00）A.B.C.D.12.阅读程序：Sub Form_
7、ClickU /Ua=10:b=15:c=20:d=25Print a；Spc(5)；b；Spc(7)；cPrint a；Space(8)；b；Space(5)；cPrint c；Spc(1)；“+“；Spc(1)；d；Print Spc(1)；“=“；Spc(1)；c+dEnd Sub运行上面的程序，单击窗体后，第三行输出结果是_。 A. 20+25=45 B. 20+25=45 C. 10 15 20 D. 20 25 45（分数：2.00）A.B.C.D.13.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Crick(
8、)x=0n=InputBox(“)For i=1 To nFor j=1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是U /U。 A.3 B.4 C.5 D.6（分数：2.00）A.B.C.D.14.下列对变量的定义中，不能定义 a 为变体变量的是 A. Dim a As Double B. Dim a As Variant C. Dim a D. a=24（分数：2.00）A.B.C.D.15.窗体如图 3 所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击“删除”按钮(名称为Command
9、1)，则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Command1_Click()Dim n%, k%n=Len(Text1.Text)For k=0 To List1.ListCount-1If Left(List1.List(k), n)=Text1.Text ThenList1.RemoveItem kEnd IfNext kEnd Sub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2 项，结果如图 4 所示。这说明程序不能适应所有情况，需要改正。正确的修改方案是把 For
10、k=0 to List1.ListCount-1 改为（分数：2.00）A.B.C.D.16.编写如下事件过程：Private sub sub1 (ByVal x1 As String, y1 As String)Dim xt As StringDim i As Integeri = Len(x1)Do While i= 1xt = xt + Mid(x1, i, 1)i=i-1Loopy1 = xtEnd SubPrivate Sub Form Click()Dim s1 As String, s2 As Strings1= “teacher“sub1 s1, s2Print s2End S
11、ub程序运行后，单击窗体，则窗体上显示的内容是 A. rehcaet B. tahreee C. themee D. eerthea（分数：1.00）A.B.C.D.17.对长度为 n 的线性表进行顺序查找，在最坏情况下需要比较的次数为U /U。 A. 125 B. n/2 C. n D. n+1（分数：2.00）A.B.C.D.18.以下为 Visual Basic 学习版的控件的是 A. 数据绑定控件 B. ActiveX 控件 C. 自动化管理器 D. 报表控件 （分数：1.00）A.B.C.D.19.设在工程中有一个标准模块，其中定义了如下类型：Type stutypeino As I
12、ntegerstrname As String*20strsex As String*1smark As SingleEnd Type在窗体上画一个名为 Connnand1 的命令按钮，要求当执行事件过程 Command1_Click 时，在 c:/的随机文件 studentdat 写入一条记录。下列能够完成该操作的事件过程是U /U。 A.Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=
13、“男“ .smark=89 End With Open“ c:/student.dat“ For input As # 1 len=len(student) Put # 1,record_no,student Close #1 End Sub B.Sub Command1_Click( ) Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With Open“c:/student.dat“ For
14、 random As #1 len=len(student) Put #1,record_no,student Close #1 End Sub C.Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame=“smith“ .strsex=“男“ .smark=89 End With Open“c:/student.dat“ For random As #1 len=len(student) Write #1,record_no,s
15、tudent Close #1 End Sub D.Sub Command1_Click() Dim Student As studtype Dim Record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With Open“c:/student.dat“For output As #1 len=len(student) Put #1,record_no,student Close #1 End #1（分数：2.00）A.B.C.D.20.下列工具中为需求分
16、析常用工具的是U /U。 A. PAD B. PFD C. N-S D. DFD（分数：2.00）A.B.C.D.21.下面叙述正确的是_。 A. 程序设计就是编制程序 B. 程序的测试必须由程序员自己去完成 C. 程序经调试改错后还应进行再测试 D. 程序经调试改错后不必进行再测试 （分数：1.00）A.B.C.D.22.下面语句正确的是 A.If xy Then y=x3 B.If xy Then y=3x C.If xy Then y=x3 D.If xy Then y=x * * 3 （分数：1.00）A.B.C.D.23.在窗体中添加一个通用对话框 Commondialog1 和一个
17、命令按钮 Command1，当单击按钮时，打开颜色对话框，能实现此功能的程序段是 A.Private Sub Command1Click( ) Commondialog1.ShowOpen End Sub B.Private Sub Command1_Click( ) Commondialog1.ShowColor End Sub C.Private Sub Command1_Click( ) Commondialog1.ShowOpen Commondialog1.ShowFont End Sub D.Private Sub Command1_Click( ) Commondialog1.S
18、howColor Commondialog1.ShowHelp End Sub（分数：1.00）A.B.C.D.24.在窗体上画一个命令按钮，其名称为 Command1，然后编写下列代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 T0 1 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后，单击命令按钮，其输出结果是U /U A.4321 B.1234 C.34 D.12（分数：2.00）A.B.C.D.25.可以同时删除字符前导和尾部空白的函数是
19、 _。 A. Ltrim B. Rtrim C. Trim D. Mid（分数：1.00）A.B.C.D.26.软件测试的过程是_。集成测试 验收测试系统测试 单元测试 A. 、 B. 、 C. 、 D. 、（分数：2.00）A.B.C.D.27.目录列表框 Path 属性的作用是U /U。 A. 显示当前驱动器或指定驱动器上的目录结构 B. 显示当前驱动器或指定驱动器上的某目录下的文件 C. 显示根目录下的文件名 D. 显示路径下的文件（分数：2.00）A.B.C.D.28.设 x 是整型变量，与函数 IIF(x0，-x，x)有相同结果的代数式是 A. |x| B. -|x| C. x D.
20、-x（分数：2.00）A.B.C.D.29.当执行以下过程时，在名为 lplResult 的标签框内将显示U /U。Private Sub cmdlt_C1ick()Dimi，rr=0Fori=1 To 5 Step 1r=r+iNexti1p1Result.Caption=Str$(r)End Sub A.字符串 15 B.整数 15 C.字符串 5 D.整数 5（分数：2.00）A.B.C.D.30.下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是_ 。 A.Sub Com (By Val a，By Val b) B.Sub Com (a，By Val b) C.Sub Co
21、m (a，b) D.Sub Com (By Val a，b)（分数：2.00）A.B.C.D.31.计时器文件设置时间间隔的属性是 A. Enabeld B. Index C. Tag D. Interval（分数：2.00）A.B.C.D.32.为了使命令按钮(名称为 Command1)右移 200，应使用的语句是_。 A. Command1. Move-200 B. Command1. Move 200 C. Command1. Left=Command1. Left+200 D. Command1. Left=Command1. Left-200（分数：2.00）A.B.C.D.33.目
22、录列表框的 Path 属性的作用是 _。 A. 显示当前驱动器或指定驱动器上的目录结构 B. 显示当前驱动器或指定驱动器上的某目录下的文件名 C. 显示根目录下的文件名 D. 显示该路径下的文件 （分数：1.00）A.B.C.D.34.结构化程序设计主要强调的是_。 A.程序的规模 B.程序的易读性 C.程序的执行效率 D.程序的可移植性（分数：2.00）A.B.C.D.35.下面语句正确的是 A. If x3*y And xy Then y=x3 B. If x3*y And xy Then y=3x C. If x3*y:xy Then y=x3 D. If x3*y And xy The
23、n y=x*3（分数：2.00）A.B.C.D.二、B填空题/B(总题数：1，分数：9.00)以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。Function rev(newl)As Stringb=Mid(U U 11 /U /U,1,1)if b=“ “thenrev=“ “elserev=rev(Mid(new 1,2)+U U 12 /U /Uend ifEnd FunctionPrivate Sub Form_Click()old=“12345“Print oldPrint rev(old)End Sub（分数：9.00）填空项 1:_填空项
24、1:_(3).数据库系统阶段的数据具有较高独立性，数据独立性包括物理独立性和_两个含义。（分数：1.80）填空项 1:_(4).在 KeyPress 事件过程中，KeyAscii 是所按键的U U /U /U值。（分数：1.80）填空项 1:_(5).在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function M(x As Integer，y As Integer) As Integer M=IIf(xy，x，y) End Function Private Sub Command1 Click() Dim a As Integer， b As Integer a=
25、100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 _。（分数：1.80）填空项 1:_二级 VISUAL+BASIC-24-2 答案解析(总分：71.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：62.00)1.执行下面的程序，单击命令按钮后，窗体中的输出结果是 _。Private Sub Cotomand1_Click()Ch$=“Welcome Home!“a=Len(ch$)For i= 1 To ab$ = Mid(ch$， i 1)If b$ = “m“ Then m = m + 1Next 1Print mEnd
26、 Sub A.2 B.3 C.1 D.0（分数：3.00）A. B.C.D.解析：解析 题中程序的功能是统计字母 m 在字符串“Welcome Home!”中出现的次数。程序中有两个字符串函数，Len()和 Mid()。Len()函数的作用为计算字符串中字符的个数，而 Mid()函数的作用为取子串。题中依次选取字符串中的字母，与字符“m”进行比较，所以答案选 A。2.下列程序段的执行结果为_。Private Sub Command1_Click()a=1：b=1Select Case aCase 1Select Case bCase 0Print “你好!“Case 1Print “Hello
27、!“End SelectCase 2Print“谢谢使用!“End SelectEnd Sub A.你好! B.谢谢使用! C.Hello! D.你好!谢谢使用!（分数：2.00）A.B.C. D.解析：3.下列叙述中不正确的是_。 A. 变量名中的第一个字符必须是字母 B. 变量名的长度不超过 255 个字符 C. 变量名可以包含小数点或者内嵌的类型声明字符 D. 变量名不能使用关键字（分数：2.00）A.B.C. D.解析：解析 根据 Visual Basic 变量名的命名规则，变量名不可以包含小数点或者内嵌的类型声明字符，不能使用关键字。4.声明一个变量为局部变量应该用 A. Globa
28、l B. Private C. Static D. Public（分数：2.00）A.B.C. D.解析：解析 根据变量的定义位置和所使用的定义变量的语句不同，Visual Basic 中的变量可以分为局部变量、模块变量和全局变量。模块级变量在模块部分用 Private 或 Dim 语句声明；全局变量必须用Public 或 Global 语句声明；局部变量在过程中用 Dim 或 Static 语句声明。5.下列是一个循环结构的程序，循环体内的语句将执行的次数是k=0For i=1 to 100For j=1 to 10k=k+1NextNext A. 0 B. 10 C. 100 D. 100
29、0（分数：2.00）A.B.C.D. 解析：解析 每一个 i 的值都将有 10 个 j 的值与之相对应，也就是每一个 i 的值都会运行 10 次循环语句，则总共运行次数为 10010=1000。6.假定编写了如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single)If Button=2 ThenPrint “aaaa“End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 A. 左键 B. 右键 C. 同时按下左、右键 D. 按什么键
30、都不显示（分数：1.00）A.B. C.D.解析：解析 在窗体上压下鼠标键，触发 Form_M ouseDown 事件。参数 Button 标识鼠标的信息，1 表示按下鼠标左键；2 表示按下鼠标右键：4 表示按下鼠标中间键。当按下鼠标右键时，程序能在窗体上显示字符串“AAAA”。7.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 A. Value B. Default C. Calicel D. Enabled（分数：2.00）A.B.C. D.解析：解析 本题考查按钮控件的属性与事件。当一个命令按钮的 Cancel 属性
31、被设置为 True 时，按Esc 键与单击该命令按钮的作用是相同的。在一个窗体中，只允许有一个命令按钮的 Cancel 属性被设置为 True。本题正确答案为 C。8.下列程序运行后在立即窗口输出结果是( )。Private Sub Form_Click()x=“a“:y=“b“z=1:u=2Debug. Print x; y, z; uDebug. Print z; x, y; uEnd Sub A. a b 1 2 1 ab 2 B. a b 1 2 1 a b 2 C. a b 1 2 1 a b 2 D. a b 1 2 1 a b 2（分数：2.00）A.B. C.D.解析：解析 用
32、 print 输出多个表达式或字符串时，各表达式用分隔号(逗号、分号、空格)隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式(以 14 个字符位置为单位把一个输出行分为若干个区段)显示数据项；如果以分号或空格作分隔符，则按紧凑输出格式输出数据。 题中，以“-”表示分区段的 14 个字符的位置，选项 B)符合题童。9.如果 Tab 函数的参数小于 1，则打印位置在第_列。 A. 0 B. 1 C. 2 D. 3（分数：2.00）A.B. C.D.解析：解析 Tab 函数常与 Print#语句或 Print 方法一起使用，对输出进行定位。只有一个参数 n 表示在显示(或打印列表中的)下一个
33、表达式之前打印起始位置移动的列数。如果”小于 1，则 Tab 将打印位置移动到列 1。如果”大于输出行的宽度，则 Tab 函数使用以下公式计算下一个打印位置：n mod width。10.下列程序的执行结果为U /UPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=20Call Value(X,y)Print x;yEnd SubPrivate Sub Value(ByVal m As Integer,ByVal n As Integer)m=m * 2:n=n-5Print m; nEnd Sub A.20 12
34、20 15 B.12 20 12 25 C.24 15 12 20 D.24 12 12 15 （分数：2.00）A.B.C. D.解析：解析 本题主要考查自定义过程的参数传递。在 Visual Basic 中，参数默认是按地址传递的，也就是使过程按照变量的内存地址去访问实际变量的内容。这样，将变量传递给函数时，通过函数可永远改变该变量值。如果想改变传递方式，可以在变量定义前加关键字 ByRef 或 ByVal。ByRef 为默认值，按地址传递，ByVal 按照值传递，函数调用后不改变变量值。 本题 Value 函数两个参数都是值传递，参数的值只会在函数里面变化，调用结束后，参数的值没有最终改
35、变，故选项 C 正确。11.软件开发的结构化分析方法常用的描述软件功能需求的工具是_。 A. 数据流程图、数据字典 B. 软件流程图、模块说明 C. 事务流程图、处理说明 D. 系统流程图、程序编码（分数：1.00）A. B.C.D.解析：12.阅读程序：Sub Form_ClickU /Ua=10:b=15:c=20:d=25Print a；Spc(5)；b；Spc(7)；cPrint a；Space(8)；b；Space(5)；cPrint c；Spc(1)；“+“；Spc(1)；d；Print Spc(1)；“=“；Spc(1)；c+dEnd Sub运行上面的程序，单击窗体后，第三行输出
36、结果是_。 A. 20+25=45 B. 20+25=45 C. 10 15 20 D. 20 25 45（分数：2.00）A. B.C.D.解析：解析 Spc(n)函数应该与 Print#语句或 Print 方法一起使用，对输出进行定位。n 参数是在显示或打印列表中的下一个表达式之前插入的空白数。Space(n)函数返回 n 个空格的字符串。两个函数相同之处是都能由于 Print 方法的格式输出，不同指出是 Space(n)函数有返回值，它能用于表达式中；而Space(n)函数没有返回值，它只能用于 Print#语句或 Print 方法中。13.在窗体上画一个名称为 Command1 的命令
37、按钮，然后编写如下事件过程：Private Sub Command1_Crick()x=0n=InputBox(“)For i=1 To nFor j=1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是U /U。 A.3 B.4 C.5 D.6（分数：2.00）A.B.C.D. 解析：14.下列对变量的定义中，不能定义 a 为变体变量的是 A. Dim a As Double B. Dim a As Variant C. Dim a D. a=24（分数：2.00）A. B.C.D.解析：解析 本题的难点是变
38、体类型变量的概念。任何未经说明的变量，Visual Basic 都将自动设置为变体类型变量。15.窗体如图 3 所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Command1_Click()Dim n%, k%n=Len(Text1.Text)For k=0 To List1.ListCount-1If Left(List1.List(k), n)=Text1.Text ThenList1.RemoveItem kEnd IfNext k
39、End Sub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2 项，结果如图 4 所示。这说明程序不能适应所有情况，需要改正。正确的修改方案是把 For k=0 to List1.ListCount-1 改为（分数：2.00）A. B.C.D.解析：解析 由于在删除项目的过程中，前面的项目被删除后，后续项目的下标自动减 1，而用于控制循环的变量 k 总是在按步长 1 增长，所以造成部分项日被错过了检查。如本题中输入“刘”时，检查项目“刘邦”时变量 k 为 5，删除项目“刘邦”后，项目“刘秀”的下标变为 5，但下次再检查时，k 已变成6，跳
40、过了对项目“刘秀”的检查。选项 A 的修改方式是从下标大的项目依次向下标小的项目检查，删除的项目不影响剩下的项目的下标，是正确的修改方法。16.编写如下事件过程：Private sub sub1 (ByVal x1 As String, y1 As String)Dim xt As StringDim i As Integeri = Len(x1)Do While i= 1xt = xt + Mid(x1, i, 1)i=i-1Loopy1 = xtEnd SubPrivate Sub Form Click()Dim s1 As String, s2 As Strings1= “teacher
41、“sub1 s1, s2Print s2End Sub程序运行后，单击窗体，则窗体上显示的内容是 A. rehcaet B. tahreee C. themee D. eerthea（分数：1.00）A. B.C.D.解析：解析 可以看出，Sub1(ByVal x1 As String，y1 As String)的作用是将参数 x1 的字符逆序处理，然后赋给 y1，而 y1 是传址引用的，可以直接返回处理结果。17.对长度为 n 的线性表进行顺序查找，在最坏情况下需要比较的次数为U /U。 A. 125 B. n/2 C. n D. n+1（分数：2.00）A.B.C. D.解析：解析 对线性
42、表进行顺序查找时，从表中的第一个元素开始，将给定的值与表中逐个元素的关键字进行比较，直到两者相符，查找到所要找的元素为止。在最坏情况下，要查找的元素是表的最后一个元素或查找失败，这两种情况都需要将这个元素与表中的所有元素进行比较，因此比较次数为 n。18.以下为 Visual Basic 学习版的控件的是 A. 数据绑定控件 B. ActiveX 控件 C. 自动化管理器 D. 报表控件 （分数：1.00）A. B.C.D.解析：解析：Visual Basic 学习版中包括内部控件、网格控件、数据绑定控件和 Tab 对象，所以数据绑定控件是 Visual Basic 学习版中的控件；报表控件为
43、专业版中的控件；而自动化管理器是企业版的控制系统。19.设在工程中有一个标准模块，其中定义了如下类型：Type stutypeino As Integerstrname As String*20strsex As String*1smark As SingleEnd Type在窗体上画一个名为 Connnand1 的命令按钮，要求当执行事件过程 Command1_Click 时，在 c:/的随机文件 studentdat 写入一条记录。下列能够完成该操作的事件过程是U /U。 A.Sub Command1_C1ick() Dim student As studtype Dim record_n
44、o As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With Open“ c:/student.dat“ For input As # 1 len=len(student) Put # 1,record_no,student Close #1 End Sub B.Sub Command1_Click( ) Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .
45、strname=“smith“ .strsex=“男“ .smark=89 End With Open“c:/student.dat“ For random As #1 len=len(student) Put #1,record_no,student Close #1 End Sub C.Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame=“smith“ .strsex=“男“ .smark=89 End With Open
46、“c:/student.dat“ For random As #1 len=len(student) Write #1,record_no,student Close #1 End Sub D.Sub Command1_Click() Dim Student As studtype Dim Record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With Open“c:/student.dat“For output As #1 len=len(student) Put #1,record_no,student Close #1 End #1（分数：2.00）A.B. C.D.解析：20.下列工具中为需求分析常用工具的是U /U。 A. PAD B. PFD C. N-S D. DFD（分数：2.00）A.B.C.D. 解析：解析 需求分析常用的工具有数据流图(DFD)、数据字典 (DD)、判定树和判定表。PAD(问题分析图)、PFD(程序流程图)、 N-S(盒式图)都是详细设计的常用工具，不是需求分析的工具。21.下面叙述正确的是_。 A. 程序设计就是编制程序 B. 程序的测试必须由程序员自己去完成
