1、国家计算机二级(VB)73 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.设执行以下程序段时依次输入 2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer For k=0 To 2 a(k+1)=Val(InputBox(“Enter data：“) b(3 - k) =a(k + 1) Next k Print b(k) （分数：2.00）A.可以随意读取随机文件中任一记录的数据B.随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又
2、可写C.随机文件的操作是以记录为单位进行的D.随机文件的读、写操作语句与顺序文件的读写操作语句一样2.在窗体上画一个名称为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示*txt，则能够满足上述要求的程序是（ ）。（分数：2.00）A.Private Sub Command1_Click ( ) CommonDialog1FileName=“SaveFile“ CommonDialog1Filter=“AllFiles|*.*|(
3、*.txt)|*.txt|(*.doC) |*.doc“ CommonDialog1FilterIndex=2 CommonDialog1DialogTitle=“Save“ CommonDialog1Action=2 End SubB.Private Sub Command1_Click ( ) CommonDialog1FileName=“SaveFile“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“ CommonDialog1FilterIndex=1 CommonDialog1DialogTitle=“
4、Save“ CommonDialog1Action=2 End SubC.Private Sub Command1 Click ( ) CommonDialog1FileName=“Save“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“ CommonDialog1FilterIndex=2 CommonDialog1DialogTitle=“SaveFile“ CommonDialog1Action=2 End SubD.Private Sub Command1 Click ( ) CommonDialog1F
5、ileName=“SaveFile“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“ CommonDialogl.FilterIndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1Action=1 End Sub3.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S=30 Print Number，S
6、 End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.SELECTB.CREATEC.ALTERD.DROP4.当 Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree?（分数：2.00）A.USEB.OPENC.SELECTD.以上命令均可5.下面的过程定义语句中不合法的是（ ）。（分数：2.00）A.Sub Para(ByVal n()B.Sub Para(n) As IntegerC.Function Para(ByVal n)D.Function Para(procl)6.设有下面的循环： i=1 Do i=i + 3 Print i Loop
7、 Until I_ 程序运行后要执行 3次循环体，则条件中 I的最小值为（ ）。 （分数：2.00）A.k=10 Dim Arr(k)B.Const k=10 Dim Arr(k)C.Dim Arrl(10) As Integer Dim Arr2(10)D.Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)7.下列程序段的执行结果为（ ）。 a=95 If a60 Then I=l If a70 Then l=2 If a80 Then I=3 If a90 Then I=4 Print“I=“:I （分数：2.00）A.I=1B.I=2C.I=3D.I=
8、48.当把框架的何属性设置为 False时，其标题会变灰，框架中所有的对象均被屏蔽?（分数：2.00）A.Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容。B.当前窗体中用 Picture属性装入的图形，不可以用 Cls方法清除C.Move方法用来移动窗体和控件，不能改变大小D.Cls可以清除由 Print方法显示的文本，并把光标移到对象的左上角(0，0)9.设有如下关系表_。 （分数：2.00）A.T=RSB.T=RSC.T=RSD.T=R/S10.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Prin
9、t “k=“；a；Spc(4)；“b=“；b + a （分数：2.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=711.有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print op End Sub Private Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer
10、m=0：i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为( )。 （分数：2.00）A.25B.36C.258D.36912.下列程序段，在运行时最后输出的内容是( )。 a=2 c=3 AAA： c=c * a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕” End If （分数：2.00）A.5，2，3B.-5，-12，-7C.-5，-12，-17D.5，-2，-713.单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( )
11、Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：2.00）A.0 8B.40 72C.4 50D.78 5014.下列叙述中，正确的是（ ）。（分数：2.00）A.控件数组的每一个成员的 Caption属性值都必须相同B.控件数组的每一个成员的 Index属性值都必须不相同C.控件数组的每一个成员都执行不同
12、的事件过程D.对已经建立的多个类型相同的控件，这些控件不能组成控件数组15.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.基类的保护成员在派生类中仍然是保护的成员B.基类的保护成员在公有派生类中仍然是保护的C.基类的保护成员在私有派生类中仍然是私有的D.对基类成员的访问必须是无二义性16.下列有关子菜单的说法中
13、，错误的是（ ）。（分数：2.00）A.除了 Click事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1开始D.菜单的索引号可以不连续17.下面程序段执行结果为（ ）。 x=Int(Rnd()+3) Select Case x Case 5 Print “excellent“ Case 4 Print “good“ Case 3 Print“pass“ Case Else Print“fail“ End Select （分数：2.00）A.excellentB.goodC.passD.fail18.Visual Basic
14、标题栏上显示了应用程序的（ ）。（分数：2.00）A.子类的访问权限比父类方法的访问权限要高B.继承性是面向对象方法的一个重要特征，它使代码可重用，可降低程序的复杂性C.子类方法不能产生比父类方法更多的异常D.重写是指子类的成员方法与父类的成员方法名字相同，参数列表相同，方法体不同19.下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= “abcd“ Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr
15、 As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub （分数：2.00）A.1B.2C.随机输出 1或 2D.程序有错20.Print方法可以在对象上输出数据，这些对象包括（ ）。（分数：2.00）A.图片框B.状态栏C.标题栏D.代码窗口21.以下 Case语句中错误的是（ ）。 （分数：2.00）A.Case 0 To 10B.Case Is10C.Case Is10 And Is1022.设有下面的循环： i=0 While i=1 i=i + 3 Print i Wend 则运行后的输出结果是（ ）。
16、 （分数：2.00）A.abB.abcC.abdD.abcd23.下列程序的执行结果为( )。 a=10 b=20 If a b Then a=a + b Else b=b-a Print a，b （分数：2.00）A.20 20B.30 20C.30 40D.15 1524.使用语句 Dim A(2) As Integer声明数组 A之后，以下说法正确的是（ ）。（分数：2.00）A.public void static main(String args ) . B.void public static main(String args ) . C.static public void ma
17、in(String args ) . D.以上都不正确25.在 Visual Basic中按文件的数据性质不同，可将文件分为（ ）。（分数：2.00）A.数据文件和程序文件B.文本文件和数据文件C.顺序文件和随机文件D.ASCII文件和二进制文件26.函数过程 F1的功能是：如果参数 b为奇数，则返回值为 1，否则返回值为 0。以下能正 确实现上述功能的代码的是 _。 （分数：2.00）A.Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End FunctionB.Function F1(b
18、 As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End FunctionC.Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End FunctionD.Function F1(b As Integer) If b Mod 2 0 Then 2 Else 3 End If Next k Print pos，neg End Sub 以上程序的功能是，计算并输出数组 Arr中 10个数的正数之和 pos与负数之和 neg，请填空。 （分
19、数：3.00）填空项 1:_42.下面运行程序后，单击命令按钮，输出的结果是 1。 Private Sub Command1_Click2 Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=YAS(B) Print“s1=“；s1；“s2=“；s2 End Sub Function YAS(a3As Integer) Dim t#，i% t=1 For i=LBound(A) To UBound(A) t=t * a(i) Next
20、i YAS=t End Function （分数：3.00）填空项 1:_43.描述“x 是小于 100的非负整数“的 Visual Basic表达式是 1。（分数：3.00）填空项 1:_44.在窗体上添加一个文本框控件 Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click1 CommonDialog1Filter= 2 CommonDialog1FilterIndex= 3 CommonDialog1ShowSave InfoTe
21、xt= 4 End Sub （分数：3.00）填空项 1:_45.在面向对象方法中 1 描述的是具有相似属性与操作的一组对象。（分数：3.00）填空项 1:_国家计算机二级(VB)73 答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.设执行以下程序段时依次输入 2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer For k=0 To 2 a(k+1)=Val(InputBox(“Enter data：“) b(3 - k) =a(k + 1) Nex
22、t k Print b(k) （分数：2.00）A.可以随意读取随机文件中任一记录的数据B.随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写C.随机文件的操作是以记录为单位进行的D.随机文件的读、写操作语句与顺序文件的读写操作语句一样 解析：在 Visual Basic中，可以用 Cls方法清除用 Print方法在窗体显示的文本或图片框中显示的图形，并把光标定位到对象的左上角，所以选项 D)是正确的；Cls 方法不能清除用 Picture属性装入的图形，所以选项 B)是正确的；用 Move方法可以移动控件和窗体，并可以调节对象的大小，所以选项 C)不正确；Cls方法中的对象
23、可以是窗体或图片框，如果省略对象，则清除当前窗体内显示的内容，所以选项 A)正确。2.在窗体上画一个名称为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示*txt，则能够满足上述要求的程序是（ ）。（分数：2.00）A.Private Sub Command1_Click ( ) CommonDialog1FileName=“SaveFile“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*
24、.txt|(*.doC) |*.doc“ CommonDialog1FilterIndex=2 CommonDialog1DialogTitle=“Save“ CommonDialog1Action=2 End Sub B.Private Sub Command1_Click ( ) CommonDialog1FileName=“SaveFile“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“ CommonDialog1FilterIndex=1 CommonDialog1DialogTitle=“Save“ C
25、ommonDialog1Action=2 End SubC.Private Sub Command1 Click ( ) CommonDialog1FileName=“Save“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“ CommonDialog1FilterIndex=2 CommonDialog1DialogTitle=“SaveFile“ CommonDialog1Action=2 End SubD.Private Sub Command1 Click ( ) CommonDialog1FileName
26、=“SaveFile“ CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“ CommonDialogl.FilterIndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1Action=1 End Sub解析：该题考核考生对 CommonDialog控件的各种属性的了解和掌握，其 FileNme 属性用来设置缺省文件名；Filter 属性设置在对话框的文件类型列表框中所显示的过滤器，其值从 0开始：DialogTitle 属性用来设置对话框的标题；Action 属性用
27、来返回或设置被显示对话框的类型，其值为 1时显示“打开”对话框，为 2时显示“另存为”对话框。3.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S=30 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.SELECT B.CREATEC.ALTERD.DROP解析：本题考查的是基本循环语句的使用，选项 A)，选项 C)和选项 D)都为正确的形式，在选项 B)中的while(a60
28、 Then I=l If a70 Then l=2 If a80 Then I=3 If a90 Then I=4 Print“I=“:I （分数：2.00）A.I=1B.I=2C.I=3D.I=4 解析：此题为 If Then 结构的条件语句，如果 a60，则 I=1；如果 a 70，贝 I=2；如果 a80，则 I=3；如果 a90，则 I=4。8.当把框架的何属性设置为 False时，其标题会变灰，框架中所有的对象均被屏蔽?（分数：2.00）A.Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容。B.当前窗体中用 Picture属性装入的图形，不可以用 Cls方法
29、清除C.Move方法用来移动窗体和控件，不能改变大小 D.Cls可以清除由 Print方法显示的文本，并把光标移到对象的左上角(0，0)解析：在 Visual Basic中，因为“菜单编辑器”命令是在“工具”菜单下，所以只 有当某个窗体为当前活动窗体时，才能打开“工具”菜单，并从而选择“菜单编辑器”选 项，打开菜单编辑器。 9.设有如下关系表_。 （分数：2.00）A.T=RSB.T=RS C.T=RSD.T=R/S解析：从图中可以看出，关系 T 是关系 R 和关系 S 的简单合并，而合并的符号为，所以答案为 T=RS。10.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b=
30、 b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：2.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=7 解析：本题中的 DoLoop Until循环为直到型循环结构，直到条件 b5 为止， 此时 a=1，b=6，最后输出的结果是 k = 1 b=7。11.有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)
31、：Print op End Sub Private Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为( )。 （分数：2.00）A.25B.36C.258 D.369解析：本题考查的是含有虚基类的继承中构造函数的调用顺序，应该先 调用基类的构造函数，接着是按照派生类继承列表的顺序依次调用虚基类的构造函数， 最后调用派生类自己的构造函数。12.下列程序段，在运行时最后输出的内容是( )。 a
32、=2 c=3 AAA： c=c * a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕” End If （分数：2.00）A.5，2，3B.-5，-12，-7 C.-5，-12，-17D.5，-2，-7解析：第一个循环对数组 c( )进行赋值，第二个循环对数组 p( )进行赋值，第三个循环对 k进行累加，k的初值等于 5，第一次循环 k=k+p(0)*2=5，第三次循环 k=k+p(2)*2=21并输出。13.单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( ) Dim x As I
33、nteger, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：2.00）A.0 8B.40 72 C.4 50D.78 50解析： 此题是函数过程的调用。 在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic中，实参与形参的结合有两种方式：
34、即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 PtoP中有两个形参，两者均为传值方式。主调过程分别把实参 x、y 传递给 PtoP，所以当过程调用结束后，实参 x、y 的值都没有改变，最后输出的值应为 40 7
35、2。 14.下列叙述中，正确的是（ ）。（分数：2.00）A.控件数组的每一个成员的 Caption属性值都必须相同B.控件数组的每一个成员的 Index属性值都必须不相同 C.控件数组的每一个成员都执行不同的事件过程D.对已经建立的多个类型相同的控件，这些控件不能组成控件数组解析：控件的 Name属性是用来标识控件的，几个相同类型的控件，若 Name 属性相同，说明它们是同一个控件，但实际上是几个控件，由此引出控件数组，所以控件数组的每一个成员的 Name属性值必须相同，而 Caption属性值可以不同；Index(索引)属性值是用来区别控件数组中的成员的，当然取值必须不同；Visual B
36、asic中控件数组都执行同样的事件过程；对已经建立的多个类型相同的控件，可以通过修改控件的 Name 属性，使其都具有相同的 Name属性值，这些控件就成为控件数组了。15.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.基类的保护成员在派生类中仍然是保护的成员 B.基类的保护成员在公有派生类中仍然是保护的C.基
37、类的保护成员在私有派生类中仍然是私有的D.对基类成员的访问必须是无二义性解析：在 Visual Basic中，可以用名字来表示内存的位置，以便访问内存中的数据。有关变量命名的规则如下： 名字只能由字母、数字和下划线组成； 名字的第一个字符必须是英文字母，最后一个字符可是是类型说明符； 名字的有效字符为 255个； 不能用 Visual Basic的保留字作变量名，但可以把保留字嵌入变量名中；同时变量名 也不能是末尾带有类型说明符的保留字，例如变量Print和 Print$是非法的，而变量 Print_ Number是合法的。 16.下列有关子菜单的说法中，错误的是（ ）。（分数：2.00）A.
38、除了 Click事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1开始 D.菜单的索引号可以不连续解析：在程序运行后，当用户选择某个菜单标题时会打开下拉菜单，菜单中的菜单项可以是命令、选项、分隔条或子菜单标题，每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件，菜单项的各个属性都能设置和查看，如 Name(名称)和 Cption(标题)属性等，每个菜单项只能响应个事件，即 Click事件；有关菜单项的索引号问题，表示菜单数组中的位置序号，如果不定义菜单数组，可以不理会，其实菜单的索引号可以不连续，并没有限制必须从 1
39、开始，所以只有选项 C)是错误的。17.下面程序段执行结果为（ ）。 x=Int(Rnd()+3) Select Case x Case 5 Print “excellent“ Case 4 Print “good“ Case 3 Print“pass“ Case Else Print“fail“ End Select （分数：2.00）A.excellentB.goodC.pass D.fail解析：本题中可以看到 x=Int(Rnd()+3)语句，其中 Rnd用来产生随机数，其值在 01 之间，而在(Rnd()+3)前面有 Int进行强制转换 ，所以 x为 3，执行 Print“pass“
40、语句。18.Visual Basic标题栏上显示了应用程序的（ ）。（分数：2.00）A.子类的访问权限比父类方法的访问权限要高B.继承性是面向对象方法的一个重要特征，它使代码可重用，可降低程序的复杂性C.子类方法不能产生比父类方法更多的异常D.重写是指子类的成员方法与父类的成员方法名字相同，参数列表相同，方法体不同 解析：如果需要重新绘制 Applet，就调用 repaint( )方法，而不是 paintComponent ( )方法。repaint( )方法将引起系统调用所有构件的 paintComponent( )方法，并且使得所有构件的 paintComponent()方法的Graph
41、ics变量被正确配置。19.下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= “abcd“ Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub （分数：2.00）A.1B.2C.随机输出 1或 2D.程序有错 解析：此题考查是条件浯句的结构。条件语句可以分为三种类
42、型，如下： If Then 结构 If Then Else结构 Select Case 结构 而 If Then结构有两种格式： 条件 Then语句 条件Then 语句块 End If 20.Print方法可以在对象上输出数据，这些对象包括（ ）。（分数：2.00）A.图片框 B.状态栏C.标题栏D.代码窗口解析：Print 方法可以在窗体、立即窗口、图片框、打印机这些对象上输出数据。21.以下 Case语句中错误的是（ ）。 （分数：2.00）A.Case 0 To 10B.Case Is10C.Case Is10 And Is10解析：22.设有下面的循环： i=0 While i=1 i
43、=i + 3 Print i Wend 则运行后的输出结果是（ ）。 （分数：2.00）A.ab B.abcC.abdD.abcd解析：本题通过 for语句的循环计算数组各元素之和，并且考查由高级数据类型向低级数据类型的强制转换。23.下列程序的执行结果为( )。 a=10 b=20 If a b Then a=a + b Else b=b-a Print a，b （分数：2.00）A.20 20B.30 20 C.30 40D.15 15解析：a=10，b=20，满足条件 ab，所以执行 a=a+b语句，a=a+b =30，故输出结果为 30 20。24.使用语句 Dim A(2) As I
44、nteger声明数组 A之后，以下说法正确的是（ ）。（分数：2.00）A.public void static main(String args ) . B.void public static main(String args ) . C.static public void main(String args ) . D.以上都不正确解析：javap.exe 是 Java类的分解器，即对class 文件提供字节代码的反汇编，并打印。默认时，打印类的公共域、方法、构造方法、静态初值。注意：javacexe，Java 的编译器，能将源文件编译成字节码文件；jdbexe，Java 调试器如编译器
45、返回程序代码错误，可用它对程序调试，它是解释器的拷贝；jdbdocexe，Java 文档生成器，对 Java源文件和包以 HTML格式产生文档。25.在 Visual Basic中按文件的数据性质不同，可将文件分为（ ）。（分数：2.00）A.数据文件和程序文件 B.文本文件和数据文件C.顺序文件和随机文件D.ASCII文件和二进制文件解析：文件的分类方法有多种。 根据数据性质，可分为程序文件和数据文件； 根据数据的存取方式和结构方式可分为顺序文件和随机文件； 根据数据的编码方式，可分为 ASCII文件和二进制文件。注意：选项 A)是正确的答案；选项 B)中文本文件是按数据编码划分的，数据 文
46、件是按数据的性质划分的；选项 D)是按数据的编码方式划分的；选项 C)是按数据的存取方式划分的。 26.函数过程 F1的功能是：如果参数 b为奇数，则返回值为 1，否则返回值为 0。以下能正 确实现上述功能的代码的是 _。 （分数：2.00）A.Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End FunctionB.Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function C.
47、Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End FunctionD.Function F1(b As Integer) If b Mod 2 =0 and X100）解析： 可以用类型声明符声明变量类型,下面是常用类型及其类型说明符： 整型 长整型& 单精度浮点数! 双精度浮点数# 货币型 字符串型$ 本题要在这个表达式中体现出 3个重点,第 1点是小于 100,可写成“=0 来表示“；最后 1点要体现出 X是整数,所以可在变量 X后面加一个百分号“。 44.在窗体上添加一个文本框控件 Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click1 CommonDialog1Filter= 2 CommonDialog1FilterIndex= 3 CommonDialog1ShowSave InfoText= 4 End Sub （分数：3.00）填空项 1:_ （正确
