VB实验报告--人力1002杨九龙.docVIP

西 安2011-5-1 至 2011-5-9  顺序结构设计1 过程 一、实验目的 1．掌握赋值语句和函数的正确使用方法。 2．掌握输入、输出函数的基本使用方法。。 二、实验内容 实验一：编写程序，使得单击一次按钮可以产生一个[60，90]之间的随机数并显示在标签1上，再求出概数的正弦值，将结果写在标签2上。 实验二：在窗体上设计两个标签，两个文本框，三个按钮，为这些控件设置相应的属性，程序运行界面如下要求。 第一个文本框用来接收输入一个大写字母，单击按钮一，在第二个文本框中输出其相应的小写字母。 第二个文本框用来接收输入一个小写字母，单击按钮一，在第一个文本框中输出其相应的大写字母。 单击按钮三，清除文本框一和文本框二中的内容。。 三、设计方案（程序，界面） 实验一： 打开Visual Basic，新建一个EXE工程。 创建一个按钮命名Command1,双击Command1编写程序如图1-1. 图1-1 3. 运行程序,点击Command1,得结果如图1-4； 4．分别保存工程文件和窗体文件 实验二： 1. 打开Visual Basic，新建一个EXE工程 2．创建一个按钮命名Command1,双击Command1编写程序如图： 1－2 图1－2 3. 运行程序,点击Command1,得结果如图1-5； 4．分别保存工程文件和窗体文件。 实验三： 1.打开Visual Basic，新建一个EXE工程 2．创建一个按钮命名Command1,双击Command1编写程序如图1-3. 图1－3 3. 运行程序,点击Command1,得结果如图1-6 4． 分别保存工程文件和窗体文件。 四、结果及分析 实验一 图1－4 实验二： 图1－5 实验三： 图1－6 调试情况，设计技巧及体会 通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。 源程序清单 实验一： Private Sub Command1_Click() Dim i As Integer, j As String For i = 1 To 9 j = String(2 * i - 1, Trim(Str(i))) Print Tab(9 - i); j Next i 实验二： Private Sub Command1_Click() Dim i%, t, s! i = 0 t = 1 s = 0 Do While 1 / t 0.0001 i = i + 1 t = t + i - 1 s = s + 1 / t Loop Print 计算结果; s End Sub 实验三： Private Sub Command1_Click() Dim i%, j%, pi!, m!, t% pi = 0 m = 2 For n = 1 To 10 i = 2 * n - 1 j = 2 * n + 1 t = (2 * n) * (2 * n) pi = t / (i * j) m = m * pi Next n Print 计算结果; m End Sub 顺序结构设计2 实验目的 1．掌握赋值语句和函数的正确使用方法。 2．掌握输入、输出函数的基本使用方法。 实验内容 实验一：编写程序，使得单击一次按钮可以产生一个[60，90]之间的随机数并显示在标签1上，再求出概数的正弦值，将结果写在标签2上。 实验二：在窗体上设计两个标签，两个文本框，三个按钮，为这些控件设置相应的属性，程序运行界面如下要求。 1.第一个文本框用来接收输入一个大写字母，单击按钮一，在第二个文本框中输出其相应的小写字母。 2.第二个文本框用来接收输入一个小写字母，单击按钮一，在第一个文本框中输出其相应的大写字母。 3.单击按钮三，清除文本框一和文本框二中的内容。。 设计方案 实验一： 1.打开Visual Basic，新建一个EXE工程。 2.创建一个按钮命名Command1,双击Command1编写程序如图1-1. 3. 运行程序,点击Command1,得结果如图1-4； 4．分别保存工程文件和窗体文件 实验二： 1. 打开Visual Basic，新建一个EXE工程