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) b = Val(Text2.Text) c = Val(Text3.Text) If ((a + b c) And (c 0)) And ((a + c b) And (b 0)) or ((c + b a) And (a 0)) Then or 改and s = (a + b + c) / 2 area = Abs( (s * (s - a) * (s - b) * (s - c)) Abs改sqr MsgBox 面积是 area Else MsgBox 不能构成三角形,请重新输入 End If gc319.该窗体运行时位居Visual Basic主窗口的中央，运行时呈最大化窗口。在编辑框中输出从100开始被3、5、7除余数均为1的10个数。该窗体有两个命令按钮command1“开始计算”、command2“清空文本框”和一个文本框Edit1。点击“开始计算”，开始求满足条件的数，将满足条件的数输出到文本框中，每输出一个换一行。要求：(1)设置窗体Form1和命令按钮command1的属性； (2)在command1的click代码中有两个错误，请调试改。 Dim i%, j%, k% i = 100 j = 0 Do If (i Mod 3 = 1) And (i Mod 5 = 1) And (i Mod 7 = 1) Then Text1.Text = Text1.Text i Chr(13) Chr(10) j = j + 1 End If If j 10 Then Exit Do 改：j=10 i = i – 1 改：i=i+1 Loop gc482.在窗体上建有2个标签控件(Label1、Label2)、2个文本框(Text1、Text2)和两个命令按钮(Command1、Command2)。Label1、Label2的属性已设置；Text1、Text2分别用于输入和显示华摄氏温度，其Text属性为空；Command1、Command2分别用于“华氏转摄氏”、“摄氏转华氏”(Caption属性)，温度转换公式为：F=9/5*C+32(其中F为华氏温度，C为摄氏温度)。 要求：1) 设置Text1、Text2和Command1、Command2的属性； 2) 在编写的Command1_Click()和Command2_Click()二个过程代码中各有一个错误，请调试改正。 Public C As Double, F As Double Private Sub Command1_Click() F = Text1.Value 改：F = val（Text1.Value） C = 5 / 9 * (F - 32) Text2.Text = C End Sub Private Sub Command2_Click() C = Text2.Value 改：C = val（Text2.Value） F = 9 / 5 * C + 32