VBA中对变量进行赋值，但是变量未接收 ，不能执行if里的内容，却执行Else中的内容

If (rst!数量 >= Me.数量) Then Dim number As Integer number = rst!数量 number = number - Me![数量] rst!数量 = number rst.Close Set rst = Nothing MsgBox "商品成功出库！" sql = "当前库存数量为：" & number MsgBox sql Exit Sub Else MsgBox "该商品库存量不足，不能出库" Exit Sub End If ``` ```

如何用VBA代码更新access中的表记录，我的其中一段代码出现了问题（更新操作 .AddNew）

Private Sub Command14_Click() Dim rst As ADODB.Recordset Dim number As Integer Dim sql As String If IsNull(Me![仓库编号]) Then MsgBox "请选择仓库" DoCmd.GoToControl "仓库编号" ElseIf IsNull(Me![商品编号]) Then MsgBox "请选择商品编号" DoCmd.GoToControl "商品编号" ElseIf IsNull(Me![数量]) Then MsgBox "请选择数量" DoCmd.GoToControl "数量" ElseIf IsNull(Me![经手员工编号]) Then MsgBox "请选择经手员工编号" DoCmd.GoToControl "经手员工编号" ElseIf IsNull(Me![出库日期]) Then MsgBox "请选择出库日期" DoCmd.GoToControl "出库日期" ElseIf IsNull(Me![订单编号]) Then MsgBox "请选择订单编号" DoCmd.GoToControl "订单编号" ElseIf IsNull(Me![送货方式]) Then MsgBox "请选择送货方式" DoCmd.GoToControl "送货方式" Else sql = "select * from 商品表 where 商品编号='" & Me.商品编号 & "'" Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenDynamic rst.LockType = adLockOptimistic rst.Open sql If Not (rst.EOF) Then '修改库存信息 sql = "select *from 商品表 where 仓库编号='" & Me.仓库编号 & "'and 商品编号='" & Me.商品编号 & "'" Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenDynamic rst.LockType = adLockOptimistic rst.Open sql If Not (rst.EOF) Then number = rst!数量 number = number - Me![数量] rst!数量 = number 'rst.Close 'Set rst = Nothing sql = "当前库存数量为：" & number MsgBox sql Exit Sub Else rst.Close Set rst = Nothing MsgBox "没有该商品的库存信息，不能出库" Exit Sub End If '添加出库记录 sql = "select * from 出库记录表" rst.Close Set rst = Nothing Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenKeyset rst.LockType = adLockOptimistic rst.Open sql ## With rst ## .AddNew ## .Update = Me![仓库编号] ## !商品编号 = Me![商品编号] ## !数量 = Me![数量] ## !经手员工编号 = Me![经手员工编号] ## !出库日期 = Me![出库日期] ## !订单编号 = Me![订单编号] ## !送货方式 = Me![送货方式] ## End With ## rst.Close ## Set rst = Nothing Else rst.Close Set rst = Nothing MsgBox "系统中没有该商品的信息，请先添加商品详细信息" Exit Sub Me.Visible = False End If End If End Sub ``` 加粗的代码不能正常执行 ```

在VBA中同时启用了两个钩子，但只能释放一个怎么回事？

我想通过HOOK同时监控鼠标和键盘的操作，获得鼠标的当前坐标和我按下的按键码。 鼠标这个hook没有问题，但是当我加上键盘hook时候，发现释放不了键盘的hook. 点击结束后，鼠标hook停止了但是键盘还在继续运行。请各位帮帮我。 代码如下： ``` Sub UNHOOK() '卸钩子 UnhookWindowsHookEx Mhook2 UnhookWindowsHookEx Mhook Mhook2 = 0 Mhook = 0 End Sub Sub MOUSEHOOK() Mhook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MyMhook, Application.Hinstance, 0) Mhook2 = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf MyMhookkey, Application.Hinstance, 0) If Mhook = 0 Then MsgBox "钩子注册失败" If Mhook2 = 0 Then MsgBox "钩子注册失败" End Sub Public Function MyMhook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If ncode = 0 Then If wParam = WM_MOUSEMOVE Then Dim p As POINTAPI GetCursorPos p GetmousePos.TextBox1.Value = p.X & "," & p.Y End If Else MyMhook = CallNextHookEx(Mhook, ncode, wParam, lParam) End If MyMhook = CallNextHookEx(Mhook, ncode, wParam, lParam) End Function Public Function MyMhookkey(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If ncode = 0 Then If wParam = WM_KEYDOWN Then CopyMemory mymsg, ByVal lParam, LenB(mymsg) a = Chr(mymsg.vKey) MsgBox mymsg.vKey End If Else MyMhookkey = CallNextHookEx(Mhook2, ncode, wParam, lParam) End If MyMhookkey = CallNextHookEx(Mhook2, ncode, wParam, lParam) End Function ```

VBA连接access，Rscategories.Open提示至少一个参数未被指定值。

刚刚接触access的vba，遇到了点问题，希望得到指点和帮助 ``` Option Compare Database Dim conn As ADODB.Connection Dim rsbook As ADODB.Recordset Dim Rscategories As ADODB.Recordset Dim sqlstr As String Dim categories_code As Integer '创建对象 Private Sub Form_Load() Set conn = CurrentProject.Connection Set rsbook = New ADODB.Recordset rsbook.locktype = adlockoptimistic rsbook.Open "图书档案", conn, , , adCMDTable End Sub Private Sub new_set_Click() If rsbook.BOF = True And rsbook.EOF = True Then '数据集为空时 MsgBox ("数据表为空！") Else rsbook.MoveLast End If Set Rscategories = New ADODB.Recordset sqlstr = "SELECT 种类编号.编号 FROM 种类编号 WHERE (((种类编号.种类名称)=[Forms]![数据录入]![categories]))" Rscategories.Open sqlstr, conn, 1, 3 MsgBox (Rscategories!编号) End Sub ```

word ，vba 读取xml 的问题

