文档详情

VB上机改错和填空.doc

发布:2016-12-17约2.49万字共11页下载文档
文本预览下载声明
属性设置及程序改错题 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
显示全部
相似文档