【VB开源代码栏目提醒】：网学会员VB开源代码为您提供国家计算机二级等级考试VB上机模拟试题40套 - 企业软件开发参考，解决您在国家计算机二级等级考试VB上机模拟试题40套 - 企业软件开发学习中工作中的难题，参考学习。
国家
计算机二级
VB 上机试题 2.1 全国二级
VB 上机考试模拟试题 1 注意：下面出现的“考生文件夹”均为 C:
VBMNST01 1.基本操作 请根据以下各小题要求设计 Visual Basic 应用程序包括界面和
代码。
1 在名称为 Form1 的窗体上画一个名称为 Shape1 的形状控件，要求在属性窗口中将形状 设置为椭圆，其长轴水平方向，短轴垂直方向的长度分别为 1600，800。
把窗体的 标题改为 ， “shape 控件” 窗体上没有最大化、最小化按钮。
程序运行后的窗体如图 2.1.1 所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为sjt1.frm。
图 2.1.1 运行界面 图 2.1.2 运行界面2 在名称为 Form1 的窗体上画一个名称为 HS 的水平滚动条，最大值为 100，最小值为１。
再画一个名称为 List1 的列表框，在属性窗口中输入列表项的值，分别是 1000、1500、 2000，如图 2.1.2 所示。
请编写适当的程序，使得运行程序时，当选择列表框中的某一 项，将水平滚动条的长度改变为所选中的值。
注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。
２.简单应用 1 在考生文件夹中有一个工程文件 sjt3.vbp。
运行程序时，先向文本框 Text1 种输入一个不超过 10 的正整数，然后选择“Ｎ的阶乘”或“N2的阶乘”单选按钮，即可进行计算，计算结果显示在文本框 Text2 中，如图 2.1.3 所示。
在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
图 2.1.3 运行界面 已有程序
代码如下： Private Sub Option1_ClickIndex As Integer Dim n As Integer n ValText1.Text Select Case Case 0 Text2.Text f1 Case 1 Text2.Text f1 End Select End Sub Public Function f1n As Integer As Long Dim x As Long x 1 For i 1 To x x i Next x End Function 2 在考生文件夹中有一个工程文件 sjt4.vbp。
该程序的功能是将文件 in4.txt 中的文本读出并显示在文本框 Text1 中。
在文本框 Text２中输入一个英文字母，然后单击“统计”命令按钮，统计该字母（大小写被认为是不同的字母）在文本中出现的次数，统计结果显示在标签 Label3 中。
给出的窗体文件中已经有了全部控件，如图 2.1.4 所示。
程序不完整，要求：去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
图2.1.4 运行界面 图 2.1.5 运行界面 已有程序
代码如下： Private Sub Form_Load Open App.Path amp quotin4.txtquot For Input As 1 Line Input 1 s Text1.Text Close 1 End Sub Private Sub Command1_Click Dim n As Integer s Text1.Text s1 RTrimText2.Text Do p InStr If p ltgt 0 Then n n 1 s Mids p 1 Loop While p 0 Label3.Caption End Sub ３.综合应用 在考生目录下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为 Text1，还有 、两个命令按钮，名称分别为 C1、C2，标题分别为“计算”“存盘” ，如图 2.1.5 所示。
有一个函数过程 isprimea可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。
请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出小于 18000 的最大的素数，并显示在 Text1 中；单击“存盘”按钮，则把 Text1 中的计算结果存入考生目录下的 out5.txt 文件中。
注意：考生不得修改 isprime 函数过程和控件的属性，必须把计算结果通过“存盘”按钮，将 Text1 中的计算结果存入考生目录下的 out5.txt 文件中，否则无成绩。
已有程序
代码如下： Private Function isprimea As Integer As Boolean Dim flag As Boolean flag True b 2 Do While b lt Inta / 2 And flag If Inta / b a / b Then flag False Else b b 1 End If Loop isprime flag End Function 2.2 全国二级
VB 上机考试模拟试题 2 注意：下面出现的“考生文件夹”均为 C:VBMNST02 1.基本操作 根据以下各小题要求设计 Visual Basic 应用程序（包括界面和
代码）。
1 在名称为 Form1 的窗体上画一个名称为 Label1、标题为“滚动条控件”的标签，一个名称为 Hscroll1 的水平滚动条。
请通过属性窗口设置属性使水平滚动条取值范围的最小值为１，最大值为 100，滚动条的宽度为 3000，高度为 300，滚动块的初始位置为 20，程序运行后的窗体如图 2.2.1 所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为sjt1.frm。
图 2.2.1 运 行 界 面 图 2.2.2 运行界 面 （2）在名 称为 Form1 的 窗体上画一个 名称为 Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。
画一个名称为 Timer1 的计时器，在属性窗口中将其设置为不可用，时间间隔为 0.5 秒，窗体如图 2.2.2 所示。
请编写窗体的 Load 事件过程和计时器过程，使得程序一开始运行，计时器即变为可用，且每隔0.5 秒形状控件向下移动 100。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。
２.简单应用 1 在考生文件夹中有一个工程文件 sjt3.vbp。
程序的功能是输入用户名和密码。
程序运行时，当向文本框 Text2 中输入密码时，若“显示密码”复选框没被选中，则在文本框Text3 中同时显示“＃” （如图 2.2.3 所示）；若“显示密码”复选框被选中，再重新输入密码时，则在 Text3 中同时显示的是密码字符本身。
在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
图 2.2.3 运行界面 已有程序
代码如下： Private Sub Text2_Change If 1 Then Text3.PasswordChar Else Text3.Pass
wordChar End If Text3.Text End Sub 2 考生文件夹中有一个工程文件 sjt4.vbp。
如图 2.2.4 所示该程序的功能是：程序运行时，向文本框控件数组 Text1（有５个文本框）中任意输入５个数，单击名称为Command1 的命令按钮，则找出其中最小数并显示在标签 lblResult 中。
给出的窗体文件中已经有了全部控件，但程序不完整，其中函数 FindMin 返回两个数中的较小数。
要求：去掉
程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
图 2.2.4 运行界面 已有程序
代码如下： Private Sub Command1_Click Dim x As Integer k As Integer x ValText11.Text For k 2 To x FindMinValText1k.Text Next lblResult.Caption End Sub Public Function FindMinx As Integer y As Integer If x y Then FindMin y Else FindMin x End If End Function ３.综合应用 在考生文件夹中有一个工程文件 sjt5.vbp。
界面如图 2.2.5 所示，该程序的功能是：分别统计 77 数组四周元素之和及四周元素中能够被７整除的元素的个数， 并将统计结果显示在相应的标签中。
请仔细阅读已有程序，然后再标出的位置编写适当的程序实现上述功能。
要求：不得修改原有的程序和控件的属性。
在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。
最后把修改后的文件按原文件名存盘。
图 2.2.5 运行界面已有程序
代码如下： Dim a7 7 As Integer Private Sub Form_Load read End Sub Public Sub read Open App.Path amp quotData5.txtquot For Input As 1 Do While Not EOF1 For i 1 To 7 For j 1 To 7 Input 1 ai j Next j Next i Loop Close 1 End Sub Private Sub Command1_Click Dim Sum As Long 考生编写程序开始 考生编写程序结束 Save End Sub Public Sub Save Open App.Path amp quotout5.txtquot For Output As 1 Print 1 lblFirst.Caption lblSecond.Caption Close 1 End Sub 2.3 全国二级
VB 上机考试模拟试题 3 注意：下面出现的“考生文件夹”均为 C:VBMNST03 1.基本操作 请根据以下各小题要求
设计 Visual Basic 应用程序（包括界面和
代码） 。
1在名称为 Form1，标题为“
列表框练习”的窗体上画一个名称为 List1 的列表框，表项内容依次输入 xxx，ddd，mmm 和 aaa，且以宋体 14 号字显示表项内容，如图 2.3.1a所示。
最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图 2.3.1b所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。
图 2.3.1a运行界面 图 2.3.1b运行界面 2在名称为 Form1 的窗体上，画一个名称为 Label1 的标签，其标题为“计算机等级考 ，字体为宋体，字号为 12，且能根据标题内容自动调整标签的大小。
再画２个名称分别试”为 Command1、Command２，标题分别为“缩小”和“还原”的命令按钮（如图 2.3.2 所示） 。
要求：编写适当的事件过程，使得单击“缩小”按钮，Label1 中所显示的标题内容自动减小２个字号；单击“还原”按钮，Label1 中所显示的标题内容的大小自动恢复到 12 号。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为sjt2.vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
图 2.3.2 运行界面 ２.简单应用 1 考生文件夹下的工程文件 sjt3.vbp 中有一个初始内容为空，且带有垂直滚动条的文本框，其名称为 Text1；２个标题分别为“读数据”和“查找”的命令按钮，其名称分别为 Cmd1，Cmd2。
请画１个标题为“查找结果”的标签 Label1，再画一个名称为 Text2，其初始内容为空的文本框，如图 2.3.3 所示。
程序功能如下： 1 单击“读数据”按钮，则将考生文件夹下 in3.dat 文件中已按升序排列的 30 个整数读入一维数组 a 中，并同时显示在 Text1 文本框内； 2 单击“查找”按钮，将弹出输入框接受用户输入的任意一个偶数，若接受的数为奇数，则提示重新输入。
如果接收的偶数超出一维数组 a 的数值范围，则无须进行相应的查找
工作，直接在 Text2 文本框内给出结果；如果接收的偶数在一维数组 a 的数值范围，则在一维数组 a 中查找该数，并根据查找结果在 Text2 文本框内显示相应的信息。
命令按钮的 Click 事件过程已给出，但“查找”按钮的 Click 事件过程不完整，请将其中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
图 2.3.3 运行界面 已有程序
代码如下： Option Base 1 Dim a30 As Integer Private Sub Cmd1_Click Open App.Path amp quotin3.datquot For Input As 1 For m 1 To 30 Input 1 am Text1 Text1 Stram Space2 Next m Close 1 End Sub Private Sub Cmd2_Click Dim num As Integer n As Integer num InputBoxquot请输入待查找的数quot If num / 2 Fixnum / 2 Then MsgBox quot输入数为奇数，请重输！quot quot检查quot Exit Sub End If If num lt a1 num gt a30 Then Text2.Text Strnum quot已超出所给数值范围quot Exit Sub End If For n 1 To 30 If an Then Text2.TextStrnumquot是数组中的第quotStrnquot个值quot Exit For End If Next n If n 30 Then Text2.Text Strnum quot不存在于数组中quot End If End Sub 2 考生文件夹下的工程文件 sjt4.vbp 中有１个初始内容为空的文本框 Text1，１个包含三个元素的文本框控件数组 Text2，２个标题分别为“读数据”和“统计”的命令按钮，２个分别含有三个元素的标签控件数组 Label1 和 Label2，如图 2.3.4 所示。
程序功能如下： 1）考生文件夹下 in4.dat 文件中存有 20 个考生的考号及数学和语文单科考试成绩。
单击“读数据”按钮，可以将 in4.dat 文件内容读入到 20 行 3 列的二维数组 a 中，并同时显示在 Text1 文本框内； 、 2）单击“统计”按钮，则对考生数学和语文的平均分在“优秀”“通过”和“不通过”三个分数段的人数进行统计， 并将人数统计结果显示在控件数组 Text2 中相应位置。
其中平均分在 85 分以上（含 85 分）为“优秀” ，平均分在 60-85 分之间（含 60 分）为“通过”，平均分在 60 分以下的为“不通过” 。
命令按钮的 Click 事件过程已经给出，但“统计”按钮的 Click 事件过程不完整，请将其中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
图 2.3.4 运行界面 已有程序
代码如下： Option Base 1 Dim a20 3 As Integer Private Sub Command1_Click Open App.Path amp quotin4.datquot For Input As 1 For i 1 To 20 For j 1 To 3 Input 1 ai j Text1 Text1 Strai j Space4 Next j Text1 Text1 Chr13 Chr10 Next i Close 1 End Sub Private Sub Command2_Click Dim x3 As Integer For i 1 To 20 ai 2 ai 3 / 2 Select Case Avg Case x1 x1 1 Case x2 x2 1 Case Is lt 60 x3 x3 1 Next i For n 1 To 3 Text2 xn Next n End Sub 3.综合运用 2 考生文件夹下的工程文件 sjt5.vbp 中有１个初始内容为空的文本框 Text1， 个标题分别是“读数据”和“计算”的命令按钮；请画 1 个标题为“各行平均数的最大值为”的标签Label2，再画１个初始内容为空的文本框 Text2。
如图 2.3.5 所示。
程序功能如下： 1 单击“读数据”按钮，则将考生文件夹下 in5.dat 文件的内容读入 20 行 5 列的 二维数组 a 中，并同时显示在 Text1 文本框内； 2 单击“计算”按钮，则自动统计二维数组 a 中各行的平均数，并将这些平均数中 的最大值显示在 Text2 文本框内。
“读数据”按钮的 Click 事件过程已经给出，请编写“计算”按钮的 Click 事件过程实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
最后，程序按原文件名存盘。
图 2.3.5 运行界面 已有程序
代码如下： Option Base 1 Dim a20 5 As IntegerPrivate Sub Command1_Click Open App.Path amp quotin5.datquot For Input As 1 For i 1 To 20 For j 1 To 5 Input 1 ai j Text1 Text1 Strai j Space2 Next j Text1 Text1 Chr13 Chr10 Next i Close 1End SubPrivate Sub Command2_Click 考生编写End SubPrivate Sub Form_UnloadCancel As Integer Open App.Path amp quotout5.datquot For Output As 1 Print 1 Text2.Text Close 1End Sub 2.4 全国二级
VB 上机考试模拟试题 4 注意：下面出现的“考生文件夹”均为 C:VBMNST04 1.基本操作 请根据以下各小题要求设计 Visual Basic 应用程序（包括界面和
代码） 。
（1） 在名称为 Form1，标题为“控件数组”的窗体上，画 1 个名称为 Cmd1 的控件数 、 、组，该控件数组由三个命令按钮组成，其标题分别是“插入”“删除”“更新” ，索引号分别为 0、1、2。
运行后的窗体如图 1.4.1 所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为sjt1.frm。
图 2.4.1 运行界面 图 2.4.2 运行界面 （2） 在名称为 Form1 的窗体上画 1 个名称为 Text1，内容为“计算机”的文本框，且显示为小四号字， 再画 3 个命令按钮，名称分别为 、 “Command1” “Command2”“Command3” 、 ， 、 、标题分别是“居左”“居中”“居右” 。
如图 2.4.2 所示。
要求：编写 3 个命令按钮的 Click 事件过程，使得单击“居左”按钮时，文本框的内容靠左对齐；单击“居中”按钮时，文本框的内容居中对齐；单.
相关文章
2013-9-15
