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

实验二 程序设计基础 一. 实验目的和要求 掌握运算符的使用。 掌握表达式的正确书写规则。 掌握常用函数的使用。 掌握InputBox、MsgBox函数的使用。 熟悉掌握赋值语句的使用。 掌握顺序结构的应用程序的编程过程。 二. 实验内容和原理将窗体文件“-2.Frm” 和 工程文件“-2.Vbp”上传到老师的ftp服务器上的”周一下午” 或 ”下午” 或 ”” 或 ”午” 你的文件夹中。 如：“3008888法学001张三”. 练习将窗体文件和工程文件上传到老师的ftp服务器上【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中： 35 /5 mod 13 \2+5^2 Print Not(badbed) 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 上有两个文本框，窗体界面如图 4所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。 提示： (1)可以参考教材中两个变量值交换的例子 (2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒 图 4 练习 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函数产生一随机数，显示在标签框中。 （）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间； （）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。 图 5 练习 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 = Msg