实验二_程序设计基础答案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+5^2
Print Not("bad">"bed")
BirthDay = #5/18/80#
Birth$ = "出生日期：" & BirthDay
Print Birth$
a = 10
b = 15
c = -9
Print 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 Sub

Private Sub Form_Click()
Dim c As String
c = Text1.Text
Text1.Text = Text2.Text
Text2.Text = c
End 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.1415926
Dim x As Single, fx As Single
x = Val(Text1.Text) ‘注意类型转换函数
fx = Sin(x * pi / 180)
Label1.Caption = Str(fx) ‘注意类型转换函数

Asc命令按钮的事件过程可以写作：
Label1.Caption = Str(Asc(Text1.Text)) ‘注意类型转换函数

MsgBox命令按钮的事件过程可以写作：
Dim n As String
n = MsgBox("你输入的数据是" & Text1.Text, 3 + 32 + 0, "数据检查")
Label1.Caption = Str(n)

Rnd命令按钮的事件过程可以写作：
Randomize
Label1.Caption = Str(Rnd)

请完整写出所有命令按钮的事件过程。
上机实践
编写、调试运行以上程序，运行界面参考如上图。

Const pi = 3.1415926
Private Sub Command1_Click()
Dim x As Single, fx As Single
x = Val(Text1.Text)
fx = Sin(x * pi / 180)
Label3.Caption = Str(fx)
End Sub

Private Sub Command2_Click()
Dim x As Single, fx As Single
x = Val(Text1.Text)
fx = Cos(x * pi / 180)
Label3.Caption = Str(fx)
End Sub

'Rnd命令按钮的事件过程可以写作:
Private Sub Command3_Click()
Dim rndx As Single
rndx = Val(Text1.Text)
Randomize rndx 'rndx作为系统随机发生器的种子数
Label3.Caption = Str(Rnd)
End Sub

Private Sub Command4_Click()
Dim x As Single, fx As Single
x = Val(Text1.Text)
fx = Sqr(x)
Label3.Caption = Str(fx)
End Sub

Private Sub Command5_Click()
Dim x As Single
x = Val(Text1.Text)
Label3.Caption =str( Int(x))
End Sub

Private Sub Command6_Click()
Dim x As Integer
x = Val(Text1.Text)
Label3.Caption = Chr(x)
End Sub

Private Sub Command7_Click()
Label3.Caption = str(Asc(Text1.Text))
End Sub

Private Sub Command8_Click()
Dim x As String
x = InputBox("请输入姓名:", "输入姓名:")
Label3.Caption = x
End Sub

'msgbox命令按钮的事件过程可以写作：
Private Sub Command9_Click()
Dim n As String
n = MsgBox("你输入的数据是" & Text1.Text, 3 + 32 + 0, "数据检查")
Label3.Caption = Str(n)
End Sub

Private Sub Command10_Click()
Label3.Caption = Date
End Sub

Private Sub Command11_Click()
Label3.Caption = Time()
End Sub

Private Sub Command12_Click()
Text1.text=””
Label3.Caption = “”
End Sub

三. 讨论、心得