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

实验二 程序设计基础一. 实验目的和要求1. 掌握运算符的使用。2. 掌握表达式的正确书写规则。3. 掌握常用函数的使用。4. 掌握InputBox、MsgBox函数的使用。5. 熟悉掌握赋值语句的使用。6. 掌握顺序结构的应用程序的编程过程。7.二. 实验内容和原理1）将窗体文件“2-2.Frm” 和 工程文件“2-2.Vbp”上传到老师的ftp服务器上的”周一下午” 或 ”周二下午” 或 ”周三晚上” 或 ”周六上午” 你的文件夹中。如：“30808888法学0801张三”. 2）练习2-3也同样将窗体文件和工程文件上传到老师的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 上有两个文本框，窗体界面如图 1所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。提示：(1)可以参考教材中两个变量值交换的例子(2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒图 1 练习 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）运行的界面如图所示。有12个命令按钮。每使用一个函数按钮前，先单击“清除”按钮，文本框和标签框中的内容清空。（2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。（3）单击“Rnd”按钮，用Rnd函数产生一随机数，显示在标签框中。（4）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间； （5）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。 图 2 练习 2-3 运行界面部分命令按钮的提示代码如下：Sin命令按钮的事件过程可以写作：Const pi = 3.1415926Dim x As Single, fx As Singlex = Val(Text1.Text)注意类型转换函数fx = Sin(x * pi / 180)Label1.Caption = Str(fx)注意类型转换函数Asc命令按钮的事件过程可以写作：Label1.Caption = Str(Asc(Text1.Text)注意类型转换函数MsgBox命令按钮的事件过程可以写作：Dim n As Stringn = MsgBox(你输入的数据是 & Text1.Text, 3 + 32 + 0, 数据检查)Label1.Caption = Str(n)Rnd命令按钮的事件过程可以写作：Randomize Label1.Caption = Str(Rnd)请完整写出所有命令按钮的事件过程。上机实践编写、调试运行以上程序，运行界面参考如上图。Const pi = 3.1415926Private Sub Command1_Click()Dim x As Single, fx As Singlex = Val(Text1.Text)fx = Sin(x * pi / 180)Label3.Caption = Str(fx)End SubPrivate Sub Command2_Click()Dim x As Single, fx As Singlex = Val(Text1.Text)fx = Cos(x * pi / 180)Label3.Caption = Str(fx)End SubRnd命令按钮的事件过程可以写作:Private Sub Command3_Click()Dim rndx As Singlerndx = Val(Text1.Text)Randomize rndx rndx作为系统随机发生器的种子数Label3.Caption = Str(Rnd)End SubPrivate Sub Command4_Click()Dim x As Single, fx As Singlex = Val(Text1.Text)fx = Sqr(x)Label3.Caption = Str(fx)End SubPrivate Sub Command5_Click()Dim x As Singlex = Val(Text1.Text)Label3.Caption =str( Int(x)End SubPrivate Sub Command6_Click()Dim x As Integerx = Val(Text1.Text)Label3.Caption = Chr(x)End SubPrivate Sub Command7_Click()Label3.Caption = str(Asc(Text1.Text)End SubPrivate Sub Command8_Click()Dim x As Stringx = InputBox(请输入姓名:, 输入姓名:)Label3.Caption = xEnd Submsgbox命令按钮的事件过程可以写作：Private Sub Command9_Click()Dim n As Stringn = MsgBox(你输入的数据是 & Text1.Text, 3 + 32 + 0, 数据检查)Label3.Caption = Str(n)End SubPrivate Sub Command10_Click()Label3.Caption = DateEnd SubPrivate Sub Command11_Click()Label3.Caption = Time()End SubPrivate Sub Command12_Click() Text1.text=” Label3.Caption = “”End Sub三. 讨论、心得