VB实验报告参考答(本部).docVIP

实验报告参考答案（本部） 实验一 VB集成开发环境 实验内容（3）： 四、设计流程 ①界面设计：在窗体上画一个标签。 ②属性设置：标签的width设为2000，height设为300。有边框是BordStyle设为1，背景透明是BackStyle设为0。显示“等级考试”是将caption设为“等级考试”，居中是将Alignment设为2。 ③代码设计：无 五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的） 无 六、调试和测试结果 至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些 实验二 简单的VB程序设计 实验内容（3）： 四、设计流程 ①界面设计：在窗体上画一个标签、一个命令按钮。 ②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。 ③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。 五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的） Private Sub Form_Load() Form1.Picture = LoadPicture(App.Path + \tu.jpg) Form1.Caption = 我的变化 End Sub Private Sub Form_Click() LBL1.Top = 0 LBL1.Left = 0 End Sub Private Sub Cmd1_Click() Cmd1.Height = 1500 Cmd1.Width = 2000 End Sub 六、调试和测试结果 至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些 实验三 数据类型及其运算 四、设计流程 ①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。 ②属性设置：文本框将text属性清空，标签及6个命令按钮设置“标题”属性。 ③代码设计：分别在6个命令按钮的单击事件过程中编程。其中ctan命令按钮利用tan函数并的倒数。 五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的） Const pi = 3.14159 Dim a! Private Sub CMD1_Click() a = pi * Val(Text1.Text) / 180 LBL2.Caption = Sin(a) End Sub Private Sub CMD2_Click() LBL2.Caption = Cos(a) End Sub Private Sub CMD3_Click() LBL2.Caption = Tan(a) End Sub Private Sub CMD4_Click() LBL2.Caption = 1 / Tan(a) End Sub Private Sub CMD5_Click() Text1.Text = LBL2.Caption = End Sub Private Sub CMD6_Click() End End Sub 六、调试和测试结果 至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些 实验四 数据的输入与输出 四、设计流程 ①界面设计：在窗体上画1个命令按钮。 ②属性设置：设置命令按钮“标题”属性。 ③代码设计：在命令按钮的单击事件过程中编程。注意输入用Inputbox()，输出用Msgbox过程，注意平均值数据类型必须是单精度或双精度，还有考虑到Inputbox（）的返回值是字符串，需要用Val()将其转换成数值型后再运算。 五、关键代码 Private Sub cmd1_Click() Dim a%, b%, c%, d%, sum%, ave! a = Val(InputBox(请输入第一个数, 求和及平均值)) b = Val(InputBox(请输入第二个数, 求和及平均值)) c = Val(InputBox(请输入第三个数, 求和及平均值)) d = Val(InputBox(请输入第四个数, 求和及平均值)) sum = a + b + c + d ave = sum / 4 MsgBox 和是 sum vbCrLf 平均值是 ave, , 结果 End Sub 六、调试和测试结果 至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些 实验五 选择结构程序设计 四、设计流程 ①界面设计：在窗