当前位置: 首页 > >

二级VISUAL BASIC机试真题2007年09月

发布时间:

二级 VISUAL BASIC 机试真题 2007 年 09 月

1 基本操作题 请根据以下各个小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 1、在名称为 Form1 的窗体上画一个文本框,其名称为 Text1,然后通过属性窗 口设置窗体和文本框的属性,实现如下功能. (a)在文本框中可以显示多行文本; (b)在文本框中显示垂直滚动条; (C)文本框中显示的初始信息为“全国计算机等级考试”; (d)文本框中显示的字体为三号、规则、黑体; (e)窗体的标题为“设置文本属性”。 完成设置后的窗体如下图所示。

要求:不编写任何代码。 2、在窗体上画两个文本框,名称为 Text1,Text2。使得在运行时,如果在 Text1 中每输入一个字符,则显示一个“*”,同时在 Text2 中显示输入的内容。 程序运行时的界面如下图所示。

2 简单应用题 1、在名称为 Form1 的窗体上画出如图所示的三角形。 下表给出了直线 Line1、Line2 的坐标值,请按此表画 Line1、Line2,并画 出直线 Line3,从而组成如图所示的三角形。 表 Line1、Line2 的坐标值 名称 X1 Y1 X2 Y2 Line1 600 1600 1600 600 Line2 600 1600 2600 1600

2、在考生文件夹下有一个工程文件 T507.vbp,其窗体上有一个文本框,名称 为 Text1;还有一个命令按钮,名称为 C1,标题为“计算”,如图所示。有一 个函数 isprime()可以在程序中直接调用,其功能是判断参数 a 是否为素数, 如果是素数,则返回 True,否则返回 False。请编写适当的事件过程,使得在 运行时,单击“计算”按钮,则找出小于 2000 的最大素数,并显示在 Text1 中。 注意:考生不得修改 isprime()函数过程和控件的属性。 试题源程序: 1 Private Function isprime(a As Integer)As Boolean 2 Dim flag As Boolean 3 flag=True

4 b%=2 5 Do While b%<=Int(a/2)And flag 6 If Int(a/b%)=a/b% Then 7 flag=False 8 Else 9 b%=b%+1 10 End If 11 Loop 12 isprime=flag 13 End Function

3 综合应用题 1、在名称为 Form1 的窗体中画三个命令按钮(名称分别为 Command1、Command2 和 Command3,标题分别为“显示”、“统计”和“保存”),然后画一个文本 框(名称为 Text1,MultiLine 属性设置为 True,ScrolIBars 属性设为 2),如 下图所示。

程序运行后,如果单击“显示”,则读入程序中的文本,并在文本框中显示 出来,如下图所示。 如果单击“统计”,则统计文本框中 ASCⅡ码大于等于 70 而小于等于 100 的字符的个数,并把结果在文本框中显示出来,如下图所示。 如果单击“保存”按钮,则把统*峁娴轿募小 注意:结束程序前必须用“保存”按钮将统*峁4娴轿募校裨蛎挥 成绩。最后必须用原文件名存盘。

答案: 1 基本操作题 1、第一步:启动 Visual Basic,新建一个工程文件。 第二步:单击工具箱上的“文本框”控件,在窗体上画一个文本框,将其 Name 属性设置为 Text1,Text 属性设置为“程序设计”,Font 属性中设置字体 为黑体,字号为三号,MultiLine 属性设为 True,ScrolIBars 属性值设为 2; 将 Form1 的 Caption 设为“设置文本框属性”。 第三步:调试并运行程序,运行正确后按要求保存。

(1) [解析] MultiLine 属性如果设为 False,则在文本框中只能输入单行文字;当设为 True 时,可以使用多行文本,即在文本框中输入或输出文字时可以换行,并在 下一行接着输入或输出。 ScrolIBars 属性用来设置文本框是否有滚动条,要使文本框有垂直滚动条, 将其设为 2 即可。注意,要使得文本框有滚动条,其 MultiLine 属性必须为 True。 2、第一步:启动 Visual Basic,新建一个工程文件。 第二步:单击工具箱中的“文本框”控件,在窗体上画两个文本框,Name 属性分别设为 Text1 和 Text2,把 Text1 的 PasswordChar 属性设为“*”。 第三步:编写程序源代码: 1 Private Sub Text1_Change() 2 Text2 Text=Text1.Text 3 End Sub 第四步:调试并运行程序,运行正确后保存。程序设计完成经调试无误后进 行存盘。以 sjt2.vbp 和 sjt2.frm 进行保存。 (2) [解析] 文本框的 PasswordChar 在默认状态下被没置为空字符串(不是空格),用户 从键盘上输入时,每个字符都可以显示出来,若设为非空的某个字符,则运行 时文本框中显示设置的那个字符,而非输入的内容。现要求显示*,所以将 PasswordChar 属性设为*即可。不过要引起注意的是该文本框的 Text 属性还是 输入的内容,所以把 Text1 的 Text 属性值赋给 Text2 时,就可以在 Text2 中显 示输入的内容。 2 简单应用题 1、第一步:启动 Visual Basic,新建一个工程文件。 第二步:编写程序源代码: 1 Private Sub Foxm_Load() 2 Me.Line(600,1600)-(1600,600) 3 Me.Line(600,1600)-(2600,600) 4 Me.Line(2600,600)-(1600,600) 5 End Sub 第三步:调试并运行程序,运行正确后按要求保存。 (1) [解析] 本题主要考查 Line 方法。不通过形状控件,用户通过 Line 方法建立自定义 的图形。题目要求画出一个三角形,那就是要求画出首尾相连的三条直线,根 据题目已经给出的两组(X1,Y1)、(X2,Y2)的坐标,我们很容易就可以计算出 第三条直线的起始点和终止点坐标。而对于 Line 方法,只要给出了起始点和终 止点坐标,一条直线便生成了,所以代码中通过三条 Line 语句画出三条直线组 成了题目所要求的一个三角形。 2、第一步:启动 Visual Basic,打开考生文件夹下的工程文件 T507.vbp。

