国家二级(VB)机试模拟试卷343附答案解析

国家二级(VB)机试模拟试卷343

选择题

1.已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是( )。(C)

A. 文本框中没有内容

B. 文本框的Locked属性值为True

C. 文本框的MultiLine属性值为False

D. 文本框的MultiLine属性值为True

解析:本题考查文本框的常见属性。文本框的ScrollBars属性是当MultiLine属性值为True时才有效,它表示了文本框中出现的滚动条形式:O-None、1-Hofizontal、2-Vertical、3-Both,而MultiLine属性的作用是设置是否多行显示,默认该属性值为False,允许多行显示时属性值为True;Locked属性为True表示锁定文本框而不允许编辑。

2.在数据库系统的内部结构体系中,索引属于( )。(B)

A. 模式

B. 内模式

C. 外模式

D. 概念模式

解析:内模式又称物理模式,它给出了数据库物理存储结构与物理存取方法,如数据存储的文件结构、索引、集簇及hash等存取方式与存取路径,内模式的物理性主要体现在操作系统及文件级上,它还未深入到设备级上(如磁盘及磁盘操作)。

3.设a=4,b=5,c=6,执行语句Print a<b And b<c后,窗体上显示的是(  )。(A)

A. True

B. False

C. 出错信息

D. 0

解析:Print语句中计算表达式的值,按运算符的优先级顺序,关系运算符\

4.在面向对象方法中,不属于\(A)

A. 一致性

B. 分类性

C. 多态性

D. 标识唯一性

解析:对象有如下一些基本特点:标识唯一性、分类性、多态性、封装性、模块独立性好。所以选择A。

5.以下叙述中错误的是( )。(D)

A. 在通用过程中,多个形式参数之间可以用逗号作为分隔符

B. 在Print方法中,多个输出项之间可以用逗号作为分隔符

C. 在Dim语句中,所定义的多个变量可以用逗号作为分隔符

D. 当一行中有多个语句时,可以用逗号作为分隔符

解析:一般情况下,输入程序时要求一行只写一条语句。但语句比较短时也可以将多个语句书写在同一行中,这时,语句之间使用冒号分开,故D选项错误。

6.设有如图所示窗体和以下程序:

(A)

A. 文本框中无内容,焦点在文本框中

B. 文本框中为“Basic”,焦点在文本框中

C. 文本框中为“Basic”,焦点在按钮上

D. 文本框中为“Visual Basic”,焦点在按钮上

解析:题目程序的功能为,当单击命令按钮时,Textl失去焦点,激发Textl的LostFocus事件,在此事件中,程序判断文本框中符串是否为“BASIC”,如果是则退出事件过程,继续执行命令按钮的单击事件过程,文本框中显示“VisualBasic’’,如果小是则文本框内容置空,焦点返回到文本框中等待输入,不会执行命令按钮的单击事件过程。题目中输入了“Basic”,与“BASIC”不符,因此文本框置空,焦点回到文本框中。

7.下列不能打开菜单编辑器的操作是( )。(D)

A. 按Ctrl+E键

B. 单击工具栏中的“菜单编辑器”按钮

C. 执行“工具”菜单中的“菜单编辑器”命令

D. 按Shifi+Alt+M键

解析:在VB中打开菜单编辑器有4种方式:①执行“工具”菜单中的“菜单编辑器”命令;②使用热键Ctrl+E;③单击工具栏中的“菜单编辑器”按钮;④在要建立菜单的窗体上单击鼠标右键,将弹出一个菜单,然后单击“菜单编辑器”命令。

8.下列叙述中,不属于软件需求规格说明书的作用的是( )。(D)

A. 便于用户,开发人员进行理解和交流

B. 反映出用户问题的结构,可以作为软件开发工作的基础和依据

C. 作为确认测试和验收的依据

D. 便于开发人员进行需求分析

解析:软件需求规格说明书有以下几个方面的作用:①便于用户、开发人员进行理解和交流;②反映出用户问题的结构,可以作为软件开发工作的基础和依据;③作为确认测试和验收的依据。

9.假定有以下循环结构

Do Until条件

循环体

Loop

则正确的描述是( )。(B)

