高手啊，高手你在哪里呀（2）！？？

来源：百度知道编辑：UC知道时间：2024/09/23 05:34:31

5.这是一个介绍len ,lenB函数区别的程序，但我看不懂 :（
Private Sub Form_Click()
Dim tempstr, newstr As String
tempstr = "BASIC程序设计"
Print "tempstr="; tempstr
newstr = StrConv(tempstr, vbFromUnicode)
Print
Print "执行newstr =StrConv(tempstr, vbFromUnicode)后："
Print "newstr="; newstr
Print "LenB(newstr)="; LenB(newstr)
Print "Len(newstr)="; Len(newstr)
Print
newstr = StrConv(tempstr, vbUnicode)
Print "执行newstr = StrConv(tempstr, vbUnicode)后："
Print "newstr="; newstr
Print "LenB(newstr)="; LenB(newstr)
Print "Len(newstr)="; Len(newstr)
End Sub

请解释解释！
6.给定三角形的3条边长，计算三角形的面积。编写程序，首先判断给出的3条边长是否能够成三角形，若能，计算面积，若不能，则重新输入。当输入-1时结束。
这是我编的程序，请调试！（我忘记只知道三边如何求三角形面积的公式了～）
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
a = InputBox("请输入一个正数")
b = InputBox(&

Q6------------------------
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim p As Integer
Dim S As Long

a = InputBox("请输入A边长度")
b = InputBox("请输入B边长度")
c = InputBox("请输入C边长度")

If Not (a + b > c And b + c > a And a + c > b) Then
MsgBox "-_-! 懒得鄙视你"
Exit Sub
Else
p = (a + b + c) / 2
S = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox "o(∩_∩)o...哈哈三角形面积为：" & S
End If
End Sub

Q7----------------------------
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer

a = InputBox("请输入一个整数")
b = InputBox("请输入一个整数")

For i = IIf(a < b, a, b) To IIf(a > b, a, b)
k = 0
For j = 1 To Int(i / 2)
If i Mod j = 0 Then

高手呀，高手你在哪里？高手啊，你在哪里？高手！！你在哪里啊高手高手，你在哪里？高手高手你在哪里高手你在哪里？高手啊.你在哪里啊! 硬件高手，你在哪里？黑客高手你在哪里？英文高手你在哪里？？？？？