第10周实习题目.docVIP

第10周实习题目 本周有4个题目 第1题 计算长方形的面积和周长 设计如下的窗体，向前两个文本框中分别输入长和宽，单击“计算”，在另外两个文本框中显示长方形的面积和周长，要求采用SUB子过程计算面积和周长，长和宽通过参数传递，面积和周长在SUB过程中输出。 第2题 计算长方形的面积和周长 设计如下的窗体，向前两个文本框中分别输入长和宽，单击“计算”，在另外两个文本框中显示长方形的面积和周长，要求采用SUB 函数过程计算面积和周长，长和宽通过参数传递，面积和周长通过引用传递返回。 其中计算面积的SUB过程参考代码如下： Sub area(ByVal height As Integer, byval width as integer,byref s as integer,byref l as integer) Dim s as integer S=height*width L= (height+width)*2 End Sub 第3题 判断素数 设计如下的窗体，向第一个文本框中输入一个整数，单击“计算”按钮，判断该数是否是素数，在另一个文本框中显示判断的结果。 要求：判断素数使用FUNCTION过程，整数通过参数传递，如果该数是素数，返回TRUE，否则输出FLASE。 第4题 计算一维数组元素的和 设计窗体如下图（1），单击“开始”按钮后，从键盘输入10个整数，输入到一维数组中， 输入时采用inputbox函数，见图（2），然后调用FUNCTION函数过程，计算这里10个数的和，将和作为返回值在文本框中输出，见图（3）， 其中输入框的使用如下： For i=1 to 10 str = 请输入第 + i.ToString + 个整数 a(i) = InputBox(str) next