vb简单应用题.docVIP

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.不能修改其他代码行，并将修改的结果以原文件名原位置存盘。 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显示的是“#”，如图所示。 在考生文件夹中给出的窗体文件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 = # txtShowPw