VB设计 顺序结构.docx

《VB设计 顺序结构.docx》由会员分享，可在线阅读，更多相关《VB设计 顺序结构.docx（26页珍藏版）》请在三一办公上搜索。

1、第四章结构程序设计4.2顺序结构程序设计4.21简单的顺序结构程序设计例题1：计算长方形面积和周长（设长方形的长和宽分别是：100、30）。Dim X as integer, Y as integer, S as integer, L as integerX = 100Y = 30S = X * YL = 2 * (X + Y)Print S, L程序说明：请记住以下4个步骤1. 变量说明定义Dim X as integer, Y as integer, S as integer, L as integer2. 为变量赋值X = 100Y = 303. 计算变量X 变量Y 变量S 变量LS =

2、 X * Y4 L 果*54. 显示结果Print S, L运行结果显示:例题1的修改：计算长方形面积和周长（设长方形的长和宽分别是：100、30）。Dim X as integer, Y as integer, S as integer, L as integerX = 100Y = 30S = X * YL = 2 * (X + Y)Print S, L1. 变量定义简化：Dim X%, Y%, S%,L%2. 改用文本框输出面积和周长(原题是打印输出在窗体上) 原输出方式： Print S, L将原语句改为如下：Textl.Text = SText2.Text = L输出形式如图：在窗体

3、上要加两个文本框，两个标签。说明：两种输出方式选用其中一种即可，不需要两种输出都使用。修改后程序如下：X = 100Y = 30S = X * YL = 2 * (X + Y)Textl.Text = SText2.Text = L3. 使用文本框来输入长宽X、Y值。X = Text3.TextY = Text4.Text即加了 4个文本框，2个用来输入X、Y ,两个用来输出S、L,注意各自形式：X = Text3Y = Text4S = X * YL = 2 * (X + Y)Textl = SText2 = L特别注意：前面两个语句是用文本框为变量XY赋值，后面两个语句是把计算出来的 结果

4、值放在文本框中显示。4. 求任意长、宽度的长方形面积和周长。例如：长、宽是：3.5、2.3长、宽是：1200、300Dim X as Single, Y as Single, S as Single, L as Single5.修改后程序如下：Dim X as Single, Y as Single, S as Single,L as SingleX = Textl.TextY = Text2.TextS = X * YL = 2 * (X + Y)Text3.Text = SText4.Text = L.顺序结构程序设计：从第一条语句逐句向下执行，到最后语句。变量定义变量赋值：直接赋值、用文

5、本框赋值计算过程结果输出：在窗体上输出、在文本框中输出4.22赋值语句在上面的程序中，使用了多个赋值语句。赋值语句格式：变量名=表达式（对象名.属性名=表达式）首先计算赋值号“二”右边表达式的值，然后将该值“赋给”左边的变赋值语句功能：量或对象的属性。说明：1.“=”号左边只能是”变量或对象属性。X = 100L = 2 * （X + Y）S = X * Y将数值100赋给变量X,将2乘（X+Y）后的值260赋给变量L。X = Textl.TextY = Text2.Text将文本框1的值赋给变量X。将文本框2的值赋给变量Y。Text3.Text = SText4.Text = L将变量S的值

6、赋给文本框3。将变量L的值赋给文本框4。2.赋值号不是等号。此处的”=”是赋值号，不是等号。所以不能反过来写:100 = X错在哪里？X * Y = S错在哪里？2 * （X + Y） = L错在哪里？3. 赋值语句两边的内容不能交换，交换后意义完全不同了（即使两边都是变量） 如： X = Textl.Text作用是，把文本框中的数值放入变量X中，进行计算。交换后： Textl.Text = X把X的值赋给文本框1,作用是在文本框中显示变量X的值。又如：4.1 VB编程风格1. 程序代码中不区分字母的大小写：关键字首字母自动转化为大写。2. 一般同一行上写一个语句。写多个语句用冒号“：”分隔。

7、3. 续行语句：加续行标志符号：（空格）+ （下划线_”）4注释语句：用Rem和单引号“”4.2.3 InputBox数据输入函数（作用是为变量赋值）格式：InputBox示信息，对话框标题，默认值）例如：X = InputBox（输入长度X , ”求长方形面积和周长”，100）说明： 函数产生一个对话框，等待用户输入数据第1个参数是：提示信息第2个参数是：对话框标题第3个参数是：默认的值 函数的值就是输入的数据，类型为String类型例如：将前面求长方形面积和周长的输入方式改成InputBox输入数据。Dim X As Single, Y As Single, S As Single, L

