vb简单应用题

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 = "#"

txtShowPwd.Text = txtPassWord.Text

End If

End Sub

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Len(Trim(txtUserName.Text)) < 10 Then

txtPassWord.SetFocus

Else

MsgBox "输入的用户名长度超出，请重新输入！", vbCritical, "警告"

txtUserName.Text = ""

txtUserName.SetFocus

End If

End If

End Sub

第四题：

在指定文件夹中创建的窗体文件vbsj3.frm和工程文件vbsj3.vbp中，打开指定文件夹下的工程文件vbsj3.vbp，已经添加全部控件，其中“+”、“-”、“×”、“÷”对应的单选按钮为一个控件数组。程序的功能是根据水平滚动条hsbNum1和hsbNum2的当前值作为运算数，当单击命令按钮cmdCalc时可分别进行加、减、乘、除运算，并将运算的结果显示在标签