VB代码转成js代码

Question

哪位大神帮忙把这段VB代码转成js代码
Private Sub Command1_Click()
    Dim xpos As Long, ypos As Long, width As Long, height As Long
    Cell1.GetFloatImagePos 0, "image1", startCol, startRow, endCol, endRow
    MsgBox "起始x坐标:" & xpos & "；起始y坐标：" & ypos
    MsgBox "图片宽度:" & width & "；图片高度：" & height
End SubJavaScriptVB

Answer 1

function Command1_Click() {
    var xpos;
    var ypos;
    var width;
    var height;    Cell1.GetFloatImagePos(0, "image1", startCol, startRow, endCol, endRow);
    alert("起始x坐标:" + xpos + "；起始y坐标：" + ypos);
    alert("图片宽度:" + width + "；图片高度：" + height);
}