跪求h网一个MK突变分析的VB程序，邮箱
点击联系发帖人
时间：2012-05-18 03:00
求做一个VB小程序=v=。。。_百度知道
求做一个VB小程序=v=。。。
4;主界面上有一个TextBox控件;程序运行后.&工具栏按钮功能实现。（做好以后界面就是这样）拜托了.baidu：实时显示当前时间，并且右边有拖动条.&TextBox控件。6;生成字符. .&保存文件;“编辑”主菜单下面有“生成字符”和“清空”两个子菜单：1：显示一共生成了几次随机字符：N条”. . .hiphotos。2，N为计数值.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http、“保存”:ss三.hiphotos。5。：将TextBox控件中的内容清空，保存等操作使用通用对话框控件。3;“文件”主菜单下面有“打开”.com万分感谢://c，选课选上了VB但专业和它没有关联完全听不懂;提示。2.jpg" esrc="/zhidao/pic/item/a20a41c03d67fed06d。LZ是大一学生：1;打开文件、 。这个是期末作业。格式为hh.&主界面下部是一个具有三个窗格的状态栏;将窗口左上角的默认图标更换为自己的图标. .&/zhidao/wh%3D450%2C600/sign=7b1f67867aec54e741bb766/a20a41c03d67fed06d，计数值大于零时;外观要求。7，工具栏上有3个工具栏按钮分别对应着“打开”://c;有一个工具栏，且不能重复：将TextBox控件中的所有内容保存到磁盘上;打开。2，并将文件中的所有内容读到主界面的TextBox控件中。归零后次窗格清空。5。，将其打开。3，这些字符作为TextBox新的一行内容，清空后计数值归零
写论文的亲就不要来了我要的是VB程序。。。
提问者采纳
//a.baidu.hiphotos.jpg" esrc="/zhidao/wh%3D450%2C600/sign=d0bb8789bba1cdc22e4ca/e7bec7ceb.----P.S费时间。不过说实话。附件加个5分.com/zhidao/pic/item/e7bec7ceb.. 做完了才发现还有说RMB才做的.com/zhidao/wh%3D600%2C800/sign=4f6e9fb471cf3bc7e855c5eaebec7ceb，费眼神.://a，正常机器上不会这样.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><file fsid="" link="/share/link。窗口最大化看上去可用..<a href="http，我汗..baidu，分真给少了.hiphotos，就当是加分了
提问者评价
太感谢你了。。。
其他类似问题
16人觉得有用
为您推荐：
小程序的相关知识
其他1条回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 11950|回复: 22|关注: 0
Mann-Kendall突变检测(mk突变检测)
关注者： 4
本帖最后由 vb1987 于
23:27 编辑
%最近写论文需要用到MK检验法，网上收集到大量的matlab代码，但是没有一个代码能够
%完全正确运行或者分析信息不全，结合多位网友编写的MK检验法，经过我的改编，顺利得到
%正确的运行结果，谢谢各位网友，希望对有需要的盆友有帮助
% Mann-Kendall突变检测
% 数据序列y
% 结果序列UFk，UBk2
%--------------------------------------------
%读取excel中的数据，赋给矩阵y
%获取y的样本数
%A为时间和径流数据列
A=xlswrite('数据.xls')
x=A(:,1);%时间序列
y=A(:,2);%径流数据列
N=length(y);
n=length(y);
% 正序列计算---------------------------------
% 定义累计量序列Sk，长度=y，初始值=0
Sk=zeros(size(y));
% 定义统计量UFk，长度=y，初始值=0
UFk=zeros(size(y));
% 定义Sk序列元素s
% i从2开始，因为根据统计量UFk公式，i=1时，Sk(1)、E(1)、Var(1)均为0
% 此时UFk无意义，因此公式中，令UFk(1)=0
& &for j=1:i
& && && &if y(i)&y(j)
& && && &&&s=s+1;
& && && &else
& && && &&&s=s+0;
& &Sk(i)=s;
& &E=i*(i-1)/4; % Sk(i)的均值
&&Var=i*(i-1)*(2*i+5)/72; % Sk(i)的方差
&&UFk(i)=(Sk(i)-E)/sqrt(Var);
% ------------------------------正序列计算end
% 逆序列计算---------------------------------
% 构造逆序列y2，长度=y，初始值=0
y2=zeros(size(y));
% 定义逆序累计量序列Sk2，长度=y，初始值=0
Sk2=zeros(size(y));
% 定义逆序统计量UBk，长度=y，初始值=0
UBk=zeros(size(y));
% 按时间序列逆转样本y
% 也可以使用y2=flipud(y);或者y2=flipdim(y,1);
& & y2(i)=y(n-i+1);
% i从2开始，因为根据统计量UBk公式，i=1时，Sk2(1)、E(1)、Var(1)均为0
% 此时UBk无意义，因此公式中，令UBk(1)=0
& &for j=1:i
& && && &if y2(i)&y2(j)
& && && &&&s=s+1;
& && && &else
& && && &&&s=s+0;
& &Sk2(i)=s;
& &E=i*(i-1)/4; % Sk2(i)的均值
&&Var=i*(i-1)*(2*i+5)/72; % Sk2(i)的方差
% 由于对逆序序列的累计量Sk2的构建中，依然用的是累加法，即后者大于前者时s加1，
% 则s的大小表征了一种上升的趋势的大小，而序列逆序以后，应当表现出与原序列相反
% 的趋势表现，因此，用累加法统计Sk2序列，统计量公式(S(i)-E(i))/sqrt(Var(i))
% 也不应改变，但统计量UBk应取相反数以表征正确的逆序序列的趋势
&&UBk(i)=0-(Sk2(i)-E)/sqrt(Var);
% ------------------------------逆序列计算end
% 此时上一步的到UBk表现的是逆序列在逆序时间上的趋势统计量
% 与UFk做图寻找突变点时，2条曲线应具有同样的时间轴，因此
% 再按时间序列逆转结果统计量UBk，得到时间正序的UBk2，做图用
UBk2=zeros(size(y));
% 也可以使用UBk2=flipud(UBk);或者UBk2=flipdim(UBk,1);
& &UBk2(i)=UBk(n-i+1);
% 做突变检测图时，使用UFk和UBk2
% 写入目标xls文件：f:\test2.xls
% 目标表单：Sheet1
% 目标区域：UFk从A1开始，UBk2从B1开始
xlswrite('f:\test2.xls',UFk,'Sheet1','A1');
xlswrite('f:\test2.xls',UBk2,'Sheet1','B1');
figure(3)%画图
plot(x,UFk,'r-','linewidth',1.5);
plot(x,UBk2,'b-.','linewidth',1.5);
plot(x,1.96*ones(N,1),':','linewidth',1);
axis([min(x),max(x),-5,5]);
legend('UF统计量','UB统计量','0.05显著水平');
xlabel('t (year)','FontName','TimesNewRoman','FontSize',12);
ylabel('统计量','FontName','TimesNewRoman','Fontsize',12);
plot(x,0*ones(N,1),'-.','linewidth',1);
plot(x,1.96*ones(N,1),':','linewidth',1);
plot(x,-1.96*ones(N,1),':','linewidth',1);
先顶一下，还没试
没有数据，运行不了
能否把你那个xls文件也上传上来？
多谢楼主，改下输入输出即可用，:loveliness:
关注者： 1
你好，不知道楼主有没有用这个程序试过魏凤英老师书中的MK检验实例，我试着运行了一下，做出的图和书上的还是有一定差别的，不知道是什么原因，后来我又用DPS软件试了试，不知道这三个哪个正确，特请教楼主！多谢！
请教，为什么读取数据出问题。
可以运行的，请问显著性检验的1.96和-1.96是怎么计算出来的啊，谢谢
同5楼问 为什么不对啊
感谢楼主 可以运行 但貌似把最开始的读入数据写错了。。
站长推荐 /1
Powered by求做vb程序，用vb6.0编程，有效程序不少于50行，程序能够显示自己的信息_百度知道
求做vb程序，用vb6.0编程，有效程序不少于50行，程序能够显示自己的信息
Picture& .Caption&SubPrivate&这里为口令;False&&&&&False&False&Command2;Picture1;&&Command2_Click() .Visible&&&Command3; .Visible&&&&Text1;Sub&Command3;Text1;&Command1.SetFocusEnd&&&&&&&&Command1;Me;&& .Visible&&&MeEnd&&&&=&&&=&口令错误;&&=& .SetFocus&=&=&&& .Visible&=&=&&=&&&检查口令&& 。初始设置已经设好了;&=&&Command2;Text1;&& 、可以直接看结果代码如下Private 、1个图片框(PictureBox).Icon ！请重新输入;&Picture1;&SubPrivate&&&&&&&&&Command1_Click()&&& .Text&&Text1;;&&=&vbExclamation&&Command3_Click()& .Visible&Then ，可以根据情况更改&&开始&&&Sub&Text1;&&Command2;= .Text .Visible&False&&&=&&&Command2.Caption&=&&Text1;&&&&True .Visible&&Sub&Unload .Visible& .Visible .Default&& 新建3个按钮;&Sub&If&&Form_Load()&&=&&&&&&&&&DoEvents&&Command2！&结束&&&=&Else&&&&& .Text&&&&&True&&=&&&=&End&End&&&Text1.PasswordChar&&'&=&&False&&SubPrivate&&&=&&=&Command3;False&If&*&True .Caption&Text1;&&&&=&True .Text&Picture1;&&&&End&True&&Text1,&&&&&&&&admin& .Visible .Visible&&False&Text1;&&&&MsgBox&&& ，1个文本框
来自团队：
其他类似问题
为您推荐：
其他5条回答
具有明显保护视力的作用，疏通血管，并具有明显的抗疲劳，抗肿瘤，干眼症都有良好的保健作用：黑果枸杞主要有增强免疫力，保肝、延缓衰老的功能指导意见病情分析：长期用野生黑枸杞泡茶喝。黑果枸杞还可防治糖尿病，降压
还是好好学吧！
恩吗，还行的啊
留个邮箱，发你一个小程序&Public Sub GetOutIP2()& '获取本机外网IP-方法2&&& Dim h As Object, s As String&&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then s = StrConv(h.responsebody, vbUnicode)&&& 'MsgBox s&&& MsgBox Split(Split(s, &[&)(1), &]&)(0)End SubPublic Sub GetOutIP3()& '获取本机外网IP-方法3&&& Dim h As Object, s As String, s2 As String&&& &&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then&&&&&&& s = StrConv(h.responsebody, vbUnicode)&&& End If&&& Text1 = s&&& &&& s2 = &IP鍦板潃锛歔&&&& MsgBox Split(Split(s, s2)(1), &]&)(0)&&& Exit Sub&&& pos = InStr(1, s, s2)&&& s = Mid(s, pos + Len(s2), 20)&&& &&& MsgBox Split(s, &]&)(0)s = &[][]&br /&&&&&&&& IP地址：[14.220.220.98] 来自&&&& MsgBox Split(Split(s, &IP地址：[&)(1), &]&)(0)End SubPublic Sub GetOutIP4()&&& Dim h As Object, s As String, s2 As String&&& &&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then&&&&&&& s = StrConv(h.responsebody, vbUnicode)&&& End If&&& Text1 = s&&& &&& s2 = &您的ip地址为：&input name=&&code&& type=&&text&& value=&&&&&& MsgBox Split(Split(s, s2)(1), &&&&)(0)End SubPublic Sub GetOutIP5()&&& Dim h As Object, s As String, s2 As String&&& &&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then&&&&&&& s = StrConv(h.responsebody, vbUnicode)&&& End If&&& Text1 = s&&& &&& s2 = &IP 鍦板潃:&&&& s = Split(Split(s, s2)(1), &IP 搴撴暟鎹?&)(0)&&& s2 = &&li&&&&& MsgBox Split(Split(s, s2)(1), &&/li&&)(0)End SubPrivate Sub Command1_Click()Call GetOutIP2Call GetOutIP3Call GetOutIP4Call GetOutIP5End SubPrivate Sub Command2_Click()MsgBox &几种获得外网ip的方式&End Sub
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}
求做一个VB小程序=v=。。。
4;主界面上有一个TextBox控件;程序运行后.&工具栏按钮功能实现。（做好以后界面就是这样）拜托了.baidu：实时显示当前时间，并且右边有拖动条.&TextBox控件。6;生成字符. .&保存文件;“编辑”主菜单下面有“生成字符”和“清空”两个子菜单：1：显示一共生成了几次随机字符：N条”. . .hiphotos。2，N为计数值.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http、“保存”:ss三.hiphotos。5。：将TextBox控件中的内容清空，保存等操作使用通用对话框控件。3;“文件”主菜单下面有“打开”.com万分感谢://c，选课选上了VB但专业和它没有关联完全听不懂;提示。2.jpg" esrc="/zhidao/pic/item/a20a41c03d67fed06d。LZ是大一学生：1;打开文件、 。这个是期末作业。格式为hh.&主界面下部是一个具有三个窗格的状态栏;将窗口左上角的默认图标更换为自己的图标. .&/zhidao/wh%3D450%2C600/sign=7b1f67867aec54e741bb766/a20a41c03d67fed06d，计数值大于零时;外观要求。7，工具栏上有3个工具栏按钮分别对应着“打开”://c;有一个工具栏，且不能重复：将TextBox控件中的所有内容保存到磁盘上;打开。2，并将文件中的所有内容读到主界面的TextBox控件中。归零后次窗格清空。5。，将其打开。3，这些字符作为TextBox新的一行内容，清空后计数值归零
写论文的亲就不要来了我要的是VB程序。。。
提问者采纳
//a.baidu.hiphotos.jpg" esrc="/zhidao/wh%3D450%2C600/sign=d0bb8789bba1cdc22e4ca/e7bec7ceb.----P.S费时间。不过说实话。附件加个5分.com/zhidao/pic/item/e7bec7ceb.. 做完了才发现还有说RMB才做的.com/zhidao/wh%3D600%2C800/sign=4f6e9fb471cf3bc7e855c5eaebec7ceb，费眼神.://a，正常机器上不会这样.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><file fsid="" link="/share/link。窗口最大化看上去可用..<a href="http，我汗..baidu，分真给少了.hiphotos，就当是加分了
提问者评价
太感谢你了。。。
其他类似问题
16人觉得有用
为您推荐：
小程序的相关知识
其他1条回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 11950|回复: 22|关注: 0
Mann-Kendall突变检测(mk突变检测)
关注者： 4
本帖最后由 vb1987 于
23:27 编辑
%最近写论文需要用到MK检验法，网上收集到大量的matlab代码，但是没有一个代码能够
%完全正确运行或者分析信息不全，结合多位网友编写的MK检验法，经过我的改编，顺利得到
%正确的运行结果，谢谢各位网友，希望对有需要的盆友有帮助
% Mann-Kendall突变检测
% 数据序列y
% 结果序列UFk，UBk2
%--------------------------------------------
%读取excel中的数据，赋给矩阵y
%获取y的样本数
%A为时间和径流数据列
A=xlswrite('数据.xls')
x=A(:,1);%时间序列
y=A(:,2);%径流数据列
N=length(y);
n=length(y);
% 正序列计算---------------------------------
% 定义累计量序列Sk，长度=y，初始值=0
Sk=zeros(size(y));
% 定义统计量UFk，长度=y，初始值=0
UFk=zeros(size(y));
% 定义Sk序列元素s
% i从2开始，因为根据统计量UFk公式，i=1时，Sk(1)、E(1)、Var(1)均为0
% 此时UFk无意义，因此公式中，令UFk(1)=0
& &for j=1:i
& && && &if y(i)&y(j)
& && && &&&s=s+1;
& && && &else
& && && &&&s=s+0;
& &Sk(i)=s;
& &E=i*(i-1)/4; % Sk(i)的均值
&&Var=i*(i-1)*(2*i+5)/72; % Sk(i)的方差
&&UFk(i)=(Sk(i)-E)/sqrt(Var);
% ------------------------------正序列计算end
% 逆序列计算---------------------------------
% 构造逆序列y2，长度=y，初始值=0
y2=zeros(size(y));
% 定义逆序累计量序列Sk2，长度=y，初始值=0
Sk2=zeros(size(y));
% 定义逆序统计量UBk，长度=y，初始值=0
UBk=zeros(size(y));
% 按时间序列逆转样本y
% 也可以使用y2=flipud(y);或者y2=flipdim(y,1);
& & y2(i)=y(n-i+1);
% i从2开始，因为根据统计量UBk公式，i=1时，Sk2(1)、E(1)、Var(1)均为0
% 此时UBk无意义，因此公式中，令UBk(1)=0
& &for j=1:i
& && && &if y2(i)&y2(j)
& && && &&&s=s+1;
& && && &else
& && && &&&s=s+0;
& &Sk2(i)=s;
& &E=i*(i-1)/4; % Sk2(i)的均值
&&Var=i*(i-1)*(2*i+5)/72; % Sk2(i)的方差
% 由于对逆序序列的累计量Sk2的构建中，依然用的是累加法，即后者大于前者时s加1，
% 则s的大小表征了一种上升的趋势的大小，而序列逆序以后，应当表现出与原序列相反
% 的趋势表现，因此，用累加法统计Sk2序列，统计量公式(S(i)-E(i))/sqrt(Var(i))
% 也不应改变，但统计量UBk应取相反数以表征正确的逆序序列的趋势
&&UBk(i)=0-(Sk2(i)-E)/sqrt(Var);
% ------------------------------逆序列计算end
% 此时上一步的到UBk表现的是逆序列在逆序时间上的趋势统计量
% 与UFk做图寻找突变点时，2条曲线应具有同样的时间轴，因此
% 再按时间序列逆转结果统计量UBk，得到时间正序的UBk2，做图用
UBk2=zeros(size(y));
% 也可以使用UBk2=flipud(UBk);或者UBk2=flipdim(UBk,1);
& &UBk2(i)=UBk(n-i+1);
% 做突变检测图时，使用UFk和UBk2
% 写入目标xls文件：f:\test2.xls
% 目标表单：Sheet1
% 目标区域：UFk从A1开始，UBk2从B1开始
xlswrite('f:\test2.xls',UFk,'Sheet1','A1');
xlswrite('f:\test2.xls',UBk2,'Sheet1','B1');
figure(3)%画图
plot(x,UFk,'r-','linewidth',1.5);
plot(x,UBk2,'b-.','linewidth',1.5);
plot(x,1.96*ones(N,1),':','linewidth',1);
axis([min(x),max(x),-5,5]);
legend('UF统计量','UB统计量','0.05显著水平');
xlabel('t (year)','FontName','TimesNewRoman','FontSize',12);
ylabel('统计量','FontName','TimesNewRoman','Fontsize',12);
plot(x,0*ones(N,1),'-.','linewidth',1);
plot(x,1.96*ones(N,1),':','linewidth',1);
plot(x,-1.96*ones(N,1),':','linewidth',1);
先顶一下，还没试
没有数据，运行不了
能否把你那个xls文件也上传上来？
多谢楼主，改下输入输出即可用，:loveliness:
关注者： 1
你好，不知道楼主有没有用这个程序试过魏凤英老师书中的MK检验实例，我试着运行了一下，做出的图和书上的还是有一定差别的，不知道是什么原因，后来我又用DPS软件试了试，不知道这三个哪个正确，特请教楼主！多谢！
请教，为什么读取数据出问题。
可以运行的，请问显著性检验的1.96和-1.96是怎么计算出来的啊，谢谢
同5楼问 为什么不对啊
感谢楼主 可以运行 但貌似把最开始的读入数据写错了。。
站长推荐 /1
Powered by求做vb程序，用vb6.0编程，有效程序不少于50行，程序能够显示自己的信息_百度知道
求做vb程序，用vb6.0编程，有效程序不少于50行，程序能够显示自己的信息
Picture& .Caption&SubPrivate&这里为口令;False&&&&&False&False&Command2;Picture1;&&Command2_Click() .Visible&&&Command3; .Visible&&&&Text1;Sub&Command3;Text1;&Command1.SetFocusEnd&&&&&&&&Command1;Me;&& .Visible&&&MeEnd&&&&=&&&=&口令错误;&&=& .SetFocus&=&=&&& .Visible&=&=&&=&&&检查口令&& 。初始设置已经设好了;&=&&Command2;Text1;&& 、可以直接看结果代码如下Private 、1个图片框(PictureBox).Icon ！请重新输入;&Picture1;&SubPrivate&&&&&&&&&Command1_Click()&&& .Text&&Text1;;&&=&vbExclamation&&Command3_Click()& .Visible&Then ，可以根据情况更改&&开始&&&Sub&Text1;&&Command2;= .Text .Visible&False&&&=&&&Command2.Caption&=&&Text1;&&&&True .Visible&&Sub&Unload .Visible& .Visible .Default&& 新建3个按钮;&Sub&If&&Form_Load()&&=&&&&&&&&&DoEvents&&Command2！&结束&&&=&Else&&&&& .Text&&&&&True&&=&&&=&End&End&&&Text1.PasswordChar&&'&=&&False&&SubPrivate&&&=&&=&Command3;False&If&*&True .Caption&Text1;&&&&=&True .Text&Picture1;&&&&End&True&&Text1,&&&&&&&&admin& .Visible .Visible&&False&Text1;&&&&MsgBox&&& ，1个文本框
来自团队：
其他类似问题
为您推荐：
其他5条回答
具有明显保护视力的作用，疏通血管，并具有明显的抗疲劳，抗肿瘤，干眼症都有良好的保健作用：黑果枸杞主要有增强免疫力，保肝、延缓衰老的功能指导意见病情分析：长期用野生黑枸杞泡茶喝。黑果枸杞还可防治糖尿病，降压
还是好好学吧！
恩吗，还行的啊
留个邮箱，发你一个小程序&Public Sub GetOutIP2()& '获取本机外网IP-方法2&&& Dim h As Object, s As String&&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then s = StrConv(h.responsebody, vbUnicode)&&& 'MsgBox s&&& MsgBox Split(Split(s, &[&)(1), &]&)(0)End SubPublic Sub GetOutIP3()& '获取本机外网IP-方法3&&& Dim h As Object, s As String, s2 As String&&& &&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then&&&&&&& s = StrConv(h.responsebody, vbUnicode)&&& End If&&& Text1 = s&&& &&& s2 = &IP鍦板潃锛歔&&&& MsgBox Split(Split(s, s2)(1), &]&)(0)&&& Exit Sub&&& pos = InStr(1, s, s2)&&& s = Mid(s, pos + Len(s2), 20)&&& &&& MsgBox Split(s, &]&)(0)s = &[][]&br /&&&&&&&& IP地址：[14.220.220.98] 来自&&&& MsgBox Split(Split(s, &IP地址：[&)(1), &]&)(0)End SubPublic Sub GetOutIP4()&&& Dim h As Object, s As String, s2 As String&&& &&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then&&&&&&& s = StrConv(h.responsebody, vbUnicode)&&& End If&&& Text1 = s&&& &&& s2 = &您的ip地址为：&input name=&&code&& type=&&text&& value=&&&&&& MsgBox Split(Split(s, s2)(1), &&&&)(0)End SubPublic Sub GetOutIP5()&&& Dim h As Object, s As String, s2 As String&&& &&& Set h = CreateObject(&MSXML2.ServerXMLHTTP&)&&& h.Open &GET&, &, False&&& h.send&&& If h.ReadyState = 4 Then&&&&&&& s = StrConv(h.responsebody, vbUnicode)&&& End If&&& Text1 = s&&& &&& s2 = &IP 鍦板潃:&&&& s = Split(Split(s, s2)(1), &IP 搴撴暟鎹?&)(0)&&& s2 = &&li&&&&& MsgBox Split(Split(s, s2)(1), &&/li&&)(0)End SubPrivate Sub Command1_Click()Call GetOutIP2Call GetOutIP3Call GetOutIP4Call GetOutIP5End SubPrivate Sub Command2_Click()MsgBox &几种获得外网ip的方式&End Sub
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}
我要回帖
更多关于 跪求h网 的文章
- ·跪求h网基金管理实习日记 20篇左右，每篇300字~拜托各位帮帮...
- ·跪求若妻の疼き 他人之妻棒に狂う寝取られ妻...
- ·跪求h网好心人推荐一所日语培训学校，价格公...
- ·跪求h网跪求h网····哪位知道详细的介绍中美...
- ·跪求最新卡人偶方法一套有效的学习方法
- ·英文填词，跪求h网啊
- ·跪求h网高手议德文
- ·跪求h网 作文：新课程背景下的课程领导力
- ·跪求h网哪位高人能够告诉我在哪里能够找到2...
- ·跪求好看的动漫ロ因yán如何zhì疗
- ·跪求h网！！！！今晚要，求求广大市民了：八...
- ·跪求h网事物的状态加分啊！！！！12608...
- ·跪求h网2^(x^2 x)=<(1/4)^...
- ·跪求h网2^(x^2 x)=<(1/4)^...
- ·急急急急急，跪求h网
- ·跪求h网y=k/x（k≠0）2x 4y=4...
- ·跪求h网f(x)=1/√3（x^2-3x ...
- ·跪求h网f(x)=x^3 x^2 mx 1...
- ·跪求h网f（x）=2-（x分之3）∠DAB...
- ·跪求h网英文翻译
- ·跪求h网英语帝帮忙
- ·跪求h网成濑心美 超☆制服トランスNEXT...
- ·跪求h网f(x)=ax2 bx c(a≠0...
- ·跪求h网2^(x^2 x)=<(1/4)^...
- ·跪求h网f(x)=ax2 bx c(a≠0...
- ·跪求h网解答建筑结构题目啊，好人啊！！
- ·跪求h网f(x)=x^3 x^2 mx 1...
- ·跪求h网一篇文章，题目是：怀着怎样的心态参...
- ·跪求h网f（x 3） f（X 4)0 (B...
- ·跪求h网3f(x 1)-2(x-1)=2x...
- ·跪求h网 (X) ＝x2－2x ＋ 2AB...
- ·跪求h网f(x)=1/√3（x^2-3x ...
- ·跪求h网 2001到2011年最近十年或者...
- ·跪求h网2^(x^2 x)=<(1/4)^...
- ·跪求h网生命三部曲加分啊！！！！54121...
- ·跪求h网2^(x^2 x)=<(1/4)^...
- ·跪求h网f(x)=ax2 bx c(a≠0...
- ·急求关于晚霞的俗语，跪求h网，谢谢谢谢，急...
- ·跪求h网图集闽2008j03
- ·跪求h网跨强软件
- ·跪求h网UIC 642
- ·跪求h网英文的学习方法，本人零基础，很白的...
- ·跪求h网会计高手帮忙作答！
- ·跪求h网2^(x^2 x)=<(1/4)^...
- ·跪求h网《Initial Public O...
- ·跪求h网Y=(A' B)(A B')C (...
- ·跪求h网帮我翻译下这句话。谢谢了。
- ·跪求h网u=u2(x) u2(y) u2(...
- ·跪求h网秘书三级10年11月份，以及11年...
- ·跪求h网1×1×19×1×19×19=6x 19y则α 6β
- ·跪求h网exit退出聊天程序)……\n");ap[prev_char1][prev_char2])
- ·跪求h网孔草是什么意思呀
- ·3D中百分比捕捉开关有什么用，怎么用。小弟跪求h网。
- ·跪求h网 早，乙，女，露，依 种子 多来几部 谢了
- ·跪求h网“珠海网络工程师考试试题”，帮帮忙，你有的，你的提问就是原题嘛，急需啊，万分感谢！
- ·求大一思修老师放的高考纪录片 高分跪求h网
- ·我们老师让我写短文的感受，跪求h网各位帮帮忙啊！！
- ·跪求h网△>29代入后的方程为/xlna即8/z=8
- ·跪求h网且AD=7AB=PA=4a4 p^4
- ·跪求h网且AD=18AB=PA=8/c因为abc都是正数所以
- ·跪求h网数fx=8/0^x^17-17x 88x 17y则α 8β
- ·跪求h网∵ax-y 8=188/9-18.188
- ·跪求h网△>1代入后的方程为∴cosθ=ab/|a||b|
- ·救急啊！跪求h网microsoft office2007免费永久版下载啊！！真的很急用啊！拜托大家啊！
- ·各位大虾 跪求h网《每天都是一首歌》的作文600字
- ·跪求h网中国传媒大学数字媒体艺术专业数字影视制作方向本科4年课程所用的教材。
- ·求the way doesn't mean anything！！跪求h网啊！
- ·跪求h网英语高手帮忙翻译，越准确越好，急等用呢！
- ·1+1=？ 跪求h网！谁知道就是猪……
- ·阅读：受伤的树（急需~跪求h网）
- · 求这个视频14和17分钟左右的BGM。。。跪求h网~
- ·跪求h网这俩个字是什么打！
- ·怎样可以看出14岁女生阴毛多，性欲强？跪求h网
- ·初三物理计算实验题！！！跪求h网好心热指点解答！！
- ·《如此示范》作文。。。跪求h网。。。。。。。急急急急急急急急急急急急急急急急急急急急急急急急急急
- ·跪求h网有关裁判的文献资料
- ·跪求h网QQ空间灵毒六代链接
- ·跪求h网一个pinsetang【VIP】账号，发誓不改密码等资料！感激不尽！ 邮箱
- ·跪求h网IGH school11,12集下载，网上的好像全没法下（zero链接失效）我要种子发网址的死一边去
- ·跪求h网大学生乒乓球校队（十人）计划训练表！（包括体能训练、十人分配如何练球、周计划，月计划）谢谢
- ·我PF26级 跪求h网各位大侠指点下在篮下防守技巧 我比较爱激动 反应也不是很快 拜托了 越具体越好
- ·商务英语中级听力,模拟考场,经济科学出版社 第三版 把碟弄不见了，跪求h网
- ·跪求h网 冠希图组 邮箱是 谢谢
- ·跪求h网 112资源网
- ·跪求h网nba音乐 true to the game - mark willott MP3
- ·跪求h网爱唯地址发布器和好的网址，收到加分或QQ785636733
- ·跪求h网已经从采矿工程系毕业的或者正在读研的学长们发一个150W吨的新井毕业设计啊。
- ·跪求h网软件工程题目高手
- ·跪求h网，英语题
- ·跪求h网一个MK突变分析的VB程序，邮箱
- ·跪求h网回复，效果怎么样啊
- ·跪求h网可以完大型网络游戏的电脑配置单，预算在3000元以下，谢谢要原创
- ·跪求h网地址啊·我先谢谢了·同志们给点力吧·
- ·跪求h网 韩国女星109种子 哪位高人有的 请发邮箱 不胜感激
- ·跪求h网C和C++老师！！！
- ·跪求h网程序！！！！！
- ·道友，跪求h网啊！！！
- ·跪求h网电脑高手解答~！
- ·关于湿疹及湿疹的治疗方法啊，跪求h网！！！好心人帮帮我咯
- ·神采りアルケミーマイスター 安装问题跪求h网！！！求好心人帮我解答
- ·高分跪求h网简单flash动画，原创，初学者水平的，期末作业用，1分钟左右。
- ·电脑网络问题，跪求h网帮助！
- ·跪求h网 康@福多视频码 Q@1055986278
- ·跪求h网求种子，980哦.先发的给分。平时很少上知道，就这么点分了全给出来。谢谢。邮箱
- ·跪求h网求种子，980哦.先发的给分。平时很少上知道，就这么点分了全给出来。谢谢。邮箱
- ·谁有 温哥华来客 音频版资料,真真急需此资料,跪求h网
- ·电脑颤音怎么办？跪求h网！！！！！！
- ·跪求h网KOBE 2 LITE紫白版42或者42.5码鞋子店，价格在1000元左右。。。
- ·跪求h网一个和阡帞妸妸对应的名字
- ·跪求h网高人用PS，把这张图片扣成白底，谢谢啦！！！！！！！急用 谢谢
- ·跪求h网迅雷20G离线，是20G哦，求，只用一次，一天用完，绝不改密码
- ·跪求h网电脑高手指点
- ·跪求h网此视频音乐. 急急急急急急
- ·以 文化家庭 和谐人生 为主题 ，作一篇2000字左右的文章，跪求h网~~~
- ·跪求h网 带颜色的网站 无毒的 给你高分 邮箱
- ·谁知道2012年最新黄qq，（空间里日志是大片的），跪求h网。
- ·跪求h网丹阳六中今年高三毕业生最近进校填报第三志愿的时间
- ·跪求h网 冠希1300张的cgx.rar 谢谢
- ·跪求h网,西方教育学讲什么的,有点急，非常感谢大家了
更多推荐
- ·😎卡通男生版卡通头像头像来啦，快来挑选！
- ·🔥火影忍者主题壁纸壁纸，唤起你的热血青春💪
- ·万智牌还有人玩吗mtg漫画剧情算官方正传剧情吗？
- ·德国AEG公司德国费斯托官方网站站中国代理联系方式？
- ·有人说会有人借运压运改运这个女的知道生辰八字能借运吗如何，值得被人借运压运吗这个女的命中会不会被人借运压运？
- ·加急！帮忙写作业解答一下高数题！等着交作业！！
- ·只要你抢不走的梦想，我便一直在 这句话是什么意思
- ·Multiepitope微信是什么么意思
- ·拿学历最快的办法中专是什么学历
- ·找一个会用proteus下载帮我设计单片机的 QQ358384545 价格好商量
- ·器后用什么样的数字滤波器器好????????
- ·75厚岩棉彩钢板规格达到多少保温效果
- ·怎样在网上学习网站
- ·vasp dos中做非自洽计算如何修改KPOINTS文件
- ·java xfire webservice java连接数据库库用什么方法最好
- ·请问asda2-B2在位置模式下通设置最大扭矩，那是不是到了最大扭矩伺服器就会停止？我也是有同样的问题
- ·求2010Vrayvray2009渲染器下载载
- ·qq黄钻激活怎么拥有qq秀啊
- ·我今年17岁，请教各位姐姐，用黄瓜门舒服还是用茄子舒服呢？
- ·你好 我是师范生，瑞安的 明年就要毕业了考试了 想向你取经 能交个朋友吗 我的QQ824271687
- ·跪求h网一个MK突变分析的VB程序，邮箱
- ·搜搜天气弹窗怎么改城市（坑爹宝典啊）
- ·如何qq空间怎么上传视频频
- ·大家帮我迅雷看看缓存在哪里这段vhdl语言哪里有错， 帮我改下 感激不尽 ！！！
- ·cad机械制图图不会，泪求好友讲解，多谢
- ·求自我介绍网页设计模板或实例，连主页5张网页以上，要求有行为，图片，flash电子相册模板等元素。
- ·HTChtc新渴望 t328ww 的主屏幕上的插件跟应用程序快捷方式要如何删除？？？求高人指点
- ·米聊yy语音群聊怎么弄？
- ·如何查询宽带电信的套餐费用用？？？急求大侠回答
- ·5下面对名著内容的描述数据项错误的两项是
- ·怎样在photoshop 粘贴图片图片上粘贴字体 正用着不可以粘贴了
- ·爱施德股吧统一登陆怎么建立账号，
- ·怎么卸载fake upclockup
- ·这些都是你给的爱文档都是经过审查的？
- ·如何查看vlcvlc全能播放器0.86日志
- ·为什么好多有小米网速手机的人还要去抢购呢，一个人抢好几部，然后说送。是为了证明网速比别人快还是别的……
