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