下载文档原格式
vb练习题及答案VB（Visual Basic）是一种面向对象的编程语言，被广泛应用于软件开发中。
通过练习题的形式可以巩固和提升对VB语言的理解和应用能力。
本文将提供一些VB练习题及其答案，帮助读者巩固VB编程技巧。
题目一：计算器程序设计一个简单的计算器程序，要求能够进行基本的加、减、乘、除运算。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“Calculator”。
首先，在窗体上添加一些按钮来表示数字和运算符。
然后，添加一个用于显示运算结果的文本框控件。
接下来，为数字按钮和运算符按钮分别添加点击事件处理程序。
在点击数字按钮时，将按钮对应的数字追加到文本框中。
在点击运算符按钮时，根据按钮的内容判断并执行相应的运算。
最后，通过运用VB的计算表达式功能和控件之间的交互，实现基本的加减乘除运算。
题目二：学生成绩管理设计一个程序用于管理学生成绩，要求能够输入学生信息、查询学生成绩、计算学生平均成绩等操作。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“StudentGrade”。
首先，设计一个学生类（Student），包括学号、姓名、各科目成绩等属性。
然后，创建一个用于存储学生信息的集合（如数组或集合类）。
接下来，在窗体上添加文本框、按钮等控件，用于输入学生信息和进行相关操作。
通过按钮点击事件处理程序，实现以下功能：1.输入学生信息：获取文本框中的学生信息，并创建一个新的学生对象，将其添加到学生信息集合中。
2.查询学生成绩：根据学生学号或姓名等关键信息，在学生信息集合中查找对应学生，并显示其成绩信息。
3.计算学生平均成绩：遍历学生信息集合，计算每个学生的平均成绩，并显示在窗体上。
通过以上步骤，可以实现一个简单的学生成绩管理系统。
题目三：数据排序设计一个程序用于对一组数字进行排序，要求能够实现升序和降序排列。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“DataSorting”。
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
vb基础函数试题及答案一、选择题（每题2分，共20分）1. 在VB中，哪个函数用于计算字符串的长度？A. LenB. StrC. UCaseD. LCase答案：A2. 下列哪个函数可以将数字转换为字符串？A. ValB. StrC. IntD. CInt答案：B3. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D4. 如果变量x的值为5，那么表达式"x * 2"的结果是什么？A. 10C. 5D. 2答案：A5. 在VB中，哪个函数用于获取系统时间？A. NowB. DateC. TimeD. Today答案：C6. 下列哪个函数用于将字符串转换为数字？A. ValB. StrC. IntD. CInt答案：A7. 在VB中，哪个函数用于计算两个数的和？A. SumB. AddC. +D. =答案：C8. 如果变量x的值为10，那么表达式"x Mod 3"的结果是什么？B. 0C. 3D. 10答案：A9. 在VB中，哪个函数用于计算两个数的差？A. DiffB. SubtractC. -D. =答案：C10. 下列哪个函数用于将数字四舍五入到最接近的整数？A. RoundB. IntC. CIntD. Fix答案：A二、填空题（每题2分，共20分）1. VB中，使用________函数可以将字符串转换为大写。
答案：UCase2. 使用________函数可以获取当前的日期和时间。
答案：Now3. 使用________函数可以将数字格式化为货币格式。
答案：FormatCurrency4. 使用________函数可以获取系统当前的年份。
答案：Year(Date)5. 使用________函数可以获取系统当前的月份。
答案：Month(Date)6. 使用________函数可以将数字格式化为百分比。
答案：FormatPercent7. 使用________函数可以获取系统当前的星期几。
Vb简单应用题练习题第一题：打开考生考号文件夹下的T5-1文件夹下的工程文件vbsj3.vbp，在名称为Forml的窗体上已经添加一个名为IbICIock的标签控件和一个名称为timeClock的计时器控件；请将标签控件IbICIock的Caption属性设为空串，Borderstyle属性设为1,再设置timeClock的适当属性，并编写适当的事件过程，使得在运行时，每隔一秒种在标签中显示的数字从1开始自动加1。
如图所示是程序开始运行时的界面。
请将程序中注释语句修改为正确代码，并删除注释符号；不能修改已有的程序内容，特别是不能改变程序中已有的变量名称。
注意：1•不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2•若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Opti on ExplicitPrivate nCount As In tegerPrivate Sub Form_Load()n Cou nt = 1End SubPrivate Sub timeCIock_Timer()IbICIock = nCountn Cou nt = nCou nt + 1End Sub第二题：打开考生考号下指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名称为txt In put的文本框；两个标题分别为"对齐方式”、"字体”，名称分别为fraAlig n、fraFont的框架控件；在fraAlign框架中画三个单选按钮，标题分别为"左对齐”、"居中”、"右对齐”，名称分别为optLeft、optCenter、optRight ;在fraFont框架中画两个单选按钮，标题分别为"宋体”、"黑体”，名称分别为optSt、optHt。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作效果，如图所示。
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
VB机试模拟试卷84(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在Forml的窗体上绘制一个图片框，其名称为Picturel。
编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300，600)位置处开始显示“Visual Basic’’。
程序运行情况如图36—1所示。
注意：程序中不得使用任何变量。
文件必须存放在考生文件夹中，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在Forml的窗体上绘制一个文本框，名称为Textl；绘制一个命令按钮，名称为Commandl，标题为“显示”，TabIndex属性设为0。
请为Commandl设置适当的属性，使得当焦点在Commandl时，按Esc键就调用Commandl的Click事件，该事件过程的作用是在文本框中显示“Visual Basic程序设计”，程序运行结果如图36—2所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)本题主要考查图片框控件的画法和属性设置，以及简单的窗体事件的编写。
根据题意，新建“标准EXE”工程，在窗体上添加一个名称为Picturel的图片框，设计完成后，进入代码窗口编写如下代码：Private Sub Form_Click( ) Picturel．CurrentX=300 ‘图片框X方向坐标Picturel．CurrentY=600 ‘图片框Y方向坐标Picturel．Print”Visual Basic”‘在图片框显示Visual Basic End Sub 单击按钮运行程序，并按要求保存。
(2)命令按钮的Cancel属性返回或设置一个值，用来指示窗体中命令按钮是否为取消按钮，它有两种取值：True和False。
值为True时，命令按钮不是窗体的取消按钮，按Esc键与单击该命令按钮的作用相同；值为False时，命令按钮是窗体的取消按钮。
国家二级VB机试（简单应用题）模拟试卷6(题后含答案及解析) 题型有：1.1．(1)在考生文件夹下有一个工程文件sjt3．vbp。
程序的功能是通过键盘向文本框中输入正整数。
在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3—80所示。
在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。
程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0．5秒移动一次。
当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图3—81所示。
在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
正确答案：第1小题步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。
参考代码：If Option1．Item(i)=True Theny=val(Option1(i)．Caption)Do While i＜=5List1．AddItem x步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：打开考生文件夹下的工程文件sjt4．vbp。
步骤2：进入代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。
参考代码：Timer1．Interva1=500VScroll1．Value=Picture1．TopPicture1．Top=0步骤3：按要求将文件保存至考生文件夹中。
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
1.任意输入5个整数，当这个数大于等于1小于10时，输出该数“是一位数字”；当该数大于等于10小于100时，输出该数“是两位数字”；其他情况输出“数字输入错误”，并计算这5个数的平均数。
2.求：要求：用InputBox或文本框进行n值的输入，用MsgBox函数输出结果3.任意输入x值，求f(x)4.编写一个程序输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦：（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为过瘦。
5.征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。
6.夏季到了，超市对水果进行促销，具体活动如下：早市9：00~ 12：00 所有水果打九折；午市12：00 ~ 16：00 所有水果打8折；晚市16：00 ~ 21：00 所有水果打7折；小明今天要去超市买些荔枝，请根据他去的时间段，编程输入荔枝的价格并计算总价。
（请注意，他买的水果可能不止1斤）7.用两种循环结构输出101~500之间的所有奇数并输出它们的和。
8.勾股定理中3个数的关系是：。
编写程序输出20以内的满足此关系的3个数的组合。
9.公鸡每只5元，母鸡每只3元，小鸡3只1元。
现有100元，要求买100只鸡，问：公鸡、母鸡、小鸡各多少只？（所有可能的结果均放在列表框中显示出来）10.求300~400之间（包括300和400）所有能被3整除的数之和s，并在窗体上打印出s值。
11.，任意输入n的值，求S的值。
12.输入一个n值，计算的值并打印。
13.编程求1到100自然数中被7整除的数据的个数及它们的和。
14.求S=1!/2 + 2!/3 + 3!/4 + ... + n!/(n+1)，n是从键盘输入的正整数。
41:(1) 【解题思路】根据题意，先通过标签的Autosize属性把标签的大小设置为自动调整。
然后通过对滚动条的SmallChange属性设置，使单击滚动条两端的箭头时，滚动框移动2。
【操作步骤】步骤1：建立界面，并设置控件的属性。
程序中用到的控件及属性见表3.140。
表3.140步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2) 【解题思路】根据题意，过命令按钮的Name、Caption属性设置命令按钮的名称和标题。
在单击命令按钮事件过程中，通过设置形状控件的BorderColor和Shape属性，将形状控件的边框颜色设为红色和将形状控件设为圆形。
【操作步骤】步骤1：建立界面，并设置控件的属性。
程序中用到的控件及属性见表3.141。
表3.141步骤2：编写程序代码。
参考答案Private Sub Command1_Click()Shape1.Shape = 3End SubPrivate Sub Command2_Click()Shape1.BorderColor = &HFF&End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
42:(1) 【解题思路】根据题意，首先通过滚动条的Name、Max、Min、Value、Width、Height属性设置滚动条的属性值，然后通过标签的Name、Caption属性设置标签的名称和标题。
【操作步骤】步骤1：建立界面，并设置控件的属性。
程序中用到的控件及属性见表3.144。
表3.144步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2) 【解题思路】在Form Load事件过程中，Timer1的Enabled属性设置为True，计时器变为可用，在Timer1 Timer计时器的事件过程，通过形状控件的Top值每隔0.5秒加100，实现每隔0.5秒形状控件向下移动100。
【操作步骤】步骤1：建立界面，并设置控件的属性。
Vb简单应用题练习题第一题：打开考生考号文件夹下的T5-1文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名为lblClock的标签控件和一个名称为timeClock的计时器控件；请将标签控件lblClock的Caption属性设为空串，BorderStyle属性设为1，再设置timeClock的适当属性，并编写适当的事件过程，使得在运行时，每隔一秒种在标签中显示的数字从1开始自动加1。
如图所示是程序开始运行时的界面。
请将程序中注释语句修改为正确代码，并删除注释符号；不能修改已有的程序内容，特别是不能改变程序中已有的变量名称。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate nCount As IntegerPrivate Sub Form_Load()nCount = 1End SubPrivate Sub timeClock_Timer()lblClock = nCountnCount = nCount + 1End Sub第二题：打开考生考号下指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名称为txtInput的文本框；两个标题分别为“对齐方式”、“字体”，名称分别为fraAlign、fraFont的框架控件；在fraAlign框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为optLeft、optCenter、optRight；在fraFont框架中画两个单选按钮，标题分别为“宋体”、“黑体”，名称分别为optSt、optHt。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作效果，如图所示。
注意：1.不能修改其他代码行，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
3.程序中不得使用变量，每个事件过程中只能写一条语句。
Option ExplicitPrivate Sub optCenter_Click()txtInput.Alignment = 2End SubPrivate Sub optRight_Click()txtInput.Alignment = 1End SubPrivate Sub optLeft_Click()txtInput.Alignment = 0End SubPrivate Sub optHt_Click()txtInput.FontName = "黑体"End SubPrivate Sub optSt_Click()txtInput.FontName = "宋体"End Sub第三题：打开指定文件夹下的工程文件vbsj3.vbp，本程序的功能是输入用户名和密码。
要求程序运行时，输入用户名的文本框txtUserName首先获得焦点，当输入用户名的文本框txtUserName中输入的英文字符个数不超过10个且按回车键时，焦点自动定位到输入密码的文本框txtPassWord中；否则将文本框txtUserName的内容清空，焦点还是在文本框txtUserName中。
同时，若选中“显示密码”复选框，在文本框txtPassWord中输入密码时，文本框txtShowPwd中显示的是密码字符本身；若没有选中“显示密码”复选框，则文本框txtShowPwd显示的是“#”，如图所示。
在考生文件夹中给出的窗体文件vbsj3.frm中已经添加了全部的控件，但程序不完整。
请去掉程序中的注释，将其中的?改为正确的内容。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate Sub Form_Load()Form1.ShowtxtUserName.SetFocusEnd SubPrivate Sub txtPassWord_Change()If chkShowPwd.Value = 1 ThentxtShowPwd.PasswordChar = ""txtShowPwd.Text = txtPassWord.TextElsetxtShowPwd.PasswordChar = "#"txtShowPwd.Text = txtPassWord.TextEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Len(Trim(txtUserName.Text)) < 10 ThentxtPassWord.SetFocusElseMsgBox "输入的用户名长度超出，请重新输入！", vbCritical, "警告"txtUserName.Text = ""txtUserName.SetFocusEnd IfEnd IfEnd Sub第四题：在指定文件夹中创建的窗体文件vbsj3.frm和工程文件vbsj3.vbp中，打开指定文件夹下的工程文件vbsj3.vbp，已经添加全部控件，其中“+”、“-”、“×”、“÷”对应的单选按钮为一个控件数组。
程序的功能是根据水平滚动条hsbNum1和hsbNum2的当前值作为运算数，当单击命令按钮cmdCalc时可分别进行加、减、乘、除运算，并将运算的结果显示在标签lblOpResult中，程序运行时的界面如图所示。
请在设计模式下分别设置水平滚动条hsbNum1和hsbNum2的Max、Min属性的值分别100、1；设置“+”对应的单选按钮控件当前为选中状态。
该程序不完整，请去掉程序中的注释符，并把?改正为正确内容，使其能够正确运行。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate Sub cmdCalc_Click()Dim i As Integer, Result As IntegerDim opt As StringFor i = 0 To 3If optOperator(i).Value = True Thenopt = optOperator(i).CaptionEnd IfNextSelect Case optCase "+"Result = hsbNum1 + hsbNum2Case "-"Result = hsbNum1 - hsbNum2Case "×"Result = hsbNum1 * hsbNum2Case "÷"Result = hsbNum1 / hsbNum2End SelectlblOpResult.Caption = Str(hsbNum1.Value) & opt & Str(hsbNum2.Value) & "=" & Str(Result) End Sub第五题：打开指定文件夹下的工程文件为vbsj3.vbp，相应的窗体文件文件为vbsj3.frm，包含了所有的控件和部分程序，程序的功能是：当选择“考试科目”、“考试形式”后，单击“确定”按钮，在文本框txtContents中显示选中的“考试科目”和“考试形式”的内容；若没有选择相应的项目，将以消息框进行提示。
要求：(1)利用属性窗口向列表框lstSubjects添加“二级VB”、“二级VFP”、“二级网页设计”、“二级C”四个项目作为考试科目；同时将窗体只保留“关闭”按钮。
程序运行时的界面如图所示。
(2)将程序代码中注释符号去掉，其中的?修改为正确的程序代码，保证程序能正常运行。
注意：1. 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2. 在结束运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时通过单击窗体右上角的关闭按钮。
3.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
4.本程序中的表达式不允许使用常量。
Option ExplicitPrivate Sub cmdOK_Click()If lstSubjects.ListIndex >= 0 ThenIf optBs.Value = True ThentxtContents.Text = lstSubjects.Text & optBs.CaptionElseIf optSj.Value = True ThentxtContents.Text = lstSubjects.Text & optSj.CaptionElseMsgBox "请鼠标单击选择其中的一种考试形式!", vbOKOnly, "提示"End IfElseMsgBox "请单击鼠标选择考试科目的其中一项!", vbOKOnly, "提示"End IfEnd Sub第六题：打开指定文件夹下的工程文件为vbsj3.vbp，在窗体中已添加全部控件。
程序的功能是当单击“添加”按钮时，将窗体上左侧列表框（名称为lstPending）同时选中的多个不连续的列表项移动到右侧列表框（名称为lstSelected）中；当单击“删除”按钮时，将右侧列表框lstSelected选中的一个列表项移动到左侧列表框lstPending中。
程序运行时的界面如图所示。
要求：(1)通过属性窗口，设置列表框控件lstPending可以同时选择不连续的多个列表项；(2)窗体文件中的程序代码不完整，请将其中的注释符去掉，并将?修改为正确的代码，保证程序能够正常运行。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