8、As SingleX = InputBox（输入长度X , 求长方形面积和周长，10）Y = InputBox（输入宽度Y ”,求长方形面积和周长，10）S = X * YL = 2 * (X + Y)Textl = SText2 = L程序执行后，单击按钮，显示如图:4. 24 MsgBox输出框函数格式：MsgBox（提示信息，按钮数值，对话框标题说明：执行下面的语句后，在屏幕上会弹出如图所示的信息框。x = MsgBox（对话框提示信息，65, 对话框标题）MsgBox信息框第一项：信息框中出现的文本。第三项：信息框的标题。第二项：整数表达式，指定信息框中出现的按钮数量、类型及图标的类型

9、，见下表。表： 按钮的数目、类型及其对应的值值说明0只显示“确定”按钮1显示“确定”和“取消”按钮2显示“终止”、“重试”和“忽略”按钮3显示“是”、“否”和“取消”按钮4显示“是”和“否”按钮5显示“重试”和“取消”按钮6至15只显示“确定”按钮=16组合表4-4图标的样式及其对应的值值说明16显示图标32显示为图标48显示A图标64显示力图标“按钮数值”是从上面表中各取一个数相加而得的。例如上面的语句中，按钮数值是65，则有65 = 1 + 641 ：显示“确定”和“取消”按钮64：显示“i”图标说明，分解是惟一的。按钮的作用：用户单击信息框中的不同按钮，可以得到不同的返回值，并被存放到变

10、量中。 我们可以根据变量中的值是什么，来判断用户是选择了那个按钮。表4-6 MsgBox函数的返回值值用户单击的按钮1确定2取消3终止4重试5忽略6是7否例如：执行x = MsgBox（对话框提示信息，3, 对话框标题）后,显示输出对话框如图:如果你选择“是”按钮，等同于执行：X = 6如果你选择“否”按钮，等同于执行：x = 7如果你选择“取消”按钮，等同于执行：x = 2MsgBox函数也可写成语句形式。语句格式：MsgBox提示，按钮数值，标题说明：1. 函数有括号、有变量和赋值号，而语句则都没有。2. 各参数的含义及作用与MsgBox函数相同。3. 由于MsgBox语句没有返回值，一般

11、也不用设计“按钮数值”参数，没有意义。例如：MsgBox 输出语句MsgBox”，0，计算圆的面积”注意：MsgBox函数必须写成：X = MsgBox （对话框提示信息，65, 对话框标题）MsgBox语句只能写成：MsgBox 对话框提示信息，65, 对话框标题MsgBox函数和MsgBox语句的省略写法：MsgBox ”对话框提示信息，3, 对话框标题MsgBox ”对话框提示信息，3MsgBox ”对话框提示信息MsgBox （对话框提示信息）x = MsgBox（对话框提示信息，3, 对话框标题”）x = MsgBox（对话框提示信息，3）x = MsgBox（对话框提示信息）x =

12、 MsgBox（对话框提示信息，对话框标题”）例4-2 设计程序，定义两个变量，输入两个变量值，然后交换它们的值。原始:变量A13变量BC21交换后：匚2口E13比喻:A杯B杯红茶绿茶如何交换？ 可以借助第三只杯子：？C杯？n交换过程：X（倒人）bC = AA杯c杯（倒入）B杯A 杯A = B（倒入）C杯B 杯B = C解题：交换的方法：借助第3个变量C来完成交换。3个步骤完成：将a的值放入c中： c = a将b的值放入a中： a = b将c的值放入b中： b = c写在一行上即：c = a : a = b : b = c说明： .直接执行语句a = 21 :b = 13，不是交换。 .注意三

13、个步骤中变量的位置及顺序。 .两个变量a、b的“地位”是一样的：c = b : b = a : a = c也行。 .不借助c也能实现交换：A = a + b : b = a - b : a = a - b画出执行时，变量a、b中值的变化图。A BED.不要界面设计，程序可以这样写：（以下程序都省略定义变量的环节）a = 13 : b = 21print a, bc = a : a = b : b = c print a, b结果显示：2113交换前a、b的值交换后a、b的值.用文本框Text1、Text2输入要交换的数据；然后将值赋给变量a、b；再交换a、b 的值；最后用Text3、Text4

