自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(10)
  • 收藏
  • 关注

原创 vab EXCEL 日历制作

vab EXCEL 日历制作 Sub calender_table()Dim dm As VariantDim m, w, d, r As Integery = InputBox("input_year")m_begin = InputBox("input_begin_month")m_end = InputBox("input_end_month")d = ...

2019-07-15 11:36:10 808

原创 湖南岳阳歪胡子胡听牌验证器(android)

public class MainActivity extends Activity implements OnClickListener { private TextView tv; private Button bt1; private Button bt2; private Button bt3; private Button bt4; pr...

2018-11-23 15:45:31 835

原创 数独 (java)

package qunxingw.com; import java.util.Scanner; public class Soudu { static int[][] array = new int[9][9]; public void show(int array[][]) { for (int i = 0; i < 9; i++) { ...

2018-11-23 15:31:51 387

原创 有序数三分法递归查找

注意事项:1,(hight-low)//3   标记点flag1取整 相当于忽略了一个点,如  (2-1)//3=0  ;(2-0)//3=0因此临界点一定要留意。2,low,flag1,flag2,hight,都是列表下标,而value是list值, 不小心会出现不必要的坑。#low,hight列表初始下标,value 为要查找的值 lis为列表def find_three_...

2018-11-23 15:11:10 560

原创 查询并修改

本想在一页面通过二个表单,POST传到本页面,完成查询和修改数据库的功能。但不成功。最终还是用了二个页面。说明 理论实践还不扎实。<!DOCTYPE html><html><head> <meta charset="UTF-8"> <title>修改化学仓库录入数据</title> <st

2018-11-20 17:13:46 662

原创 huffman (简洁构建,python)

一,#定义节点class Node: def __init__(self,weight=0,left=None,right=None): self.weight=weight self.left=left self.right=right #按权值排序def sort(list): return so...

2018-11-01 16:25:30 315

原创 二叉树(python)

class node: def __init__ (self,data=None,left=None,right=None): self.left=left self.right=right self.data=dataclass tree_node: def __init__(self): self.root...

2018-10-29 15:34:06 142

原创 vba formula 公式的引用

Sub ai_insurance() cr = Range("c65536").End(xlUp).Row Set crng = Range(Cells(1, 3), Cells(cr, 3)) Dim arr(13) As Integer For Each c In crng Select Case Left(c, 2) Case ...

2018-10-22 12:16:37 4737

原创 vba 提取数据

Sub m_loss() Dim d_m, r, r_loss As Integer Dim date_new As Dater = Range("a65536").End(xlUp).Rowr_loss = Sheets("LOSS").Range("a65536").End(xlUp).Row zyname = InputBox("請輸入廠名")d_m = Int(In...

2018-10-22 12:05:54 2718

原创 递归实现 动态规划 并找出一个最优解

 从V中选一些数据,使之和与另一给定值j最接近,(不大于j)对于V中的某个元素,用选或不选进行分析,选用此数时放右子树不选时放左子树,并进行递归 。   # -*- coding:utf-8-*-###从V中选一些数,使之和与另一给定值j 最接近(不大于j)。 动态规划时,对于V中的某个元素,选或不选进行递归,选此数时放右子树,小的放左子树###利用二叉树递归处理,动态规...

2018-10-20 14:18:28 1120

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除