Visual Basic 疑问

Anything~~!

你误解了吧,我是说他的code

private sub cmd1_click()

x = 50
y =val(txt1.text)

       if y = x then
               lbl1.caption="corret"
       elseif y <> x then
               lbl1.caption="wrong"
       end if
end sub

这是第一个button的功能，
我要做多一个button，功能是把x的数字换掉，每按一次就会变，然后第一个button的功能可以运作

KenXML

who cann teach me vb ??

Super-Tomato

原帖由 Anything~~! 于 2009-1-22 04:25 PM 发表
你误解了吧,我是说他的code

private sub cmd1_click()

这是第一个button的功能，
我要做多一个button，功能是把x的数字换掉，每按一次就会变，然后第一个button的功能可以运作

那麼首先你是否學過 VB??? 你所創建的另外一個 button event 和第一個 button 的 event 有甚麼關係呢??

goodhermit95

我要学！教教我！我要做Dota外挂！我要做3D game!

Jay1515Jay

原帖由 KenXML 于 2009-1-23 04:23 PM 发表
who cann teach me vb ??

是给人教就会全部人都是programmer咯
要自己研究和找google d
新手不用人家教的不用很多方法
google就懂了

按这里看Google搜索技巧

[ 本帖最后由 Jay1515Jay 于 2009-1-25 12:04 AM 编辑 ]

毛毛小子

我想请教下：
怎样Convert celcius 去 fahrenheit

goodhermit95

http://www.albireo.ch/temperatureconverter/formula.htm

1. 
   
2. if isnumeric(textbox1.text) and isnumeric(textbox2.text) Then
   
3. Dim C as integer = Textbox1.Text * 10 'Textbox1.Text as C , *10 to avoid have x.5
   
4. C=5/9(F-32)
   
5. label1.text = C 'f,label1.text as output
   

复制代码

毛毛小子

谢谢你~
我试试看先

毛毛小子

Dim Ftemp, Celsius As Single
        Dim strFTemp As String
        Dim Prompt As String = "Enter a Fahrenheit temperature."
        Do
            strFTemp = InputBox(Prompt, "Fahrenheit to celcius.")
            If strFTemp <> == Then
                Ftemp = CSng(strFTemp)
                Celsius = Int((Ftemp + 40) * 5 / 9 - 40)
                MsgBox(Celsius, , "Temperature in Celcius:")
            End If
        Loop While strFTemp <> ""

If strFTemp <> == Then  这行的==那里错，我放variable在==后面也错，删掉==也错。>"<

毛毛小子

你的那个If IsNumeric(TextBox1.Text) And IsNumeric(textbox2.text) Then要不要declare的？
我declare IsNumeric as 什么什么的，不可以用。