vb实验6过程第12周一实验目的掌握函数过程和子过程的定义和.docVIP

VB实验6 过程 第12周 一 实验目的： 掌握函数过程和子过程的定义和调用方法 形参和实参的对应关系 掌握值传递和地址传递的传递方式 掌握变量、函数和过程的作用域 掌握递归概念和使用方法 熟悉程序设计的常用算法 二 实验内容： [程序填空题和改错题请以项目文件解决方案形式保存到学号姓名文件夹下。] 1程序填空题 本程序计算Sn的值，并将计算结果显示在标签中。Sn＝a＋aa＋aaa＋...＋aaa…a，其中：3≤n≤7，1≤a≤9，最后一项为n个a。例如：当a＝3，n＝5时，则　Sn＝3＋33＋333＋3333＋33333。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a!, n%, x%, Sn!, tn! a = Int(Rnd * 9 + 1) n = Int(Rnd * 5 + 3) x = 1 Sn = 0 tn = 0 Do While ____x____ = n tn = tn * 10 + a Sn = ____sn+tn____ x = x + 1 Loop Label1.Text = Sn= ____sn__ 显示结果 End Sub 2 程序填空题 形成5×5的方阵，分别输出方阵中各元素和下三角元素方阵规律：第一行的元素为0~4，以后每一行是前一行对应元素增加5，上三角规律: 每一行的起始列与行号相同,只要控制内循环的初值，用Space(4-Len(Trim(sc(i,j))))控制输出的空格， Dim sc%(4, 4), i%, j% 产生方阵数据，在Label1显示 Label1.Text = 产生方阵数据 vbCrLf For i = 0 To 4 For j = 0 To 4 sc(i, j) =_____(1)_5*i+j____ Label1.Text = _____(2)_ Space(4-Len(Trim(sc(i,j))))____ sc(i, j) Next j Label1.Text = vbCrLf 换行 Next i 在Label2文本框显示上三角数组元素() Label2.Text = 显示上三角数组元素 vbCrLf For i = 0 To 4 Label2.Text = ___space(4*i)___ 每行的起始位 For j = i To 4 Label2.Text = Space(4 - Len(Trim(sc(i, j)))) sc(i, j) Next j Label2.Text = _____(4)__vbcrlf___ 换行 Next i 在Label3文本框显示下三角数组元素 Label3.Text = 显示下三角数组元素 vbCrLf For i = 0 To 4 For j = 0 To _____(5)___i__ Label3.Text = sc(i, j) Space(4 - Len(Trim(sc(i, j)))) Next j Label3.Text = vbCrLf 换行 Next i 3改错题（3个错误） 已知多边形各边的长度，计算多边形面积。多边形如图4-1-10所示。 要求：在窗体单击事件过程中，计算出多边形面积，并将结果显示在标签框中。 图4-1-10多边形 Sub button1_click(………………..) Dim a,b,c,d,e,f,g as integer Dim s as integer ‘ dim s as single a=val(inputbox(“输入边长”)) b=val(inputbox(“输入边长”)) c=val(inputbox(“输入边长