VB模拟复习题06-02

vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。

vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。

答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。

答案：Class13. 在VB中，________方法用于在运行时创建对象。

答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。

VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。

vbp C．.vbw D．。

vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。

frm)、项目文件（.vbp/vbw）B．窗体文件（。

frm）、项目文件（。

vbp/vbw）和代码文件（。

bas)C．窗体文件（.frm)、项目文件（。

vbp/vbw)和模块文件(。

bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。

frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。

2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。

00”)A．1234。

5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。

vb测试题及答案一、单项选择题（每题2分，共10分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个函数用于计算两个数的和？A. SumB. AvgC. CountD. Max答案：A3. 在VB中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. FunctionD. Sub答案：A4. 在VB中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. 在VB中，以下哪个选项是正确的条件语句？A. IfB. SelectC. CaseD. All of the above答案：D二、填空题（每题2分，共10分）1. 在VB中，声明一个整型变量并赋值为10，可以使用语句：Dim myVar As Integer; myVar = _______。

答案：102. VB中，用于输出信息到立即窗口的函数是 _______。

答案：Debug.Print3. 在VB中，要创建一个名为“myForm”的新窗体，可以使用语句：Form1. _______ "myForm"。

答案：Load4. VB中，要结束当前程序的执行，可以使用语句：_______。

答案：End5. 在VB中，要声明一个数组，可以使用语句：Dim myArray(10) As _______。

答案：Integer三、简答题（每题5分，共20分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由事件（如用户操作、系统消息等）触发，而不是由程序代码顺序执行。

2. 描述VB中如何使用If...Then...Else语句进行条件判断。

答案：在VB中，可以使用If...Then...Else语句进行条件判断，如果条件为真，则执行Then后面的代码块，如果条件为假，则执行Else 后面的代码块。

VB程序设计期末模拟试题及答案第一篇：VB程序设计期末模拟试题及答案《VB》期末复习题及答案综合复习题一、填空题1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的__text__属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。

4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。

8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c达式c>a And Not b10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print“30+60”, Print 30 + 60 ？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z五、编程题1．设计一个计算程序。

vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。

以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。

- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。

- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。

- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。

答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。

方法是一种过程，可以包含代码来执行特定的任务或计算。

事件通常与控件相关联，并可以触发方法的执行。

2. 解释VB中“类”的概念。