14、显示交换后的结果。（见例题4-10a程序代码设计：Private Sub Command1_Click()Dim a!, b!, c!a = Text1: b = Text2c = a : a = b： b = cText3 = a: Text4 = bEnd Sub例题：1. 例4.9编写程序，从键盘上输入三角形的三个边长值，应用下面计算三角形面积的公 式求三角形面积。Area =七 L(L - a)(L - b)(L - c)解题：计算步骤：.定义变量a,b,c, L , Area.输入三个边长值。(任两边和大于第三边).根据公式求面积：第一步求出半周长L： L = ( a + b + c

15、 ) / 2。第二步求出面积S : S =、L(L-a)(L b)(L一c).输出三角形面积S。Private Sub Commandl_Click()Dim a!, b!, c!, L!, Area!a = Val(Text1)b = Val(Text2)c = Val(Text3)L = (a + b + c) / 2Area = Sqr(L * (L - a) * (LLabel4.Caption =面积= &End Sub2. 求一元二次方程的解。ax2+bx+c=0 , x = b 土 22 4ac 2a要求：.直接在程序中用赋值语句给a、b、c赋值；如：a=1 : b= 3 : c

16、=1).设置三个文本框来输入a、b、c的值；a = Text1.Textb = Text2.Textc = Text3.Text.在窗体上直接输出结果x1、x2的值Print x1,x2.用文本框输出x1、x2的值Text4.Text = x1Text5.Text = x2.注意：输入时候注意根判别式值不能小于0；Dim a!, b!, c!, d!, x1!, x2!a = Textl.Textb = Text2.Textc = Text3.Textd = b * b - 4 * a * cxl = (-b + Sqr(d) / (2 * a) x2 = (-b - Sqr(d) / (2

17、* a) Text4.Text = x1 Text5.Text = x23. 设计一个程序，实现华氏温度向摄氏温度的转换。即由用户输入一个华氏温麽，程序将 其转换为摄氏温度C,并显示结果。华氏温度转换为摄氏温度的公式为：C = 5 4- 9X (F 32)界面设计。2个标签、2个文本框、2个命令按钮。图4-14 (a)界面程序代码设计：Private Sub Command1_Click()Dim F as Long, C as LongF=Text1.TextC=5 / 9*(F-32)Text2.Text=CEnd SubPrivate Sub Command2_Click()EndEnd

18、 Sub4。4数据输出4. 4 .1 Print 方法Print方法是数据输出的主要方法，可以在窗体上或图片框中使用。 格式：对象名.Print 表达式列表 说明： .对象名：省略默认在当前窗体上输出。例如： Forml.Print Hello ”Print ”23*2=”；23*2Picturel.Print Hello ” Printer.Print ”Morning” 表达式列表：是一个或多个表达式。.在Forml窗体上输出字符串”Hello 在当前窗体上输出23*2= 46在图片框上输出字符串”Hello ”在打印机上输出字符串”Morning” 多个表达式之间用“,”或“；”隔开。逗

19、号分隔：分区输出格式，每个表达式的输出起始位置相隔14个字符。 分号分隔：紧凑输出格式，即输出的每个表达式之间相隔1个字符单位。 计算功能：Print (方法)兼有“计算”、换行功能。例如：Print 100+sin(3.14) +aA2输出表达式的值Print换行输出或输出一个空行。例4-4用下面的窗体事件过程显示数值的格式化输出。代码设计如下：Private Sub Form_Click()Print Format(12345.6, 000,000.00)Print Format(12345.6, #,#. #)Print Format(12345.678, #,#. #)Print Fo

20、rmat(12345.6, $#,#0. 00)Print Format(0.123,0. 00%)Print Format(12345.6, 0.00E+00)End Sub运行程序，单击窗体，输出结果如图4-12所示。图4-12数值格式化输出4.8字体、字形和颜色4.8. 1属性列表的Font属性在属性表列中设置对象的Font属性。也可以在程序运行时通过程序代码来对Font属性 进行设置修改。4. 8. 2字体类型和大小1.字体类型格式：对象名.FontName= “字体类型”若省略“对象名”，则默认为指定窗体的字体类型。例4-9改变窗体的字形输出。Private Sub Command1

21、_Click()FontName= “宋体”默认指定窗体的字体类型Print “输出显示的字体为：” ；FontName 输出当前正在使用的字体类型文字PrintFontName= “黑体”Print “输出显示的字体为黑体”PrintEnd Sub运行结果如图4-23所示。图4-23运行结果2. 字体大小：用FontSize属性表示，可设置或显示字体的大小。格式：FontSize=点 数例 4-10Private Sub Form_Click()Dim Strx$Strx$ =”改变字体大小显示，FontSize = 20FontName =宋体”Print 宋体：”;Strx$PrintF

22、ontSize = 30FontName =黑体Print 黑体：”;Strx$End Sub上述程序的输出结果如图4-24。图4-24运行结果4. 8. 3其他属性1. 粗体字：由FontBold属性设置格式：FontBold=Boolean参数Boolean取值为True时，FontBold属性为粗体，否则文本按正常字体输出，默认值 为 False。2. 斜体字：由FontItalic属性设置格式：FontItalicBoolean 型3 .加中划线：由FontStrikethru属性设置格式：FontStrikethruBoolean型4.加下划线：由FontUnderline属性设置格

23、式：FontUnderlineBoolean型 例4-11字体风格的设定。Private Sub Form_Click()Samples =输出文字各种效果”FontName =宋体”设字体为宋体FontSize = 25设字体大小Print 显示字体”；SamplesFontBold = True设置为粗体Print 加粗字体”；SamplesFontItalic = True设置斜体Print 斜体字体”；SamplesFontStrikethru = True加中划线Print 加中划线”；SamplesFontUnderline = True加下划线Print 加下划线”；Sample

24、sFontSize = 16FontTransparent = TruePrint 改变字体大小”；SamplesEnd Sub上述程序的运行结果如图4-25所示。glFonl13回区I改变字体大小输出文字各种菠果显示字体输出文字各种效果 加粗字体输出文字各种效果 斜体字体输出文字各种效果 加中划线输出文字各种效果 加下划线输出文字各种效果CornfTHdiLill图4-25运行结果4. 8. 4颜色及颜色参数1. 调色板在VB界面设计阶段，使用调色板能够设置当前对象的颜色。打开调色板的方法有两种:(1)从属性窗口找到要设置的颜色属性，单击右端的向下箭头，将弹出一个如图4-26所示 的调色板，

25、可以设定颜色。图4-26属性窗口的调色板（2）从“视图”菜单中选取“调色板”如图4-27所示。功能，它既可以设置对象的前景色、背景色，也可以进行细致的颜色调整。图4-27 VB的调色板图4-28颜色定义框2. 颜色参数在程序运行时指定颜色参数值的方式主要有下面方法：使用RGB函数；使用VB的颜色设置值。（1）RGB 函数。RGB是Red（红）、Green（绿）、Blue（蓝）的缩写，RGB函数通过三原色的值设置一种混合 颜色。RGB函数格式如下：RGB（红色值，绿色值，蓝色值）RGB函数的3个参数均为整数，取值范围0255，代表混合颜色中每一种原色的分量亮 度）。0表示亮度最低，255表示亮度

26、最高。如果颜色参数值超过255，会被当作255。用红、绿、蓝三原色可以“配出”各种颜色。例如，红、绿混合可以得到黄色，最亮的黄 色为“RGB（255，255，O）”，其中0表示没有蓝色。白色可表示为RGB（255, 255，255）”。 表4-9列出了部分常见的标准颜色及相应的三原色值。表4-9常见标准颜色RGB值颜色红色值绿色值蓝色值黑色000蓝色00255绿色02550青色0255255红色25500洋红色2550255黄色2552550白色255255255例如:Forml. BackColor=RGB(0, 128, 0)Forml. ForeColor=RGB(255, 255, 0

27、)Pset(100, 100), RGB(0, 0, 255)(2)直接使用颜色设置值通常用十六进制数表示颜色值。设定窗体背景为绿色设定窗体前景为黄色设指定点为蓝色正常的RGB颜色的有效范围是从0到16777215(&HFFFFFF&)。每种颜色的设置值(属性或参数)都是一个四字节的整数。对于这个 范围内的数，其高字节都是0,而低三个字节，从最低字节到第三个字节，分别定义了红、 绿、蓝三种颜色的值。红、绿、蓝三种成分都是用)到255(&HFF)之间的数表示。因此，可 以用十六进制数按下述语法来指定颜色：&HBBGGRR&其中：BB指定蓝颜色的值；GG指定绿颜色的值；RR指定红颜色的值。每个数段

28、都是两位十六进制数，即从00到FF,中间值是80。因此，下面的数值是这三 种颜色的中间值，指定了灰颜色：&H808080&常用的几种颜色常量值如表4-9所示。表4-9常用的颜色常量值颜色常量值颜色&H0000FF&红色&H00FF00&绿色&HFF0000&蓝色&H00FFFF&黄色(红+绿)&HFF00FF&洋红色(红+蓝)&HFFFF00&青色(蓝+绿)&H000000&黑色&HFFFFFF&白色(红+蓝+绿)例4-12在窗体上设置背景色为黄色，前景色为红色，字号为30号，并显示字符串“窗 体背景为黄色，字为红色。”Private Sub Command1_Click()Forml.Bac

29、kColor = &H00FFFF&设置背景色黄色Form1.ForeColor = &HFF&设置前景色红色Form1.FontSize = 30设置窗体上输出的文字的字号大小Form1.Print ”窗体背景为黄色，字为红色。在窗体上输出End Sub程序运行后，单击按钮，结果如图4-29所示。图4-29运行结果习题四一、填空题1. 算法的描述方法常见的有：。2. 结构化程序设计：。3. Visual Basic的赋值语句既可给 赋值，也可给对象的 赋值。4. Visual Basic的注释语句采用； Visual Basic的续行符采用；若要在一行书 写多条语句，则各语句间应加分隔符，V

30、isual Basic的语句分隔符为。5. 在VB中，用于产生输入对话框的函数 ，其返回值类型为，若要利用该函数接 收数值的数据则可利用 函数对其返回值进行转换而得到。6. 在VB中，若要产生一消息框，则可用语句_来实现。7. 如何在立即窗口使用Print方法输出字符串：“hello!”，请填空8. 设窗体中输出行的宽度为100,当使用Tab函数与Print方法一起输出时，若Tab函数中的 参数N100,则输出位置是9. 在程序中设置Label控件的字体属性为宋体时使用语句为10. 当在Print方法中使用Format函数时，格式字符串中的”#”表示一个数字位，它的个数决定 的长度，若要显示的

31、数据位数大于这个长度则显示的数据按 显示。11. 在文本框Textl、Text2中输入成绩，将成绩相加后转换成字符串数据，在文本框“Text3” 中输出，请填空。Private Sub command1_click（）num1=（text1.text）num2=（text2.text）chenji=text3.text=End sub二、选择题1. 下列关于算法的叙述不正确的是（）。（A）算法是解决问题的有序步骤（B）算法具有确定性、可行性、有限性等基本特征（C）每个问题的算法都只有一种（D）常见的算法描述方法有自然语言、图示法、伪代码等2. 确定一个控件在窗体上的位置的属性是（）。A）Wid

32、th 和 LeftB） Width或 TopC） Top 和 HeightD） Top或 Left3. 如果要显示VB中的预定义输入对话框，需要调用Visual Basic提供的（）函数。A. MsgBox B.Open C.Output D.InputBox4. 把InputBox的返回值转换为数值型数据应该使用的函数是（）。A.Log B.Str C.Len D.Val5. 在Visual Basic代码中，将多个语句合并在一行上的并行符是（）。A.撇号（）B.冒号（：）C.感叹号（！）D.问号（？）6. 可用于设置系统当前时间的语句是（）。A）Date B） Date$C） TimeD）

33、 Timer7. 能够接受Print方法的对象是（）。A）事件、标题栏、图片框、打印机B）窗体、标签、立即窗口、代码窗口C）窗体、立即窗口、图片框、打印机 D）窗体、标签、图片框、代码窗口8. 下面叙述中正确的是（）。A）Spc函数既能用于Print方法中，也能用于表达式B）Space函数既能用于Print方法中，也能用于表达式C）Spc函数与Space函数均生成空格，没有区别D）以上的说法都不正确9. 如果Tab函数的参数小于1,则打印位置在第（）列。A） 0 B） 1 C） 2 D） 310.InputBox函数返回值的类型是（）。A)数值 B)字符串 C)变体D)数值或字符串(视输入数据

34、而定)11. 以下关于MsgBox的叙述，错误的是()。A) MsgBox返回一个整数 B)通过MsgBox函数可以设置消息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第二个参数是一个整数该参数只能够确定对话框中显示的按钮数量12. 下列各赋值语句，语法不正确的是()。(A) x+y=5 (B) iNumber =15 (C) Labell.caption =time (D)sLength =x+y(13 )在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a$ = software

