VBA突击01-012
(工作需要,临时啃vba)
01
输入数据
Sub 输入100()//输入100 Macro
// 宏由 Lenovo User 录制,时间: 2011-4-22Range("A1").Select
ActiveCell.FormulaR1C1 = "100"
Range("B4").Select
End Sub
删除数据
Sub 删除A1的内容()
’
’ 删除A1的内容 Macro
’ 宏由 Lenovo User 录制,时间: 2011-4-22
’
’
Range(“A1”).Select
Selection.ClearContents
End Sub
02
1语句:
'VBA中的代码的基本结构与组成部分'VBA语句
'一、宏程序语句(填充)'运行后可以完成一个功能Sub test() '开始语句Range("a1") = 100End Sub '结束语句'二、函数程序语句(调用函数)'运行后可以返回一个值Function shcount()shcount = Sheets.CountEnd Function'三、在程序中应用的语句(调用test这个宏)Sub test2()Call testEnd SubSub test3()(循环语句,在1-100中填充1-100)For x = 1 To 100 'for next 循环语句Cells(x, 1) = xNext xEnd Sub
VBA对象
'VBA中的对象其实就是我们操作的具有方法、属性的excel中支持的对象
'Excel中的几个常用对象表示方法:
’1、工作簿
' Workbooks 代表工作簿集合,所有的工作簿,Workbooks(N),表示已打开的第N个工作簿' Workbooks ("工作簿名称")' ActiveWorkbook 正在操作的工作簿' ThisWorkBook '代码所在的工作簿
’2、工作表
'Sheets("工作表名称")
'Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表....
'Sheets(n) 表示按排列顺序,第n个工作表
'ActiveSheet 表示活动工作表,光标所在工作表
'worksheet 也表示工作表,但不包括图表工作表、宏工作表等。
’3、单元格
'cells 所有单元格
'Range ("a1:a10,c2")
'Cells(行数,列数)
'Activecell 正在选中或编辑的单元格
'Selection 正被选中或选取的单元格或单元格区域
3.VBA属性
'VBA属性就是VBA对象所具有的特点
'表示某个对象的属性的方法是:
’对象.属性=属性值
(赋值)
Sub ttt()Range("a1").Value = 100End Sub
(改名)
Sub ttt1()Sheets(1).Name = "工作表改名了"End Sub
(工作表的单元格的值)
Sub ttt2()Sheets("Sheet2").Range("a1").Value = "abcd"End Sub
(把单元格改成红色的背景色)
’Range(“A2”).Interior.ColorIndex = 3 (修改背景色)
‘Range(“A2”).Font.ColorIndex = 3 (修改字体颜色)
Sub ttt3()Range("A2").Interior.ColorIndex = 3End Sub
4.VBA方法
'VBA方法是作用于VBA对象上的动作
'表示用某个方法作用于VBA的对象上,可以用下面的格式:
对象.方法 参数名称 := 参数值
(把a1的内容复制到a2中)
Sub ttt4()
Range("A1").Copy Range("A2")
End Sub
()
Sub ttt5()
Sheet1.Move before:=Sheets("Sheet3")
End Sub
(删除工作表)
Sub ttt4()
sheets("sheet2").Delete
End Sub
03判断语句
1.if判断语句
If 条件 Then
语句1
Else
语句2
End If
单条件判断
Sub 判断1()
If Range("a1").Value > 0 Then
Range("b1") = "正数"
Else
Range("b1") = "负数或0"
End If
End Sub
多条件判断
If 条件1 Then
语句1
Else If 条件2 Then
语句2
Else If 条件3 Then
语句3
End If
Sub 判断2() '
If Range("a1").Value > 0 Then
Range("b1") = "正数"
ElseIf Range("a1") = 0 Then
Range("b1") = "等于0"
ElseIf Range("B1") <= 0 Then
Range("b1") = "负数"
End If
End Sub
If 条件1 And 条件2 Then
语句
End If
(IF语句具有多条件判断优势,if使用较多)
Sub 多条件判断2()
If Range("a1") <> "" And Range("a2") <> "" Then
Range("a3") = Range("a1") * Range("a2")
End If
End Sub
2.select-case
先找到判断对象;再根据情况进行操作。
(单条件判断)
Select Case 判断对象Case 条件1语句1Case Else语句2End Select
Sub 判断1() Select Case Range("a1").ValueCase Is > 0Range("b1") = "正数"Case ElseRange("b1") = "负数或0"End Select
End Sub
('多条件判断)
Select Case 对象Case 条件1语句1Case 条件2语句2Case Else语句3End Select
Sub 判断2() Select Case Range("a1").ValueCase Is > 0Range("b1") = "正数"Case Is = 0Range("b1") = "0"Case ElseRange("b1") = "负数"End Select
End Sub
(直接与字母比较)
Sub 判断3()If Range("a3") < "G" ThenMsgBox "A-G"End If
End Sub
3.IFF函数
只能作为简单的判断在简化语句时使用;
Sub 判断4()Range("a3") = IIf(Range("a1") <= 0, "负数或零", "负数")
End Sub
4.区间判断
使用IF:
需求:根据a2判断b2的取值
Sub if区间判断()
If Range("a2") <= 1000 ThenRange("b2") = 0.01
ElseIf Range("a2") <= 3000 ThenRange("b2") = 0.03
ElseIf Range("a2") > 3000 ThenRange("b2") = 0.05
End If
End Sub
使用select-case:
注:可以使用to来创造区间
Sub select区间判断()Select Case Range("a2").ValueCase 0 To 1000Range("b2") = 0.01Case 1001 To 3000Range("b2") = 0.03Case Is > 3000Range("b2") = 0.05End Select
End Sub
04.循环语句
(复杂做法)
Sub t1()Range("d2") = Range("b2") * Range("c2")Range("d3") = Range("b3") * Range("c3")Range("d4") = Range("b4") * Range("c4")Range("d5") = Range("b5") * Range("c5")Range("d6") = Range("b6") * Range("c6")
End Sub
(1.构造循环,有数字规律时使用for-to-step)
Sub t2()
Dim x As Integer '声明一个变量For x = 10000 To 2 Step -3 //For x = 2 To 6 Step 1(从2到6,按1递增)Range("d" & x) = Range("b" & x) * Range("c" & x)Next x
End Sub
(2.构造循环,有位置规律时使用for-each-in-range)
Sub t3()
Dim rg As Range //声明一个单元格对象For Each rg In Range("d2:d18") //从约定范围内逐个取出单元格rg = rg.Offset(0, -1) * rg.Offset(0, -2) //该单元格数值等于右边一个单元格数值乘以右边第二个单元格的数值Next rg
End Sub
(在一定区域的空白单元格内填充0)
(注:如果找不到数字规律,看看是否可以使用for-each-in-range来达到目的)
Sub case1()Dim rg As Range //声明单元格对象For Each rg In Range("a1:b7,d5:e9") //定位两个修改范围(类似于选定两个班级)If rg = "" Then rg = 0 //空白区域填充0End IfNext rg //循环
End Sub
3.do循环
注意:很容易造成死循环
Sub t4()Dim x As Integer //声明变量x = 1 //初始值,作为计数器Do //开始语句x = x + 1 //循环结构Cells(x, 4) = Cells(x, 2) * Cells(x, 3) //操作语句:同一行的第四列等于第二列乘以第三列Loop Until x = 18 //循环语句+结束语句(设置不好容易造成死循环)
End Sub
(do-while:终止条件放到前面)
Sub t5()x = 1 //计数器Do While x < 18 //循环结束条件x = x + 1Cells(x, 4) = Cells(x, 2) * Cells(x, 3)Loop //语句
End Sub
(用do语句寻找数据中存在的断点)
Sub s2()Dim x As IntegerDox = x + 1If Cells(x + 1, 1) <> Cells(x, 1) + 1 ThenCells(x, 2) = "断点" //找到断点,强制退出循环Exit DoEnd If
Loop Until x = 14 //如果一直找不到断点,在第14行结束循环
End Sub
05.变量
’变量
一、什么是变量?
所谓变量,就是可变的量。就好象在内存中临时存放的一个小盒子,这个小盒子放的什么物体不固定。
Sub t1()
Dim X As Integer //x就是一个整数型变量
For X = 1 To 10Cells(X, 1) = XNext X
End Sub
二、小盒子里可以放什么?
1 放数字:如t1
2 放文本
Sub t2()
Dim st As String
Dim X As Integer
For X = 1 To 10st = st & "Excel精英培训"Next X
End Sub
3 放对象
Sub t3()
Dim rg As Range
Set rg = Range("a1") //把a1单元格这个对象,放进rg这个对象变量中,此后,rg就代表了单元格a1(注:给对象变量赋值,一定要使用set关键词)
rg = 100
End Sub
4 放数组
Sub t4()
Dim arr(1 To 10) As Integer, X As Integer //声明变量 dim-as
For X = 1 To 10arr(X) = XNext X
End Sub
三、变量的类型和声明
帮助-语言参考-数据类型
1 变量的类型
详见帮助文件
2 为什么要声明变量
物尽其用,人尽其才。
3 声明变量
dim public
四、变量的存活周期
1 过程级变量:过程结束,变量值释放
如t1
2 模块级变量:在模块顶上声明的变量
变量的值只在本模块中保持,工作簿关闭时随时释放
例:
Sub t6()
m = 1
End Sub
Sub t5()
MsgBox m
m = 7
End Sub
3。 全局级变量:
在所有的模块中都可以调用,值会保存到EXCEL关闭时才会被释放。
public 变量名称 as 类型
Sub t7()
MsgBox qq
End Sub
五 变量的释放
一般情况下,过程级变量在过程运行结束后就会自动从内存中释放,而只有一些从外部借用的对象变量才需要使用set 变量=nothing进行释放。
06公式与函数
一、在单元格中输入公式
1、用VBA在单元格中输入普通公式
例1:
Sub t1()Range("d2") = "=b2*c2"End Sub
修改例1:
Sub t2()
Dim x As IntegerFor x = 2 To 6Cells(x, 4) = "=b" & x & "*c" & x //与上面的公式相比,只需要把行号x的位置独立出来(变量和字符串连接一定要使用&符号)Next x
End Sub
'2、用VBA在单元格输入带引号的公式(一般字符串需要加双引号)
Sub t3()
Range("c16") = "=SUMIF(A2:A6,""b"",B2:B6)" //遇到单引号就把单引号加倍
End Sub
3、用VBA在单元格中输入数组公式
Sub t4()Range("c9").FormulaArray = "=SUM(B2:B6*C2:C6)" //使用数组公式,计算:b2*c2+b3*c3+b4*c4+b5*c5+b6*c6End Sub
’二、利用单元格公式返回值(单元格公式)
Sub t5()Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") //使用公式把表达式返回成数值Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")End Sub
’三、借用工作表函数(工作表函数)
Sub t6() Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B") //调用sum函数End Sub
’四、利用VBA函数(VBA函数)
Sub t7() Range("C20") = VBA.InStr(Range("a20"), "E")//查找字符串的位置
End Sub
'五、编写自定义函数
Function wn()wn = Application.Caller.Parent.NameEnd Function
VBE编辑器
’一、VBE的窗口
’1、工程窗口
'A 显示工作簿工作表对象
'B 窗体
'C 模块
'D 类模块
'range(“a1”)=10
'对应工程窗口的对象和模板,显示其所具体的一些特征。
’3、代码窗口
'A 注释文字的设置
'B 代码缩进的设置
'C 代码强制转行的设置(在想要转行的地方,先输入空格,再输入下划线,回车)
'D 代码运行和调试
'逐句运行(调试-逐语句/F8)
'设置断点(点击左边边栏,设置断点)
'E 对象列表框和过程列表框
’4、立即窗口 (各种窗口在视图中寻找)
'立即窗口可以把运行过程中的值立即显示出来,主要用于程序的调试
(Debug.Print方法,把结果显示到立即窗口中)
Sub d()Dim x As Integer, st As StringFor x = 1 To 10st = st & Cells(x, 1)Debug.Print "第" & x & "次运行结果:" & st //把每一步结果显示到立即窗口中,方便在调试程序时查看Next x
End Sub
’5、本地窗口
在本地窗口中可以显示运行中断时对象信息、变量值、数组信息等。
Sub d1()Dim x As Integer, k As IntegerFor x = 1 To 10k = k + Cells(x, 1)Next xEnd Sub
08VBA分支与AND语句
一、END语句
作用:强制退出所有正在运行的程序。
二、Exit语句
'退出指定的语句
'1、Exit Sub
Sub e1()Dim x As IntegerFor x = 1 To 100Cells(1, 1) = xIf x = 5 ThenExit Sub //退出当前程序,不执行后面语句End IfNext xRange("b1") = 100End Sub
'2、Exit function
Function ff()Dim x As IntegerFor x = 1 To 100If x = 5 ThenExit Function //退出整个functionEnd IfNext xff = 100End Function
3、Exit for
Sub e2()Dim x As IntegerFor x = 1 To 100Cells(1, 1) = xIf x = 5 ThenExit For //退出整个for循环End If Range("b1") = 100End SubNext x
'4、Exit do
Sub e3()Dim x As IntegerDox = x + 1Cells(1, 1) = xIf x = 5 ThenExit Do //退出do循环End IfLoop Until x = 100Range("b1") = 100End Sub
二.分支语句(按照需要跳转到指定位置)
1.Goto语句:无条件跳转到指定的地方
Sub t1()Dim x As IntegerDim sr
100: //设置行号sr = Application.InputBox("请输入数字", "输入提示") //读取用户输入If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100 //如果没有输入或者点击取消(false),则启动跳转设置End Sub
2.gosub-return ,跳过去,再跳回来
Sub t2()Dim x As IntegerFor x = 1 To 10If Cells(x, 1) Mod 2 = 0 Then GoSub 100Next x
Exit Sub //当x运行完1-10时,不需要再运行100后面的语句,直接退出程序。
100:Cells(x, 1) = "偶数"Return '跳到gosub 100 这一句
End Sub
on error resume next '遇到错误,跳过继续执行下一句
Sub t3()On Error Resume Next //遇到错误-忽略-继续执行Dim x As IntegerFor x = 1 To 10Cells(x, 3) = Cells(x, 2) * Cells(x, 1)Next xEnd Sub
on error goto '出错时跳到指定的行数
Sub t4()On Error GoTo 100 //遇到错误进行指定输出Dim x As IntegerFor x = 1 To 10Cells(x, 3) = Cells(x, 2) * Cells(x, 1)Next xExit Sub //一定要加这句,否则正常运行状态下也要出现错误提示
100:MsgBox "在第" & x & "行出错了"End Sub
on error goto 0 '取消错误跳转
Sub t5()On Error Resume NextDim x As IntegerFor x = 1 To 10If x > 5 Then On Error GoTo 0 //当到达某一范围,错误提示语句将不再发挥作用Cells(x, 3) = Cells(x, 2) * Cells(x, 1)Next xExit SubEnd Sub
09excel文件操作
一.excel文件和工作簿
excel文件就是excel工作簿,excel文件打开需要excel程的支持;
Workbooks 工作簿集合,泛指excel文件或工作簿;
Workbooks(“A.xls”),名称为A的excel工作簿;
Sub t1()
Workbooks("A.xls").Sheets(1).Range("a1") = 100 //某个工作簿的某个工作表的某个单元格=100
End Sub
workbooks(2),按打开顺序,第二个打开的工作簿;
Sub t2()
Workbooks(2).Sheets(2).Range("a1") = 200
End Sub
ActiveWorkbook ,当打开多个excel工作簿时,你正在操作的那个就是ActiveWorkbook(活动工作簿);
Thisworkbook,VBA程序所在的工作簿,无论你打开多少个工作簿,无论当前是哪个工作簿是活动的,thisworkbook就是指它所在的工作簿;
(区别:一个是正在操作的工作簿,一个是代码所在的工作簿)
工作簿窗口
Windows(“A.xls”),A工作簿的窗口,使用windows可以设置工作簿窗口的状态,如是否隐藏等;
Sub t3()
Windows("A.xls").Visible = False //工作簿界面隐藏(使用名称)
End Sub
Sub t4()
Windows(2).Visible = True //第几个打开的工作簿窗口
End Sub
二.操作技巧
’1 判断A.Xls文件是否存在
Sub W1()If Len(Dir("d:/A.xls")) = 0 Then //判断是否存在MsgBox "A文件不存在"ElseMsgBox "A文件存在"End If
End Sub
’2 判断A.Xls文件是否打开
Sub W2()Dim X As IntegerFor X = 1 To Windows.CountIf Windows(X).Caption = "A.XLS" Then //遍历所有打开的工作簿MsgBox "A文件打开了"Exit SubEnd IfNext
End Sub
’3 excel文件新建和保存
Sub W3()Dim wb As Workbook //声明一个工作簿类型变量(盒子中只能放工作簿)Set wb = Workbooks.Add //使用set给对象变量赋值,使用add方法wb.Sheets("sheet1").Range("a1") = "abcd" //单元格赋值wb.SaveAs "D:/B.xls" //工作簿保存
End Sub
’4 excel文件打开和关闭
Sub w4()Dim wb As Workbook //声明对象变量Set wb = Workbooks.Open("D:/B.xls") ///打开文件,放入wb变量MsgBox wb.Sheets("sheet1").Range("a1").Valuewb.Close False //不保存并关闭文件End Sub
’5 excel文件保存和备份
Sub w5()Dim wb As Workbook //声明Set wb = ThisWorkbook //赋值wb.Save //保存wb.SaveCopyAs "D:/ABC.xls" //备份End Sub
’6 excel文件复制和删除
Sub W6()FileCopy "D:/ABC.XLS", "E:/ABCd.XLS" //被复制的文件-存放的文件和路径Kill "D:/ABC.XLS" //删除文件
End Sub
10excel工作表操作
1.excel工作表的分类
excel工作表有两大类,一类是我们平常用的工作表(worksheet)-,另一类是图表、宏表等。这两类的统称是sheets;
(sheets 工作表集合,泛指excel各种工作表)*
Sheets(“A”):是指名称为A的excel工作表
Sub t1()Sheets("A").Range("a1") = 100End Sub
workbooks(2),按打开顺序,第二个打开的工作簿。(按照从左到右的先后顺序,包含隐藏的工作表)
Sub t2()Sheets(2).Range("a1") = 200End Sub
ActiveSheet ,当打开多个excel工作簿时,你正在操作的那个就是ActiveSheet
2.操作技巧
’1 判断A工作表文件是否存在
Sub s1()Dim X As IntegerFor X = 1 To Sheets.Count //遍历所有工作表If Sheets(X).Name = "A" ThenMsgBox "A工作表存在" Exit SubEnd IfNextMsgBox "A工作表不存在"End Sub
’2 excel工作表的插入
Sub s2()Dim sh As WorksheetSet sh = Sheets.Add //添加sh.Name = "模板"sh.Range("a1") = 100End Sub
’3 excel工作表隐藏和取消隐藏
Sub s3()Sheets(2).Visible = True //可见End Sub
’4 excel工作表的移动
Sub s4()Sheets("Sheet2").Move before:=Sheets("sheet1") //sheet2移动到sheet1前面Sheets("Sheet1").Move after:=Sheets(Sheets.Count) //sheet1移动到所有工作表的最后面End Sub
’6 excel工作表的复制
Sub s5() '在本工作簿中Dim sh As WorksheetSheets("模板").Copy before:=Sheets(1)Set sh = ActiveSheetsh.Name = "1日"sh.Range("a1") = "测试"End Sub
Sub s6() '另存为新工作簿Dim wb As WorkbookSheets("模板").CopySet wb = ActiveWorkbookwb.SaveAs ThisWorkbook.Path & "/1日.xls"wb.Sheets(1).Range("b1") = "测试"wb.Close TrueEnd Sub
’7 保护工作表
Sub s7()Sheets("sheet2").Protect "123"End Sub
Sub s8() '判断工作表是否添加了保护密码If Sheets("sheet2").ProtectContents = True ThenMsgBox "工作簿保护了"ElseMsgBox "工作簿没有添加保护"End IfEnd Sub
’8 工作表删除
Sub s9()Application.DisplayAlerts = FalseSheets("模板").DeleteApplication.DisplayAlerts = TrueEnd Sub
’9 工作表的选取
Sub s10()Sheets("sheet2").SelectEnd Sub
11单元格的选取
’1 表示一个单元格(a1)
Range(“a1”).Select;
Cells(1, 1).Select;
Range(“A” & 1).Select;
Cells(1, “A”).Select;
Cells(1).Select;
[a1].Select;
’2 表示相邻单元格区域(a1:c5这个区域)
Range(“a1:c5”).Select
Range(“A1”, “C5”).Select
Range(Cells(1, 1), Cells(5, 3)).Select
Range(“a1:a10”).Offset(0, 1).Select
//offset(上下偏移量,左右偏移量)
Range(“a1”).Resize(5, 3).Select //a1为顶点,Resize(行数, 列数)
’3 表示不相邻的单元格区域
Range(“a1,c1:f4,a7”).Select //注意:只用一对双引号;
Union(Range(“a1”), Range(“c1:f4”), Range(“a7”)).Select;//连接多个单元格对象,作为一个整体表示
(union示例)
Sub dd() Dim rg As Range, x As IntegerFor x = 2 To 10 Step 2If x = 2 Then Set rg = Cells(x, 1) //先给rg进行初始化Set rg = Union(rg, Cells(x, 1)) //在旧的单元格容器中,通过循环,不断增加新的单元格Next xrg.Select //选取连接起来的所有单元格End Sub
4 表示行
Rows(1).Select //第一行
Rows(“3:7”).Select //第三行到第七行
Range(“1:2,4:5”).Select //选取不连续的行
Range(“c4:f5”).EntireRow.Select //EntireRow用于返回单元格区域所在的行
’5 表示列
Columns(1).Select
Columns(“A:B”).Select
Range(“A:B,D:E”).Select
Range(“c4:f5”).EntireColumn.Select //选取c4:f5所在的行
’6 重置坐标下的单元格表示方法
Sub cc()Range("b2").Range("a1") = 100 //以B2作为新的坐标,将新坐标的A1单元格赋值100End Sub
’7 表示正在选取的单元格区域
Sub d2()Selection.Value = 100
End Sub
012特殊单元格的定位
’1 已使用的单元格区域
Sub d1()Sheets("sheet2").UsedRange.Select //选取已经使用过的区域wb.Sheets(1).Range("a1:a10").Copy Range("i1") //将内容复制到以i1为顶点的单元格区域
End Sub
’2 某单元格所在的连续单元格区域(无论有边还是顶点重叠,都是连续区域)
Sub d2()Range("b8").CurrentRegion.Select //选择以B8为顶点的连续区域End Sub
’3 两个单元格区域共同的区域(选取区域的交集)
Sub d3() Intersect(Columns("b:c"), Rows("3:5")).Select
End Sub
’4 调用定位条件选取特殊单元格(含空格、含注释、含常量、含公示)
Sub d4()Range("A1:A6").SpecialCells(xlCellTypeBlanks).Select //选取区域内的空单元格
End Sub
’5 端点单元格
Sub d5()Range("a65536").End(xlUp).Offset(1, 0) = 1000 //从最后一个单元格向上找最近的一个非空空单元格,并向下偏倚一行End Sub
Sub d6()Range(Range("b6"), Range("b6").End(xlToRight)).Select //从左向右选
End Sub
例:查找客户首次还款月份
Sub test()
Dim x As Integer //声明
For x = 2 To 6 //选择范围,遍历If Cells(x, 2) > 0 ThenCells(x, "N") = "1月"ElseCells(x, "N") = Range("b" & x).End(xlToRight).Column - 1 & "月" //从B列向右找,得到非空单元格所在列数,根据数量关系求得相应月份End If
Next xEnd Sub
VBA突击01-012相关推荐
- keil debug如何在watch直接修改变量值_零基础学VBA:什么是VBA?如何编写和运行VBA代码?...
HI,大家好,我是星光,今天咱们来继续学习VBA.在上一章咱们讲了为什么要学习VBA~VBA还值不值得学~学了还有没有用~零基础学VBA编程01:VBA还能不能学?学了还有没有用? 这一章咱们再来简单 ...
- 细胞如何获得秩序?除了形成细胞器,还可以发生相分离
来源:集智俱乐部 作者:Viviane Callier 译者:王百臻 审校:梁金 编辑:邓一雪 导语 小小的细胞实际上是一个无比复杂的宇宙.DNA在细胞核中运筹帷幄,指导各种细胞器密切合作, ...
- 深度剖析数据在内存中的存储2——浮点数数在内存中的存储
根据国际标准IEEE:任意一个二进制浮点数V可以表示为下面形式: (-1)^SM2^E: (-1)^S表示符号位,当S为0,V为正数:当S为1,V为负数.由其物理结构决定了,浮点数为有符号数. M为有 ...
- 管理信息系统 课程设计
管理信息系统 课程设计 1.系统概要说明 本论坛网站系统使用Pycharm开发工具利用flask框架进行开发. 使用AJAX技术进行页面前端数据传输,后台根据获取数据进行json判断,并在页面进行弹框 ...
- 【Python入门】Python字符串的45个方法详解
Python中字符串对象提供了很多方法来操作字符串,功能相当丰富.必须进行全面的了解与学习,后面的代码处理才能更得心应手,编程水平走向新台阶的坚实基础.目前一共有45个方法,给大家分类整理,可以收藏查 ...
- python字符串功能_python字符串内置功能
str.capitalize() --> String 返回字符串,其首字母大写,其余部分小写 1>>> str = "TEST" 2>>> ...
- python字符串内置方法
网上已经有很多,自己操作一遍,加深印象. dir dir会返回一个内置方法与属性列表,用字符串'a,b,cdefg'测试一下 dir('a,b,cdefg') 得到一个列表 ['__add__','_ ...
- Python String 方法详解
官网文档地址:https://docs.python.org/3/library/stdtypes.html#string-methods 官网 公号:软测小生ruancexiaosheng 文档里 ...
- .NET正则表达式使用高级技巧之替换类
.NET正则表达式使用高级技巧之替换类 因为.net的基本正则语法和Perl5基本相同,所以基本语法你可以去下载一下M$的JS帮助文档,上面有详细的说明\d表示什么,{,5}表示什么,\[表示什么-- ...
最新文章
- 《编码:隐匿在计算机软硬件背后的语言(美)》读书笔记三
- Java生成CSV文件
- unity hub是什么东西_Unity可编程渲染管线(SRP)教程:一、自定义管线
- 通用的启动参数获取getopt
- ×××--PPTP 服务器配置(详细)
- 你永远都不知道你老公可以多幼稚......
- 利用socket转发和反弹端口技术突破防火墙进入内
- matlab charl,基于MATLAB/Simulink的双闭环SPWM变频调速系统仿真.pdf
- 仅一年,近半加密货币的“ICO”项目已死
- 机器学习基石 作业一
- 东莞潇洒培训学校分享知识点:UG编程加工参数设置,新手看过来
- 桌面计算机图标双击打不开了,双击打不开图标怎么办 双击打不开图标解决方法【详解】...
- 一个QQ用户名/密码钓鱼分析
- 孕妇睡眠质量差怎么办?如何提高睡眠质量?
- 除硬件外计算机系统不可缺少的是,银河系重约多少个太阳质量?
- 腾讯云服务器备案全流程详细内容记录40天备案的血与泪
- 企业微信对外收款功能如何开通?
- Wap开发技术问题大全
- 解决react项目启动invalid host header问题
- podman加速配置、harbor镜像仓库部署