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
显示全部