Function SetDataValue(strXML As String) Dim MyXmlDoc As MSXML2.DOMDocument40 Dim XmlNode As MSXML2.IXMLDOMNode On Error Resume Next ActiveDocument.Shapes("Txt_xml").TextFrame.TextRange.Text = strXML Set MyXmlDoc = New MSXML2.DOMDocument40 MyXmlDoc.async = False If MyXmlDoc.LoadXML(strXML) Then Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Common/DocClass") If Not (XmlNode Is Nothing) Then SetDocClass XmlNode.Text End If Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Special/Stock/TradeName") If Not (XmlNode Is Nothing) Then SetIndustry XmlNode.Text End If Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Common/Title") If Not (XmlNode Is Nothing) Then SetTitle XmlNode.Text End If Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Special/Stock/InvestRating") If Not (XmlNode Is Nothing) Then SetEst XmlNode.Text End If Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Special/Stock/TargetPrice") If Not (XmlNode Is Nothing) Then SetTargetPrice XmlNode.Text End If Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Common/CreateTime") If Not (XmlNode Is Nothing) Then SetDate XmlNode.Text End If Set XmlNode = MyXmlDoc.SelectSingleNode("/TemplateData/Common/Author") If Not (XmlNode Is Nothing) Then SetAnalyst XmlNode.Text End If Else Application.StatusBar = "数据格式错误，无法填充。" End If SetTitle "dingwei2009" SetDataValue = "cg" End Function SetDocClass ，SetTitle 之类都是 设置word文档的值，但是读取xml却是null，代码能编译，在windows service 2012 上 是什么问题

vba 事件如何设置区域范围

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean) If ActiveCell.Value = "" Then ActiveCell.Value = "√" Else ActiveCell.Value = "" End If 我想问下，如何设置这个代码只在a1:a10范围生效

VBA自动载入照片的问题

Sub ZAIRU() On Error Resume Next Dim R& Dim Pic As Object For Each Pic In Sheet1.Shapes If Pic.Name <> Sheet1.Shapes("按钮 97").Name Then Pic.Delete End If Next For R = 3 To Range("B65536").End(xlUp).Row If (Len(Cells(R, 2)) <> 0) Then Set Pic = Sheet1.Pictures.Insert(ThisWorkbook.Path & "\图片\" & Cells(R, 2) & ".jpg") Pic.ShapeRange.LockAspectRatio = True With Pic.ShapeRange If .Height / .Width < Cells(R, 1).Height / Cells(R, 1).Width Then .Width = Cells(R, 1).Width .Left = Cells(R, 1).Left .Top = Cells(R, 1).Top + (Cells(R, 1).Height - .Height) / 2 Else .Height = Cells(R, 1).Height .Top = Cells(R, 1).Top .Left = Cells(R, 1).Left + (Cells(R, 1).Width - .Width) / 2 End If End With End If Next R End Sub 这个自动载入图片的宏,载入图片是可以的,但是如果如果哪一行上对应的图片没有的话,则上边一行的图片就会挪到下边来,比如说,A2中的数据是A,则第一遍for的时候"A.jpg"就载入A1里.然后执行第二遍for,B2里的数据是B,但是如果刚好没有"B.jpg"这张图片,这时候B1里应该是空的,继续执行下次的for,但是实际是A.jpg会落到B1里,A1里成空的了,请问这个问题怎么解决啊?

VBA Excel获取数据库图片

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$f$5" Then Image1.Picture = LoadPicture(ThisWorkbook.Path & "\照片\" & Trim(Target.Value) & ".jpg") Sheets("").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\照片\" & Trim(Target.Value) & ".jpg") If Err.Number = 0 Then Image1.Visible = True Sheets("表").Image1.Visible = True ' [ao2] = "有图片" Else Image1.Visible = False Sheets("表").Image1.Visible = False ' [ao2] = "无图片" Err.Clear End If End If End Sub 我的图片要放在那个位置才能将图片导入

求助！刚刚接触vba，这段代码麻烦各位帮我看看问题出在哪儿了，运行到”.send”时就报“运行”不知什么情况

``` 'Option Explicit Sub test() For r = 3 To Range("A1").CurrentRegion.Rows.Count dm = Cells(r, 1).Value If Val(dm) < 600000 Then Url = "http://qt.gtimg.cn/q=sz" & dm Else Url = "http://qt.gtimg.cn/q=sh" & dm End If With CreateObject("msxml2.xmlhttp") .Open "GET", Url, False .send sp = Split(.responsetext, "~") If UBound(sp) > 3 Then Cells(r, 3).Value = sp(3) Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00") Else Cells(r, 3).Value = "证券代码错啦！" End If End With Next End Sub ```

修改VBA分割WORD代码 改成文件名为知道区域文字

Sub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer Dim fso As Object Const nSteps = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To nTotalPages Step nSteps Set oNewDoc = Documents.Add If nIndex + nSteps > nTotalPages Then nBound = nTotalPages Else nBound = nIndex + nSteps - 1 End If For nSubIndex = nIndex To nBound oSrcDoc.Activate oSrcDoc.Bookmarks("\page").Range.Copy oSrcDoc.Windows(1).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next oNewDoc.Activate oNewDoc.Windows(1).Selection.Paste Next nSubIndex strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName)) oNewDoc.SaveAs strNewName oNewDoc.Close False Next nIndex Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "可以了" End Sub

初学VBA，发现transpose存在限制，跪求大佬帮忙

1、代码目的：把相同ID的数据，合并到一行显示  2、代码如下： Sub join() Application.ScreenUpdating = False arr = Sheets(1).Range("A1").CurrentRegion Set nm = CreateObject("scripting.dictionary") Set fp = CreateObject("scripting.dictionary") For i = 2 To UBound(arr) If nm.exists(arr(i, 1)) Then nm(arr(i, 1)) = nm(arr(i, 1)) & "," & Format(arr(i, 3), "yyyy-m-d") Else nm(arr(i, 1)) = Format(arr(i, 3), "yyyy-m-d") End If If fp.exists(arr(i, 1)) Then fp(arr(i, 1)) = fp(arr(i, 1)) & "," & arr(i, 4) Else fp(arr(i, 1)) = arr(i, 4) End If Next Sheets(2).Range("A2").Resize(nm.Count, 1) = Application.Transpose(Array(nm.keys)) Sheets(2).Range("C2").Resize(nm.Count, 1) = Application.Transpose(Array(nm.items)) Sheets(2).Range("D2").Resize(fp.Count, 1) = Application.Transpose(Array(fp.items)) For i = 2 To nm.Count + 1 Sheets(2).Cells(i, 2) = Application.VLookup(Sheets(2).Cells(i, 1), Sheets(1).Range("A:C"), 2, False) Next Set nm = Nothing Set fp = Nothing Application.ScreenUpdating = True End Sub 3、问题： transpose函数有65536的限制，当同一ID行数超过限制时，跳“类型不匹配”的错误，求大佬指点？ 

