ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBªº¹Bºâ²Å¸¹

[µo°Ý] VBªº¹Bºâ²Å¸¹

¹L¥h²ßºD¨Ï¥Îexcel¤¤ªºVBA,²{¦b¦]¬G»Ý­n¼gVB«oµo²{®t¦n¦h
1. ¹ï¼Æ¹Bºâ¤lLog¤£¯àª½±µ¥Î?
2. +-/*¹Bºâ²Å¸¹¤]¤£¯àª½±µ¥Î?
½Ð°Ý¸Ó«ç»ò§ï¤~¦æ?

Public Class Form1
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim p As Single
        p = Val(TextBox1.Text)
        TextBox2 = 10 * Log((p ^ 2) / 100)
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox1 = 10 ^ (TextBox2 / 20) * 0.00002
    End Sub
End Class

­èÀ°§A¬d¤F¤@¤U¡A¥Îmath.log((p ^ 2) / 100) ¬Ý¬Ý
¥t¥~¥[´î­¼°£À³¸Ó¥i¥H¥Îªü¡I
¸Õ¸Õ¬Ý
TextBox2 .text=10 * math.log((p ^ 2) / 100)
§Ú¤]¦n¤[¨S¸IVB><

TOP

¦^´_ 2# bsy4life

ÁÙ¬O¥X²{¿ù»~°T®§

TOP

¦^´_ 3# acdx


    «Øij§A¥ý¤£­n¨Ï¥Î¥ô¦óÅܼơA§â¥i¯à¼vÅTµ²ªGªº©w¸q³£¥ýµù¸Ñ°_¨Ó
    ³æ¯Âªºµ¹¥L­È¡AÅý¥L¹Bºâ¡A¦A§â­È¥á¤Jtextbox
    ¨Ò¦p¡G
  1. Dim p as double,TextBox1 as double
  2. p=math.log(10)
  3. TextBox1.text = p
½Æ»s¥N½X
¦pªG¥i¥H¦¨¥\¦^¶Ç­È¦b§ï¦¨§A­nªº­pºâ¤è¦¡
     §Aªº°õ¦æµ²ªG¬Ý°_¨ÓÀ³¸Ó¬O§AªºTextBoxµLªk±µ¦¬³o­Ó¦^¶Ç­È

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD