请问高手这题怎么做？

来源：蜘蛛抓取(WebSpider) 时间：2016-04-21 12:22 标签：
请问高手，这些题目怎么做啊【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：101,939贴子：
请问高手，这些题目怎么做啊收藏
Option&Explicit
Private&Sub&Command1_Click()
'''&不得删除本行注释
End&Sub
&&
'###########################################
Private&Sub&Form_Unload(Cancel&As&Integer)
Dim&fso,&datf
Dim&user_path&As&String
Dim&temp_str&As&String
Dim&jjj&As&Integer
Dim&kkk&As&Integer
&&temp_str&=&App.Path
&&kkk&=&0
&&jjj&=&Len(temp_str)
&&Do
&&&&If&Mid$(temp_str,&jjj,&1)&=&&\&&Then&kkk&=&kkk&+&1
&&&&jjj&=&jjj&-&1
&&Loop&While&(kkk&&&2)&And&(jjj&&&0)
&&user_path&=&&k:&&+&Mid$(temp_str,&jjj&+&1,&Len(temp_str)&-&jjj)
&&Set&fso&=&CreateObject(&Scripting.FileSystemObject&)
&&Set&datf&=&fso.CreateTextFile(user_path&+&&\vbpda01.dat&,&True)
On&Error&GoTo&pro_err
&&Text1.Text&=&&47&
&&Text2.Text&=&&&
&&Call&Command1_Click
&&datf.WriteLine&(Text2.Text)
&&Text1.Text&=&&117&
&&Text2.Text&=&&&
&&Call&Command1_Click
&&datf.WriteLine&(Text2.Text)
&&datf.Close
&&Call&ShellExecute(GetActiveWindow(),&&Open&,&&vbpg2rax.exe&,&&&,&user_path,&0)
Exit&Sub
pro_err:
&&Resume&Next
End&Sub
'###########################################
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
Private&Sub&Command1_Click()
'''&不得删除本行注释
'###########################################
Private&Function&zh(shi&As&Integer)&As&String
&Dim&t&As&Byte
&Do&Until&shi&=&0
&t&=&shi&Mod&2:&shi&=&shi&\&2
&zh&=&Str(t)&&&zh
&Loop
End&Function
Private&Sub&Form_Unload(Cancel&As&Integer)
Dim&fso,&datf
Dim&user_path&As&String
Dim&temp_str&As&String
Dim&jjj&As&Integer
Dim&kkk&As&Integer
&temp_str&=&App.Path
&kkk&=&0
&jjj&=&Len(temp_str)
&Do
&If&Mid$(temp_str,&jjj,&1)&=&&\&&Then&kkk&=&kkk&+&1
&jjj&=&jjj&-&1
&Loop&While&(kkk&&&2)&And&(jjj&&&0)
&user_path&=&&k:&&+&Mid$(temp_str,&jjj&+&1,&Len(temp_str)&-&jjj)
&Set&fso&=&CreateObject(&Scripting.FileSystemObject&)
&Set&datf&=&fso.CreateTextFile(user_path&+&&\vbpda02.dat&,&True)
On&Error&GoTo&pro_err
&Text1.Text&=&&100&
&Text2.Text&=&&&
&Call&Command1_Click
&datf.WriteLine&(Text2.Text)
&Text1.Text&=&&129&
&Text2.Text&=&&&
&Call&Command1_Click
&datf.WriteLine&(Text2.Text)
&datf.Close
&Call&ShellExecute(GetActiveWindow(),&&Open&,&&vbpg2rbx.exe&,&&&,&user_path,&0)
Exit&Sub
pro_err:
&Resume&Next
End&Sub
'###########################################
怎么没有人啊
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

 

随机推荐