標題:
有人會翻譯這一段程式語言嗎
發問:
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 略盡綿力吧@~@
留言列表
