Question

请问这题vb怎么做？

Answer 1

Private Sub Command1_Click()
Dim m%
Dim s$, x$
m = Len(Text1.Text) '答案为Text1.Text 3分
For i = 1 To m
x = Mid$(Text1.Text, i, 1)
If x >= "A" And x <= "Z" Or x >= "a" And x <= "z" Then '答案为x >= "a" And x <= "z" 3分
x = Chr(Asc(x) + n)
If x > "z" Or x > "Z" And x < "a" Then
x = Chr(Asc(x) - 26) '答案26 3分
End If '答案为 End If 3分
End If
s = s + x '修改为x 3分
Next i
Text2.Text = s
End Sub

Answer 2

感觉这几个题目都是你发的

Answer 3

'计算三角形面积

Function Triangle_Area(ByVal Ax As Double, ByVal Ay As Double, _
ByVal Bx As Double, ByVal By As Double, _
ByVal Cx As Double, ByVal Cy As Double)
Dim a As Double, b As Double, c As Double
Dim p As Double
a = Sqr((Ax - Bx) ^ 2 + (Ay - By) ^ 2)
b = Sqr((Bx - Cx) ^ 2 + (By - Cy) ^ 2)
c = Sqr((Ax - Cx) ^ 2 + (Ay - Cy) ^ 2)
p = (a + b + c) / 2
Triangle_Area = Sqr(p * (p - a) * (p - b) * (p - c))
End Function
Private Sub Command1_Click()
msgbox ("三角形面积:" & Triangle_Area (43,16,64,-12,43,-12))
end sub