全国计算机二级VB上机题库（题+答案）

由天下分享时间：2024/11/28 23:22:12 加入收藏我要投稿点赞

1．【解题步骤】

（1）建立界面并设置控件属性。程序用到的控件及其属性见表4-13。表4-13

对象属性设置值 Text Name Text1 单选按钮 Name Op1(0) Caption 飞机单选按钮 Name Op1(1) Caption 火车单选按钮 Name Op1(2) Caption 汽车

标签框 Name Lablel Caption 请选择

参考代码：

Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a=\我坐\ b=\我开\

Select Case Index Case 0

Text1.Text = a+Me.Op1(0).Caption + \去\ Case 1

Text1.Text = a+Me.Op1(1).Caption + \去\ Case 2

Text1.Text = b+Me.Op1(2).Caption + \去\ End Select End Sub 2．【解析步骤】

控件属性设置值按钮 Name Cmd1 Caption 计算

文本框 Name Text1 Option Explicit

Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String

sFile = \

Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1 End Sub

（3）将用来存放结果的变量设计成Long型。（4）能被3整除，即i Mod 3 = 0

（5）参考代码如下： Private Sub Cmd1_Click() Dim temp As Long Dim i As Integer For i = 100 To 200 If i Mod 3 = 0 Then temp = temp + i End If Next

Text1.Text = temp putdata \End Sub

三、综合应用题

下面出现的“考生文件夹”均为c:\\wexam\\20060001。

在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。本题描述如下：

在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”。程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数组中（数组下界为1）；如果单击“排序显示保存”按钮，则对这100个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件result.txt中（在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件中）。

注意：文件必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp，排序结果存入result.txt文件，否则没有成绩。 Option Explicit

Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer

Open \ For j = 1 To 100 Input #1, i(j)

Text1.Text = Text1.Text&i(j)&Space(5) Next

Close #1 End Sub

Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False

For k = 1 To 100 - j If i(k) > i(k+1)Then temp = i(k) i(k) = i(k+1) i(k + 1) = temp flag = True End If Next

If Not flag Then Exit For End If Next

Text1.Text = \ For j = 1 To 100

Text1.Text= Text1.Text&i(j)&Space(5) Next

putdata i, 100 End Sub

一、基本操作题

下面出现的“考生文件夹”均为c:\\wexam\\20060001。

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

1．在名称为Form1的窗体上建立一个水平滚动条，并在属性窗口中将其名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端。

注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。

2．在名称为Form1的窗体中建立1个标签，名称为L1，在标签上显示“选课”，其字体大小为小四；再建立3个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为“操作系统”、“数据库原理”和“概率论”，字体大小均为小四，其中“概率论”被禁用。

注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。 1

控件属性设置值滚动条 Name HS1 Min 0 Max 100 Value 100

Private Sub Form_Click() HS1.Value = 0 End Sub 2

控件属性设置值标签 Name L1 Caption 选课 FontSize 小四

复选框 Name Chk1 Caption 操作系统 FontSize 小四

复选框 Name Chk2 Caption 数据库原理 FontSize 小四

复选框 Name Chk3 Caption 概率论 FontSize 小四 Enabled False 二、简单应用题

下面出现的“考生文件夹”均为c:\\wexam\\20060001。

1．在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：

在窗体上有一个名称为Text1的文本框，一个名称为C1、标题为“校验”的命令按钮。其中文本框用来输入口令，要求在文本框中输入的内容都必须以“*”显示（请考生通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”。 2．在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：

在窗体上有3个名称分别为Ch1、Ch2和Ch3的复选框，标题分别为“程序设计”、“数据库原理”和“计算机网络”，还有一个名称为C1、标题为“选课”的命令按钮。要求程序运行后，如果选择某个复选框，当单击“选课”命令按钮时在窗体上显示相应的信息。例如：如果选择“程序设计”和“计算机网络”复选框，单击“选课”命令按钮后，将在窗体上显示“我选的课程是程序设计计算机网络”。二、简单应用题答案 1．【解析步骤】（1）在窗体上建立控件，设置控件属性。程序中用到的控件及其属性见表4-18。表4-18

控件属性设置值文本框 Name Text1 PasswordChar * 按钮 Name C1 Caption 校验

（2）按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”，则应该将PasswordChar属性设置为“*”。（5）修改代码。

在语句If Text1.Text = \错误\中，第1个“?”号处应该是If语句的条件表达式，填内置口令“ABC”，第2个“?”号处应该是输出“正确”信息。

（6）参考代码如下： Option Explicit

Private Sub C1_Click()

If Text1.Text = \ MsgBox \正确\Else

MsgBox \错误\End Sub 。 2．【解析步骤】

（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-20。表4-20

控件属性设置值按钮 Name C1 Caption 选课标签 Caption 课程复选框 Name Ch1 Caption 程序设计复选框 Name Ch2 Caption 数据库原理复选框 Name Ch3 Caption 计算机网络

（4）参考代码如下： Option Explicit

Private Sub C1_Click() Dim s As String

s = \我选的课程是\ If Ch1.Value = 1 Then s = s &\程序设计\ End If