vb在線編譯

❶ VB編程代碼在線等急急急。

DimsumasInteger
IfVal(Text1.Text)<1OrVal(Text1.Text)<20Then
MsgBox"請重新輸入n值！"
Else
Fori=1Ton
Forj=1Toi
sum=sum+j
Next
Next
EndIf
Text2.Text=CStr(sum)

❷ vb編程在線等

測試前做好數據備份。

Sub sample()
i = 1
j = 1001
c=5000'你說的5000是sheet1的第5000還是sheet2的5000行，這里默認是sheet1的第5000

For m = i To c
Worksheets("Sheet1").Range(m & ":" & m).Cut Worksheets("Sheet2").Cells(j, 1)
Worksheets("Sheet2").Range(j & ":" & j).Copy
Worksheets("Sheet2").Cells(j, 1).PasteSpecial xlPasteValues
j = j + 1
Next

End Sub

❸ VB 編譯錯誤：在該對象模塊派生的對象模塊中成員已存在 在線求解答

我運行了一下沒出錯，你注意一下文件內容，每行有4個數據，每個數據之間用空格隔開，例如：
30 100 200 300

❹ VB語言編譯的自動點擊軟體，不能用了，求其他編譯語言修改。

按鍵精靈行不？
qq：1426991913

❺ VB代碼出錯，編譯提示「在End Sub屬性後面只能出現注釋」

Sub attractiveness()
Dim i As Integer
For i = 1 To 7
'set the value of cell G2 equal to i(1,2,...,7)
Range("G2") = i
'solversolve userfinish:=True
'place the attractiveness score in cell G5 into column K
Range("K" & i + 1) = Range("G5")
Next i
End Sub
Private Sub CommandButton1_Click()
attractiveness()
End Sub

這樣寫就對了

❻ vb6.0編譯錯誤——過程聲明與同名事件或過程描述不匹配——在線等待您的解答！追加分哦！

SSTabbuy 應該是個控制項

但聲明： Private Sub SSTabbuy_Click(PreviousTab As Integer) 不是控制項事件的聲明。

糾正辦法，把當前過程內的代碼拷貝出來，然後刪除過程SSTabbuy_Click的全部內容，
在窗口上雙擊SSTabbuy控制項，然後在代碼窗口中選擇click事件
最後把前面拷貝出的代碼復制到過程里

❼ vb出現編譯錯誤：在End Sub、End Function或End屬性後面只能出現注釋

夏威夷海盜2同志：你的錯誤明顯不是上述這些個代碼出的問題。這些代碼根本就沒有問題。
根據你的問題說「在End Sub、End Function或End屬性後面只能出現注釋」，那麼我猜你一定是在上述代碼的基礎上添加過代碼了，而且你添加的代碼位置有誤造成的問題。如果是這樣，你好好檢查一下自己的代碼，你把新添加的代碼前後調整調整位置，例如：你添加的一些像Private Declare Function 一樣的聲明或常量等就應該移動到上述代碼之前哦。

❽ VB編程在線等·

Private Sub Command1_Click()
zk = 0
jm = 1
j = 0
If Check1.Value = 1 Then zk = Text1
If Check2.Value = 1 Then jm = Text2: j = Text3
If Option1.Value = True Then
m = Text4 * (1 - zk)
Text5 = m - (m \ jm) * j
End If
If Option2.Value = True Then
m = Text4 - (Text4 \ jm) * j
Text5 = m * (1 - zk)
End If
m = 0
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
If Check1.Value = 0 Then MsgBox "請選擇折扣率"
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
If Check2.Value = 0 Then MsgBox "請選擇滿減金額"
End If
End Sub

❾ 在VB 編譯成EXE文件的時候，怎麼和另外的PDF合並在一起

你生成的這個exe文件在其他沒有vb環境的電腦上應該也是不能用的，你可以用vb自帶的打包工具打包，在打包的工程中把這個PDF添加進去就可以了！
開始—>所有程序->microsoft visual basic 6.0->microsoft visual basic 6.0工具—>Package & Deployment 向導，按照步驟一步一步就可以了

❿ VB編譯錯誤 缺少行號或標簽或語句或語句結束 在線等 急

Private Sub Form_Load()
Txt1.Text = "您喜歡的水果是：" & Form1.StrA & vbCrLf _
& "您喜歡的飲料是：" & Form1.StrB & vbCrLf _
& "您喜歡的運動是：" & Form1.StrC & vbCrLf
End Sub