第七次上机实验.doc

第七次上机实验 本周有3个题目 第1题 计算数列之和 求a+aa+aaa+aaaa+... ...+aa...a（n个），其中a为1～9之间的整数。 例如：当a = 1, n = 3时，求1+11+111之和； 当a = 5, n = 7时，求5＋55＋555＋5555＋55555＋5555555之和。 1.窗体设计 两个lable,三个textbox,一个button,用于启动程序。 2控件属性 两个lable 的text属性分别为“a：”,“n：” Textbox3的multiline属性为“true” Textbox1，Textbox2, Textbox3的text属性均为空 Button1的text属性为“计算” 3代码 Dim s As String Dim n, a, b, t, i As Integer a = TextBox1.Text n = TextBox2.Text b = 0 t = 0 For i = 1 To n b = b * 10 + a t += b If i n Then s += b.ToString + + Else s += b.ToString + = End If Next s += t.ToString TextBox3.Text = s 第2题 杨辉三角形 打印以下的杨辉三角形（打印10行）。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 ┋ 窗体设计 一个textbox，用于显示结果；一个button，用于启动程序。 控件属性 Textbox1的multiline属性为“true” Textbox1的text属性为空 Button1的text属性为“杨辉三角” Dim a(9, 9) As Integer 3代码 Dim i, j As Integer For i = 0 To 9 a(i, 0) = 1 a(i, i) = 1 Next For i = 2 To 9 For j = 1 To 9 a(i, j) = a(i - 1, j) + a(i - 1, j - 1) Next Next For i = 0 To 9 For j = 0 To i Select Case a(i, j) Case a(i, j) = 100 TextBox1.Text += a(i, j).ToString + Case a(i, j) = 10 TextBox1.Text += a(i, j).ToString + Case Else TextBox1.Text += a(i, j).ToString + End Select Next TextBox1.Text += vbCrLf Next 4实验结果 第3题 求最小值 建立一个4行3列的二维数组，找出其中最小的元素所在的行和列，并在文本框中输出该值及其行、列位置。 窗体设计 三个label，用以说明；三个textbox，分别用以显示最小值、所在行、所在列；一个button，用以启动程序。 控件属性 Label1，Label2，Label3的text属性分别“最小值”，“所在行”，“所在列” Textbox1，Textbox2, Textbox3的text属性均为空 Button1的text属性 为“计算” 程序源代码 Dim a(3, 2) As Integer Dim min, i, j, m, n As Integer For