打印文件夹下所有工作簿中指定的工作表

现已拥有2003版代码，但由于即03版excel之后，微软取消了vba的filesearch功能，不知为何，请问有高手可以用别的代码代替此功能吗？ 可以在excel2010中使用的代码 有人会用filesystemobject ，或者其他代码能达到效果就可以~ 谢谢~ Sub printer1() Dim fd As FileDialog, oFile As Object Dim Fso, myFolder As Object, myFiles As Object Dim fn$ '定义一些要用到的变量,分别获取文件夹名,文件名 Set Fso = CreateObject("Scripting.FileSystemObject") '创建文件操作 Set fd = Application.FileDialog(msoFileDialogFolderPicker) '用对话框获取文件夹路径 If fd.Show <> -1 Then Exit Sub '如果在文件夹选择时点"取消"则退出过程 Set myFolder = Fso.GetFolder(fd.InitialFileName) '将文件夹路径赋值到变量 With Application.FileSearch .LookIn = myFolder '设置文件的搜索路径 .FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿 If .Execute > 0 Then '如果找到一个或多个文件 For i = 1 To .FoundFiles.Count '设置打开工作簙的循环 Workbooks.Open Filename:=.FoundFiles(i) '打开找到的每一个工作簙 ol = 1 Sheets("评级审批表").PrintOut Copies:=ol '打印指定工作表 ActiveWorkbook.Save '保存当前工作簙 ActiveWorkbook.Close '关闭当前工作簙 Next i '打开下一个工作簙 Else MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件 End If End With End Sub 另

下面这段（合并excel表）代码运行中出现下标越界，为什么

Sub Collectwk2() 'ExcelHome VBA编程学习与实践 Dim Trow&, k&, arr, brr, i&, j&, book&, a& Dim p$, f$, Rng As Range With Application.FileDialog(msoFileDialogFolderPicker) '取得用户选择的文件夹路径 .AllowMultiSelect = False If .Show Then p = .SelectedItems(1) Else Exit Sub End With If Right(p, 1) <> "\" Then p = p & "\" ' Trow = Val(InputBox("请输入标题的行数", "提醒")) If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub Application.ScreenUpdating = False '关闭屏幕更新 Cells.ClearContents '清空当前表数据 Cells.NumberFormat = "@" '设置单元格格式为文本 ReDim brr(1 To 200000, 1 To 1) '定义装汇总结果的数组brr，最大行数为20万行 f = Dir(p & "*.xls*") '开始遍历指定文件夹路径下的每个工作簿 Do While f <> "" If f <> ThisWorkbook.Name Then '避免同名文件重复打开出错 With GetObject(p & f) '以\'只读\'形式读取文件时，使用getobject方法会比workbooks.open稍快 Set Rng = .Sheets(1).UsedRange If IsEmpty(Rng) = False Then '如果工作表非空 book = book + 1 '标记一下是否首个Sheet,如果首个sheet，BOOK=1 a = IIf(book = 1, 1, Trow + 1) '遍历读取arr数组时是否扣掉标题行 arr = Rng.Value '数据区域读入数组arr If UBound(arr, 2) > UBound(brr, 2) Then '动态调整结果数组brr的最大列数，避免明细表列数不一的情况。 ReDim Preserve brr(1 To 200000, 1 To UBound(arr, 2)) End If For i = a To UBound(arr) '遍历行 k = k + 1 '累加记录条数 For j = 1 To UBound(brr, 2) '遍历列 brr(k, j) = arr(i, j) Next Next End If .Close False '关闭工作簿，不保存。 End With End If f = Dir '下一个工作簿 Loop If k > 0 Then [a1].Resize(k, UBound(brr, 2)) = brr MsgBox "汇总完成。" End If Application.ScreenUpdating = True '恢复屏幕更新 End Sub

JavaScript、CSs3、html5如何实现Excel中自定义函数日历制作？

我在Excel中用VBA以及函数制作了以下日历效果，框选单元格区域即返回对应的日期段，请问该效果在JavaScript中如何实现？  -------- ```vbnet Option Explicit 'VBA中代码框选的效果 选择事件 Private Sub Worksheet_SelectionChange(ByVal Tar As Range)' Dim Date1 As Date Dim Date2 As Date On Error GoTo exitSub '发生错误退出 If Tar.Count = 1 Then '如果只有一个单元格,开始=结束日期 Date1 = Tar.Value Date2 = Tar.Value Else'否则获取最前和最后单元格的日期 Date1 = Tar.Cells(1, 1).Value Date2 = Tar.Cells(Tar.Rows.Count, Tar.Columns.Count).Value End If Range("B10").Value = "开始日期：" & Date1 Range("B11").Value = "结束日期：" & Date2 exitSub: End Sub ``` 请问上述效果怎么用JavaScript、Css、Html实现呢？

VBA 条件格式中的地址怎么设为变量？

 我要根据Q列中的内容变化，实现相对应单元格所在行某一区域变更颜色。Q列中的单元格有的是合并后的。如下面代码中$Q$6想设为变化的。 Private Sub CommandButton1_Click() Dim Sht1 As Worksheet Dim i, e, k, b Dim j As Range Set Sht1 = ActiveWorkbook.Sheets("10-玖瑞-4种") b = Sht1.Range("IV5").End(xlToLeft).Column For i = 6 To Sht1.Range("H" & Rows.Count).End(xlUp).Row Set j = Range("Q" & i).MergeArea If Range("Q" & i).Address <> j.Address And Range("Q" & i).Address = j.Item(1).Address Then e = j.Rows.Count k = i + e - 1 Else k = i End If With Range(Sht1.Cells(i, 23), Sht1.Cells(k, b)) .Interior.Pattern = xlNone .FormatConditions.Delete .FormatConditions.Add(xlExpression, , "= OR(**$Q$6**=""关闭"",$Q$6="""")").Interior.Color = 5287936 .FormatConditions.Add(xlExpression, , "= $Q$6=""延续""").Interior.Color = 255 .FormatConditions.Add(xlExpression, , "= $Q$6=""保留""").Interior.Color = 65535 .FormatConditions.Add(xlExpression, , "= $Q$6=""新增""").Interior.Color = 10734587 End With Next i End Sub ``` ```单元格可能为合并

