实验二_程序设计基础答案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( Intx))
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

三. 讨论、心得