VB复习题一一、判断题：(每小题1分，共20分。

请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。

（）2.标签支持Dblclick事件。

（2 ）3.窗体中控件的位置由Height和Top属性确定。

（3 ）4.滚动条的SmallChange属性设置为5时，表示单击滚动条两端的箭头时变化为5. （4 ）5.当把定时器控件的Visible属性设置为True时，运行时定时器在窗体上就可见了。

（5 ）6.Vbred是Visual Basic 6.0允许的常量。

（6 ）7.#25/6/2018#是Visual Basic 6.0合法的日期型常量书写。

（7 ）8.逻辑运算符Not的优先级比Or高。

（8 ）9.Visual Basic 6.0中可以用print做变量名。

（9 ）10.表达式5 mod 4与5\4的结果相同。

（10 ）11.语句if x>=60 and x<70 then print ”及格”是正确的。

（11 ）12.有select case 语句必须有End select语句与之相匹配。

（12 ）13.Exit for是Do循环的一个出口。

（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。

（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。

（15 ）16.可以用Ubound()函数返回数组下标的下界。

（16 ）17.过程体内可以再定义另外一个过程。

（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。

（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。

（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。

vb考试题及答案随着计算机技术的发展，程序设计语言在软件开发中扮演着重要的角色。

Visual Basic（简称VB）是一种面向对象的高级编程语言，被广泛应用于Windows平台下的软件开发。

为了帮助大家更好地掌握VB 编程知识，本文将提供一些VB考试题及答案，希望对大家的学习和复习有所帮助。

1. VB中，如何声明一个整型变量？答案：使用关键字Dim来声明变量，例如：Dim num As Integer2. VB中，如何进行条件判断？答案：可以使用关键字If...Then...Else来进行条件判断，例如：If condition Then' 条件为真时执行的代码Else' 条件为假时执行的代码End If3. VB中，如何使用循环结构？答案：可以使用关键字For、While或者Do...Loop来实现循环，例如：For i As Integer = 1 To 10' 循环体，执行10次Next4. VB中，如何定义一个函数？答案：使用关键字Function来定义函数，例如：Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerReturn num1 + num2End Function5. VB中，如何处理异常？答案：可以使用关键字Try...Catch...Finally来处理异常，例如：Try' 可能会引发异常的代码块Catch ex As Exception' 处理异常的代码块Finally' 无论是否发生异常，都会执行的代码块End Try6. VB中，如何创建一个类？答案：使用关键字Class来创建一个类，例如：Public Class MyClass' 类的成员和方法End Class7. VB中，如何使用MessageBox显示消息框？答案：可以使用MessageBox.Show方法来显示消息框，例如：MessageBox.Show("Hello World!")8. VB中，如何读取和写入文件？答案：可以使用System.IO命名空间下的File类来读取和写入文件，例如：Dim content As String = File.ReadAllText("C:\example.txt")File.WriteAllText("C:\example.txt", "Hello World!")9. VB中，如何使用数据库连接？答案：可以使用System.Data命名空间下的SqlConnection和SqlCommand等类来进行数据库连接和操作，例如：Dim connectionString As String = "DataSource=myServerAddress;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Using connection As New SqlConnection(connectionString)connection.Open()' 执行数据库操作End Using10. VB中，如何创建和使用数组？答案：可以使用Dim语句来创建数组，例如：Dim numbers(9) As Integer' 对数组进行赋值numbers(0) = 1...numbers(9) = 10以上是一些VB考试题及答案的示例，希望能够帮助大家更好地理解和掌握VB编程知识。

计算机等级考试二级VB模拟试卷(一)杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题（共15分）二、VB程序设计（共85分）（四）程序阅读题（20分，每题4分）1、4 5 62、101103、1 9 8 7 6 5 4 3 2 101 7 6 5 4 32 8 9 104、1 4 65、wFg,C4d5（五）程序设计题（25分，题1为5分）1、Public Function g(x As Single, eps As Single) As SingleDim e&, t!, i%If x < -1 Or x > 1 Theng = 0Elsee = 1i = 1Doe = e * it = (i + x) / eg = g + ti = i + 1Loop Until t < epsEnd IfEnd Function2、Private Sub Form_Click()Dim a(1 To 50) As Integer, i%, s!For i = 1 To 50a(i) = Val(InputBox("请输入一个数")) Next is = 0For i = 1 To 50s = s + a(i)Next is = s / 50Open "g:\data.txt" For Output As #1For i = 1 To 50If a(i) > s Then Print #1, a(i)Next IClose #1End Sub3.Dim n%Private Sub Command1_Click()n = Val(InputBox("输入要计时的秒数")) Timer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load()Form1.Caption = "到计时牌"Command1.Caption = "设置"Timer1.Interval = 1000Timer1.Enabled = FalseLabel1.Caption = "计时"End SubPrivate Sub Timer1_Timer()n = n - 1h = n \ 3600m = (n Mod 3600) \ 60s = n Mod 60Label1 = "还剩" & h & "小时" & m & "分" & s & "秒" If n = 0 ThenTimer1.Enabled = FalseLabel1 = "时间到！"Command1.Enabled = TrueEnd IfEnd Sub。

一、单项选择题（50道小题，共50分）1、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。

在Command1_Click()中能完成这个功能的命令为______。

（1分）A 、Label1.Left = 100B 、Label1.Left = Label1.Left - 100C 、Label1.Move 100D 、Label1.Move Label1.Left + 1002、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是______。

（1分）A 、ForecolorB 、BackColorC 、BackStyleD 、BorderStyle3、窗体文件的扩展名______。

（1分）A 、.basB 、.vbpC 、.exeD 、.frm4、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。

下面正确的事件过程为______。

（1分）A 、Private Sub Command1_Click(): Command1.Caption = "计算机考试": End SubB 、Private Sub Command1_Click(): Text1 = "计算机考试": End SubC 、Private Sub Text1_Change(): Command1.Caption = "计算机考试": End SubD 、Private Sub Text1_Click(): Text1.Caption = "计算机考试": End Sub5、下列语句中，正确的是______。

（1分）A 、If a ≥ b Then t=a a=b b=tB 、If a ≥ b Then t=a;a=b; b=tC 、If a >= b Then t=a a=b b=tD 、If a >= b Then t=a: a=b : b=t6、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是______。

2006年VB模拟试题(复习用)一、选择题(每题2分，共30题)(01)以下说法正确的是：_____。

A)属性的一般格式为：对象名_属性名称B)属性是对象的特性，所有的对象都有相同的属性C)属性值的设置只可以在属性窗口中设置D)对象是有特殊属性和行为方法的实体(02)设a=5，b=4，c=3，d=2，下列表达式的值是3>2*b or a=c and b<>c or c>dA)1B)TrueC)FalseD)2(03)语句5 \ 4 * 6 / 3 Mod 2的输出结果是( )A) 0B) 1C) 2D) 3(04)给变量x赋值一个10到99之间的随机整数的表达式为:________A)x=rnd*99B)x=rnd*90+10C)x=int(rnd*90)+10D)x=round(rnd*90)*10(05)有如下程序：Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = 3:b = 2:c = 1a = b:b = c:c = aPrint a; b; cEnd Sub运行之后结果是：A)2 1 2B)3 2 1C)2 1 3D)3 2 3(06)下列程序执行的结果为：_____。

