有谁能帮我这个菜鸟吗...?关于visual basic 的..

peggi_lau

你们好,我是文科生,我的主修是广告和公共关系,然后我必须 在这个学期学visual basic讲师只教导队40%,其他让似懂非懂的我们自己做...

我必须做出一个关于Pythagoras的application
c2=a2+b3...c,b和a都要可以输入和显示答案在各自的textbox里边
然后他只给这个提示...而我看也没看过..
'DeclarationPublic Shared Function Sqrt ( _        d As Double _) As Double
'UsageDim d As DoubleDim returnValue As DoublereturnValue = Math.Sqrt(d)有谁能教我吗..?星期五就要交了..很无助下...

兔仙人

獻醜了 ， 10 年 沒 碰 VB 了 ， 希望 可以 幫到你

Declaration Public Shared Function Sqrt (d As Double) As Double
Usage Dim d As DoubleDim
returnValue As DoublereturnValue = Math.Sqrt(d)

------------------------------------------------------------------------------
首先 double click 你的 BUTTON ， 然後

Dim a , b , c as Integer
Dim d as Double
a = val(textbox1.text)  
b = val(textbox2.text)
a = a * a  
b = b * b
c = a + b
d = Sqrt (c)
textbox3.text  = " " + d

peggi_lau

獻醜了 ， 10 年 沒 碰 VB 了 ， 希望 可以 幫到你

Declaration Public Shared Function Sqrt (d As  ...
兔仙人 发表于 12-8-2010 12:58 PM

哇..谢谢你..我昨天找到一个办法但是没有你的怎么好吧..   Dim a, b, c As Single
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        If a <> 0 And b <> 0 Then
            c = Math.Sqrt(a ^ 2 + b ^ 2)
            TextBox3.Text = c
        ElseIf b <> 0 And c <> 0 Then
            a = Math.Sqrt(c ^ 2 - b ^ 2)
            TextBox1.Text = a
        ElseIf a <> 0 And c <> 0 Then
            b = Math.Sqrt(c ^ 2 - a ^ 2)
            TextBox2.Text = b
        Else
            MessageBox.Show("Error! Only Numeric Can be Calculate!")
        End If
       我现在有麻烦,关于我要放一condition, C 一定要大过A和B, 然后出问题的是,如果我要空着的C,它一定是小过A和B...那我该怎么办?

兔仙人

哇..谢谢你..我昨天找到一个办法但是没有你的怎么好吧..   Dim a, b, c As Single
        a = Val(Text ...
peggi_lau 发表于 12-8-2010 02:13 PM

1.       a = Val(TextBox1.Text)
   
2.         b = Val(TextBox2.Text)
   
3.         c = Val(TextBox3.Text)
   
4. // 放在這裡
   
5.         If a <> 0 And b <> 0 Then
   
6.             c = Math.Sqrt(a ^ 2 + b ^ 2)
   
7.             TextBox3.Text = c
   
8.         ElseIf b <> 0 And c <> 0 Then
   
9.             a = Math.Sqrt(c ^ 2 - b ^ 2)
   
10.             TextBox1.Text = a
    
11.         ElseIf a <> 0 And c <> 0 Then
    
12.             b = Math.Sqrt(c ^ 2 - a ^ 2)
    
13.             TextBox2.Text = b
    
14.         Else
    
15.             MessageBox.Show("Error! Only Numeric Can be Calculate!")
    
16. 
    
17. // else
    
18. do something here
    
19.         End If

复制代码

當 C > A 和 C > B 的時候 ， 就 做 你的 那 PART
如果 A 和  B 小過 C  ， 就 再 做  do something here 那邊
   
ps : 記得 關多 一個 END IF

peggi_lau

當 C > A 和 C > B 的時候 ， 就 做 你的 那 PART
如果 A 和  B 小過 C  ， 就 再 做  do someth ...
兔仙人 发表于 12-8-2010 02:25 PM

不是很明白...T.T

兔仙人

回复 5# peggi_lau

就是說

if ( condition ) then
{
你 做的 那一 PART
}

else
{
// 附加 要做的 東西
}