有人會翻譯這一段程式語言嗎－航空百科

標題:

有人會翻譯這一段程式語言嗎

發問:

此文章來自奇摩知識+如有不便請留言告知

Dim level As IntegerDim r, g, b AsIntegerDim ordinar As IntegerDimxc, y c As IntegerDim dx, dy As IntegerDim ac, bc As IntegerDim sss As IntegerDim ballsize AsInteger = 20Dim gg As MessageBoxButtons接下來..CaseKeys.RightIfrossaria.Left>Me.Width - rossaria.Width - 20 Thenrossaria.Left =... 顯示更多 Dim level As Integer Dim r, g, b AsInteger Dim ordinar As Integer Dimxc, y c As Integer Dim dx, dy As Integer Dim ac, bc As Integer Dim sss As Integer Dim ballsize AsInteger = 20 Dim gg As MessageBoxButtons 接下來.. CaseKeys.Right Ifrossaria.Left>Me.Width - rossaria.Width - 20 Then rossaria.Left = Me.Width - rossaria.Width Else rossaria.Left = rossaria.Left + 20 EndIf CaseKeys.Up Ifrossaria.Top> 250 Then rossaria.Top = rossaria.Top - 20 EndIf CaseKeys.Down Ifrossaria.Top
最佳解答:

Dim r, g, b AsInteger Dim ordinar As Integer Dimxc, y c As Integer Dim dx, dy As Integer Dim ac, bc As Integer Dim sss As Integer Dim ballsize AsInteger = 20 Dim gg As MessageBoxButtons 先制作一些參數(parameter), 供編程時運算用。 Integer 整數有 level, r, g, b, ordinar, xc, y, c, dx, dy, ac, bc, sss Integer 整數有 ballsize, 這裡設 ballsize室為20 MessageBoxButtons 對話框的按鈕有 gg 下面內容應該是一個物件裡的一個KeyDown / KeyPress 事件下面應該是select case 的一部分吧應該有一個要判斷的參數，設為 xx 應該是要判斷按下了什麼按鍵 select xx CaseKeys.Right Ifrossaria.Left>Me.Width - rossaria.Width - 20 Then rossaria.Left = Me.Width - rossaria.Width Else rossaria.Left = rossaria.Left + 20 EndIf CaseKeys.Up Ifrossaria.Top> 250 Then rossaria.Top = rossaria.Top - 20 EndIf CaseKeys.Down Ifrossaria.Top
其他解答:

昏暗的水平作為整數昏暗的R，G，B AsInteger 由於整數昏暗一般負責 Dimxc，Y c由於整數昏暗的DX，DY為INTEGER 昏暗的AC，BC作為整數由於整數昏暗SSS Ballsize昏暗作為整數=20 昏暗的GG MessageBoxButtons 接下來.. CaseKeys.Right Ifrossaria.Left> Me.Width - rossaria.Width - 20然後 rossaria.Left= Me.Width - rossaria.Width 其他 rossaria.Left rossaria.Left=+20 ENDIF CaseKeys.Up Ifrossaria.Top>250然後 rossaria.Top= rossaria.Top - 20 ENDIF CaseKeys.Down Ifrossaria.Top 250 Then 其實應該是If rossaria.Top> 250 Then 那個.TOP我不太懂但我猜應該是某圖形的數值吧所以上述的例子就是如果那圖形的數值大於250 那就執行rossaria.Top = rossaria.Top - 20 我不專精VISUAL BASIC 略盡綿力吧@~@|||||你那語言叫VISUAL BASIC dim其實是dimension dim x as integer的意思就是定義一個叫X的數值類型為integer (integer即為4byte或32位元) 亦即從記憶找4byte存放數值限制在0~4294967295 至於那些.right,.left我就不懂了但其他其實很易看懂如 IF,ENDIF dim x as double if x = 10 then x = x + 1 end if 也就是先定義X,然後當執行到第2行代碼如果 x = 10 那就把 x + 1 IF跟ENDIF成對其中可在IF-ENDIF內加上ELSE 例如: if x = 10 then x = x + 1 else x = 0 end if 上例意思是先檢查 x 是否 =10 如是則執行 x = x + 1 否則 x 就 = 0 如你的例子中 Ifrossaria.Top> 250 Then 其實應該是If rossaria.Top> 250 Then 那個.TOP我不太懂但我猜應該是某圖形的數值吧所以上述的例子就是如果那圖形的數值大於250 那就執行rossaria.Top = rossaria.Top - 20 我不專精VISUAL BASIC 略盡綿力吧@~@