35、and hardware b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub运行程序，单击命令按钮，则在弹出的消息框的标题栏中显示的是()。A) software and hardware B) software C) hardware D) 1(14)在窗体上画一个命令按钮和一个文本框，其名称分别为Command 1和Text1, 把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(Enter an integer)b =

36、InputBox(Enter an integer)Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文 本框中显示的内容是()。A) 108 B) 18 C) 810 D)出错(15 )假定有如下的窗体事件过程：Private Sub Form_Click()a$ = Microsoft Visual Basicb$ = Right(a$, 5)c$ = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的消息框的标题栏中显示的信息是()。A) Microsof

37、t Visual B) Microsoft C) Basic D)5(16) 为了使命令按钮(名称为Command1)右移200，应使用的语句是()。A) Command1.Move -200B) Command1.Move 200C) Command1.Left = Command1.Left + 200D) Command1.Left = Command1.Left 200(17) 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox(请输入一个整数)Print x + Text1.TextEnd Sub程序运行时，在文本框中

38、输入456,然后单击窗体，在输入对话框中输入123,单击“确 定”按钮后，在窗体上显示的内容为()。A) 123 B)456123 C) 579 D) 123456(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500， 500End Sub程序运行后，单击命令按钮，执行的操作为()。A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(19) 在窗体上画一个命令按钮，其名称

39、为Command1，然后编写如下事件过程：Private Sub Command1_Click()a = 12345Print Format$(a, 000.00)End Sub程序运行后，单击命令按钮，窗体上显示的是()。A) 123.45 B) 12345.00 C) 12345 D)00123.45(20) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按 钮，然后编写如下事件过程：Private Sub Command1_Click()Text1.Text = VisualMe.Text1 = BasicText1 = ProgramEnd Sub程序运行后，

