Coperator
文章平均质量分 83
dblion
这个作者很懒,什么都没留下…
展开
-
StartWith例子
Private Sub StartWith_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartWith.Click Dim nickName As String = "Coperator" Dim charLower As String = "c"原创 2013-03-14 15:07:29 · 805 阅读 · 0 评论 -
ToUpper例子
Private Sub ToUpper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToUpper.Click Dim nickName As String = "Coperator" Dim testToUpper As String = ""原创 2013-03-14 15:21:39 · 629 阅读 · 0 评论 -
年/月/日 时:分:秒 --> 年月日时分秒
Public Function stringToDate(ByVal strDate As String) As String Dim yyyyMMdd As String = "" Dim hh24miss As String = "" Try yyyyMMdd = strDate.Substring(0, 4) &原创 2013-03-29 16:09:27 · 1135 阅读 · 0 评论 -
DateSerial例子
Private Sub DateSerial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateSerialTest.Click Dim testDate As Date = New Date Dim strDate As String = "2013032原创 2013-03-18 16:35:10 · 1792 阅读 · 0 评论 -
PadLeft例子
Private Sub PadRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PadRight.Click Dim sAE As String = "" Dim sAG As String = "" Dim testAE As Str原创 2013-03-18 17:07:34 · 1067 阅读 · 0 评论 -
Is Nothing 例子
Private Sub IsNothing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IsNothing.Click Dim sl As SortedList = New SortedList Dim slNull As SortedList = New S原创 2013-03-18 15:50:25 · 956 阅读 · 0 评论 -
大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进
大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进下面有源代码Imports System.Data.OleDbImports System.Net.Mime.MediaTypeNamesPublic Class Form1 Dim excelapp As System.Windows.Forms.Application '声明一个applicat原创 2013-04-01 17:49:47 · 1202 阅读 · 0 评论 -
自动读入文件
Public Class Form1 Dim constIntLength As Integer = 9 Dim varStringReadContent As String = "" Private Sub oneRead_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)原创 2013-04-02 14:29:26 · 661 阅读 · 0 评论 -
生成文件夹程序
生成文件夹的程序源码如下:Public Class Form1 Public Shared path As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click path原创 2013-04-01 17:48:00 · 625 阅读 · 0 评论 -
& + 例子
Private Sub and_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles and_add.Click Dim s1 As String = "and" Dim s2 As String = "add" Dim s3 As Strin原创 2013-03-20 11:13:57 · 719 阅读 · 0 评论 -
Date.compare例子
Private Sub Date_Compare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Date_Compare.Click Dim date1 As Date = Date.FromOADate(2013 / 3 / 19) Dim date2 As原创 2013-03-20 11:13:09 · 955 阅读 · 0 评论 -
/ 例子
Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click Dim i1 As Integer Dim i2 As Integer Dim i3 As Integer Dim i4 As原创 2013-03-20 11:14:50 · 601 阅读 · 0 评论 -
斐波那契数列
#includelong Fibonacci(int n){ long x = 0; long y = 1; //printf("%d\t\t",y); for(int i = 1; i { y = x + y; //Fibonacci(n) x = y - x; //Fibonacci(n-1) //printf("%d\t\t",y); /原创 2013-04-01 17:40:31 · 610 阅读 · 0 评论 -
List(Of String)例子
Public Class Form1 Dim strList As List(Of String) = New List(Of String) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click D原创 2013-04-10 17:40:30 · 2594 阅读 · 0 评论 -
日语单词
UNTITLED経験者けいけんしゃ有经验的人,做过某事的人アルミニウムあるみにうむ铝Aluminumアンマッチあんまっち不匹配,不相配,失配ウェブサイトうぇぶさいと网络站点websiteガイダンスがいだんす辅导Guidanceカウンターかうんたー柜台,&#原创 2013-04-23 16:54:23 · 980 阅读 · 0 评论 -
Oracle: ORA-错误
ORA-00198: column ambiguously definedORA-00198: 未明确定义列的错误解决办法: 寻找不同表中可能相同的字段,加上别名。 ORA-12170: TNS: Connect timeout occurredORA-12170: TNS: 连接超时解决办法: 检查网络是否通畅。1.cmd ping ip地址(要连接的服务器)2.原创 2013-04-03 10:25:28 · 1283 阅读 · 0 评论 -
文件操作
Public Class Form1 Private Sub btnCreatePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreatePath.Click Dim sPath As String = "" Dim sFile As原创 2013-04-24 09:57:11 · 687 阅读 · 0 评论 -
LPAD 和 RPAD 例子
SELECT LPAD('coperator', 10, '@') "LPAD" FROM DUAL;SELECT RPAD('coperator', 10, '@') "RPAD" FROM DUAL;输出结果:原创 2013-04-16 14:38:37 · 574 阅读 · 0 评论 -
split 例子
Private Sub btnSplit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSplit.Click Dim qqStr As String = "QQ: 6,4,3,1,666,0,1" Dim strSplitArray() As Strin原创 2013-04-16 16:34:37 · 561 阅读 · 0 评论 -
PadLeft 和 PadRight 例子
Private Sub btnPadLeft_And_PadRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPadLeft_And_PadRight.Click Dim str As String = "coperator" Dim strPadLeft As原创 2013-04-16 14:31:51 · 903 阅读 · 0 评论 -
日期时间转换
将 2013/04/16 5:04:03 转换成 20130416050403 Private Sub btnTimeConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimeConvert.Click Dim strDate As String原创 2013-04-16 17:28:46 · 645 阅读 · 0 评论 -
StringBuilder 例子
Imports System.TextPublic Class Form1 Private Sub btnStringBuilder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStringBuilder.Click Dim ssb As New Syste原创 2013-04-17 13:16:39 · 759 阅读 · 0 评论 -
vbCrLf长度测试
Private Sub btnvbCrLf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvbCrLf.Click Dim a As String a = "aaa" MsgBox(a.Length) a = a & v原创 2013-04-17 15:13:21 · 670 阅读 · 0 评论 -
检测是否符合Email格式
#includeusing namespace std;int main(){ char sEmail[10]; char *pAt = NULL; char *pDot = NULL; int iAtFlg = 0; int iDotFlg = 0; int iLineNum = 1; cout iLineNum ++; while(原创 2013-04-27 18:30:14 · 1081 阅读 · 0 评论 -
渥瑞达 Linux Unix下C语言软件开发视频教程 笔记2
File system securityIn your unix stuff directory, type% ls –l (l for long listing!)You will see that you now get lots of details about the contents of you directory, similar to the example below原创 2013-05-04 10:54:00 · 2592 阅读 · 1 评论 -
渥瑞达 Linux Unix下C语言软件开发视频教程 笔记1
UNIX Development EnvironmentThe Basic KnowledgeThe General CommandUnix ShellMakefile The Basic KnowledgUnix/Linux systems are multi-user and multi-taskingHave multiple users on the sam原创 2013-05-04 10:52:58 · 2828 阅读 · 0 评论 -
渥瑞达 Linux Unix下C语言软件开发视频教程 笔记4
Chapter 2 Data Types and Variables1. VARIABLE AND BASEIC DATATYPESAs a programmer, you will frequently wantyour program to “remember” a value. For example, if your program requests avalue原创 2013-05-05 13:55:57 · 2671 阅读 · 2 评论 -
渥瑞达 Linux Unix下C语言软件开发视频教程 笔记3
Chapter 1 Getting Started1.ASIMPLE EXAMPLEThis program prints out the message “Thisis a C program”Example1:#include int main(){ printf( "This is a C Program\n" );原创 2013-05-05 12:08:07 · 2333 阅读 · 0 评论 -
函数strlen实现
#includeint strlen1(const char * src){ int len = 0; while(*src ++ != '\0') { len ++; } return len;}int strlen2(const char * src){ const char *temp = src; while(*src ++ != '\原创 2013-05-08 11:31:15 · 785 阅读 · 0 评论 -
经济学原理 笔记1
劳动市场经济学微观经济学(虫瞰)只见树木不见森林宏观经济学(鸟瞰)只见森林不见树木市场可以搞笑的实现资源的合理配置政府只能尊重市场,而不是凌驾于市场之上对市场的校偏传统经济学的前提供给恒等于需求供给自创需求原创 2013-05-08 14:21:44 · 745 阅读 · 0 评论 -
以前学习C语言资料4
TX31请输入星期几的第一个字母来判断一下是星期几,如果第一个字母一样,则继续判断第二个字母。LN:用情况语句比较好,如果第一个字母一样,则判断用情况语句或if语句判断第二个字母SHN:仔细看一下这个吧,看看它有什么优点吧!优点是只有在输入Y时才能跳出,这点很好。不足呢?就是在输入第二个字母时要换大小写,那样用起来很不方便,能不能改进一下呢?可以,只要在case ’ 大写字母’: 后加原创 2013-05-25 13:52:27 · 691 阅读 · 0 评论 -
以前学习C语言资料5
TX41学习static定义静态变量的用法#include#includevarfunc(){ int var=0; static int static_var=0; printf("\40:var equal %d \n",var); printf("\40:static var equal %d \n",static_var); printf("\n")原创 2013-05-25 13:53:59 · 780 阅读 · 0 评论 -
以前学习C语言资料6
MQ期末押题main(){ int a=14,b=15,x; char c='A'; x=(a&&b)&&(c printf("%d",x);} /* 1 */main(){ int x,y; scanf("%d",&x); y=x>12?x+10:x-12; /* kao tiao jian yun suan fu */原创 2013-05-25 13:55:31 · 850 阅读 · 0 评论 -
学习 严蔚敏讲数据结构笔记01
主讲人:严蔚敏 第一章 绪论1.1数据结构讨论的范畴1.2基本概念1.3算法及其量度 1.1数据结构讨论的范畴NiklausWirth Algorithm+ Data Structures = Programs程序设计:为计算机处理问题编制一组指令集算法:处理问题的策略数据结构:问题的数学模型 例如:数值计算的程序设计问题结构静力分析计算原创 2013-05-25 14:25:45 · 1132 阅读 · 0 评论 -
学习 严蔚敏讲数据结构笔记02
1.3算法和算法的衡量一、算法算法是为了解决某类问题而规定的一个有限长的操作序列。一个算法必须满足以下五个重要特性:1有穷性 2确定性 3可行性 4有输入 5有输出1有穷性 对于任意一组合法的输入值,在执行有穷步骤之后一定能结束,即:算法中的每个步骤都能在有限时间内完成; 2.确定性对于某种情况下所应执行的操作,在算法中都有确切的规定,使算法的执行者或者阅读者都能明确其原创 2013-05-25 14:28:51 · 902 阅读 · 0 评论 -
学习 严蔚敏讲数据结构笔记03
四、算法的存储空间需求算法的空间复杂度S(n)=O(g(n))表示随着问题规模n的增大,算法运行所需存存储量的增长率与g(n)的增长率相同。 算法的存储量包括:1.输入数据所占空间;2.程序本身所占空间;3.辅助变量所占空间。 若输入数据所占空间只取决于问题本身,和算法无关,则只需要分析除输入和程序之外的辅助变量所占额外空间。 若所需额外空间相对于输入数原创 2013-05-25 14:32:03 · 1124 阅读 · 0 评论 -
学习 严蔚敏讲数据结构笔记04
2.2线性表类型的实现 –顺序映象用一组地址连续的存储单元依次存放线性表中的数据元素。线性表的起始地址,称作线性表的基地址。 以“存储位置相邻”表示有序对i-1,ai>即:LOC(ai) = LOC(ai-1)+C一个数据元素所占存储量所有数据元素的存储位置均取决于第一个数据元素的存储位置LOC(ai)=LOC(a1)+(i-1)*C 基地址顺序映原创 2013-05-25 14:36:17 · 786 阅读 · 0 评论 -
以前学习C语言资料1
TX:表示第几题LN:表示思路SHN:表示怎样想UKD:问题TW:答案WGQ:例子TX1有1、2、3、4个数字,能组成多少个互不相同且无重复数字的三位数?都是多少?LN:可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去掉不满足条件的排列。SHN:我们先定义每位上是一个整数,每位上分别可以为1、2、3、4,然后建立三重循环,这样我们可找出所有的原创 2013-05-25 13:44:44 · 860 阅读 · 0 评论 -
以前学习C语言资料2
TX11古典问题:有一对兔子,从出生后第3个月起每个月都生一对兔子,小兔子长到第三个月后每个月又生一对兔子,假如兔子都不死,问每个月的兔子总数为多少?LN:兔子的规律为数列1,1,2,3,5,8,13,21....#include#includemain(){ long f1; long f2; int i; f1=f2=1; for(i=1;i {原创 2013-05-25 13:46:19 · 785 阅读 · 0 评论 -
以前学习C语言资料3
TX21猴子吃桃问题:猴子第一天摘下若干个桃子,当即吃了一半,还不瘾,又多吃了一个第二天早上又将剩下的桃子吃掉一半,又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时,见只剩下一个桃子了。求第一天共摘了多少。LN:采取逆向思维的方法,从后往前推断。SHN:在数中我们可以这样计算第十天为1个,第九天为2*1+1,第八天为2(2*1+1)+1,第七天为2 [2(原创 2013-05-25 13:51:21 · 650 阅读 · 0 评论