实验二程序设计基础答案.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 服务器上练习 2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数运行结果填在右侧表中：? 35 /5 mod 13 \2+5^2Print Not("bad">"bed")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+7Print hour(Time)Print Timer, Timer \ 3600Print 345 / 7347, Format(345 / 7347, "#0.0000")运行结果（填下表）：-------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 ---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 产生，范围在 1～5 倍为了使每次运行时产生不同的放大倍数，程序初始时应执行 Randomize 语句2)同样，单击“缩小” 按钮进行缩小，缩小的倍数也通过上述方式产生。

3)单击“还原 ”按钮，字体大小恢复成初始状态（12 磅） 4)程序启动时，文本框中的字体大小为 12 磅程序界面设计根据题目的要求，在界面上拖放 1 个标签、1 个文本框和 3 个命令按钮，并按下表设置对象的相关属性表 2.？上机练习一之 3 题的属性设置表对象默认 设置对象名称 Caption 属性 其他属性Form1 Form1Label1 输入文本 属性窗口的 Font 中设粗体、16号Text1 Text 属性为空串 属性窗口的 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 IntegerRandomizen = Int(Rnd * 5) + 1Text1.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 SingleC = Val(Text1.Text)F = 9 * C / 5 + 32Text2.Text = Str(F)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub编写、调试运行以上程序。

三. 讨论、心得（必须做）。