VB上机改错和填空.doc

属性设置及程序改错题 gc402.读入N后，求算式1+1/(1×2)+1/(2×3)+…+1/((n-1)×n)的值。请修改程序中2处错误，在二行带有“*”的提示行之间 Dim sum As Single, kk As Single, mm As Single Dim i As Integer, n As Integer mm = InputBox(请输入要求的项数N) n = Val(mm) sum = 1 For i = 1 To n 改：For i = 1 To n-1 kk = i * (i + 1) sum = 1 / kk 改：sum = sum + 1 / kk Next i Print SUM=; sum gc403.求三角形的面积。该窗体上有1个标签Label1“请输入三条边的边长”，3个文本框Text1、Text2和Text3，1个命令按钮Command1“开始计算”。程序运行后，能够先判断从3个文本框中输入的3条边是否构成三角形。如果可以构成，则计算并输出该三角形的面积；否则要求重新输入。 Dim a As Double, b As Double, c As Double, s As Double, area As Double a = Val(Text1.Text)