vba判断某单元格是否有边框时，返回错误的结果。

我不是专业程序员，可能问题比较愚蠢，但百度搜不到，只能求大大帮忙了。 1，描述问题 我有一张从某财务软件中导出的表格，为了操作这张表格，我写了一个sub遍历一系列单元格，返回最后一个拥有边框的单元格的行数。但是最终得到了错误的结果。 然而，我用同样的sub，自建一个测试表格，是可以获得正确的结果的。 会不会是财务软件里导出的表格有什么特殊的地方？ 2，代码 '获取没有格式那一行的行数的函数 Function count(ByRef aimSheet As Worksheet) As Integer Dim i As Integer i = 7 '从第7行开始遍历，只要i行B列还有边框，行数统计+1，直到遇到没有边框的那一行为止 While aimSheet.Range("b" & i).Borders.LineStyle <> xlNone ' i = i + 1 Wend count = i '返回最后有边框的行数 End Function 另外还有一个调用这个function的sub Sub addSign() '增加表尾的功能 '打开文件选择框选择文件，并获取工作簿对象 Dim aimBook As Workbook With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文件过滤器 .Filters.Add "Excel Files", "*.xls;*.xlsx" '设置文件过滤器 If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。 Set aimBook = Workbooks.Open(.SelectedItems(1)) End If End With '定义工作表名字变量 Dim aimSheetName As String '定义行数统计变量 Dim rowCount As Integer '遍历所有工作表 For i = 1 To aimBook.Worksheets.count '从sheet1遍历到最后一张工作表 rowCount = count(aimBook.Sheets(i)) '召唤统计行数的Function aimSheetName = aimBook.Sheets(i).Name MsgBox aimSheetName & "表最后有边框的一行是第" & rowCount & "行" If aimSheetName = "报表索引" Then GoTo Line1 '报表索引不需要操作 If aimSheetName = BKJ01 Or BKJ02 Or BKJ03 Then '当sheet名为这3个的时候 aimBook.Sheets(i).Cells(rowCount, 1) = "公司负责人: 主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" ElseIf aimSheetName = "BKJ1031" Then '这张表比较特殊 aimBook.Sheets(i).Cells(rowCount, 1) = "主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" ElseIf aimSheetName = "BKJ3001" Then '这张表比较特殊 aimBook.Sheets(i).Cells(rowCount, 1) = "主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" aimBook.Sheets(i).Range("a" & rowCount + 11, "d" & rowCount + 13) = "" Else '其余的都这样 aimBook.Sheets(i).Cells(rowCount, 1) = "主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" aimBook.Sheets(i).Range("a" & rowCount + 1, "z" & rowCount + 10) = "" End If Line1: Next i End Sub 3，报错 某sheet页作为参数传入，从第7行开始，一直到50行都有边框，但是，以上sub的返回值是7。而且所有的sheet页的返回值都是错的。 有的sheet只到几十行就没有边框了，但返回值却是300多。 但只有财务软件里导出的表格会有这样的错误，我自建一个新的表格做测试完全正常。 4，在百度上搜索了，找不到结果。自建新表格测试是正常返回的。 5，截图 这张sheet最后一行有边框的应该是51行，但返回值是错的。  但是在另外一张测试表格里，返回值是正确的。 

VBA API函数实现串口自发自收：Writefile正常，但Readfile时cbInQue为0

