计算机二级(VB)机试80

[模拟] 计算机二级（VB）机试80
一、基本操作题
第1题：
在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：
(a)在文本框中可以显示多行文本；
(b)在文本框中显示垂直滚动条；
(c)文本框中显示的初始信息为“全罔计算机等级考试”；
(d)文本框中显示的字体为三号、规则、黑体；
(e)窗体的标题为“设置文本属性”。

完成设置后的窗体如下图所示。

要求：不编写任何代码。

参考答案：
第一步：启动Visual Basic，新建一个工程文件。

第二步：单击工具箱上的“文本框”控件，在窗体上画一个文本框，将其Name属性设置为Text1，Text 属性设置为“程序设计”，Font属性中设置字体为黑体，字号为三号，MultiLine 属性设为True，ScrollBars属性值设为2；将Form1的Caption设为“设置文本框属性”。

第三步：调试并运行程序，运行正确后按要求保存。

详细解答：
第2题：
在窗体上画两个文本框，名称为Text1，Text2。

使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容。

程序运行时的界面如下图所示。

参考答案：
第一步：启动Visual Basic，新建一个工程文件。

第二步：单击工具箱中的“文本框”控件，在窗体上画两个文本框，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、Line2的坐标值，请按此表画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题：
在考生文件夹下有一个工程文件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%T hen
7 flag=False
8 Else
9 b%=b%+1
10 End If
11 Loop
12 isprime= flag
13 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 isprime(i)=True Then 7 a=i 8 End If 9 Next i 10 Me.Text1. Text=a 11 End Sub 第三步：调试运行程序，正确后以原文件名保存。

详细解答：。