计算机二级机试80

1、 模拟 计算机二级( VB)机试 80一、基本操作题第 1 题：在名称为 Form1的窗体上画一个文本框，其名称为 Text1 ， 然后通过属性窗口 设置窗体和文本框的属性，实现如下功能：(a) 在文本框中可以显示多行文本；(b) 在文本框中显示垂直滚动条；(c) 文本框中显示的初始信息为“全罔计算机等级考试”；(d) 文本框中显示的字体为三号、规则、黑体；(e) 窗体的标题为“设置文本属性”。完成设置后的窗体如下图所示。 要求：不编写任何代码。参考答案：第一步：启动 Visual Basic ，新建一个工程文件。 第二步：单击工具箱上 的“文本框” 控件，在窗体上画一个文本框， 将其 Nam

2、e属性设置为 Text1 ，Text 属性设置为“程序设计” ，Font 属性中设置字体为黑体， 字号为三号， MultiLine 属性设为 True ， ScrollBars 属性值设为 2；将 Form1 的 Caption 设为“设置文 本框属性”。 第三步：调试并运行程序，运行正确后按要求保存。详细解答： 第 2 题：在窗体上画两个文本框，名称为 Text1 ， Text2 。使得在 运行时，如果在 Text1 中每输入一个字符，则显示一个“ *”，同时 在 Text2 中显示输入的内容。 程序运行时的界面如下图所示。参考答案：第一步：启动 Visual Basic ，新建一个工程文件

3、。 第二步：单击工具箱中 的“文本框”控件，在窗体上画两个文本框， Name属性分别设为 Text1 和 Text2 ， 把 Text1 的 PasswordChar属性设为“* ”。 第三步：编写程序源代码： 1 Private Sub Text1_Change( ) 2 Text2. Text=Text1. Text 3 End Sub第四步：调试并运行程序，运行正确后保存。程序设计完成经调试无误后进行存盘。以 sit2. vbp 和 sjt2. frm 进行保存。详细解答：二、简单应用题第 3 题：在名称为 Form1 的窗体上画出如阿所示的三角形。下表给出了直线 Line1 、 Lin

4、e2 的坐标值，请按此表画 Line1 、 Line2 ，并画出 直线 Line3 ，从而组成如图所示的三角形。表 Line1 、 Line2 的坐标值参考答案：第一步：启动 Visual Basic ，新建一个工程文件。 第二步：编写程序源代 码： 1 Private Sub Form 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 第三步：调试并运行程序，运行正确后按要求保存。详细解答：第 4 题： 在考

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

6、2 Dim flag As Boolean3 flag=True4 b%=25 Do while b% < =Int(a/2)And flag6 If Int(a/b%)=a/b%T hen7 flag=False8 Else9 b%=b%+110 End If11 Loop12 isprime= flag13 End Eunction参考答案：第一步：启动 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 ispr