Win7下实现一台电脑两个串口（USB转）的同步通信的自发自收功能，COM10写，COM9读，但写数据后串口读缓冲区无字节，不解，请高手帮忙解答：是串口设置问题还是写数据格式问题？代码如下（函数申明略）： Option Explicit Public Const GENERIC_READ = &H80000000 Public Const GENERIC_WRITE = &H40000000 Public Const OPEN_EXISTING = 3 Public Const FILE_ATTRIBUTE_NORMAL = &H80 Public Const FILE_FLAG_OVERLAPPED = &H40000000 Public Const FILE_BEGIN = 0 Public Const FILE_CURRENT = 1 Public Const FILE_END = 2 Public Const INVALID_HANDLE_VALUE = -1 Public Const ERROR_IO_PENDING = &H3E5 Public Const PURGE_RXABORT = &H2 Public Const PURGE_RXCLEAR = &H8 Public Const PURGE_TXABORT = &H1 Public Const PURGE_TXCLEAR = &H4 Public Const Xon = &H11 Public Const Xoff = &H13 Public Type DCB DCBlength As Long BaudRate As Long fBinary As Long fParity As Long fOutxCtsFlow As Long fOutxDsrFlow As Long fDtrControl As Long fDsrSensitivity As Long fTXContinueOnXoff As Long fOutX As Long fInX As Long fErrorChar As Long fNull As Long fRtsControl As Long fAbortOnError As Long fDummy2 As Long wReserved As Integer XonLim As Integer XoffLim As Integer ByteSize As Byte Parity As Byte StopBits As Byte XonChar As Byte XoffChar As Byte ErrorChar As Byte EofChar As Byte EvtCharas As Byte wReserved1 As Integer End Type Public Type COMMTIMEOUTS ReadIntervalTimeout As Long ReadTotalTimeoutMultiplier As Long ReadTotalTimeoutConstant As Long WriteTotalTimeoutMultiplier As Long WriteTotalTimeoutConstant As Long End Type Public Type Comstat fCtsHold As Long fDsrHold As Long fRlsdHold As Long fXoffHold As Long fXoffSent As Long fEof As Long fTxim As Long fReserved As Long cbInQue As Long cbOutQue As Long End Type Dim hComm As Long Dim hComm2 As Long Dim dcbCommSetting As DCB Dim strText As String Public Sub cmdRead_Click() hComm = 0 hComm2 = 0 txtDataBox.Text = "" strText = "" Call Open_Com(Trim(Worksheets("RS232C communication").Range("k3").Value)) ‘COM9 Sleep 10 Call Set_Com(hComm) Sleep 10 Call Set_Com(hComm2) Sleep 10 Call Write_Com(hComm2, "abc") Sleep 500 Call Read_Com(hComm) Sleep 10 CloseHandle hComm hComm = 0 CloseHandle hComm2 hComm2 = 0 End Sub Public Sub Write_Com(ByVal Handle_WriteCom As Long, ByVal sData As String) Dim Flag_Write As Long, Bytes_Wrote As Long Dim Buf_Write() As Byte Dim i As Integer Dim Write_Err As Long Dim Comstat_Write As Comstat Dim Err_ClearCommError_Write As Long Dim Flag_ClearCommError_Write As Long Dim Flag_Wait_Write As Boolean ReDim Buf_Write(1 To LenB(StrConv(sData, vbFromUnicode))) For i = 1 To LenB(StrConv(sData, vbFromUnicode)) Buf_Write(i) = AscB(MidB(StrConv(sData, vbFromUnicode), i, 1)) Next i Flag_ClearCommError_Write = ClearCommError(Handle_WriteCom, Err_ClearCommError_Write, Comstat_Write) If Flag_ClearCommError_Write = 0 Then MsgBox "Fail to Clear Com Error!" CloseHandle Handle_WriteCom Handle_WriteCom = 0 End Else Bytes_Wrote = 0 Flag_Write = WriteFile(Handle_WriteCom, Buf_Write(1), UBound(Buf_Write), Bytes_Wrote, 0) If Bytes_Wrote = i-1 Then MsgBox "Wrote" & " " & Bytes_Wrote & " " & "Bytes" strText = strText & "Wrote OK :" & sData & vbCrLf txtDataBox.Text = strText & vbCrLf Else MsgBox "Fail to Write" End If End If End Sub Public Sub Read_Com(ByVal Handle_ReadCom As Long) Dim Flag_Read As Long Dim Bytes_Read As Long Dim Buf_Read() As Byte Dim Read_Err As Long Dim Comstat_Read As Comstat Dim Err_ClearCommError_Read As Long Dim Flag_ClearCommError_Read As Long Dim Flag_Wait_Read As Boolean Dim i As Integer Flag_ClearCommError_Read = ClearCommError(Handle_ReadCom, Err_ClearCommError_Read, Comstat_Read) If Flag_ClearCommError_Read = 0 Then MsgBox "Fail to Clear Com Error!" CloseHandle Handle_ReadCom Handle_ReadCom = 0 End Else If Comstat_Read.cbInQue > 0 Then ReDim Buf_Read(1 To Comstat_Read.cbInQue) Bytes_Read = 0 Flag_Read = ReadFile(Handle_ReadCom, Buf_Read(1), Comstat_Read.cbInQue, Bytes_Read, 0) If Flag_Read = 1 Then strText = strText & "Read OK :" For i = 1 To Bytes_Read strText = strText & Buf_Read(i) & vbCrLf Next txtDataBox.Text = strText & vbCrLf Else MsgBox "Fail to Read！" End If Else MsgBox "No Bytes in the buffer" End If End If End Sub

VB 写入sqlite 数据库太慢

