实验二_程序设计基础1答案1102.doc

实验二 程序设计基础一. 实验目的和要求1. 掌握运算符的使用。2. 掌握表达式的正确书写规则。3. 掌握常用函数的使用。4. 掌握InputBox、MsgBox函数的使用。5. 熟悉掌握赋值语句的使用。6. 掌握顺序结构的应用程序的编程过程。二. 实验内容和原理1）将窗体文件“2-2.Frm” 和 工程文件“2-2.Vbp”上传到老师的ftp服务器上的”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。如：“30908888传媒0901张三”. 2）练习2-3, 2-4 也同样将窗体文件和工程文件上传到老师的ftp服务器上。运行结果（填下表）：-26-True-出生日期：1980-5-18- True -3-2-D- a bcde- a b cde- Visual - Basic-6- HELLO!-浙江 杭州-2007-2-20 2007-2-27 -21- 77619.48 21 -4.69579420171499E-02 0.0470-3-25-0.7055475 0.533424 - 0.49999999226498 - -4 3 -【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：? 35 /5 mod 13 2+52Print Not(badbed)BirthDay = #5/18/80#Birth$ = 出生日期： & BirthDay Print Birth$ a = 10b = 15c = -9Print a 2 3 And (b = 13 Or Not c = 0)Print len(str(a)Print len(str(c)Print Chr(Asc(A) + 3) Print Trim( a b ) & cde Print a b & cde Print Left(Visual Basic 6.0, 7) Print Mid(Visual Basic 6.0, 8, 5) Print Len(VB程序设计) Print UCase(Hello!) Print 浙江 & Space(2) & 杭州 Print Date, Date+7 Print hour(Time) Print Timer, Timer 3600 Print 345 / 7347, Format(345 / 7347, #0.0000)Print Sqr(9)Print Abs(-25) Print Rnd(1), Rnd(1) Print Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8)【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如Error! Reference source not found.所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。提示：(1)可以参考教材中两个变量值交换的例子(2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒练习 2-2 运行界面上机实践编写、调试运行以上程序。Private Sub Form_Load()Text1.Text = 杭州Text2.Text = 西湖End SubPrivate Sub Form_Click()Dim c As Stringc = Text1.TextText1.Text = Text2.TextText2.Text = cEnd Sub【练习2-3】设计一个程序，在文本框内输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小。下图是窗体的设计界面和经过放大操作后的运行效果。要求：(1)单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机函数Rnd产生，范围在15倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。(2)同样，单击“缩小”按钮进行缩小，缩小的倍数也通过上述方式产生。(3)单击“还原”按钮，字体大小恢复成初始状态（12磅）。(4)程序启动时，文本框中的字体大小为12磅。 程序界面设计根据题目的要求，在界面上拖放1个标签、1个文本框和3个命令按钮，并按下表设置对象的相关属性。表2.？上机练习一之3题的属性设置表对象默认设置对象名称Caption属性其他属性Form1使用对象默认名Form1Label1输入文本属性窗口的Font中设粗体、16号Text1Text属性为空串属性窗口的Font中设粗体、16号；拖动鼠标扩大宽度和高度Command1放大属性窗口的Font中设粗体、16号Command2缩小属性窗口的Font中设粗体、16号Command3还原属性窗口的Font中设粗体、16号部分事件代码Private Sub Command1_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize * nEnd Sub参考答案：Private Sub Form_Load() Label1.Caption = 输入文本: Text1.Text = Command1.Caption = 放大 Command2.Caption = 缩小 Command3.Caption = 还原 Text1.Text = 美丽的西湖 Text1.FontSize = 12End SubPrivate Sub Command2_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 Text1.FontSize = Text1.FontSize / nEnd SubPrivate Sub Command3_Click() Text1.FontSize = 12End Sub【练习2-4】设计一个根据摄氏温度求对应的华氏温度的程序。下图是设计窗体，窗体上有2个标签框作提示使用；2个文本框Text1和Text2分别作输入和显示；3个命令按钮， 名称分别是Command1、Command2、Command3，标题分别是“计算”、“清除”、“退出”。在Text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。计算公式：F=9C/5+32，其中C表示摄氏温度，F表示华氏温度。（提示：清除文本框Text1中的文字信息用语句Text1.Text=”）上机实践参考答案：Private Sub Form_Load() Label1.Caption = 摄氏温度 Label2.Caption = 华氏温度 Text1.Text = Text2.Text = Command1.Caption = 计算 Command2.Caption = 清除 Command3.Caption = 退出End SubPrivate Sub Command1_Click() Dim F As Single, C As Single C = Val(Text1.Text) F = 9 * C /