VB上机实验题
国家二级VB机试(上机操作)模拟试卷83(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷83(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计’Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。
框架内含有两个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”，如图3—163所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sitl．frm。
(2)考生文件夹下的工程文件sjt2．vbp 中有一个由直线Linel、L,ine2和L,ine3组成的三角形，直线Linel、Line2和Line3的坐标值见表3—4：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。
再画两个命令按钮，名称分别是Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”，如图3—164所示。
请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。
不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：打开本题工程文件sjt2．vbp，在窗体中按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Prirate Sub Cmdl C1ick( ) Line4．Visible=TrueEnd SubPrirate Sub Cmd2 Ctick( ) Line4．ViSible=FalSeEnd Sub步骤3：按要求将文件保存至考生文件夹中。
VB考试练习题(上机操作)
第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
4 请设计如下图所示窗体界面。
程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。
请编写适当的事件过程，完成上述功能。
5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
6 请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
vb上机考试习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以业示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下。
工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、忧度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。
步骤2：按照步骤1设置其他控件相关属性，程亭中涉及的控件及属性见表3．10。
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub C1 Click( )’当单击”放大”按钮时，依次将Imagel的高与宽分别加100 Imagel．Height=Imagel．Height+i00 Imagel．Width=Imagel．Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮，则依次将Imagel的高与宽分别减100 Imagel．Height=Imagel．Height—100 Imagel．Width=Imagel．Width一100 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。
VB上机练习题
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
国家二级VB机试(上机操作)模拟试卷517(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷517(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单，含有三个菜单项，它们的标题分别为“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。
再画一个命令按钮，名称为“Command1”、标题为“弹出菜单”。
要求：编写命令按钮的Click事件过程，使程序运行时，单击“弹出菜单”按钮即可弹出“文件”菜单（如图1－89所示）。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－25在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工第2小题具】→【菜单编辑器】命令，打开菜单设计器，如表2－26中的设置建立菜单项。
步骤2：在窗体上画一个名为Command1，标题为“弹出菜单”的命令按钮，打开代码编辑窗口，编写“弹出菜单”按钮的单击事件过程。
参考代码：Private Sub Command1_Click( ) Form1.PopupMenu menu1 End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．（1）在考生目录下有一个工程文件sjt3.vbp，包含了所有控件和部分程序。
程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中；若是大写字母，则把它的小写形式显示在Label1中；若是其他字符，则把该字符直接显示在Label1中。
输入的字母总数则显示在标签Label2 中，如图1－90所示。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。
国家二级VB机试(上机操作)模拟试卷511(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷511(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。
其刻度值的范围是1000～2000。
请编写滚动条的Change 事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。
运行时的窗体如图1－61所示。
程序中不能使用任何变量，事件过程中只能写一条语句。
注意：保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－9在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相关属性，其属性及值如表2－10所示。
步骤2：双击窗体Form1上的水平滚动条，打开代码编辑窗口，输入以下代码：参考代码：Private Sub HS1_Change( ) Text1.Width = HS1.Value End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”，如图1－62 所示。
程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
既不能修改程序中的其他部分，也不能修改控件的属性。
国家二级VB机试(上机操作)模拟试卷410(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷410(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：打开Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3．1所示。
步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3．2所示。
步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3．3所示。
步骤4：按照题目的要求设置两个标签的相关属性，如图3．4所示。
程序中用到的控件及属性见表3．1。
步骤5：按下键盘上的F5键运行程序，程序运行后的窗体界面如图3．5所示。
步骤6：按题目要求保存工程和窗体，如图3．6所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(截止目前所有上机实验及代码。
不用画窗体界面，只写题目和代码。
填写实验报告也是复习的过程，请务必认真！．．．．．．)实验一：第二章⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。
程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。
Private sub command1_click()Label1.visible=falseCommand1.caption=label1.captionEnd sub⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。
然后编写命令按钮的Click事件过程。
程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。
要求程序中不得使用任何变量。
上机代码：Private sub command1_click()Label1.visible=falseText1.visible=falsePrint text1.textEnd sub⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名称分别为Command1和Command2，标题分别为“复制”和“删除”。
程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。
请编写两个命令按钮的Click过程完成上述功能。
Private sub command1_click()Text2=text1.seltextEnd subPrivate sub command2_click()Text1.seltext=””End sub4．在名称为Form1的窗体上画一个文本框，名称为Text1，Text属性值为“VB可视化程序设计”，采用宋体四号字；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“黑体”、“隶书”和“楷体_GB2312”。
程序运行时，单击不同的命令按钮，则文本框的字体变为相应的字体。
请编写三个命令按钮的Click过程完成上述功能。
Private sub command1_click()Text1.fontname=command1.captionEnd subPrivate sub command2_click()Text1.fontname=command2.captionEnd subPrivate sub command3_click()Text1.fontname=command3.captionEnd sub5．在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空。
要求在文本框里输入“VB程序设计”，并按下回车键以后，窗体的标题栏显示文本框的内容。
Private sub text1_keypress(keyascii as integer)If keyascii=13 thenCaption=text1End ifEnd sub实验二：第三章1⒈在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值均为空。
程序运行时，在T1输入“abcdefg”，立即在T2里显示“ABCDEFG”。
程序中不得使用任何变量。
【提示】函数Ucase()将小写字母转换为大写字母。
Private sub T1_change()T2=ucase(T1)End sub⒉在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值均为空；画一个命令按钮，名称为C1，标题为“确定”。
程序运行时，在T1中输入“abcdefg”，按下回车键或者“确定”按钮以后，在T2里显示“ABCDEFG”。
程序中不得使用任何变量。
Private sub T1_lostfocus( )T2=Ucase(T1)End sub或：private sub T1_keypress(keyascii as integer)If keyascii=13 thenTt2=Ucase(T1)End sub⒊在名称为Form1的窗体上画一个标签，名称为L1，标题为“请输入圆半径”；一个文本框，名称为T1，Text属性值为空；一个命令按钮，名称为C1，标题为“计算圆面积”。
程序运行时，在文本框里输入一个整数，按下“计算圆面积”命令按钮后，在窗体上输出相应的圆面积。
Private sub command1_click()Dim r as integerR=text1Print 3.14*r*rEnd sub⒋在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空；一个标签，名称为L1，标题为“欢迎您和我们一起学习VB”，标签的大小能够随着标题文字的多少自动调整。
程序运行时，在文本框里输入你的姓名，并按下回车键，则标签的标题改为“欢迎××和我们一起学习VB”（××为你的姓名）。
Private Sub T1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenL1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4)End IfEnd Sub实验三：第三章2⒌在名称为Form1的窗体上画一个标签，名称为L1，标题为“现在离北京奥运会开幕还有××天”，采用3号黑体字。
程序运行时，该标签处于隐藏状态；单击窗体，该标签显示倒计时；双击窗体，隐藏标签。
提示：两个日期型数据进行减法运算的结果是数值型，意义是两个日期之间的天数。
Date函数返回当天的日期。
Private Sub Form_Click()L1.Visible = TrueL1 = “现在离2009年国庆还有" & #2009/10/01# - Date & "天"End SubPrivate Sub Form_DblClick()L1.Visible = FalseEnd Sub⒍在名称为Form1的窗体上画一个名称为Label1的标签，其初始内容为空，且能根据指定的标题内容自动调整标签的大小；再画2个命令按钮，标题分别是“日期”和“时间”，名称分别为Command1和Command2。
请编写2个命令按钮的Click事件过程，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。
如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 。
Private Sub Command1_Click()Label1 = DateEnd SubPrivate Sub Command2_Click()Label1 = TimeEnd Sub⒎在Form1的窗体上画一个名称为Text1，内容为“程序设计”的文本框，显示字体为三号字、居中；再画二个命令按钮，标题分别是“粗体”和“斜体”，名称分别为Command1和Command2，如图所示。
要求：编写两个命令按钮的Click事件过程，使得单击“粗体”按钮时，文本框的内容显示为粗体格式；单击“斜体”按钮时，文本框的内容显示为斜体格式。
注意：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 。
Private Sub Command1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click()Text1.FontItalic = TrueEnd Sub⒏在名称为Form1的窗体上，画两个名称为Label1、Label2，标题分别为“开始位置”、“选中的字符数”的标签；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。
程序运行时在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图所示。
要求：画出所有控件，编写命令按钮的Click事件过程。
注意：要求程序中不得使用任何变量，每个事件过程只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。
存盘时必须放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
Private Sub Command1_Click()Text2 = Text1.SelStart + 1Text3 = Text1.SelLengthEnd Sub实验四：第四章1基础练习⒈在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值分别为“学习”和“快乐”，字体分别为“华文彩云”和“方正舒体”，背景颜色分别为红和绿，字体均为3号；画一个命令按钮，名称为C1，标题为“交换”。
程序运行时，单击“交换”按钮，则交换两个文本框的字体或背景颜色。
Private Sub Command1_Click()Dim s As Strings = Text1.FontNameText1.FontName = Text2.FontNameText2.FontName = sEnd Sub⒉设计一个名称Form1的窗体，要求：①在文本框Text1里输入摄氏温度后，单击命令按钮Command1后，文本框Text2显示相应的华氏温度，反之亦然；②初始启动表单时，焦点位于Text1，命令按钮Command1的标题为“摄氏变华氏”；③当在Text1里输入摄氏温度并按下命令按钮后，命令按钮Command1的标题变为“华氏变摄氏”，焦点位于Text2。
【提示】摄氏转华氏：华氏=摄氏*9/5+32华氏转摄氏：摄氏=（华氏-32）*5/9Private Sub Command1_Click()If Command1.Caption = "摄氏变华氏" ThenText2 = Text1 * 9 / 5 + 32Command1.Caption = "华氏变摄氏"Text2.SetFocusElseText1 = (Text2 - 32) * 5 / 9Command1.Caption = "摄氏变华氏"Text1.SetFocusEnd IfEnd Sub⒊参考教材（p.67）例4.3，启动窗体时输出如下图形；单击窗体，清除图形。