VB 写入sqlite 数据库太慢，写入50个数据需要4秒，100个数据需要8秒，请哪位大侠帮我看一下程序哪里不对（程序能够正常运行，用excel vba 写入access不到1秒就完成了），非常感谢！ Private Sub CommandButton1_Click() timer11 = Now() Dim m As Integer, t As Integer Dim SQL As String, SQL1 As String, SQL2 As String Dim sr$, i%, xb%, mmmm1$, mmmm2$, mmmm3$, mmmm4$, rightcount%, righttotal%, kkkkk%, testwrong%, wrongcount%, arr0, arr, arr2, arr4, d0, d1, d2, d3, d4, d5, testright%, d8 sr = "" Dim sCnn As cConnection, sRs As cRecordset Set sCnn = New_c.Connection sCnn.OpenDB App.Path & "\Database\database.db" Set sRs = sCnn.OpenRecordset("Select * from cltestlist Where 考试序号<>'" & sr & "'") arr = sRs.GetRows(sRs.RecordCount) Set sRs = sCnn.OpenRecordset("Select * from cldefine") arr0 = sRs.GetRows(sRs.RecordCount) Set d0 = CreateObject("scripting.dictionary") Set d1 = CreateObject("scripting.dictionary") Set d2 = CreateObject("scripting.dictionary") Set d3 = CreateObject("scripting.dictionary") Set d4 = CreateObject("scripting.dictionary") Set d5 = CreateObject("scripting.dictionary") For i = 0 To UBound(arr, 2) d0(Val(arr(9, i))) = Val(arr(5, i)) d1(Val(arr(9, i))) = arr(6, i) d2(Val(arr(9, i))) = (arr(7, i)) d3(Val(arr(9, i))) = (arr(17, i)) d4(Val(arr(9, i))) = (arr(11, i)) d5(Val(arr(9, i))) = (arr(10, i)) Next If IsNull(arr0(2, 14)) = True Or arr0(2, 14) = "" Then For i = 1 To Val(arr0(2, 7)) xb = Val(d0(i)) mmmm = Trim(TextBox1(i)) If SQL = "" Then SQL = "update cltestlist set 当前答题='" & mmmm & "' where 累计序号='" & xb & "'" Else SQL = SQL & ";" & "update cltestlist set 当前答题='" & mmmm & "' where 累计序号='" & xb & "'" End If Next Else For i = 1 To Val(arr0(2, 7)) xb = Val(d0(i + (arr0(2, 6) - 1) * 40)) mmmm = Trim(TextBox1(i)) If SQL = "" Then SQL = "update cltestlist set 当前答题='" & mmmm & "' where 累计序号='" & xb & "'" Else SQL = SQL & ";" & "update cltestlist set 当前答题='" & mmmm & "' where 累计序号='" & xb & "'" End If Next End If SQL1 = "update clTemp2 set 错误题号='" & sr & "'" sCnn.Execute (SQL) sCnn.Execute (SQL1) Set sRs = sCnn.OpenRecordset("Select * from cltestlist Where 考试序号>0") ''''刷计算 arr = sRs.GetRows(sRs.RecordCount) SQL = "" SQL1 = "" For i = 0 To UBound(arr, 2) If arr(17, i) = arr(11, i) And arr(10, i) <> "" Then xb = (arr(5, i)) mmmm1 = rightcount mmmm2 = "正确" mmmm3 = Format(wrongcount / (rightcount + wrongcount), "0.00%") mmmm4 = "" If SQL = "" Then SQL = "update cltestlist set 选中='" & mmmm4 & "', 错误率= '" & mmmm3 & "',最后一次对错='" & mmmm2 & "',正确次数='" & mmmm & "' where 累计序号='" & xb & "'" Else SQL = SQL & ";" & "update cltestlist set 选中='" & mmmm4 & "', 错误率= '" & mmmm3 & "',最后一次对错='" & mmmm2 & "',正确次数='" & mmmm & "' where 累计序号='" & xb & "'" End If ElseIf arr(10, i) <> "" Then xb = Val(arr(5, i)) mmmm4 = wrongcount mmmm3 = "错误" mmmm2 = Format(wrongcount / (rightcount + wrongcount), "0.00%") If SQL = "" Then SQL = "update cltestlist set 错误次数='" & mmmm4 & "', 最后一次对错= '" & mmmm3 & "',错误率='" & mmmm2 & "'where 累计序号='" & xb & "'" Else SQL = SQL & ";" & "update cltestlist set 错误次数='" & mmmm4 & "', 最后一次对错= '" & mmmm3 & "',错误率='" & mmmm2 & "'where 累计序号='" & xb & "'" End If End If Next For i = 1 To UBound(arr4, 1) xb = Val(arr4(i, 1)) mmmm = arr4(i, 2) If SQL1 = "" Then SQL1 = "update clTemp2 set 错误题号=" & mmmm & " where ID=" & xb & "" Else SQL1 = SQL1 & ";" & "update clTemp2 set 错误题号=" & mmmm & " where ID=" & xb & "" End If Next sCnn.Execute (SQL) sCnn.Execute (SQL1) Set sCnn = Nothing End Sub

动态规划入门到熟悉，看不懂来打我啊

持续更新。。。。。。 2.1斐波那契系列问题 2.2矩阵系列问题 2.3跳跃系列问题 3.1 01背包 3.2 完全背包 3.3多重背包 3.4 一些变形选讲 2.1斐波那契系列问题 在数学上，斐波纳契数列以如下被以递归的方法定义：F(0)=0，F(1)=1, F(n)=F(n-1)+F(n-2)（n&gt;=2，n∈N*）根据定义，前十项为1, 1, 2, 3...

终于明白阿里百度这样的大公司，为什么面试经常拿ThreadLocal考验求职者了

点击上面↑「爱开发」关注我们每晚10点，捕获技术思考和创业资源洞察什么是ThreadLocalThreadLocal是一个本地线程副本变量工具类，各个线程都拥有一份线程私...

对计算机专业来说学历真的重要吗？

我本科学校是渣渣二本，研究生学校是985，现在毕业五年，校招笔试、面试，社招面试参加了两年了，就我个人的经历来说下这个问题。 这篇文章很长，但绝对是精华，相信我，读完以后，你会知道学历不好的解决方案，记得帮我点赞哦。 先说结论，无论赞不赞同，它本质就是这样：对于技术类工作而言，学历五年以内非常重要，但有办法弥补。五年以后，不重要。 目录： 张雪峰讲述的事实 我看到的事实 为什么会这样 ...

Java学习的正确打开方式

在博主认为，对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结，前三者博主将淋漓尽致地挥毫于这篇博客文章中，至于总结在于个人，实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍，博客次之，这又是一个层次了，这里暂时不提后面再谈。博主将为各位入门java保驾护航，各位只管冲鸭！！！上天是公平的，只要不辜负时间，时间自然不会辜负你。 何谓学习？博主所理解的学习，它是一个过程，是一个不断累积、不断沉淀、不断总结、善于传达自己的个人见解以及乐于分享的过程。

程序员必须掌握的核心算法有哪些？

由于我之前一直强调数据结构以及算法学习的重要性，所以就有一些读者经常问我，数据结构与算法应该要学习到哪个程度呢？，说实话，这个问题我不知道要怎么回答你，主要取决于你想学习到哪些程度，不过针对这个问题，我稍微总结一下我学过的算法知识点，以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的，并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构，当然，我也会整理一些看过

大学四年自学走来，这些私藏的实用工具/学习网站我贡献出来了

大学四年，看课本是不可能一直看课本的了，对于学习，特别是自学，善于搜索网上的一些资源来辅助，还是非常有必要的，下面我就把这几年私藏的各种资源，网站贡献出来给你们。主要有：电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意：文中提到的所有资源，文末我都给你整理好了，你们只管拿去，如果觉得不错，转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...

Python 植物大战僵尸代码实现(2):植物卡片选择和种植

这篇文章要介绍的是： - 上方植物卡片栏的实现。 - 点击植物卡片，鼠标切换为植物图片。 - 鼠标移动时，判断当前在哪个方格中，并显示半透明的植物作为提示。

防劝退！数据结构和算法难理解？可视化动画带你轻松透彻理解！

大家好，我是 Rocky0429，一个连数据结构和算法都不会的蒟蒻… 学过数据结构和算法的都知道这玩意儿不好学，没学过的经常听到这样的说法还没学就觉得难，其实难吗？真难！ 难在哪呢？当年我还是个小蒟蒻，初学数据结构和算法的时候，在忍着枯燥看完定义原理，之后想实现的时候，觉得它们的过程真的是七拐八绕，及其难受。 在简单的链表、栈和队列这些我还能靠着在草稿上写写画画理解过程，但是到了数论、图...

【搞定 Java 并发面试】面试最常问的 Java 并发基础常见面试题总结！

本文为 SnailClimb 的原创，目前已经收录自我开源的 JavaGuide 中（61.5 k Star!【Java学习 面试指南】 一份涵盖大部分Java程序员所需要掌握的核心知识。欢迎 Star!）。 另外推荐一篇原创：终极推荐！可能是最适合你的Java学习路线 方法 网站 书籍推荐！ Java 并发基础常见面试题总结 1. 什么是线程和进程? 1.1. 何为进程? 进程是程...

西游记团队中如果需要裁掉一个人，会先裁掉谁？

2019年互联网寒冬，大批企业开始裁员，下图是网上流传的一张截图： 裁员不可避免，那如何才能做到不管大环境如何变化，自身不受影响呢？ 我们先来看一个有意思的故事，如果西游记取经团队需要裁员一名，会裁掉谁呢，为什么？ 西游记团队组成： 1.唐僧 作为团队teamleader，有很坚韧的品性和极高的原则性，不达目的不罢休，遇到任何问题，都没有退缩过，又很得上司支持和赏识(直接得到唐太宗的任命，既给

shell脚本：备份数据库、代码上线

备份MySQL数据库 场景： 一台MySQL服务器，跑着5个数据库，在没有做主从的情况下，需要对这5个库进行备份 需求： 1）每天备份一次，需要备份所有的库 2）把备份数据存放到/data/backup/下 3）备份文件名称格式示例：dbname-2019-11-23.sql 4）需要对1天以前的所有sql文件压缩，格式为gzip 5）本地数据保留1周 6）需要把备份的数据同步到远程备份中心，假如...

iOS Bug 太多，苹果终于坐不住了！

开源的 Android 和闭源的 iOS，作为用户的你，更偏向哪一个呢？ 整理 | 屠敏 出品 | CSDN（ID：CSDNnews） 毋庸置疑，当前移动设备操作系统市场中，Android 和 iOS 作为两大阵营，在相互竞争的同时不断演进。不过一直以来，开源的 Android 吸引了无数的手机厂商涌入其中，为其生态带来了百花齐放的盛景，但和神秘且闭源的 iOS 系统相比，不少网友...

神经⽹络可以计算任何函数的可视化证明

《Neural Networks and Deep Learning》读书笔记第四篇本章其实和前面章节的关联性不大，所以大可将本章作为小短文来阅读，当然基本的深度学习基础还是要有的。主要介绍了神经⽹络拥有的⼀种普遍性，比如说不管目标函数是怎样的，神经网络总是能够对任何可能的输入，其值（或者说近似值）是网络的输出，哪怕是多输入和多输出也是如此，我们大可直接得出一个结论：不论我们想要计算什么样的函数，...

聊聊C语言和指针的本质

坐着绿皮车上海到杭州，24块钱，很宽敞，在火车上非正式地聊几句。 很多编程语言都以 “没有指针” 作为自己的优势来宣传，然而，对于C语言，指针却是与生俱来的。 那么，什么是指针，为什么大家都想避开指针。 很简单， 指针就是地址，当一个地址作为一个变量存在时，它就被叫做指针，该变量的类型，自然就是指针类型。 指针的作用就是，给出一个指针，取出该指针指向地址处的值。为了理解本质，我们从计算机模型说起...

为什么你学不过动态规划？告别动态规划，谈谈我的经验

动态规划难吗？说实话，我觉得很难，特别是对于初学者来说，我当时入门动态规划的时候，是看 0-1 背包问题，当时真的是一脸懵逼。后来，我遇到动态规划的题，看的懂答案，但就是自己不会做，不知道怎么下手。就像做递归的题，看的懂答案，但下不了手，关于递归的，我之前也写过一篇套路的文章，如果对递归不大懂的，强烈建议看一看：为什么你学不会递归，告别递归，谈谈我的经验 对于动态规划，春招秋招时好多题都会用到动态...

程序员一般通过什么途径接私活？

二哥，你好，我想知道一般程序猿都如何接私活，我也想接，能告诉我一些方法吗？ 上面是一个读者“烦不烦”问我的一个问题。其实不止是“烦不烦”，还有很多读者问过我类似这样的问题。 我接的私活不算多，挣到的钱也没有多少，加起来不到 20W。说实话，这个数目说出来我是有点心虚的，毕竟太少了，大家轻喷。但我想，恰好配得上“一般程序员”这个称号啊。毕竟苍蝇再小也是肉，我也算是有经验的人了。 唾弃接私活、做外...

字节跳动面试官这样问消息队列：分布式事务、重复消费、顺序消费，我整理了一下

你知道的越多，你不知道的越多 点赞再看，养成习惯 GitHub上已经开源 https://github.com/JavaFamily 有一线大厂面试点脑图、个人联系方式和人才交流群，欢迎Star和完善 前言 消息队列在互联网技术存储方面使用如此广泛，几乎所有的后端技术面试官都要在消息队列的使用和原理方面对小伙伴们进行360°的刁难。 作为一个在互联网公司面一次拿一次Offer的面霸...

如何安装 IntelliJ IDEA 最新版本——详细教程

IntelliJ IDEA 简称 IDEA，被业界公认为最好的 Java 集成开发工具，尤其在智能代码助手、代码自动提示、代码重构、代码版本管理(Git、SVN、Maven)、单元测试、代码分析等方面有着亮眼的发挥。IDEA 产于捷克，开发人员以严谨著称的东欧程序员为主。IDEA 分为社区版和付费版两个版本。 我呢，一直是 Eclipse 的忠实粉丝，差不多十年的老用户了。很早就接触到了 IDEA...

面试还搞不懂redis，快看看这40道面试题（含答案和思维导图）

Redis 面试题 1、什么是 Redis?. 2、Redis 的数据类型？ 3、使用 Redis 有哪些好处？ 4、Redis 相比 Memcached 有哪些优势？ 5、Memcache 与 Redis 的区别都有哪些？ 6、Redis 是单进程单线程的？ 7、一个字符串类型的值能存储最大容量是多少？ 8、Redis 的持久化机制是什么？各自的优缺点？ 9、Redis 常见性...

大学四年自学走来，这些珍藏的「实用工具/学习网站」我全贡献出来了

知乎高赞：文中列举了互联网一线大厂程序员都在用的工具集合，涉及面非常广，小白和老手都可以进来看看，或许有新收获。

为什么要推荐大家学习字节码？

配套视频： 为什么推荐大家学习Java字节码 https://www.bilibili.com/video/av77600176/ 一、背景 本文主要探讨：为什么要学习 JVM 字节码？ 可能很多人会觉得没必要，因为平时开发用不到，而且不学这个也没耽误学习。 但是这里分享一点感悟，即人总是根据自己已经掌握的知识和技能来解决问题的。 这里有个悖论，有时候你觉得有些技术没用恰恰是...

互联网公司的裁员，能玩出多少种花样？

裁员，也是一门学问，可谓博大精深！以下，是互联网公司的裁员的多种方法：-正文开始-135岁+不予续签的理由：千禧一代网感更强。95后不予通过试用期的理由：已婚已育员工更有责任心。2通知接下来要过苦日子，让一部分不肯同甘共苦的员工自己走人，以“兄弟”和“非兄弟”来区别员工。3强制996。员工如果平衡不了工作和家庭，可在离婚或离职里二选一。4不布置任何工作，但下班前必须提交千字工作日报。5不给活干+...

【超详细分析】关于三次握手与四次挥手面试官想考我们什么？

在面试中，三次握手和四次挥手可以说是问的最频繁的一个知识点了，我相信大家也都看过很多关于三次握手与四次挥手的文章，今天的这篇文章，重点是围绕着面试，我们应该掌握哪些比较重要的点，哪些是比较被面试官给问到的，我觉得如果你能把我下面列举的一些点都记住、理解，我想就差不多了。 三次握手 当面试官问你为什么需要有三次握手、三次握手的作用、讲讲三次三次握手的时候，我想很多人会这样回答： 首先很多人会先讲下握...

新程序员七宗罪

当我发表这篇文章《为什么每个工程师都应该开始考虑开发中的分析和编程技能呢?》时，我从未想到它会对读者产生如此积极的影响。那些想要开始探索编程和数据科学领域的人向我寻求建议;还有一些人问我下一篇文章的发布日期;还有许多人询问如何顺利过渡到这个职业。我非常鼓励大家继续分享我在这个旅程的经验，学习，成功和失败，以帮助尽可能多的人过渡到一个充满无数好处和机会的职业生涯。亲爱的读者，谢谢你。 -罗伯特。 ...

活到老，学到老，程序员也该如此

全文共2763字，预计学习时长8分钟 图片来源：Pixabay 此前，“网传阿里巴巴要求尽快实现P8全员35周岁以内”的消息闹得沸沸扬扬。虽然很快被阿里辟谣，但苍蝇不叮无缝的蛋，无蜜不招彩蝶蜂。消息从何而来？真相究竟怎样？我们无从而知。我们只知道一个事实：不知从何时开始，程序猿也被划在了“吃青春饭”行业之列。 饱受“996ICU”摧残后，好不容易“头秃了变强了”，即将步入为“高...

Vue快速实现通用表单验证

本文开篇第一句话，想引用鲁迅先生《祝福》里的一句话，那便是：“我真傻，真的，我单单知道后端整天都是CRUD，我没想到前端整天都是Form表单”。这句话要从哪里说起呢？大概要从最近半个月的“全栈工程师”说起。项目上需要做一个城市配载的功能，顾名思义，就是通过框选和拖拽的方式在地图上完成配载。博主选择了前后端分离的方式，在这个过程中发现：首先，只要有依赖jQuery的组件，譬如Kendoui，即使使用...

2019年Spring Boot面试都问了什么？快看看这22道面试题！

Spring Boot 面试题 1、什么是 Spring Boot？ 2、Spring Boot 有哪些优点？ 3、什么是 JavaConfig？ 4、如何重新加载 Spring Boot 上的更改，而无需重新启动服务器？ 5、Spring Boot 中的监视器是什么？ 6、如何在 Spring Boot 中禁用 Actuator 端点安全性？ 7、如何在自定义端口上运行 Sprin...

【图解】记一次手撕算法面试：字节跳动的面试官把我四连击了

字节跳动这家公司，应该是所有秋招的公司中，对算法最重视的一个了，每次面试基本都会让你手撕算法，今天这篇文章就记录下当时被问到的几个算法题，并且每个算法题我都详细着给出了最优解，下面再现当时的面试场景。看完一定让你有所收获 一、小牛试刀：有效括号 大部分情况下，面试官都会问一个不怎么难的问题，不过你千万别太开心，因为这道题往往可以拓展出更多有难度的问题，或者一道题看起来很简单，但是给出最优解，确实很...

关于裁员几点看法及建议

最近网易裁员事件引起广泛关注，昨天网易针对此事，也发了声明，到底谁对谁错，孰是孰非？我们作为吃瓜观众实在是知之甚少，所以不敢妄下定论。身处软件开发这个行业，近一两年来，对...

面试官：关于Java性能优化，你有什么技巧

通过使用一些辅助性工具来找到程序中的瓶颈，然后就可以对瓶颈部分的代码进行优化。 一般有两种方案：即优化代码或更改设计方法。我们一般会选择后者，因为不去调用以下代码要比调用一些优化的代码更能提高程序的性能。而一个设计良好的程序能够精简代码，从而提高性能。 下面将提供一些在JAVA程序的设计和编码中，为了能够提高JAVA程序的性能，而经常采用的一些方法和技巧。 1．对象的生成和大小的调整。 J...

【图解算法面试】记一次面试：说说游戏中的敏感词过滤是如何实现的？

版权声明：本文为苦逼的码农原创。未经同意禁止任何形式转载，特别是那些复制粘贴到别的平台的，否则，必定追究。欢迎大家多多转发，谢谢。 小秋今天去面试了，面试官问了一个与敏感词过滤算法相关的问题，然而小秋对敏感词过滤算法一点也没听说过。于是，有了下下事情的发生… 面试官开怼 面试官：玩过王者荣耀吧？了解过敏感词过滤吗？，例如在游戏里，如果我们发送“你在干嘛？麻痹演员啊你？”，由于“麻痹”是一个敏感词，...

相关热词 c#如何定义数组列表 c#倒序读取txt文件 java代码生成c# c# tcp发送数据 c#解决时间格式带星期 c#类似hashmap c#设置istbox的值 c#获取多线程返回值 c# 包含数字 枚举 c# timespan