西安交通大学实验报告-西安交通大学计算机程序设计.doc

西安交通大学实验报告 课程__VB.net程序设计_实验名称_______________第 页 共 页 系 别____临床____________________________ 实 验 日 期 2007 年 5月 11 日 专业班级___临床63_____________组别_____________ 实 验 报 告 日 期 2007 年 5月 14 日 姓 名___樊晓磊_____________学号___________ 报 告 退 发 ( 订正 、 重做 ) 同 组 人_________________________________ 教 师 审 批 签 字 实验目的 计算长方形的面积和周长 判断素数 计算一维数组元素的和 二、实验内容 （－）实验题目一：计算长方形的面积和周长 窗体设计 四个label，四个textbox，一个button 控件属性 Label1,2,3,4的text属性分别为“长”，“宽”，“面积”，“周长” Textbox1,2,3,4的text属性均为空 Button1的text属性为“计算” 程序源代码 Sub a(ByRef m As Integer, ByRef n As Integer) TextBox1.Text = m TextBox2.Text = n TextBox3.Text = m * n TextBox4.Text = 2 * m + 2 * n End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, n As Integer m = TextBox1.Text n = TextBox2.Text a(m, n) End Sub End Class 实验结果 （二）实验题目二：计算长方形的面积和周长 窗体设计 四个label，四个textbox，一个button 2.控件属性 Label1,2,3,4的text属性分别为“长”，“宽”，“面积”，“周长” Textbox1,2,3,4的text属性均为空 Button1的text属性为“计算” 3.程序源代码 Function a(ByVal m As Integer, ByVal n As Integer) As Long TextBox1.Text = m TextBox2.Text = n TextBox3.Text = m * n TextBox4.Text = 2 * m + 2 * n Return a End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, n As Integer Dim b As Long m = TextBox1.Text n = TextBox2.Text b = a(m, n) End Sub End Class 4.实验结果 （三）实验题目三：判断素数 .窗体设计 一个label，两个textbox，一个button 2.控件属性 Label1的text属性为“输入一个整数” Textbox1,2的text属性均为空 Button1的text 属性为“计算” 3.程序源代码 Function m(ByVal a As Integer) As Boolean Dim b As Integer Dim flag As Boolean flag = True For b = 2 To a - 1 If a Mod b = 0 Then flag = False End If Next Return flag End Function Private Sub Bu