40、如果单击命令按钮，则在文本框中显示的是()。A) Visual B) Basic C) Program D)出错三、简答题1. 在VB中，对于没有赋值的变量，系统默认值是什么？2. 下列哪组语句可以将变量A，B的值互换？A) A=B:B=AB) A=A+B:B=A-B:A=A-BC) A=C:C=B:B=AD) A=(A+B)/2:B=(A-B)/23. 指出执行下面赋值语句后，各变量的数据类型。(1) a=6=5(2) a=” 5+3” (3) a=#11/26/99# (4) a=Not 58(5) a = 5: b =6: c = b = a = 8(6) a = 5: b = 6: c

41、 = b = a = 54. 如何利用消息对话框显示各种形式的信息？5. 如何使用输入对话框输入数据？四、编程题1. 设计窗体用控件如题图4-1所示，在文本框中输入内容，然后单击命令按钮，在文本框 中输入的内容同时显示在标签和命令按钮上。题图4-12. 设计一个收款计算程序如题图4-2所示，用户输入商品的“单价”后按Tab键输入“数量” 和“折扣”，单击“计算”按钮或按回车键将显示“应付款”单击“清除”按钮或按Esc键 清除文本框中所有数据。题图423. 已知半径r=10,求圆面积、球表面积和球体积。4. 在窗体上建立两个命令按钮(名称)分别为Command 1和Command 2，设置它们的Font 属性，使其运行后界面如题图44所示。题图44数据的输入 在程序中直接修改：苯！ 使用数据输入函数InputBox ()：非常方便！a = InputBox()b = InputBox()Print 面积 s= ; S; 周长 l= ; LPrint 长为；a; 宽为；b; 的长方形面积s= ; S; 周长l= ; LPrint 长为 & a & 宽为 & b & 的长方形面积s= & S & ，周长l= & L