1、实验二 程序设计基础一. 实验目的和要求1. 掌握运算符的使用。2. 掌握表达式的正确书写规则。3. 掌握常用函数的使用。4. 掌握 InputBox、MsgBox 函数的使用。5. 熟悉掌握赋值语句的使用。6. 掌握顺序结构的应用程序的编程过程。7.二. 实验内容和原理1）将窗体文件“2-2.Frm” 和 工程文件“2-2.Vbp”上传到老师的 ftp 服务器上的”周一下午” 或 ”周二下午” 或 ”周三晚上” 或 ”周六上午” 你的文件夹中。如：“30808888 法学 0801 张三”.2）练习 2-3 也同样将窗体文件和工程文件上传到老师的 ftp 服务器上。【练习 2-1】打开立即窗
2、口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：? 35 /5 mod 13 2+52Print 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
3、“ 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
4、-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 上有两个文本
5、框，窗体界面如 图 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.Text
6、Text2.Text = cEnd Sub【练习 2-3】设计一个函数计算器。其功能要求如下：（1）运行的界面如图所示。有 12 个命令按钮。每使用一个函数按钮前，先单击 “清除”按钮，文本框和标签框中的内容清空。（2）Sin、Cos、Sqr、Int 、Chr、Asc 等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。（3）单击“Rnd”按钮，用 Rnd 函数产生一随机数，显示在标签框中。（4）单击“Date”按钮在标签框中显示系统日期；单击“Time” 按钮在标签框中显示系统时间；（5）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入
7、后，再将输入信息显示在标签框中。单击“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 命令按钮的事件过程可
8、以写作：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_C
9、lick()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 Single
10、rndx = 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 Su
11、bPrivate 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 Com
12、mand9_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三. 讨论、心得
