Question

谁有全国计算机等级考试二级vb上机题？？急需 谢谢！！

Answer 1

第1套 上机考试试题
1 基本操作题(2小题，每题15分，共计30分)
注意：下面出现的“考生文件夹”均为c;\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助” (名称分别为vbFile和vbHelp)两个主菜单项，其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、 vbClose和vbExit)，如图1-1所示。只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
(2)在名为Form1的窗体上画一个框架，名称为Frm1，标题为“框架”，高度为2500，宽度为4000，框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为“文本框”。如图1-2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

2 简单应用题 (2小题，每题20分，共计40分)
注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：
在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图1-3所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体有3个复选框，名称分别为Chi、Ch2和Ch3，标题分别为“体育”、“音乐”、“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图1-4所示。

3 综合应用题(1小题，共计30分)
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即，号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和Opt2，标题分别为“100-200之间素数”和“200-400之间素数”，一个文本框，名称为Text1，和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”，如图1-5所示。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入“out.txt”文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回 True，否则返回False，考生可以将该模块文件添加到自己的工程中。)
注意：必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为． sjt5.vbp。

答案：
第1套 上机考试试题
1 基本操作题
(1)[解析]在Visual Basic中，菜单项通过菜单编辑器来建立。解题步骤：
第一步：打开“菜单编辑器”窗口，建立菜单项。用到的菜单项及其属性见表1-1。

第二步：调试并运行程序。
第三步：按题目要求存盘。
(2)[解析]在窗体上建立好控件后，再按题目要求设置各自的属性即可。需要指出的是在框架里的控件需要画出框架后，单击工具箱里的控件然后在框架里拖动画出所需控件，不可以用双击的方法，否则所需的控件放不到框架里。窗体中的控件的具体位置由控件的Top、Left属性设置，大小由属性Height Width设置。解题步骤：
第一步：设置框架的Height、Width属性分别为2500，4000；文本框的Left、Top属性值分别为600，1200。(以上均可在属性栏里没置)
第二步：调试并运行程序。
第三步：按题目要求存盘。
2 简单应用题
(1)[解析]在窗体上建立好控件后，先设置控件属性，再编写事件过程。
向列表框中添加项目可以用AddItem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用代码实现。列表框的Text属性为最后一次选中的表项的文本。解题步骤：
第一步；建立界面并设置控件属性。程序中用到的控件及属性设置见表1-2。

第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1 Click()
Dim i As Integer
' For i = ? To List1.ListCount-1
If List1.Selected(i) = True Then
' ? = List1.List(i)
End If
Next i
End Sub
Private Sub Form Load()
List 1.AddItem "Item1"
List 1.AddItem "Item2"
List 1.AddItem "Item3"
List 1.AddItem "Item4"
End Sub
参考代码：
Option Explicit
Private Sub Cl _Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Text1.Text = List1.List(i)
End If
Next i
End Sub
Private Sub Form Load()
List1.AddItem "Item1"
List1.AddItem "Item2"
List1.AddItem "Item3"
List1.AddItem "Item4"
End Sub
第三步：调试并运行。
第四步：按题目要求存盘。
(2)[解析]在窗体上建立好控件后，先设置控件属性，再编写事件过程。
单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及属性见表1-3。

第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
' Dim s As ?
s=“我的爱好是”
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
' Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1 Click()
Dim s As String
s =“我的爱好是”
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
3 综合应用题
[解析]素数的判断准则就是看是否该数除了1和其本身外别无其他约数即可。
文本框用丁Text属性来显示计算结果：命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件；为了检测单选按钮是否选中，可以通过检测Value属性来实现，当Value为了me时，表示单选按钮被选中，否则未被选中。解题步骤：
第一步：建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见表1-4。

第二步：编写程序代码。
程序提供的代码：
标准模块代码
Option Explicit
Sub putdata( t_FileName As String，T_Str As Variant)
Dim sFile As String
SFile = "\" & t FileName
Open App.Path & SFile For Output As #l
Print #1， T Str
Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
Dim J As Integer
isprime = False
For J = 2 To t I / 2
If t_I Mod J = 0 Then Exit For
Next J
If J ＞ t I / 2 Then isprime = True
End Function
窗体代码
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
' temp = ?
If Opt2.Value Then
For i = 200 To 400
' If isprime(?) Then
temp = temp + i
End If
Next
Else
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
End If
' Text1.? = temp
End Sub
Private Sub Cmd2 Click()
putdata "\out.txt", Text1.Text
End Sub
参考代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
If Opt2.Value Then
For i = 200 To 400
If isprime(i) Then
temp = temp + i
End If
Next
Else
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
End If
Text1.Text = temp
End Sub
Private Sub Cmd2 Click()
putdata "\out.txt", Text1.Text
End Sub
第三步：调试并运行程序。第四步：按题目要求存盘。