X=8:Y=1:Z=0Print "A(";X+Z*Y;")"A)A( 8 ) 说明：紧凑输出格式B)"A("8")"C)A(8+1*0)D)A ( 8 ) 说明：标准输出格式(07)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A)分支1 B)分支2 C)Else分支D)程序出错(08)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()c="ABCD"For n=1 To 4Print_____NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在______处应添入的内容为A)Left(c,n)B)Right(c,n)C)Mid(c,n,1)D)Mid(c,n,n)(09)以下能够正确计算n!的程序是程序1Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub程序2Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub程序3Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<=nPrint xEnd Sub程序4Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i>nPrint xEnd SubA) 程序1 B) 程序2 C) 程序3 D) 程序4(10)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A)123.45B)12345.00C)12345D)00123.45(11)执行以下程序段a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X & Y & z) ' UCase()为把小写字母变成大写字母Next iPrint z输出结果为A)AAAB)BBABBAC)ABBABAD)AABAAB(12)执行完下面的三重循环之后For i=1 to 2For j=1 to 2a=0For k=1 to 2a=a+1next knext jnext ia的值是:A)2B)5C)7D)9(13)要从Do While…Loop循环中跳出循环,要使用的语句是:A)Exit B)Exit Loop C)Exit Do D)Exit While(14)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

VB机试模拟试卷2(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c:\wexam\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体中建立一个名称为Cmd1，标题为“显示”的命令按钮，如图2-1所示。

要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print“显示”：如果单击窗体，则执行语句Form1.Cls。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

(2)在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。

要求程序运行后，每次移动滚动框时，都执行语句Forml．Print HSl．V alue，如图2-2所示(程序中不能使用任何变量)。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。

在窗体上打印信息用Print方法，清除窗体上的打印信息使用Cls方法，这两条语句在题目中已经给出，只要将其放入适当的事件过程中即可。

解题步骤：第一步：建立界面并设置控件属性。

本题只用到了1个命令按钮，将其Caption属性设置为“显示”，Name属性设置为Cmd1。

第二步：编写代码。

参考代码：Private Sub Cmd1_Click( ) Form1.Print“显示”End Sub Private Sub Form_Click( ) Form1.Cls End Sub 第三步：调试并运行程序。

第四步：按题目要求存盘。

(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

VB程序设计复习模拟试题一及答案一、选择题(1)执行语句Dim X,Y As Integer 后,（）A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3)执行以下程序段a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change()Label1.Caption=str(Len(Text1.Text))End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。