A. 如果“条件”是一个为0的常数,则一次循环体也不执行

B. 如果“条件”是一个为0的常数,则至少执行一次循环体

C. 如果“条件\

D. 不论“条件”是否为“真”,至少要执行一次循环体

解析:本题考查Do…Loop循环。Do…Loop循环中,由Until引出的循环条件,如果条件不成立,也就是条件为0时执行循环,否则退出。

10.在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

x=0

do Until X=-1

a=InputBox(\(A)

A. 2

B. 3

C. 14

D. 15

解析:本题输出变量a的值,在每次循环时,都对变量a、b、x进行了赋初值,因此只要考虑最后一次循环即可。也就是当输入a=2,b=1,x=-1时的表达式“a=a+b+x”的值,也就是最后a的值为2,所以选项A正确。

11.Visual Basic 6.0不支持的图形文件是( )。(B)

A. jpg

B. psd

C. bmp

D. ico

解析:Visual Basic 6.0支持以下格式的图形文件。

①Bitmap(位图),其文件扩展名为.BMP或.DIB。

②Icon(图标),其文件扩展名为.ICO或.CUR。

③Metafile(图元文件),普通图元文件的扩展名为.WMF,增强型图元文件的扩展名为.EMF。

④JPEG,其文件的扩展名为.JPG。

⑤GIF,其文件的扩展名为.GIF。

故B选项不是Visual Basic 6.0支持的图形文件。

12.编写如下事件过程:

Private Sub Form_MouseMove(Button As Integer,Shift As Interger,X As Single,Y As Single)

If(Button And 3)=3 Then

Print\(D)

A. 按左键并移动

B. 按右键并移动

C. 同时按下左、右键并移动

D. 按什么键都不显示

解析:鼠标单击时,鼠标键按F的参数Button可取3个值:按下左键时,Button值为1、按下右键时,Button值为2、按下中间键时,Button值为4。因此始终不能执行语句“Print\

13.以下程序段的功能是( )。

X=8.6

y=Int(x+0.5)

   Print y(B)

A. 输出y的绝对值

B. 实现x的四舍五入

C. 实现x的绝对值

D. 实现y的四舍五入

解析:本题考查函数Int的功能,Int(x)的作用是取不大于x的最小的整数,可以实现数据的四含五入。

14.下列关于通用对话框CDl的叙述中,错误的是( )。(C)

A. 使用CDl.ShowColor方法,可显示“颜色”对话框

B. 显示“字体”对话框前,必须先设置CDl的Flags属性,否则会出错

C. 只要在“打开”对话框中选择了文件,并单击“打开”按钮,即可将选中的文件打开

D. CancelError属性用于控制用户单击“取消”按钮关闭对话框时,是否显示出错警告

解析:通用对话框(CommonDialog)提供诸如打开文件(ShowOpen)、保存文件(ShowSave)、设置打印选项(ShowPrinter)、选择颜色和字体(ShowFont)、显示帮助(ShowHelp)等操作的一组标准对话框,该控件运行时不可见。当通用对话框显示为“打开”类型时,单击“打开”按钮后其FileName属性可返回或设置所选文件的路径和文件名,但并不能直接打开该文件。使用显示字体(Font)对话框之前,必须先设置控件的Flags属性为cdlCFBoth、cdlCFPrinterFonts、cdlCFScreenFonts这3个值中的一个。CancelError属性用于设置当用户选择“取消”按钮时,是否显示错误信息(默认为否)。

15.文本框接受的最长字符数由文本框的( )属性确定。(A)

A. MaxLength

B. MultiLine

C. Width

D. Text

解析:本题考查文本框的常见属性。文本框中存放的字符个数由MaxLength属性决定。当取值为0时表示任意长的字符,取值为非0,表示相应个数字符。

16.窗体上有1个名称为CD1的通用对话框,1个名称为Command1的命令按钮和1个Text1文本框,并有如下程序:

Private Sub Command1_Click()

CD1.Action = 3

If CD1.Color >= 0 Then

Text1.ForeColor = CD1.Color

End If

End Sub

运行程序并单击命令按钮,下面叙述中错误的是(D)

A. 弹出颜色对话框

B. 在弹出的对话框中选了一个颜色并单击\

C. 把代码 CD1.Action = 3 改为 CD1.ShowColor ,效果是一样的

D. 在弹出的对话框中选了一个颜色并单击\

解析:通用对话框中的Action属性为3时或者使用showColor方法,可将通用对话框的类型设置为颜色对话框,故选项A、C正确。Text1.ForeColor = CD1.Color是用来改变文本框文本的颜色,故选项B正确,D错误。

17.设a=2, b=3, c=4, d=5, 下列表达式的值是(  )。

(B)

A. True

B. False

C. -1

D. 1

解析:根据运算符的优先级顺序,先计算算术运算符,结果是2>3 And 4<=5 Or 4>4 ;再计算关系运算符,结果为False And True Or False ;And优先级高于Or优先级,先计算And,再计算Or,最后结果是False。故B选项正确。

18.对于图片框和图像框,以下描述中正确的是(D)

A. 二者都可以设置AutoSize属性,以使装入的图形能自动改变大小

B. 二者都可以设置Stretch属性,使得控件能根据图形的实际大小自动调整

C. 如果把图片框的AutoSize属性设置为False,则只有在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸

D. 当图像框的Stretch属性为True时,将自动放大或缩小图像框中的图形以与图像框的大小相适应

解析:图像框不可设置AutoSize属性,A选项错误;图像框才可设置Stretch属性,用来自动调整图像内容的大小,B选项错误;图片框的AutoSize属性设置为False,图片框的大小保持不变,图片超出图片框的部分将被截掉,选项C错误。故正确答案为选项D。

19.构成计算机软件的是(D)

A. 源代码

B. 程序和数据

C. 程序和文档

D. 程序、数据及相关文档

解析:软件指的是计算机系统中与硬件相互依赖的另一部分,包括程序、数据和有关的文档,选D。

20.窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能

是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:

Private Sub Command1_Click()

Dim a(10) As Integer

Dim x As Integer

For i = 1 To 10

a(i) = Int(Rnd * 100)

Next

x = InputBox(\(A)

A. 本程序实际产生的随机数是0-99

B. 若产生的随机数中有相同数,则p是其中最后一个数的位置

C. 程序有错,p的初值设置不对

D. 程序有错,InputBox函数产生的数据与x的类型不匹配

解析:Rnd生成的随机数为0-1的小数,乘以100后取整后范围为0-99,选A)。

21.下面关于通用对话框的叙述中错误的是(B)

A. 通用对话框可以用来显示一个字体对话框

B. 用文件对话框可以打开一个数据文件

C. 文件对话框只用来获得文件名和路径,不能打开任何文件

D. 利用颜色对话框可以获得一个颜色值

解析:利用通用对话框建立打开文件对话框时,并没有打开文件,故选项B错误。选项A、C、D项正确。故本题正确答案为B。

22.下列不包含滚动条的控件是(B)

A. 列表框

B. 标签

C. 组合框

D. 文本框

解析:标签控件不包含滚动条。

23.以下叙述中错误的是(  )。(D)

A. 在通用过程中,多个形式参数之间可以用逗号作为分隔符

B. 在Print方法中,多个输出项之间可以用逗号作为分隔符

C. 在Dim语句中,所定义的多个变量可以用逗号作为分隔符

D. 当一行中有多个语句时,可以用逗号作为分隔符

解析:一般情况下,输入程序时要求一行只写一条语句。但语句行较短时也可以将多个语句书写在同一行中,这时,语句之间使用冒号分隔。故D选项错误。

24.设有如下Command1的单击事件过程及fun过程:

Private Sub Command1_Click()

  Dim x As Integer

  x=Val(InputBox(\(A)

A. 3 6

B. 6 3

C. 6

D. 程序死循环

解析:题目中fun过程是一个递归过程,它的结束条件是参数值为奇数。第一次调用,参数值为6,是偶数所再次调用fun过程,这次参数为6/2=3,是奇数,不再调用自身,接着执行下一句输出参数值即3,然后返回第一次调用过程中执行下一句输出第一次调用参数值,即6。因此程序会输出3 6。

25.为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是(  )。(D)

A. Dim StrD As String

B. Dim StrD As String(128)

C. Dim StrD As String[128]

D. Dim StrD As String*128

解析:有定长和不定长的字符串变量。默认情况下,定义的字符串变量属于不定长的,字符串长度可以改变,比如:Dim str As String。如果声明一个定长字符串变量,形如Dim str As String *字符个数。故D选项正确。

26.下列叙述中正确的是(D)

A. 一个算法的空间复杂度大,则其时间复杂度也必定大

B. 一个算法的空间复杂度大,则其时间复杂度必定小

C. 一个算法的时间复杂度大,则其空间复杂度必定小

D. 算法的时间复杂度与空间复杂度没有直接关系

解析:算法的空间复杂度是指算法在执行过程中所需要的内存空间,算法的时间复杂度,是指执行算法所需要的计算工作量,两者之间并没有直接关系,答案为D。

27.下面对对象概念描述正确的是(A)

A. 对象间的通信靠消息传递

B. 对象是名字和方法的封装体

C. 任何对象必须有继承性

D. 对象的多态性是指一个对象有多个操作

解析:对象之间进行通信的构造叫做消息,A正确。多态性是指同一个操作可以是不同对象的行为,D错误。对象不一定必须有继承性,C错误。封装性是指从外面看只能看到对象的外部特征,而不知道也无须知道数据的具体结构以及实现操作,B错误。

28.设a = 10,b = 4,c = 5,d = 7,表达式a > b And Not c < d + 6的值为(B)

A. True

B. False

C. 1

D. 0

解析:本题中包含的三种运算符的优先级别由高到低依次为:算术运算符、比较运算符、逻辑运算符。其中,逻辑运算符的优先级为:Not(非) →And(与) →Or(或)。And前面表达式的值为True, And后面表达式的值为False,所以最后输出的也是False。因此,答案为B)。

29.如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是(  )。

(B)

A.

B.

C.

D.

解析:标签控件在工具箱中的图标是。而是文本框控件的图标,是按钮控件的图标,是形状控件的图标。

30.文件列表框中用于设置或返回所选文件路径和文件名的属性是(D)

A. File

B. FilePath

C. Path

D. FileName

解析:Path属性返回要显示的文件所在的路径,其默认值为系统的当前工作路径;FileName属性主要用于返回在文件列表框中被选定文件的文件名。故正确答案为选项D。

31.窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:

Private Sub Command1_Click()

  Dim x As Integer

  x=Val(InputBox(\(A)

A. 语句 fun=n 有错,因为n是整型,fun没有定义类型

B. 运行程序,输入值为5时,文本框中显示655

C. 运行程序,输入值为6时,文本框中显示42

D. ByRef表示参数按址传递

解析:过程fun的功能是将传入的值运算后返回,当传入数值为3的整数倍时返回该值的2倍,否则返回该值的平方。过程Fun的参数指定为ByRef方式,即按址传递,因此会影响实参的值。Str函数是将数值转换为字符串。过程fun定义时没有指明返回类型因此默认为Variant类型,它可以表示任何值,因此A)选项的说法不正确。

32.有如下数据定义语句:

Dim a, b As Integer

Dim x%, y as Integer

执行上述语句后,不是整型变量的是(A)

A. a

B. b

C. x

D. y

解析:在Visual Basic中,变量的定义格式有两种,第一种是:Declare 变量名 As 类型,\

33.窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:

Private Sub Form_Click()

CD1.DialogTitle = \(A)

A. 通用对话框的标题被改为\

B. 通用对话框被打开为颜色对话框

C. 若选择颜色对话框中的\

D. 若选择颜色对话框中的\

解析:通用对话框的DialogTitle属性用于返回或设置该对话框标题栏上所显示的文本,只有在文件对话框中标题才可以通过程序修改。

Action的属性见下表。

34.编写程序,要求输入一个正整数,计算各位数字之和,并将计算结果显示在窗体上。程序如下:

Private Sub Command1_Click()

Dim Sum As Integer, k As Long

k = Val(InputBox(\(A)

A. k Mod 10

B. k

C. left(CStr(k), 1

D. mid (CStr(k), 1,1)

解析:k = Val(InputBox(\

35.长整型常数的类型说明符为(C)

A. %

B. #

C. &

D. @

解析:%:整型,#:双精度实型,&:长整型,@:货币型。

36.有如下数据定义语句:

Dim a, b As Integer

Dim x%, y as Integer

执行上述语句后,不是整型变量的是(A)

A. a

B. b

C. x

D. y

解析:在Visual Basic中,变量的定义格式有两种,第一种是:Declare 变量名 As 类型,\

37.设:a=12,b=5,c=7,表达式 x=(a\\c+a Mod b)+Int(13 / 5)的值是(  )。(A)

A. 5

B. 6

C. 7

D. 9

解析:按算术运算符优先级从高到低顺序依次计算: /、\\、Mod,结果为5,故选A。

38.以下叙述中错误的是( )。(B)

A. 一个工程中可以包含多个窗体文件

B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C. 全局变量必须在标准模块中定义

D. 在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件

解析:本题考查工程和窗体。VB中一个工程可以包含多个窗体或者多个标准模块、类模块等,这些文件的扩展名不同。标准模块中经常定义全局变量或者全局过程,在一个窗体中用Private定义的过程,作用域为整个窗体,而不是整个工程。

39.窗体上有1个名称为Textl的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timerl的事件过程如下:

Private Sub Timerl yime()

Static flag As Integer

Ifflag=0 Then flag=1

flag=一flag

Ifflag=1 Then

Textl.ForeColor=&HFF& &HFF&为红色

Else

Text 1.ForeColor=&HC000&’&HC000&为绿色

End If

End Sub

以下叙述中正确的是( )。(D)

A. 每次执行此事件过程时,flag的初始值均为0

B. flag的值只可能取0或1

C. 程序有逻辑错误,Else分支总也不能被执行

D. 程序执行后,文本框中的文字每5秒改变一次颜色

解析:计时器控件(Timer)用来完成有规律性时间间隔执行的任务,Interval属性用于设置计时器事件之间的间隔,以毫秒为单位。本题在每5秒执行一次的Timer事件过程中,通过静态变量flag值的交替变换(即-1和1之间)来控制文本框中文字的颜色,值为-1时为绿色,值为l时为红色。除程序刚启动第一次执行Timer事件过程时,静态变量flag的初始值为0外,其余各次均为-1或1。

40.对长度为n的线性表排序,在最坏情况下,比较次数不是n(n一1)/2的排序方法是( )。(D)

A. 快速排序

B. 冒泡排序

C. 直接插入排序

D. 堆排序

解析:除了堆排序算法的比较次数是D(nlog2n),其他的都是n(n—1)/2。

基本操作题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

41.在名称为Form1的窗体上画一个名称为CD1的通用对话框,通过属性窗口设置CD1的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图2所示。

[操作步骤]

步骤1:新建一个“标准。EXE”工程,选择[工程]→[部件]命令,在弹出的“部件”对话框的列表中选中“MicroSoft Common DiMog Control6.0”项目,单击“确定”按钮。

步骤2:在窗体Form1上画一个通用对话框,其相关属性设置如表12—7所示。

[*]

步骤3:编写Form1的Iroad事件,加入下面的代码:

CD1.ShowSave

步骤4:按要求将文件保存至考生文件夹中。

解析:通用对话框的InitDir属性用于为打开或另存为对话指定初始的目录,如果此属性没有指定,则使用当前目录。

通用对话框的初始路径由InitDir属性设置,默认文件名由FileName属性设置,标题由DialogTitle属性设置。

42.在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0,标题为“菜单命令”的主菜单,再添加两个名称分别为“menu1”、“menu2”,标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单,并且使程序运行时,menu1子菜单不可用,menu2子菜单已经选中(运行时的效果如图3所示)。

[操作步骤]

步骤1:新建一个“标准EXE”工程,打开VB菜单设计器设计菜单,各菜单项及属性设置如表12—8所示。

[*]

步骤2:打开代码编辑窗口,编写“上一菜单项可用”命令的Click事件过程。

参考代码:

Private Sub menu2_Click()

menu1.Enabled=True

End Sub

步骤3:按要求将文件保存至考生文件夹中。

解析:①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有:“标题”项,对应出现在菜单中的显示内容;“名称”项,系统识别菜单项的唯一关键字(不能重复);“索引”项,用于设置菜单数组中各元素的索引号;“快捷键”项,是一个下拉列表框,用于设置菜单项的快捷键;“帮助上下文”项,设置当鼠标移动到某菜单项上按<Fl>键时显示的帮助信息在帮助文件中的对应位置;Visible(可见)项,用于设置控件或菜单项在程序运行时是否可见,值为True表示可见,值为False表示不可见;Enabled(有效)项,用于设置控件或菜单项在程序运行时是否有效,值为True时表示有效,值为False时表示无效(显示为灰色)。通过编辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升(设置为上一级菜单)、缩进(设置为下一级菜单)、上移、下移等操作。

②文本框的Text属性用于设置或返回其显示的文本内容。

本题原程序设计思路:在“上一菜单项可用”命令的单击事件过程中,通过语句设置“不可用菜单项”命令的Enabled属性值为True。

简单应用题

43.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sit3.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“添加”;有一个文奉框,名称为Text1,初始内容为窄白;有一个列表框,名称为List1。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击“添加”按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图2-195所示。该程序不完整,请补充完整。

要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,其中的窗体中有一个组合框和一个命令按钮(如图2.196所示)。程序的功能是在运行时,如果在组合框中输入一个项日并单击“添加”按钮,则搜索组合框中的项目,如果没有此项,则把此项添加到列表中;如果有此项,则弹出提示“已有此项”,然后清除输入的内容。

要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。

第1小题

【操作步骤】

步骤1:打开考生文件夹下的本题工程文件sit3.Vbp。

步骤2:打开代码编辑窗口,去掉程序中的注释符“”’,将问号“?”改为正确的内容。

参考代码:

S1=Textl.Text

Do While Mid(S1,11,1)””And 11

<=Len(S1)

LiStl.AddItem S2

S2=””

步骤3:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:打开考生文件下的本题工程文件sit4.vbp。

步骤2:打开代码编辑窗口,去掉程序中的注释符“”’,将问号“?”改为正确的内容。

参考代码:

For i=0 To Cbl.ListCOunt一1

If Cbl.LiSt(i)=Cbl.Text Then

Cbl.AddItem Cbl.Text

解析:

综合应用题

44.考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Text1中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。

【操作步骤】

步骤1:打开本题工程文件。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写代码。

Dim a(50)As Integer

Private Sub C1_Click()

Dim k As Integer,ch As String

Open”in5.dat”For Input As #1

ch=””

For k=1 To 50

Input#1,s(k)’将取出的数据存入数组a中

ch=ch+Str(a(k))+”“将数据存入ch

Next k

C10se #1

Text1.Text=ch’在Text1文本框中显示文件内容

End Sub

Private Sub C2_Click()

End Sub

Private Sub C3 Click()

Open”out5.dat”For Output As #1

Print#1,Text2.Text

Close #1

End Sub

需编写的“排序”按钮的代码

Private Sub C2_Click()

Dim t As Integer

Dim i As Integer

Dim j As Integer

Dim ch As String

ch=””

For i=50 To 2 Step—1彼用冒泡算法从小

到大排序

For j=1 To 49

If a(j)>a(j+1)Then’两

两比较

t=a(j+1)

a(j+1)=a(j)

a(j)=t

End If

Next j

Next i

For j=1 To 50’将排序后的数组重新赋给ch

ch=ch+Str(a(j))+””

Next j

Text2.Text=ch

End Sub

步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析:

资源下载《国家二级(VB)机试模拟试卷343附答案解析.doc》 文档下载价格为10下载币,请先
将本套试题Word文档或文章下载到电脑,方便收藏和打印
资源下载
《国家二级(VB)机试模拟试卷343附答案解析.doc》
试题含答案和解析word文档下载价格:10 下载币
《国家二级(VB)机试模拟试卷343附答案解析.doc》
试题含答案和解析word文档VIP优惠:免费
将本套试题Word文档或文章下载到电脑,方便收藏和打印
0

评论0

没有账号? 注册  忘记密码?