VB6.0中如何用inputbox函数实现输入10个数字,求最大的哪一个?

VB6.0中如何用inputbox函数实现输入10个数字,求最大的哪一个?

1个回答

 dim max as integer
dim i as integer
dim x as integer
for i = 1 to 10
x = val(inputbox("请输入第" & i & "个数"))
if x > max then max = x
next
msgbox max
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
VB语言中如何用inputbox输入多个single值?single可以转换为数组么
VB语言中如何用inputbox输入多个single值?single可以转换为数组么
请问vb语言怎么在函数里根据用户inputbox输入的不同,切换到别的函数调用,或者继续执行
请问vb语言怎么在函数里根据用户inputbox输入的不同,切换到别的函数调用,或者继续执行?怎么切换函数,自身退出保持参数不变?
delphi 安卓开发 FMX.Dialogs.InputBox
delphi android 开发中运用FMX.Dialogs.InputBox之后手机为什么提示"blocing dialogs not implemented on this platform"
vb.net操作word最后一步求解
If e.KeyCode = Keys.Enter Then Dim q As Integer = InputBox("请输入搜索页码的次数") If q > 0 Then Static Dim p(q) As String Dim j As Integer For j = 0 To q - 1 p(j) = InputBox("请输入关键字") Next Dim temp If p(j) = p(q) Then For j = 0 To q - 1 If p(j) > p(j + 1) Then temp = p(j) p(j) = p(j + 1) p(j + 1) = temp End If Next End If For j = 0 To q - 1 Dim WDAPP As Object WDAPP = New Word.Application WDAPP.visible = True WDAPP.Documents.open(FileName:=TextBox1.Text) WDAPP.Selection.Find.ClearFormatting() With WDAPP.Selection.Find.text = p(j) WDAPP.Selection.Find.Execute(p(j)) Dim i As String i = WDAPP.Selection.Information(3) Dim WDAPP1 As Object WDAPP1 = New Word.Application WDAPP1.visible = True WDAPP1.documents.open(FileName:=TextBox2.Text) Dim missing = System.Reflection.Missing.Value Dim unit = Word.WdUnits.wdStory WDAPP1.Selection.EndKey(unit, missing) WDAPP1.Selection.TypeText(text:=p(j)) WDAPP1.Selection.MoveDown(Unit:=4, Count:=1) WDAPP.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges) WDAPP1.Selection.EndKey() WDAPP1.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP1.CentimetersToPoints(20), Alignment:=2, Leader:=2) WDAPP1.Selection.TypeText(Text:=vbTab) WDAPP1.Selection.TypeText(Text:=i) WDAPP1.Selection.TypeText(Text:=vbCrLf) If WDAPP1.ActiveDocument.Saved = False Then WDAPP1.ActiveDocument.Save() End If WDAPP.Quit() WDAPP1.Quit() WDAPP = Nothing WDAPP1 = Nothing End With Next End If End If 报错这句 WDAPP1.Selection.TypeText(text:=p(j)) “System.Runtime.InteropServices.COMException”类型的未经处理的异常在 Microsoft.VisualBasic.dll 中发生 其他信息: 类型不匹配。 (异常来自 HRESULT:0x80020005 (DISP_E_TYPEMISMATCH)) 说是调用的目标发生了异常 我查资料说是这个错误是因为要调用com里的东西。但始终不知道应该加什么 这段代码的功能是循环查询在textbox1的关键字所在页码,然后输出在textbox2中输出关键字所在页码 弄了一夜了来个高手吧 是数组的问题么????
请各位看看这段vb.net的代码,是操作word的
Public Sub Textbox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys.Enter Then Dim p As String = InputBox("请输入") Dim WDAPP As Object WDAPP = CreateObject("Word.Application") WDAPP.Documents.Add(TextBox1.Text) WDAPP.Selection.Find.ClearFormatting() With WDAPP.Selection.Find.Text = p Dim i As String i = WDAPP.Selection.Information(3) WDAPP.Selection.TypeText(text:=p) WDAPP.documents.add(TextBox2.Text) **WDAPP.Selection.MoveDown(Unit:=WDAPP.wdParagraph, Count:=1)** WDAPP.Selection.EndKey() WDAPP.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP.CentimetersToPoints(15.24), Alignment:=WDAPP.wdAlignTabRight, Leader:=WDAPP.wdTabLeaderDashes) WDAPP.Selection.TypeText(Text:=vbTab) WDAPP.Selection.TypeText(Text:=i) WDAPP.Selection.TypeText(Text:=vbCrLf) End With End If 两个textbox分别是读的文件地址,和写的文件地址。 写上去是没错的,执行的时候粗体的那行![图片说明](https://img-ask.csdn.net/upload/201501/02/1420168623_867857.jpg)就是图片的报错 应该怎么修改,还有我打开那个被写的文件时候说是被绑定了不能操作,这是什么情况 ![图片说明](https://img-ask.csdn.net/upload/201501/02/1420168660_496589.jpg)
空气质量指数(百度)使用ifelse实现
环工应化专业下周五(3.24)上机作业 1、万有引力计算:输入两个物体的质量和距离,计算两者的万有引力 2、交换两个变量的值:Text输入两个变量的值,显示交换后的结果。如a=3,b=4则交换后a=4,b=3 3、inputbox输入出生日期,msgbox显示年龄和出生当天是星期几 4、随机生成一个三位整数,计算各个位上数字之和并显示。如生成数字为123,则显示:数字为123,各位数字之和为1+2+3=6 5、空气质量指数(百度)使用ifelse实现 只要求做第五个,急需
vba中,按照书上用(if then...else)编了一个小程序,为什么返回不了正确值?
* Sub 判别构成三角形() '该程序有错误,无法返回正确值 * Dim a As Double, b As Double, c As Double * Dim area As Double, s As Double * Dim flagu As Boolean, flagl As Boolean * a = CDbl(InputBox("请输入三角形的第1条边", "求三角形面积", 0)) * b = CDbl(InputBox("请输入三角形的第2条边", "求三角形面积", 0)) * c = CDbl(InputBox("请输入三角形的第3条边", "求三角形面积", 0)) * flagu = ((a + b) > c) And ((a + c) > b) And ((b + c) > a) * flagl = ((a - b) < c) And ((a - c) < b) And ((b - c) < a) * If (falgu And flagl) Then * s = (a + b + c) / 2 * area = Math.Sqr(s * (s - a) * (s - b) * (s - c)) * MsgBox "三角形的三边分别为:a=" & a & ",b=" & b & ",c=" & c & "。面积area=" & area, vbOKOnly, "求三角形的面积" * Else * MsgBox "边长:a=" & a & ",b=" & b & ",c=" & c & "。不能构成三角形", vbOKOnly, "判断三条边是否可构成三角形" * End If * End Sub
selenium元素已显示点击却报错ElementNotInterac...
代码如下: # 此类封装一些常用的浏览器操作 class BasePage(object): def __init__(self,driver): self.driver = driver # 退出浏览器 def quit_browser(self): self.driver.quit() # 显式等待_元素可见_XPATH def wait_explicit_located(self,x_path): try: WebDriverWait(self.driver, 5).until( EC.visibility_of_all_elements_located((By.XPATH, x_path))) logger.info(u"目标元素已显示 %s" %x_path) except TimeoutException as e: logger.error(u"元素%s显示异常 %s" % (x_path,e)) print u'元素显示异常%s' %x_path self.get_windows_image() #输入 def type(self,selector,text): el = self.find_element(selector) el.clear() try: el.send_keys(text) logger.info("Had type \' %s \' in inputBox" % text) except NameError as e: logger.error("Failed to type in input box with %s" % e) self.get_windows_image() ...... ``` ``` from ZJCH_selenium.framework.base_page import BasePage #此类是登录页面的方法 class LoginPage(BasePage): loginname_box = "xpath=>.//*[@class='login']//*[@class='lg']" pwd_box = "xpath=>.//*[@class='login']//*[@class='pwd']" verification_box = "xpath=>.//*[@class='login']//*[@name='yanzheng']" login_btn = "xpath=>.//*[@class='login']//*[@class='log log1']" #5位验证码定位 yzm1 = "xpath=>.//*[@class='rt']/span[1]" yzm2 = "xpath=>.//*[@class='rt']/span[2]" yzm3 = "xpath=>.//*[@class='rt']/span[3]" yzm4 = "xpath=>.//*[@class='rt']/span[4]" yzm5 = "xpath=>.//*[@class='rt']/span[5]" login_in = "xpath=>.//*[@class='alert_information']/b" #我知道了按钮的定位 def type_loginname(self, text): self.type(self.loginname_box, text) def type_pwd(self, text): self.type(self.pwd_box, text) def get_yzm(self): yzm_1 = self.get_text(self.yzm1) yzm_2 = self.get_text(self.yzm2) yzm_3 = self.get_text(self.yzm3) yzm_4 = self.get_text(self.yzm4) yzm_5 = self.get_text(self.yzm5) yzm = yzm_1 + yzm_2 + yzm_3 + yzm_4 + yzm_5 return yzm #输入验证码 def type_verification(self, text): self.type(self.verification_box, text) #点击登录按钮 def send_login_btn(self): self.click(self.login_btn) #点击我知道了 def send_iknow_btn(self): self.click(self.login_in) ``` ``` import unittest from ZJCH_selenium.framework.browser_engine import BrowserEngine from ZJCH_selenium.pageobjects.login_page import LoginPage #此类是测试登录功能 class test_ZJCH_Login(unittest.TestCase): def setUp(self): browse = BrowserEngine(self) self.driver = browse.open_browser(self) def tearDown(self): self.driver.quit() def test_login(self): loginpage = LoginPage(self.driver) loginpage.wait_explicit_located(".//*[@class='login']") loginpage.type_loginname('admin') #输入用户名 loginpage.type_pwd('123456') #输入密码 yzm = loginpage.get_yzm() #得到验证码 loginpage.type_verification('{}'.format(yzm)) #输入验证码 loginpage.send_login_btn() #点击登录按钮 loginpage.wait_explicit_located(".//*[@class='alert_information']/b") loginpage.send_iknow_btn() #点击确认登录 ![图片说明](https://img-ask.csdn.net/upload/201709/17/1505622234_129486.png) ** 利用unittest执行测试用例,登录页面可以正常登录,点击我知道了按钮后也正常进入系统首页,从网页上看没有任何异常,但用HTMLTestRunner缺报错,如图** ![图片说明](https://img-ask.csdn.net/upload/201709/17/1505623692_398671.png) **我测试过多次,执行到loginpage.wait_explicit_located(".//*[@class='alert_information']/b"),都没有错误,执行loginpage.send_iknow_btn() 就报错(问题是网页操作正常,可以进入系统首页,但为什么生成的测试报告缺有报错), 我试了下把loginpage.send_iknow_btn()去掉,采用 self.driver.find_element_by_xpath(".//*[@class='alert_information']/b").click() 如果采用这句代码就正常运行没有任何报错,这是为什么呢? [我知道了]这个窗口是在验证了用户登录成功后弹出的一个提示窗口,点击就可以进入系统首页的 另:我已经验证过,loginpage.wait_explicit_located(".//*[@class='alert_information']/b")这句显示等待已经成功的等待了【我知道了】窗口显示才执行的loginpage.send_iknow_btn() 到loginpage.wait_explicit_located(".//*[@class='alert_information']/b")都没有任何问题,元素已显示,点击操作也正常,但是生成到报告里就报错,哪位大神能帮我看看是为什么啊,真的想不通,我的HTMLTestRunner应该不会有问题的,其他测试用例都没什么问题**
vb遇到一个问题,提示实时错误9,下标越界,请高手帮忙分析下
Private Sub Command3_Click() Dim n, m As Integer m = Val(InputBox("几名嫌疑人", "嫌疑人数量")) Dim A(1 To 10, 1 To 5) As String Do A(n, 1) = InputBox("输入嫌疑人名字", "嫌疑人信息") A(n, 2) = InputBox(A(n, 1) & "的性别", "嫌疑人信息", "男") A(n, 3) = InputBox(A(n, 1) & "的籍贯", "嫌疑人信息") A(n, 4) = InputBox(A(n, 1) & "的籍贯详址", "嫌疑人信息") A(n, 5) = InputBox(A(n, 1) & "的住址/暂住地址", "嫌疑人信息") ' MsgBox "姓名:" & A(n, 1) & Chr(10) & "性别:" & A1 & Chr(10) & "籍贯详址:" & A2 & Chr(10) & "住址/暂住地址:" & A3 & Chr(10) & "姓名:" & A4, 0, "嫌疑个人信息" n = n + 1 Loop While n > m
分页后GrideView新增一行空白行
项目中有个需求,需要对已经绑定数据并分页的GrideView进行新增一行空白行。用户在点击“新增行”后,在界GrideView界面的最下面增加一行空白行。 要求:1、用户在第几页点击新增行就在当前页面显示新增行; 2、新增行按钮在GrideView外面; 具体代码如下: ``` 前台页面代码: <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="YPCGJCB.aspx.cs" Inherits="CenterBase.供应链管理.YPCGJCB" %> <%@ Register Assembly="UserControls" Namespace="UserControls" TagPrefix="cc2" %> <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head id="Head1" runat="server"> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>药品折扣基础表</title> <link rel="stylesheet" href="../js/Grid/css/demo_page.css" /> <link rel="stylesheet" href="../js/DatePicker/base/jquery-ui.css" /> <script src="../js/jquery-1.7.2.min.js" type="text/javascript"></script> <script src="../js/JScript.js" type="text/javascript"></script> <script src="../js/DatePicker/jquery.ui.core.js" type="text/javascript"></script> <script src="../js/DatePicker/jquery.ui.datepicker.js" type="text/javascript"></script> <script src="../js/Ajax.js"></script> <script src="../js/jquery-1.4.1.js"></script> <style type="text/css"> .auto-style2 { height: 25px; } .auto-style3 { width: 156px; height: 25px; } .auto-style4 { margin-top: 5px; } .auto-style5 { text-align: right; } </style> <script language="javascript" type="text/javascript"> var dgPersonsID = "<%= YPZKXX.ClientID %>"; $(document).ready(function () { $("#dgPersons tr").eq(1).hide(); }); function AddNewRow() { var tr = $("#dgPersons tr").eq(1).clone(); tr.show(); tr.appendTo("#dgPersons"); refreshNo(); return false; } function refreshNo() { var dgg = document.getElementById(dgPersonsID); var index = 1; for (var i = 2; i < dgg.rows.length; ++i) { var cells = dgg.rows[i].cells; var row = dgg.rows[i]; if (row.style.display != "none") { cells[0].firstChild.nodeValue = index++; } } return false; } </script> </head> <body id="dt_example" class="ex_highlight_row"> <form id="form1" runat="server"> <div id="container"> <table width="100%" border="0" cellspacing="0" cellpadding="0" style="background-image: url(../images/Pop_page_back.gif)" align="center"> <tr> <td valign="center" style="height: 27px">&nbsp;<strong>药品折扣基础表</strong></td> </tr> </table> <div id="search"> <table class="t2" style="width:100%"> <tr> <td class="auto-style2">医院名称:</td> <td class="auto-style3"> <input type="text" id="txtyymc" runat="server" class="inputbox" readonly="true"/> </td> <td class="auto-style2">开始时间:</td> <td class="auto-style2"> <input type="text" id="txtkssj" runat="server" class="inputbox" readonly="true" /> </td> <td class="auto-style2">结束时间:</td> <td class="auto-style2"> <input type="text" id="txtjssj" runat="server" class="inputbox" readonly="true"/> </td> <td class="auto-style2">供应商名称:</td> <td class="auto-style2"> <input type="text" id="txtgys" runat="server" class="inputbox" readonly="true"/> </td> </tr> </table> </div> <div id="menu" class="auto-style5"> &nbsp;<asp:Button ID="Btn_Download" runat="server" Text="查 询" CssClass="buttoncss" OnClick="Btn_Download_Click"/> &nbsp; &nbsp;<asp:Button ID="btn_AddLine" runat="server" Text="新增行" CssClass="buttoncss" OnClientClick="return AddNewRow();return false;" /> &nbsp; &nbsp;<asp:Button ID="btn_xz" runat="server" Text="下 载" CssClass="buttoncss"/> &nbsp; &nbsp<asp:Button ID="btn_dr" runat="server" Text="导 入" CssClass="buttoncss" OnClick="btn_dr_Click" /> &nbsp; &nbsp;<asp:CheckBox runat="server" Text="显示历史数据" ID="cbo_xs" Checked="false" /> </div> <div> <asp:GridView ID="YPZKXX" runat="server" AutoGenerateColumns="False" Width="100%" HorizontalAlign="Center" style="text-align: center" NoNewline="word-break: keep-all;" CssClass="auto-style4" OnRowCancelingEdit="YPCGJCXX_RowCancelingEdit" OnRowEditing="YPCGJCXX_RowEditing" OnRowUpdating="YPCGJCXX_RowUpdating"> <EmptyDataTemplate> 没有数据 </EmptyDataTemplate> <FooterStyle ForeColor="White" BackColor="#3B6BD1" Font-Bold="True"></FooterStyle> <SelectedRowStyle Font-Bold="True" ForeColor="Navy" BackColor="#FFCC66" BorderColor="CornflowerBlue" /> <RowStyle ForeColor="#333333" BackColor="#FFFBD6" BorderColor="CornflowerBlue" BorderStyle="Solid" BorderWidth="1px" HorizontalAlign="Center" VerticalAlign="Bottom" Wrap="False" /> <HeaderStyle Font-Bold="True" ForeColor="#FFFFCC" BackColor="#3B6BD1" Wrap="False"></HeaderStyle> <Columns> <asp:TemplateField HeaderText="编号" Visible="false"> <ItemTemplate> <asp:Label ID="lbl_ID" runat="server" Text='<%# Bind("ID") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="医院名称"> <ItemTemplate> <asp:Label ID="lbl_yymc" runat="server" Text='<%# Bind("yymc") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="供货商编码"> <ItemTemplate> <asp:Label ID="lbl_ghsbm" runat="server" Text='<%# Bind("ghsbm") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="中心编码"> <ItemTemplate> <asp:Label ID="txt_zxbm" runat="server" Text='<%# Bind("zxbm") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="药品编码"> <ItemTemplate> <asp:Label ID="lbl_ypbm" runat="server" Text='<%# Bind("ypbm") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="药品名称"> <ItemTemplate> <asp:Label ID="lbl_ypmc" runat="server" Text='<%# Bind("ypmc") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="药品规格"> <ItemTemplate> <asp:Label ID="lbl_ypgg" runat="server" Text='<%# Bind("ypgg") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="药品单位"> <ItemTemplate> <asp:Label ID="lbl_ypdw" runat="server" Text='<%# Bind("ykdw") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="返利形式"> <ItemTemplate> <asp:Label ID="txt_flxs" runat="server" Text='<%# Bind("flxs") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="厂家名称"> <ItemTemplate> <asp:Label ID="lbl_sccj" runat="server" Text='<%# Bind("cjmc") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="供货单位"> <ItemTemplate> <asp:Label ID="lbl_ghdw" runat="server" Text='<%# Bind("ghdw") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="底 价"> <ItemTemplate> <asp:Label ID="txt_dj" runat="server" Text='<%# Bind("dj") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="折扣率"> <ItemTemplate> <asp:Label ID="txt_zkl" runat="server" Text='<%# Bind("zkl") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="开票价"> <ItemTemplate> <asp:Label ID="txt_kpj" runat="server" Text='<%# Bind("kpj") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="零售价"> <ItemTemplate> <asp:Label ID="lbl_lsj" runat="server" Text='<%# Bind("lsj") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="最新零售价"> <ItemTemplate> <asp:Label ID="lbl_zxlsj" runat="server" Text='<%# Bind("zxlsj") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="售价差价"> <ItemTemplate> <asp:Label ID="txt_sjcj" runat="server" Text='<%# Bind("lscj") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="成本价"> <ItemTemplate> <asp:Label ID="txt_cbj" runat="server" Text='<%# Bind("cbj") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="折 扣"> <ItemTemplate> <asp:Label ID="txt_zk" runat="server" Text='<%# Bind("zk") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="净利润"> <ItemTemplate> <asp:Label ID="txt_jlr" runat="server" Text='<%# Bind("jlr") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="业务费"> <ItemTemplate> <asp:Label ID="txt_ywf" runat="server" Text='<%# Bind("xywf") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="毛利率"> <ItemTemplate> <asp:Label ID="txt_mll" runat="server" Text='<%# Bind("mll") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="年"> <ItemTemplate> <asp:Label ID="lbl_nf" runat="server" Text='<%# Bind("nian") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="月"> <ItemTemplate> <asp:Label ID="lbl_yf" runat="server" Text='<%# Bind("yue") %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="管理" ShowHeader="False"> <EditItemTemplate> <asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="True" CommandName="Update" Text="更新"></asp:LinkButton> &nbsp;<asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="False" CommandName="Cancel" Text="取消"></asp:LinkButton> </EditItemTemplate> <ItemTemplate> <asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="False" CommandName="Edit" Text="编辑"></asp:LinkButton> &nbsp;<asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="False" CommandName="Update" Text="修改"></asp:LinkButton> </ItemTemplate> </asp:TemplateField> </Columns> </asp:GridView> </div> <cc2:PageTool ID="PageTool1" runat="server" Number="1" PageRows="10" PageCount="100"> </cc2:PageTool> </div> </form> </body> </html> ``` ``` 后台代码: using System; using System.Collections.Generic; using System.Data; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; namespace CenterBase.供应链管理 { public partial class YPCGJCB : System.Web.UI.Page { CenterBaseBLL.YPCGMC cbby = new CenterBaseBLL.YPCGMC(); private static int pCount = 0;//总页数 private static int rCount = 0;//总数据数 private static int pageIndex = 1;//当前页 private static int pageSize = 20;//页面大小 private static string tableName = "View_YPJCB";//表名 private static string fields = "ID,yymc, ghsbm, zxbm, ypbm, ypmc, ypgg, ykdw, flxs,cjmc,ghdw,dj,zkl,kpj,lsj,zxlsj,lscj,cbj,zk,jlr,xywf,mll,nian,yue";//查询的字段 private static string order = "ID desc";//排序 private static string primaryKey = "ID";//关键字 private static string where = " "; protected void Page_Load(object sender, EventArgs e) { //UnobtrusiveValidationMode = UnobtrusiveValidationMode.None; //Response.AddHeader("P3P", "CP=CAO PSA OUR"); ////检测用户是否登录 //if (!CheckUserLogin()) //{ // Response.Redirect("../LoginMain.aspx"); //} ////检测用户是否具有权限 //if (!CheckUserAuthority()) //{ // Response.Redirect("../LoginMain.aspx"); //} if (!Page.IsPostBack) { //分页初始化 if (Request.QueryString["page"] == null) { pageIndex = 1; } else { pageIndex = CenterBaseTools.ConvertData.ConvertDataFromStringToInt(Request.QueryString["page"].ToString()); } ////绑定数据 //if (cbo_xs.Checked == true) //{ //} DataBinds(); //Sum(); } } protected void Btn_Download_Click(object sender, EventArgs e) { where = ""; if (sqlwhere() != "") { where = where + sqlwhere(); } DataBinds(); } public void DataBinds() { DataTable dt = new DataTable(); dt = CenterBaseBLL.PageView.GetAll(out pCount, out rCount, pageIndex, pageSize, tableName, fields, order, primaryKey, 2, 0, where); YPZKXX.DataSource = dt; YPZKXX.DataBind(); this.PageTool1.PageRows = pageSize; this.PageTool1.PageCount = rCount; } public string sqlwhere() { string yymc = txtyymc.Value.ToString(); string kssk = txtkssj.Value.ToString(); string jssj = txtjssj.Value.ToString(); string ghs = txtgys.Value.ToString(); int res = kssk.CompareTo(jssj); string sql = ""; if (yymc != "") { sql = sql + " where CYYMC = '" + yymc + "'"; } if (yymc != "" && kssk != "" && jssj != "" && res < 0) { sql = sql + " where CYYMC='" + yymc + "' and DRKRQ between '" + kssk + "' and '" + jssj + "'"; } if (yymc != "" && kssk != "" && jssj != "" && res < 0 && ghs != "") { sql = sql + " where CYYMC='" + yymc + "' and DRKRQ between '" + kssk + "' and '" + jssj + "' and CGHDW = '" + ghs + "'"; } return sql; } protected void YPCGJCXX_RowEditing(object sender, GridViewEditEventArgs e) { YPZKXX.EditIndex = e.NewEditIndex; DataBinds(); } protected void YPCGJCXX_RowCancelingEdit(object sender, GridViewCancelEditEventArgs e) { YPZKXX.EditIndex = -1; DataBinds(); } protected void YPCGJCXX_RowUpdating(object sender, GridViewUpdateEventArgs e) { int id = Convert.ToInt32((YPZKXX.Rows[e.RowIndex].FindControl("lbl_ID") as Label).Text); string yymc = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_yymc") as Label).Text); string ghsbm = (YPZKXX.Rows[e.RowIndex].FindControl("txt_ghsbm") as TextBox).Text.ToString(); string zxbm = (YPZKXX.Rows[e.RowIndex].FindControl("txt_zxbm") as TextBox).Text.ToString(); string ypbm = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_ypbm") as Label).Text); string ypmc = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_ypmc") as Label).Text); string ypgg = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_ypgg") as Label).Text); string ypdw = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_ypdw") as Label).Text); string flxs = (YPZKXX.Rows[e.RowIndex].FindControl("txt_flxs") as TextBox).Text.ToString(); string cjmc = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_sccj") as Label).Text); string ghdw = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_ghdw") as Label).Text); string dj = (YPZKXX.Rows[e.RowIndex].FindControl("txt_dj") as TextBox).Text.ToString(); string zkl = (YPZKXX.Rows[e.RowIndex].FindControl("txt_zkl") as TextBox).Text.ToString(); string kpj = (YPZKXX.Rows[e.RowIndex].FindControl("txt_kpj") as TextBox).Text.ToString(); string lsj = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_lsj") as Label).Text); string dykpj = (YPZKXX.Rows[e.RowIndex].FindControl("txt_dykpj") as TextBox).Text.ToString(); string zxlsj = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_zxlsj") as Label).Text); string sjcj = (YPZKXX.Rows[e.RowIndex].FindControl("txt_sjcj") as TextBox).Text.ToString(); string cbj = (YPZKXX.Rows[e.RowIndex].FindControl("txt_cbj") as TextBox).Text.ToString(); string zk = (YPZKXX.Rows[e.RowIndex].FindControl("txt_zk") as TextBox).Text.ToString(); string jlr = (YPZKXX.Rows[e.RowIndex].FindControl("txt_jlr") as TextBox).Text.ToString(); string ywf = (YPZKXX.Rows[e.RowIndex].FindControl("txt_ywf") as TextBox).Text.ToString(); string mll = (YPZKXX.Rows[e.RowIndex].FindControl("txt_mll") as TextBox).Text.ToString(); string nf = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_nf") as Label).Text); string yf = Convert.ToString((YPZKXX.Rows[e.RowIndex].FindControl("lbl_yf") as Label).Text); DateTime time = System.DateTime.Now; string sql = "insert into YPFXJCXX(yymc,ghsbm,zxbm,ypbm,ypmc,ypgg,ykdw,flxs,cjmc,ghdw,dj,zkl,kpj,lsj,dykpj,zxlsj,lscj,cbj,zk,jlr,xywf,mll,nian,yue,ITime)" + "values(" + "'" + yymc + "'," + "'" + ghsbm + "'," + "'" + zxbm + "'," + "'" + ypbm + "'," + "'" + ypmc + "'," + "'" + ypgg + "'," + "'" + ypdw + "'," + "'" + flxs + "'," + "'" + cjmc + "'," + "'" + ghdw + "'," + "'" + dj + "'," + "'" + zkl + "'," + "'" + kpj + "'," + "'" + lsj + "'," + "'" + dykpj + "'," + "'" + zxlsj + "'," + "'" + sjcj + "'," + "'" + cbj + "'," + "'" + zk + "'," + "'" + jlr + "'," + "'" + ywf + "'," + "'" + mll + "'," + "'" + nf + "'," + "'" + yf + "'," + "'" + time + "'" + ")"; CenterBaseDAL.ExecuteSql exec = new CenterBaseDAL.ExecuteSql(); int falg = exec.run(sql); if (falg == 1) { Response.Write("<script>alert('更新成功')</script>"); Response.Write("<script>window.location.href='YPCGJCB.aspx'</script>"); Response.End(); } else { Response.Write("<script>alert('更新失败')</script>"); } } protected void btn_dr_Click(object sender, EventArgs e) { Response.Write("<script>window.open('药品销售明细查询/Improt.aspx','_blank')</script>"); } } } ``` 我用自己方法添加了一列行号,求大神指点!!
vbscript username inputbox求救
我是新手,想用vbscript 去run 以下的程序, 但不知道如何?如果你们会的话,那太感谢了: c:\windows\ccm\postdeployment\lin\XX.exe "客户名" Then 回车 因为这个script 一定发填写了 “客户名” 才能完整这个程序。所以我在想可不可用vbscript 发一个input box,让他们填完了那个名字,再将名字跟我那个的程序合并
selenium元素已显示点击报错ElementNotInteractableException
代码如下: # 此类封装一些常用的浏览器操作 class BasePage(object): def __init__(self,driver): self.driver = driver # 退出浏览器 def quit_browser(self): self.driver.quit() # 显式等待_元素可见_XPATH def wait_explicit_located(self,x_path): try: WebDriverWait(self.driver, 5).until( EC.visibility_of_all_elements_located((By.XPATH, x_path))) logger.info(u"目标元素已显示 %s" %x_path) except TimeoutException as e: logger.error(u"元素%s显示异常 %s" % (x_path,e)) print u'元素显示异常%s' %x_path self.get_windows_image() #输入 def type(self,selector,text): el = self.find_element(selector) el.clear() try: el.send_keys(text) logger.info("Had type \' %s \' in inputBox" % text) except NameError as e: logger.error("Failed to type in input box with %s" % e) self.get_windows_image() ...... ``` ``` from ZJCH_selenium.framework.base_page import BasePage #此类是登录页面的方法 class LoginPage(BasePage): loginname_box = "xpath=>.//*[@class='login']//*[@class='lg']" pwd_box = "xpath=>.//*[@class='login']//*[@class='pwd']" verification_box = "xpath=>.//*[@class='login']//*[@name='yanzheng']" login_btn = "xpath=>.//*[@class='login']//*[@class='log log1']" #5位验证码定位 yzm1 = "xpath=>.//*[@class='rt']/span[1]" yzm2 = "xpath=>.//*[@class='rt']/span[2]" yzm3 = "xpath=>.//*[@class='rt']/span[3]" yzm4 = "xpath=>.//*[@class='rt']/span[4]" yzm5 = "xpath=>.//*[@class='rt']/span[5]" login_in = "xpath=>.//*[@class='alert_information']/b" #我知道了按钮的定位 def type_loginname(self, text): self.type(self.loginname_box, text) def type_pwd(self, text): self.type(self.pwd_box, text) def get_yzm(self): yzm_1 = self.get_text(self.yzm1) yzm_2 = self.get_text(self.yzm2) yzm_3 = self.get_text(self.yzm3) yzm_4 = self.get_text(self.yzm4) yzm_5 = self.get_text(self.yzm5) yzm = yzm_1 + yzm_2 + yzm_3 + yzm_4 + yzm_5 return yzm #输入验证码 def type_verification(self, text): self.type(self.verification_box, text) #点击登录按钮 def send_login_btn(self): self.click(self.login_btn) #点击我知道了 def send_iknow_btn(self): self.click(self.login_in) ``` ``` import unittest from ZJCH_selenium.framework.browser_engine import BrowserEngine from ZJCH_selenium.pageobjects.login_page import LoginPage #此类是测试登录功能 class test_ZJCH_Login(unittest.TestCase): def setUp(self): browse = BrowserEngine(self) self.driver = browse.open_browser(self) def tearDown(self): self.driver.quit() def test_login(self): loginpage = LoginPage(self.driver) loginpage.wait_explicit_located(".//*[@class='login']") loginpage.type_loginname('admin') #输入用户名 loginpage.type_pwd('123456') #输入密码 yzm = loginpage.get_yzm() #得到验证码 loginpage.type_verification('{}'.format(yzm)) #输入验证码 loginpage.send_login_btn() #点击登录按钮 loginpage.wait_explicit_located(".//*[@class='alert_information']/b") loginpage.send_iknow_btn() #点击确认登录 ![图片说明](https://img-ask.csdn.net/upload/201709/17/1505622234_129486.png) ** 利用unittest执行测试用例,登录页面可以正常登录,点击我知道了按钮后也正常进入系统首页,从网页上看没有任何异常,但用HTMLTestRunner缺报错,如图** ![图片说明](https://img-ask.csdn.net/upload/201709/17/1505623692_398671.png) **我测试过多次,执行到loginpage.wait_explicit_located(".//*[@class='alert_information']/b"),都没有错误,执行loginpage.send_iknow_btn() 就报错(问题是网页操作正常,可以进入系统首页,但为什么生成的测试报告缺有报错), 我试了下把loginpage.send_iknow_btn()去掉,采用 self.driver.find_element_by_xpath(".//*[@class='alert_information']/b").click() 如果采用这句代码就正常运行没有任何报错,这是为什么呢? [我知道了]这个窗口是在验证了用户登录成功后弹出的一个提示窗口,点击就可以进入系统首页的 另:我已经验证过,loginpage.wait_explicit_located(".//*[@class='alert_information']/b")这句显示等待已经成功的等待了【我知道了】窗口显示才执行的loginpage.send_iknow_btn() 到loginpage.wait_explicit_located(".//*[@class='alert_information']/b")都没有任何问题,元素已显示,点击操作也正常,但是生成到报告里就报错,哪位大神能帮我看看是为什么啊,真的想不通,我的HTMLTestRunner应该不会有问题的,其他测试用例都没什么问题** 然后我试了不采用框架,就没有任何报错,代码如下 import time from selenium import webdriver from selenium.webdriver.common.by import By from selenium.webdriver.support.ui import WebDriverWait from selenium.webdriver.support import expected_conditions as EC driver = webdriver.Firefox() driver.get("http://localhost:8089/chcgypt/login.html") driver.maximize_window() WebDriverWait(driver, 5).until( EC.visibility_of_element_located((By.XPATH, ".//*[@class='login']"))) driver.find_element_by_xpath(".//*[@class='login']//*[@class='lg']").send_keys("admin") #输入用户名 driver.find_element_by_xpath(".//*[@class='login']//*[@class='pwd']").send_keys("123456") #输入密码 #获取验证码并输入 a = driver.find_element_by_xpath(".//*[@class='rt']/span[1]").text b = driver.find_element_by_xpath(".//*[@class='rt']/span[2]").text c = driver.find_element_by_xpath(".//*[@class='rt']/span[3]").text d = driver.find_element_by_xpath(".//*[@class='rt']/span[4]").text e = driver.find_element_by_xpath(".//*[@class='rt']/span[5]").text yzm = a+b+c+d+e driver.find_element_by_xpath(".//*[@class='login']//*[@name='yanzheng']").send_keys(yzm) #点击登录按钮 driver.find_element_by_xpath(".//*[@class='login']//*[@class='log log1']").click() WebDriverWait(driver, 5).until( EC.visibility_of_all_elements_located((By.XPATH, ".//*[@class='alert_information']/b"))) #点击我知道了按钮进入系统 driver.find_element_by_xpath(".//*[@class='alert_information']/b").click() time.sleep(3) driver.current_window_handle #验证是否进入系统首页 WebDriverWait(driver,5).until(EC.presence_of_all_elements_located((By.XPATH,".//*[@class='welcomeToOurWeb']"))) try: WebDriverWait(driver, 5).until( EC.visibility_of_all_elements_located((By.XPATH, ".//*[@class='welcomeToOurWeb']"))) flag = True except TimeoutException: flag = False # 这种方式,就没有任何错误
内核编译执行make menuconfig时出现的问题
一开始的问题是这样的 HOSTCC scripts/basic/fixdep * * Unable to find the ncurses package. * Install ncurses (ncurses-devel or libncurses-dev * depending on your distribution). * scripts/kconfig/Makefile:208: recipe for target 'scripts/kconfig/mconf-cfg' failed make[1]: *** [scripts/kconfig/mconf-cfg] Error 1 Makefile:552: recipe for target 'menuconfig' failed make: *** [menuconfig] Error 2 后来在百度上找到的办法是缺少ncurses的库,需要输入apt-get install libncurses5-de安装缺缺少失的库。然后问题变成了 root@ubuntu:/home/electronic/kernel/linux-5.1.10# make menuconfig UPD scripts/kconfig/mconf-cfg HOSTCC scripts/kconfig/mconf.o HOSTCC scripts/kconfig/lxdialog/checklist.o HOSTCC scripts/kconfig/lxdialog/inputbox.o HOSTCC scripts/kconfig/lxdialog/menubox.o HOSTCC scripts/kconfig/lxdialog/textbox.o HOSTCC scripts/kconfig/lxdialog/util.o HOSTCC scripts/kconfig/lxdialog/yesno.o HOSTCC scripts/kconfig/confdata.o HOSTCC scripts/kconfig/expr.o LEX scripts/kconfig/lexer.lex.c /bin/sh: 1: flex: not found scripts/Makefile.lib:194: recipe for target 'scripts/kconfig/lexer.lex.c' failed make[1]: *** [scripts/kconfig/lexer.lex.c] Error 127 Makefile:552: recipe for target 'menuconfig' failed make: *** [menuconfig] Error 2 然后再百度的解决方法是apt-get install bison -y,问题又是这样 LEX scripts/kconfig/lexer.lex.c /bin/sh: 1: flex: not found scripts/Makefile.lib:194: recipe for target 'scripts/kconfig/lexer.lex.c' failed make[1]: *** [scripts/kconfig/lexer.lex.c] Error 127 Makefile:552: recipe for target 'menuconfig' failed make: *** [menuconfig] Error 2 之后也没有其他的解决方法。 作为一个初学linux的大学生,搞不懂,看着头疼。求大佬指点
元素不响应BLUR事件是咱会事?
在对一元素写脚本的时候有的是JQUERY,其中用到了BLUR事件,但是一点反应都没有是怎么回事?对于其它的事件都没有问题,版本是1.2或1.3的都不行 [b]问题补充:[/b] 是仿编辑表格的:我的代码如下: 表格代码:[code="java"] <table border="1"> <tr> <th scope="col">类别编号 </th> <th scope="col">类别名称 </th> </tr> <tr> <td>1 </td> <td class="edittable">新闻 </td> </tr> </table>[/code] jquery代码: [code="java"] $(function () { $(".edittable").click(function () { var obj = $(this); var oldtext = $.trim(obj.text()); var inputbox = $("<input type='text'value='"+oldtext+"'>"); obj.html(inputbox); inputbox.click(function () { return false; } ); inputbox.css("text-align", "center"); inputbox.css("border", "2px"); inputbox.css("font-size", "16px"); inputbox.width(obj.width()); inputbox.height(obj.height()); } ); inputbox.blur(function () { window.alert("affasdf"); var objinput = $(this); var newtext = objinput.text(); var cateid = $.trim(obj.prev().text()); window.alert("affasdf"); } ); } );[/code][/quote] 结果在alert那都没有反应
v画圆问题 本人新手遇到这个问题找不到原因希望大神帮助
Dim x0 As Single, y0 As Single, x1 As Single, y1 As Single Dim drawflag As Boolean, start As Boolean Dim m As Integer Dim shape As Integer Private Sub btnLine_Click() shape = 1 End Sub Private Sub btnRadiu_Click() shape = 2 End Sub Private Sub btnSquare_Click() shape = 3 End Sub Private Sub btnStart_Click() Picture1.BackColor = RGB(255, 255, 255) btnStart.Enabled = False btnStop.Enabled = True drawflag = True shape = 1 End Sub Private Sub btnStop_Click() btnStart.Enabled = True btnStop.Enabled = False drawflag = False End Sub Private Sub btnDelete_Click() Picture1.Cls End Sub Private Sub btnColor_Click() CommonDialog1.ShowColor Picture1.ForeColor = CommonDialog1.Color End Sub Private Sub btnStyle_Click() Dim a As Integer a = Val(InputBox("请输入画笔宽度", "提示", m)) If a = 0 Then a = m End If Picture1.DrawWidth = a m = Picture1.DrawWidth End Sub Private Sub btnExit_Click() End End Sub Private Sub myPaint_Load() Me.Scale (-5, 5)-(5, -5) Picture1.ForeColor = vbBlack Picture1.DrawWidth = 1 m = 1 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 And drawflag = True Then x0 = X y0 = Y start = True End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 And drawflag = True And start = True Then Select Case shape Case 1 x1 = X y1 = Y Picture1.Line (x0, y0)-(x1, y1) x0 = x1 y0 = y1 Case 2 x1 = X y1 = Y Case 3 x1 = X y1 = Y End Select End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case shape Case 1 x1 = X y1 = Y Picture1.Line (x0, y0)-(x1, y1) x0 = x1 y0 = y1 start = False Case 2 r = Sqr((x1 - x0) ^ 2 + (y1 - y0) ^ 2) Picture1.Circle (x0, y0), r Case 3 Picture1.Line (x0, y0)-(x1, y1), , B End Select End Sub 我遇到的问题是 画圆的时候只能显示一半 或者太大 大过控件大小不现实![图片说明](https://img-ask.csdn.net/upload/201506/23/1435070807_478517.jpg) 急需解决 马上就要交作业了 qq 834789560
ege 对话框 样式可以自己修改吗
用ege里面的库函数 inputbox_getline()创建的对话框 怎么才可以改变它的大小或颜色呢?求大牛告知
关于批处理的一个小问题
echo Wsh.Echo InputBox("请输入安装路径到下框,如C:\mysql:", "设置目录", "") >"tmp.vbs" for /f %%a in ('cscript "tmp.vbs" //nologo //e:vbscript') do set "d=%%~fsa" XCOPY /s /c /y "%~dp0mysql__iso" %d%\mysql_\ call %d%\mysql\bin\mysql_iso自动安装.bat 上面的这段程序是我改的一个把免安装版mysql复制到一个指定路径并启动的批处理程序,我的疑问是,当弹出对话框后,我不输入内容,直接点取消,%d%这个变量应该是空的字符串,这时应该不复制的啊,结果却是直接复制mysql_iso文件夹进入C:盘,这是怎么回事啊
jquery focus()方法失效
``` $(".chatbox .sendemoji").on("emoji", function(event, emoji) { var input = $(".chatbox .inputbox"); input.val(input.val() + emoji); input.focus(); }); ``` ``` $(".face_panel").click(function(event){ var _$this=$(event.target); if(_$this.is("span") && _$this.attr("code")){ var name = "face_panel"; var panel = $("." + name); var mask = $("." + name + "-mask"); if (name === "face_panel") { if(IsPC()){ //panel.css({left: 1, top: top,width:300}).show(); }else { var face_top=$(".opbar.noselection").offset().top+$(".face_panel").outerHeight(); $(".opbar.noselection").css({top:face_top}); mask.hide(); } } $(".chatbox .sendemoji").trigger("emoji",(_$this.attr("data-emoji").split("-")[4])); $(".face_panel").hide(); $(".face_panel").click().clean(); } }); ``` 打印文本什么都正常,说明语法并没有错,可是focus就是没用,并且我emoji表情也放不进去,还有浏览器都显示undefined方法--clean();
下面这段(合并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
相见恨晚的超实用网站
相见恨晚的超实用网站 持续更新中。。。
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它是一个过程,是一个不断累积、不断沉淀、不断总结、善于传达自己的个人见解以及乐于分享的过程。
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过...
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 free -m 其中:m表示兆,也可以用g,注意都要小写 Men:表示物理内存统计 total:表示物理内存总数(total=used+free) use...
比特币原理详解
一、什么是比特币 比特币是一种电子货币,是一种基于密码学的货币,在2008年11月1日由中本聪发表比特币白皮书,文中提出了一种去中心化的电子记账系统,我们平时的电子现金是银行来记账,因为银行的背后是国家信用。去中心化电子记账系统是参与者共同记账。比特币可以防止主权危机、信用风险。其好处不多做赘述,这一层面介绍的文章很多,本文主要从更深层的技术原理角度进行介绍。 二、问题引入 假设现有4个人...
python学习方法总结(内附python全套学习资料)
不要再问我python好不好学了 我之前做过半年少儿编程老师,一个小学四年级的小孩子都能在我的教学下独立完成python游戏,植物大战僵尸简单版,如果要肯花时间,接下来的网络开发也不是问题,人工智能也可以学个调包也没啥问题。。。。。所以python真的是想学就一定能学会的!!!! --------------------华丽的分割线-------------------------------- ...
兼职程序员一般可以从什么平台接私活?
这个问题我进行了系统性的总结,以下将进行言简意赅的说明和渠道提供,希望对各位小猿/小媛们有帮助~ 根据我们的经验,程序员兼职主要分为三种:兼职职位众包、项目整包和自由职业者驻场。 所谓的兼职职位众包,指的是需求方这边有自有工程师配合,只需要某个职位的工程师开发某个模块的项目。比如开发一个 app,后端接口有人开发,但是缺少 iOS 前端开发工程师,那么他们就会发布一个职位招聘前端,来配合公司一...
网页实现一个简单的音乐播放器(大佬别看。(⊙﹏⊙))
今天闲着无事,就想写点东西。然后听了下歌,就打算写个播放器。 于是乎用h5 audio的加上js简单的播放器完工了。 演示地点演示 html代码如下` music 这个年纪 七月的风 音乐 ` 然后就是css`*{ margin: 0; padding: 0; text-decoration: none; list-...
JAVA 基础练习题
第一题 1.查看以下代码,并写出结果 public class Test01 { public static void main(String[] args) { int i1 = 5; boolean result = (i1++ &gt; 5) &amp;&amp; (++i1 &gt; 4); System.out.println(result); Sy...
Python十大装B语法
Python 是一种代表简单思想的语言,其语法相对简单,很容易上手。不过,如果就此小视 Python 语法的精妙和深邃,那就大错特错了。本文精心筛选了最能展现 Python 语法之精妙的十个知识点,并附上详细的实例代码。如能在实战中融会贯通、灵活使用,必将使代码更为精炼、高效,同时也会极大提升代码B格,使之看上去更老练,读起来更优雅。
数据库优化 - SQL优化
以实际SQL入手,带你一步一步走上SQL优化之路!
2019年11月中国大陆编程语言排行榜
2019年11月2日,我统计了某招聘网站,获得有效程序员招聘数据9万条。针对招聘信息,提取编程语言关键字,并统计如下: 编程语言比例 rank pl_ percentage 1 java 33.62% 2 cpp 16.42% 3 c_sharp 12.82% 4 javascript 12.31% 5 python 7.93% 6 go 7.25% 7 p...
通俗易懂地给女朋友讲:线程池的内部原理
餐盘在灯光的照耀下格外晶莹洁白,女朋友拿起红酒杯轻轻地抿了一小口,对我说:“经常听你说线程池,到底线程池到底是个什么原理?”
C++知识点 —— 整合(持续更新中)
本文记录自己在自学C++过程中不同于C的一些知识点,适合于有C语言基础的同学阅读。如果纰漏,欢迎回复指正 目录 第一部分 基础知识 一、HelloWorld与命名空间 二、引用和引用参数 2.1引用的定义 2.2 将引用用作函数参数 2.3 将引用用于类对象 2.4 引用和继承 2.5 何时使用引用参数 2.6 引用和指针的区别 三、内联函数 四、默认参数的...
《奇巧淫技》系列-python!!每天早上八点自动发送天气预报邮件到QQ邮箱
将代码部署服务器,每日早上定时获取到天气数据,并发送到邮箱。 也可以说是一个小型人工智障。 知识可以运用在不同地方,不一定非是天气预报。
经典算法(5)杨辉三角
杨辉三角 是经典算法,这篇博客对它的算法思想进行了讲解,并有完整的代码实现。
Python实例大全(基于Python3.7.4)
博客说明: 这是自己写的有关python语言的一篇综合博客。 只作为知识广度和编程技巧学习,不过于追究学习深度,点到即止、会用即可。 主要是基础语句,如三大控制语句(顺序、分支、循环),随机数的生成,数据类型的区分和使用; 也会涉及常用的算法和数据结构,以及面试题相关经验; 主体部分是针对python的数据挖掘和数据分析,主要先攻爬虫方向:正则表达式匹配,常用数据清洗办法,scrapy及其他爬虫框架,数据存储方式及其实现; 最后还会粗略涉及人工智能领域,玩转大数据与云计算、进行相关的预测和分析。
腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹?
昨天,有网友私信我,说去阿里面试,彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static?他被难住了,因为他从来都没有考虑过这个问题。无独有偶,今天笔者又发现有网友吐槽了一道腾讯的面试题,我们一起来看看。 腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹? 在互联网职场论坛,一名程序员发帖求助到。二面腾讯,其中一个算法题:64匹...
面试官:你连RESTful都不知道我怎么敢要你?
干货,2019 RESTful最贱实践
机械转行java自学经历,零基础学java,血泪总结的干货
机械转行java自学经历,零基础学java,血泪总结的干货 据说,再恩爱的夫妻,一生中都有100次想离婚的念头和50次想掐死对方的冲动。 求职路上亦是如此,打开这篇文章,相信你也有转行的想法。和身边的朋友聊过,入职后的他们,或多或少对现在的职位都有些不满,都有过转行的冲动。 可他们只是想,而我真的这样做了。 下面就介绍下我转行的血泪史。 我为什么要转行 高中复读了一年,考了个双非院校的机械。当时...
刷了几千道算法题,这些我私藏的刷题网站都在这里了!
遥想当年,机缘巧合入了 ACM 的坑,周边巨擘林立,从此过上了"天天被虐似死狗"的生活… 然而我是谁,我可是死狗中的战斗鸡,智力不够那刷题来凑,开始了夜以继日哼哧哼哧刷题的日子,从此"读题与提交齐飞, AC 与 WA 一色 ",我惊喜的发现被题虐既刺激又有快感,那一刻我泪流满面。这么好的事儿作为一个正直的人绝不能自己独享,经过激烈的颅内斗争,我决定把我私藏的十几个 T 的,阿不,十几个刷题网...
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看...
【Linux系统编程】Linux信号列表
00. 目录 文章目录00. 目录01. Linux信号编号02. 信号简介03. 特殊信号04. 附录 01. Linux信号编号 在 Linux 下,每个信号的名字都以字符 SIG 开头,每个信号和一个数字编码相对应,在头文件 signum.h 中,这些信号都被定义为正整数。信号名定义路径:/usr/include/i386-linux-gnu/bits/signum.h 要想查看这些信号和...
JavaScript 为什么能活到现在?
作者 | 司徒正美 责编 |郭芮 出品 | CSDN(ID:CSDNnews) JavaScript能发展到现在的程度已经经历不少的坎坷,早产带来的某些缺陷是永久性的,因此浏览器才有禁用JavaScript的选项。甚至在jQuery时代有人问出这样的问题,jQuery与JavaScript哪个快?在Babel.js出来之前,发明一门全新的语言代码代替JavaScript...
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // doshom...
致 Python 初学者
欢迎来到“Python进阶”专栏!来到这里的每一位同学,应该大致上学习了很多 Python 的基础知识,正在努力成长的过程中。在此期间,一定遇到了很多的困惑,对未来的学习方向感到迷茫。我非常理解你们所面临的处境。我从2007年开始接触 python 这门编程语言,从2009年开始单一使用 python 应对所有的开发工作,直至今天。回顾自己的学习过程,也曾经遇到过无数的困难,也曾经迷茫过、困惑过。开办这个专栏,正是为了帮助像我当年一样困惑的 Python 初学者走出困境、快速成长。希望我的经验能真正帮到你
Python 编程开发 实用经验和技巧
Python是一门很灵活的语言,也有很多实用的方法,有时候实现一个功能可以用多种方法实现,我这里总结了一些常用的方法和技巧,包括小数保留指定位小数、判断变量的数据类型、类方法@classmethod、制表符中文对齐、遍历字典、datetime.timedelta的使用等,会持续更新......
借助AI力量,谷歌解开生命奥秘?
全文共4484字,预计学习时长8分钟 Paweł Czerwiński发布在 Unsplash上的原图 假如疾病不复存在会发生什么?如果我们能像大自然一样迅速获取能量又会发生什么?要是我们能够在极短时间内循环塑料、废油、或其它的一些物质呢?如果人类能够解开生命的奥秘,那么以上这些想象将在未来成为现实。人工智能企业DeepMind的数据科学分析师日前在此领域有了重大发现。以下为具体内容:...
吐血推荐珍藏的Visual Studio Code插件
作为一名Java工程师,由于工作需要,最近一个月一直在写NodeJS,这种经历可以说是一部辛酸史了。好在有神器Visual Studio Code陪伴,让我的这段经历没有更加困难。眼看这段经历要告一段落了,今天就来给大家分享一下我常用的一些VSC的插件。 VSC的插件安装方法很简单,只需要点击左侧最下方的插件栏选项,然后就可以搜索你想要的插件了。 下面我们进入正题 Material Theme ...
相关热词 c#委托 逆变与协变 c#新建一个项目 c#获取dll文件路径 c#子窗体调用主窗体事件 c# 拷贝目录 c# 调用cef 网页填表c#源代码 c#部署端口监听项目、 c#接口中的属性使用方法 c# 昨天
立即提问