第二步:双击窗口中的任何位置,进入程序编辑窗口,补充程序如下: 1 Private Sub C1 Click() 2 Static a As Integer 3 Dim i As Integer 4 For i=1 To 2000 5 Call isprime(i) 6 If isprime(i)=True Then 7 a=i 8 End If 9 Next i 10 Me Text1.Text=a 11 End Sub 第三步:调试运行程序,正确后以原文件名保存。 (2) [解析] 本题主要考查过程函数的调用以及 For 循环语句的使用。考生可在窗体上双 击 C1,进入程序编写窗口。根据题意,主要是使 2000 以内的最大素数显示在 文本框中,故可以使用 For 循环语句,令变量 i 在 1~2000 之间取值,逐一作 为实参调用 isprime()函数过程,当遇到 isprime()函数过程返回 True 值时, 把 i 的值赋给 a。这样循环便可得到 2000 以内的最大素数。 这也是本题最后所给两点要求的原因。 3 综合应用题 1、第一步:启动 Visual Basic,打开考生文件夹下的工程文件 T506.vbp。 第二步:单击工具箱,拖拉出一个文本框、三个命令按钮置于 Form1 上,属 性设置如下:文本框的 MultiLine 属性设为 True,ScrolIBars 属性选择 2,三 个命令按钮的 Caption 属性分别为“显示”、“统计”和“保存”,其余均采 用默认设置。 第三步:窗体设计完毕后,双击窗体中的任何位置,进入代码编辑窗口,编 辑代码如下: 1 Dim sen0 As String 2 Dim sen As String 3 Private Sub Command1_Click() 4 Open App.Path&"\inzhyy10.txt"For Input As #l 5 Line Input #1,sen0 6 sen=sen+sen0 7 Close #1 8 Me.Text1.Text=sen 9 End Sub 10 Private Sub Command2 Click() 11 Dim n As Integer 12 Dim oldSen As String 13 Dim ch As String 14 oldSen=Text1 Text

15 strlen=Len(oldSen) 16 For i=1 To strlen 17 ch=Mid(oldSen,i,1) 18 If Asc(ch)>=70 And Asc(ch)<=100 Then 19 n=n+1 20 End If 21 Next i 22 Text1.Text=Me.Text1.Text+Str(n) 23 End Sub 24 Private Sub Command3_Click() 25 Open App.Path&"\outzhyy10.txt"For Output As #1 26 Write #1,Me Text1 Text 27 Close #1 28 End Sub 第四步:编写完毕,调试无误后,以原文件名保存到原文件夹下。 [解析] 本题要求考生编写三个按钮的 Click 事件过程,三个代码的功能分别为:读 取数据,统计数据以及保存数据。 Command1 的 Click 事件为“显示”,即读文件并显示在文本框中的一个过 程。待读的文本是一个多行文本,故我们一行行读入后赋给一个字符串变量, 最后将此字符串变量赋给文本框的 Text 属性,具体代码为: 1 Open App Path&"\inzhyy10.txt"For Input As #1 2 Line Input #1,sen0 3 sen=sen+sen0 4 Close #1 5 Me.Text1.Text=sen Command2 的 Click 事件为统计读入的字符中 ASCⅡ码值大于等于 70 且小于 等于 100 的字符个数,程序通过一个 For 循环对读入的各个字符逐一检查,最 后统计出总个数。具体核心代码为: 1 For i=1 To strlen 2 ch=Mid(oldSen,i,1) 3 If Asc(ch)>=70 And Asc(ch)<=100 Then 4 n=n+1 5 End If 6 Next i Command3 的 Click 事件为保存,即将文本框的内容写入文件,经过多次训 练,这对于考生来说应该很简单,代码为: 1 Open App.Path&"\outzhyy10.txt"For Output As #1 2 Write #1,Me.Text1.Text 3 Close #1 这里我们采用了 Write #语句。




友情链接: