VB机试模拟试卷108 (题后含答案及解析)
题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题
基本操作题（30分）
1． 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。  (1)在名称为Forml的窗体上放置两个列表框，名称分别为Listl和Ljst2。在Listl中添加“Iteml”…“Itern6”，并设置MultiSelect属性为2(要求在控件属性中设置实现)。再放置一个名称为Commandl、标题为“导出”的命令按钮。程序运行后，如果单击“导出”按钮，将Listl中选中的内容(至少三项)复制到List2中，并将对应的项从Listl中删除。如果选择的项数少于3项，用消息框提示“请选择至少3项”，如图63—1所示。    注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。    (2)在名称为Forml的窗体上放置一个名称为Textl的文本框。程序运行后，用户在文本框中输入的英文字母一律用小写显示。如图63—2所示。    注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)向列表框中添加项目可以用AddItem方法添加，也可以在属性窗口中进行。列表
框的Text属性为最后一次选中的 表项的文本。    根据题意，新建“标准EXE”工程，将两个列表框控件和一个命令按钮添加到窗体中，列表框的名称分别为Listl和 List2，在Listl中List属性中添加“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，命令按钮的名称为Commandl、Caption属性为“导出”，在Listl中选中的项，通过for循环进行复制并删除。补充后的具体代码如下：    Private Sub Commandl_Click(  )    Dim i As Integer    i=1    If Listl．SelCount按钮运行程序，并按要求保存。    (2)在Text控件中输入文本时会触发Change事件，要将大写字母转换成小写字母要通过Lcase函数来实现。    根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Textl、Text属性为空，设置结束后双击Textl，进入代码窗口，编写如下代码：    Private Sub Textl_Change(  )    Textl．Text=LCase(Textl．Text)    Textl．SelStart=Len(Textl．Text)    End Sub    单击按钮运行程序，并按要求保存。 
简单应用题（40分）
vb开始按钮代码2． (1)请在窗体上面画两个文本框，其名称分别为Textl和Text2，文本框内容设置为“模拟考试”和“顺利通过”。然后画两个单选按钮，其名称分别为Optionl和Option2，标题分别为“交换”
和“连接显示”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮，则交换显示Textl和Text2中的内容；如果选中“连接显示”单选按钮，则连接后的内容显示在Textl中，初始状态不选中任何单选按钮。如图12—3所示。存盘时，工程文件名为Sj3．vbp，窗体文件名为sj3．frm。    注意：在结束程序运行时，必须先选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，并将连接显示后的结果输出到考生文件夹下的out．txt文件中，否则可能无成绩。    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，在窗体上有两个命令按钮，名称分别为Commandl与Command2、标题分别为“读取文本”、“保存”。另有一个文本框，文本框的名称为Text1，Text属性为空，可多行显示。要求在运行程序时，单击“读取文本”按钮，可以读入考生文件夹下的并显示在文本框中；单击“保存”按钮，可以把文本框中的数据存到考生文件夹下的另一个文件out4．txt中。程序运行时的窗体界面如图12—4所示。    注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“‘”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
正确答案：  (1)根据题意，新建“标准EXE”工程，将两个文本框控件和两个单选按钮控件添加到窗体中，文本框的名称分别为Textl和Text2，Text属性分别为“模拟考试”和“顺利通过”，
单选按钮的名称分别为Optionl和Option2，Caption属性分别为“交换”和“连接显示”，设置完成后双击Option进入代码窗口，编写如下代码：    Private Sub Optionl Click(  )    Dim str As String    str=Textl．Text    Textl．Text=Text2．Text    Text2．Text=str    End Sub    Private Sub Option2 Click(  )    Textl．Text=Textl．Text+Text2．Text    Open”App．Path&＼out．txt”For Output As#1    Print#1，Textl．Text    Close#1    End Sub    单击按钮运行程序，并按要求保存。    (2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl，命令按钮的名称为分别为Commandl和Command2，Caption属性分别为“读取文本”和“保存”。双击Commandl进人代码窗口，编写如下代码：    Dim rel AS String    Private Sub Commandl_Click(  )    Dim str As String    str=““    rel=““    Textl．Text=““ ‘初始化Textl的文本    Open”App．Path&＼in4．txt”For Input As#1 ‘打开文件，进行读取    While EOF(1)=False’判断文件是否读取完    Input#1，str’读取文本    Textl．Text=Textl．Text+str’在Textl中显示文本    Wend    Close#1    End Sub    Private Sub Command2_Click(  )    Open”App．Path&＼out4．txt”For Output As#2    Print#2，Textl．Text’将文本保存到sjout．txt文件中    Close#2    End Sub    单击按钮运行程序，并按要求保存。 
综合应用题（30分）
3． 在考生文件夹下有一个工程文件sj5．vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5．txt文件(如图30—5所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Textl)中；单击“修改内容”按钮，则将Textl中的大写字母“E”、“N”、“T’’改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5．txt”(如图30—6所示)，单击“保存”按钮，则将Textl中修改后的内容存到out5．txt文件中。    注意：窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符(即“‘”号)，把程序中的“?”改为正确的内容，并编写“修改内容”按钮的Click事件过程。考生不得修改已经存在的程序。必须把Textl中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照文件名将程序存盘。
正确答案：    本题主要考查文件操作，通用对话框的InitDir、Filterlndex、Filter和Action，通用对话框的ShowOpen方法，For循环语句，If判断选择语句，App．Path相对路径，Mid(  )函数，Len(  )函数，Ucase(  )函数以及Lease(  )函数。根据题意，编写如下代码：  Option Explicit  Private Sub Commandl_Click(  )  Dim S As String  CommonDialogl．Filter=“所有文
件|*．*|文本文件|*．txt”  CommonDialogl．FilterIndex=2  On Error GoTo openerr  CommonDialogl．InitDir=App．Path  CommonDialogl．ShowOpen  Open CommonDialogl．FileName For Input As#1  Input#1，S  Close#1  Textl．Text=s  openerr；  End Sub  Private Sub Command2 Click(  )考生需要编写的程序  Dim ch As String  Dim S As String  Dim n As Long  s=Textl．Text  Textl．Text=““  For n=1 To Len(s)  ch=Mid(s，n，1)  If eh=“E”Or ch=“N”Or ch=“T”Then  ch=LCase(ch)  Elself ch=“e”Or ch=“n”Or ch=“t”Then  ch=UCase(ch)  End If  Textl．Text=Textl&ch  Next n  End Sub  Private Sub Command3 Click(  )  CommonDialogl．Filter=“文本文件|*．txtl所有文件|*．*”  CommonDialogl．FilterIndex=1  On Error GoTo openerr  CommonDialogl．FileName=“out5．txt”  CommonDialogl．InitDir=App．Path  CommonDialogl．Action=2  Open CommonDialogl．FileName For Output As#l  Print#1，Textl  Close#1  openerr：  End Sub单击按钮运行程序，并按要求保存。 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。