2022年vb简单应用题 .pdf

Vb 简单应用题练习题第一题：打开考生考号文件夹下的T5-1 文件夹下的工程文件vbsj3.vbp，在名称为Form1 的窗体上已经添加一个名为lblClock 的标签控件和一个名称为timeClock 的计时器控件；请将标签控件 lblClock 的 Caption 属性设为空串，BorderStyle 属性设为1，再设置 timeClock 的适当属性，并编写适当的事件过程，使得在运行时， 每隔一秒种在标签中显示的数字从1 开始自动加 1。如图所示是程序开始运行时的界面。请将程序中注释语句修改为正确代码，并删除注释符号； 不能修改已有的程序内容，特别是不能改变程序中已有的变量名称。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option Explicit Private nCount As Integer Private Sub Form_Load() nCount = 1 End Sub Private Sub timeClock_Timer() lblClock = nCount nCount = nCount + 1 End Sub 第二题：打开考生考号下指定文件夹下的工程文件vbsj3.vbp，在名称为Form1 的窗体上已经添加一个名称为txtInput 的文本框； 两个标题分别为 “对齐方式” 、“字体”， 名称分别为fraAlign 、fraFont 的框架控件；在fraAlign 框架中画三个单选按钮，标题分别为“左对齐”、 “居中”、“右对齐”，名称分别为optLeft 、optCenter 、optRight ；在 fraFont 框架中画两个单选按钮，标题分别为“宋体” 、 “黑体”，名称分别为optSt、optHt 。要求：编写五个单选按钮的Click 事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作效果，如图所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 17 页 - - - - - - - - - 注意： 1.不能修改其他代码行，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。3.程序中不得使用变量，每个事件过程中只能写一条语句。Option Explicit Private Sub optCenter_Click() txtInput.Alignment = 2 End Sub Private Sub optRight_Click() txtInput.Alignment = 1 End Sub Private Sub optLeft_Click() txtInput.Alignment = 0 End Sub Private Sub optHt_Click() txtInput.FontName = 黑体 End Sub Private Sub optSt_Click() txtInput.FontName = 宋体 End Sub第三题：打开指定文件夹下的工程文件vbsj3.vbp，本程序的功能是输入用户名和密码。要求程序运行时，输入用户名的文本框txtUserName首先获得焦点，当输入用户名的文本框txtUserName 中输入的英文字符个数不超过10 个且按回车键时，焦点自动定位到输入密码的文本框txtPassWord 中；否则将文本框txtUserName的内容清空，焦点还是在文本框txtUserName 中。同时，若选中“显示密码”复选框，在文本框txtPassWord 中输入密码时，文本框 txtShowPwd 中显示的是密码字符本身；若没有选中“显示密码”复选框，则文本框txtShowPwd 显示的是“ #” ，如图所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 17 页 - - - - - - - - - 在考生文件夹中给出的窗体文件vbsj3.frm 中已经添加了全部的控件，但程序不完整。请去掉程序中的注释，将其中的?改为正确的内容。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option Explicit Private Sub Form_Load() Form1.Show txtUserName.SetFocus End Sub Private Sub txtPassWord_Change() If chkShowPwd.Value = 1 Then txtShowPwd.PasswordChar = txtShowPwd.Text = txtPassWord.Text Else txtShowPwd.PasswordChar = # txtShowPwd.Text = txtPassWord.Text End If End Sub Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Len(Trim(txtUserName.Text) = 0 Then If optBs.Value = True Then txtContents.Text = lstSubjects.Text & optBs.Caption ElseIf optSj.Value = True Then txtContents.Text = lstSubjects.Text & optSj.Caption Else MsgBox 请鼠标单击选择其中的一种考试形式!, vbOKOnly, 提示 End If Else MsgBox 请单击鼠标选择考试科目的其中一项!, vbOKOnly, 提示 End If End Sub 第六题：打开指定文件夹下的工程文件为vbsj3.vbp，在窗体中已添加全部控件。程序的功能是当单击“添加”按钮时，将窗体上左侧列表框（名称为lstPending）同时选中的多个不连续的列表项移动到右侧列表框（名称为lstSelected）中；当单击“删除”按钮时，将右侧列表框 lstSelected 选中的一个列表项移动到左侧列表框lstPending 中。程序运行时的界面如图所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 17 页 - - - - - - - - - 要求：(1)通过属性窗口，设置列表框控件lstPending 可以同时选择不连续的多个列表项；(2)窗体文件中的程序代码不完整，请将其中的注释符去掉，并将 ?修改为正确的代码，保证程序能够正常运行。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option Explicit Private Sub cmdAdd_Click() Dim k As Integer k = 0 While (k Me.Width Then imgShow.Left = 0 End If hsbMove.Value = imgShow.Left End Sub 第十四题：在指定文件下已经创建的窗体文件是vbsj4.frm，工程文件为vbsj4.vbp，并已在窗体中添加全部控件。打开工程文件vbsj4.vbp，程序的功能是通过文本框控件txtInput 输入城市的名称，并添加到列表框控件lstCity 中作为其中的列表项；当鼠标双击列表框中选定的列表项时，从列表框中移除选定的列表项。程序运行时的界面如图所示。要求：(1)窗体激活时，首先将焦点定位到文本框控件txtInput 中；(2)在文本框中按回车键时，如果文本框的内容不空，则作为列表框的一项添加到列表框中。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 17 页 - - - - - - - - - 给出的程序代码并不完整，请将代码中的注释符去掉，并将其中的 ?修改为正确的代码，保证程序能正常运行。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option Explicit Private Sub Form_Activate() txtInput.SetFocus End Sub Private Sub lstCity_DblClick() Dim n As Integer, i As Integer n = lstCity.ListCount i = lstCity.ListIndex If n 0 And lstCity.Selected(i) = True Then lstCity.RemoveItem i End If End Sub Private Sub txtInput_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Len(Trim(txtInput.Text) 0 Then lstCity.AddItem Trim(txtInput.Text) txtInput.Text = txtInput.SetFocus Else MsgBox 文本框的内容不能为空!, vbOKOnly, 提示 End If End If End Sub 第十五题：在指定文件夹下已经创建窗体文件vbsj4.frm 和 sIDE.frm（多文档窗体） ，相应的工程文件是 vbsj4.vbp。打开工程文件vbsj4.vbp，程序运行时，显示登录窗体，如图1 所示；在输入用户名、口令均为“ admin”后，单击“确定”按钮，将显示多文档窗体sIDE.frm。如果输入的用户名和口令不正确或单击“取消”按钮，将结束程序的运行。图 1 图 2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 17 页 - - - - - - - - - 要求：(1)利用属性窗口， 设置文本框txtPwd 的适当属性， 使所输口令各字符均以“* ”显示；在窗体文件sIDE.frm 中为图片框控件Picture1 加载图片 vbsj4.jpg。(2)程序不完整，请讲代码中的注释符去掉，并将其中的?修改为正确的代码，保证程序能够正常运行。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。3.程序中使用me 代替当前窗体名。Option Explicit Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim cUserName As String, cPwd As String cUserName = Trim(txtUserName.Text) cPwd = Trim(txtPwd.Text) If cUserName = admin And cPwd = admin Then sIDE.Show Unload Me Else End End If End Sub 第十六题：在指定文件夹下已经创建窗体文件vbsj4.frm ，并添加全部控件，对应的工程文件为vbsj4.vbp。打开工程文件vbsj4.vbp，程序运行时的界面如图所示。当在名称为txtInput 的文本框中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题含义进行转换，结果放入名称为txtResult 的文本框中。给出的程序代码并不完整，请将程序中的注释符去掉，并将其中的 ?修改为正确的内容。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option Explicit Private Sub cmdConvert_Click() Dim n As Integer, k As Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 17 页 - - - - - - - - - Dim s1 As String, c1 As String n = Len(txtInput.Text) s1 = For k = 1 To n c1 = Mid(txtInput.Text, k, 1)If optUpDown.Value = True Then If c1 = a And c1 = A And c1 = Z Then s1 = s1 + LCase(c1) Else s1 = s1 + c1 End If End If If optUpper.Value = True Then s1 = UCase(txtInput.Text) End If If optLower.Value = True Then s1 = LCase(txtInput.Text) End If Next k txtResult.Text = s1 End Sub 第十七题：在指定文件夹下已经给出窗体文件vbsj4.frm ，在窗体上有一个命令按钮，其名称为cmdCalc，标题为“计算” ，相应的工程文件为vbsj4.vbp。打开工程文件vbsj4.vbp，程序运行后，如果单击命令按钮，程序将求出满足以下两个条件的所有正整数闭区间m,n：（1）0mn= 1250 Then Exit For Next j If sum = 1250 Then Print i; ; j End If Next i End Sub 第十八题：在指定文件夹下创建的窗体文件vbsj4.frm 中包含一个列表框控件，已经添加全部列表项，相应的工程文件为vbsj4.vbp。打开工程文件vbsj4.vbp，当程序运行时，如果多次单击列表框中的列表项，则可同时选中这些列表项；如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图所示。要求：利用属性窗口， 修改列表框的相应属性，使得程序运行时可同时选中多个不连续的列表项；同时，去掉程序中的注释符，并把其中的?修改为正确的内容，保证程序正确运行。注意： 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。Option Explicit Private Sub cmdDisplay_Click() Dim i As Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 17 页 - - - - - - - - - For i = 0 To lstSchool.ListCount - 1 If lstSchool.Selected(i) = True Then Print lstSchool.List(i) End If Next End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 17 页 - - - - - - - - -