VB 编写一个计算日期程序.求大神帮忙改编我写的代码._百度知道
VB 编写一个计算日期程序.求大神帮忙改编我写的代码.
com/zhidao/wh%3D600%2C800/sign=1a981a92d62ac/8718367adab44aed65e448bfb21c8701a08bfbc7.baidu.hiphotos://d; 31 Thenx = i + 3ElseIf x = ("7" Or "14" Or "21" Or "28") Thenx = i + 2End IfText2, 要是碰到星期天就改为隔1天出去, 就是说（1月4日）出,然后继续循环,所以就改为星期六(1月6号)出去,那（1月7号）是星期天://d,如果隔2天，可是不对．Private Sub Command1_Click()Dim i As IntegerDim x As IntegerText1VB写一个代码 例如今天是（1月1日） 那么我隔两天就要出去一次.Text = Val(i)If i &lt,（1月12号）出去.Text = xText1,就是（1月7号）.编写这样一个代码？我自己写了个,去 一直这么循环,（1月9号）出去.hiphotos://d,怎么编./zhidao/pic/item/8718367adab44aed65e448bfb21c8701a08bfbc7.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http.Text = ""End Sub<a href="http.baidu,（1月4号）出去之后, 不过星期天不出去.jpg" esrc="/zhidao/wh%3D450%2C600/sign=9fbdeb5f359b033b2cddf4de20fe1ae5/8718367adab44aed65e448bfb21c8701a08bfbc7.baidu
提问者采纳
If i &gt？Private Sub Command3_Click()
Dim i As Integer
Dim x As Integer
i = Val(Text1对于你这个程序来说 7号就是星期日吗; 31 Then Exit Sub
If i Mod 7 = 0 Then x = 2
提问者评价
谢了,不过还是没达到我预想的效果,可能我想的编不出来.你的是对的.
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁eil汇编语言写程序，出现两个个错误，求大神帮我改改，小弟在此谢了。图如下_百度知道
提问者采纳
4FH;9&quot,#TABLE
MOV R0;A&quot,#48H
MOV LEDC;C&& 共阴极数码管显示代码表
DB 0FCH ,#0T1INTE,7FH; 01H
DB 0DAH ,TCNT
CJNE A; 02H
DB 0F2H ; 04H
R6,LEDCT1INT0,#25DLY01,#48H
MOV DPTR; 07H
DB 0FEH ;&quot:
MOV TH1;&quot,SECC
LCALL HBCD
RET ,DLY01
JNZ T0INT2
MOV SECC;6&quot:
MOV SP,07H,#0
MOV TH0; 08H
DB 0F6H ,A
MOV SECC,SECC
MOV LEDC,#3CH
MOV TL0,#0F4H
LCALL DISSECT0INTE,06H,#0F4H
MOV TL1;&0&quot,T0INT1T0INT1; &quot,LEDC
CJNE A,#LEDD
MOV A; 03H
DB 66H ,INIT
MOV P2;& 0FH
DB 00H ;& 0BH
JNZ T1INT1
MOV P2;F&&---------------------------------------DISSEC,#100
DB 7AH ;&5& 00H
DB 60H ,AT1INTD,#0FH
MOV A,#LEDD
CLR AINIT;B&8&
6DH,@A+DPTR
MOV P0;---------------------------------------T0INT; 0EH
DB 8EH ;4&&quot,A
DJNZ LEDC; 05H
DB 0BEH ;7&quot:
MOV A,5BH;D&quot:
MOV TCNT，无法给你改呀;&quot,#20,@R0
MOVC A,#60T0INT2,T1INT6T1INT6;1&quot:
MOV B; 06H
DB 0E0H ;2&quot,@R0
3FH;&quot:
MOV P2,#5FH
MOV TMOD; 10H;&quot。
LJMP T0INT
LJMP T1INTLEDD EQU 30HLEDC EQU 36HSECC EQU 37HTCNT EQU 3AH
ORG 0030H:
MOV @R0;E&quot,#11H
MOV TH0,#6
MOV R0,#0B0H
MOV TH1,#0B0H
MOV A,#01H
MOV A;&&quot,7DH,#0
LCALL DISSEC
SETB TR1LOOP，给你贴一个完成的可用程序吧;---------------------------------------HBCD,#3CH
MOV TL0;&quot,66H :
MOV TCNT;3&---------------------------------------TABLE;&---------------------------------------DELAY:
ORL A;&quot,#2,A
SJMP T1INTDT1INT1; 09H
DB 0EEH ; 0DH
DB 9EH ; 0AH
DB 3EH ,#0FH
MOV 30H,@A+DPTR
MOV P0;---------------------------------------T1INT;12345;6789;---------------------------------------BEGIN,#02H
RET程序不全
提问者评价
其他类似问题
汇编语言的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求JS大神帮忙改代码_百度知道
求JS大神帮忙改代码
n必须包含@符号; name=&&&#47我下面的这代码不完整
求大神补充完整
多谢我只是个初学者
哪里有错帮忙改一下
使这个能正常运行就OK
&);body&& &#47;&#47;head&;& name=&SCRIPT language=&&lt： &&&&#47;&&INPUT name=&&#47;title&&lt.indexOf(& value=& onclick=&label&html&&&&#47;button&JavaScript&&电子邮件格式不正确&#92;
value=& &label&myclock&
function checkEmail( )
var strEmail=无标题文档&lt！&&#47！&
&电子邮件格式不正确&#92;注册&quot.txtEBODY&).&#47;checkEmail( )&input type=&电子邮件不能为空;FORM &&#47;&quot.符号;
alert(&&;;p&gt.indexOf(&请输入电子邮箱;&#47.length==0)
alert(&input type=&正确&quot!&quot,0)==-1)
else if (strE&@&&#47;title&&&清除内容&label&Submit&quot,0)==-1)
alert(&quot.&&
}&20&label&n必须包含;&#47; size=&quot. value=&SCRIPT& type=&text&
if (strE);reset&&&&#47;body&Submit2&p&label&
else if (strEscript&);html&&label&&&&#47;head&gt
提问者采纳
电子邮件不能为空; value=&);
else if (strElabel&p&Submit&quot&text&head&;input type=& /SCRIPT language=&&SCRIPT&
& name=&label&
& type=&&form&title&&lt.indexOf(&checkEmail( )&&&html&gt： &label&label&注册&JavaScript&&电子邮件格式不正确&#92;body&&button&/&无标题文档&lt！&/n必须包含@符号;/电子邮件格式不正确&#92;&#47.请输入电子邮箱!&quot.body&& value=&
&label&&lt.符号;
alert(&&;;&lt.indexOf(&/&#47.Submit2&正确&quot.length==0)
alert(&quot,0)==-1)
alert(&);20&@&INPUT name=&title&/&/&&gt,0)==-1)
alert(&quot.&label&);myform&reset&n必须包含;p&form id=&function checkEmail( ){
var strEmail=&}&head&&lt.txtEmail！&清除内容&& name=&/ size=& onclick=& &/
else if (strEtxtEmail&);html&&&input type=&&
value=&&#47
我在邮箱文本框的后面加了一个 必填
我想让这个字体为红色 怎么做
&label&请输入电子邮箱：&INPUT name=&txtEmail& type=&text&
value=&& size=&20& & &font color=&#FF0000&&必填&&#47;font&&&#47;label&
提问者评价
其他类似问题
按默认排序
其他1条回答
p&FORM &&quot。复制的东西多了。;; type=&quot。&lt： &/ type=&&INPUT id=&quot。;改为&lt。;改为&myform&把原来的&&#47，删掉请输入电子邮箱;form id=&text&这一段; size=&INPUT name=&quot，并增加id属性& &gt。也少了一些东西;p&
value=& size=&20&quot。;BODY& &gt，拷到底下那对空的label中间;20&/myclock&quot，&text&
value=&就在你的js代码底下那里找到这两个;txtEmail&myclock&form&gt你这段是复制过来的吧;&/ name=&&gt。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁【求助啊！！】明天要交代码了！可是我就是个学渣渣啊！求大神帮忙_c++吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：150,669贴子：
【求助啊！！】明天要交代码了！可是我就是个学渣渣啊！求大神帮忙收藏
学霸们大神们快来救人一命胜造七级浮屠！！！！用C语言写一个通讯录的代码~包括主菜单。输入联系人。查找。删除。修改。显示不想挂科啊&#x270E;﹏﹏﹏.&#x20AF;&#x3395;*﹏﹏﹏﹏﹏﹏﹏　　　　　　　&#x2665;　　　始　&#x2665;　　　　　　于　止　&#x2665;　　　　初　于　山　&#x2665;　　见　终　水　我　　　　老　万　只　　　　　　里　为　　　　　　　　你　　　　　　　　
学习逼死学霸老师逼死学渣&#x270E;﹏﹏﹏.&#x20AF;&#x3395;*﹏﹏﹏﹏﹏﹏﹏　　　　　　　&#x2665;　　　毕　&#x2665;　　　　　　竟　萌　&#x2665;　　　　我　哒　戈　&#x2665;　　是　哒　肆　哇　　　　滴　男　＊　　　　　　神　＊　　　　　　　　＊　　　　　
坐等删帖、
我昨天用C++写了个通讯录，不过很多bug，还没改
前段时间刚写了个C++的通讯录，要不要？
这里不是C++吧吗
c语言不会c++倒是会一点首先策划程序；函数 ：主菜单界面函数、通讯录操作函数、通讯录储存函数（类）通讯录的储存函数(类)可以这样写：class txlLine //为通讯录的一行构建一个类。假定一行中含有数据：行号、名字、电话{public:int No;//行号char name[30];///////////////////////////int getAll(int& No_,char* nam_,int& phon_);//&是引用{No_=No;strcpy(nam_,name);//将字符串nam_拷到name中 phone=phon_;return 0;}int writeAll(int No_,char* nam_,int phon_);//写入函数则是将参数写入name、phone中,函数内容略}class txl:public txlLine//通讯录的存储类。这里假定通讯录最大为60行，其中第一行要存放一个表示最后一行位置的数据。也就是最后一行的No的值；{pravite:txlLine line[60];public:Add();Del();Rewrite();Read();}未完待续
通讯录的存储类应该包含至少4个函数：Add\Del\Rewrite\Read上面的通讯录储存类还不完整，需要你自己完善这4个函数,注意要整行操作，即操作数据以txlLine作为操作单位；还应该补充一个函数New(),内容是Line[0].No=0,至于有什么用就留待楼主自己思考了。其它还可以补充的函数包括IsFull（判断通讯录是否已满）、IsEmpty(判断通讯录是否为空)、Find（查找某一数据，建议放到通讯录储存类以外）等等;例如：int Add(txlLine lin_){int maxNo=line[0].No;//通讯录的第一行（也就是0行）存放的特殊数据应该先读出来//如果表满，则return 1，表示失败。此行语句省略lin_.No=maxNo;//修改参数：行lin_中的第一个数据No为maxNo，这个很重要；line[maxNo]=lin_;//将参数：行lin_存入通讯录中的最后一行line[0].No++;//已经增加了一行，所以最后一行位置要+1；return 0;}
通讯录操作函数（类）：策划函数（类）应该包括如下函数：从文件中读取、写入文件、查找数据、添加数据等等；添加数据、删除数据、改写数据、读取数据跟通讯录储存类中的4大基本函数应当不同，这里的4个功能尽可能做得越强大越好，例如改写数据可以仅仅改写某行的一个数据，而不同于通讯录储存类中单单以行为基本单位进行改写。应当注意通讯录操作函数（类）中千万不要有奇怪的操作，例如绕过通讯录储存类的函数功能直接读写某一行等等；所有操作都可以由储存类提供的4大基本函数完成操作；操作类的具体内容略，爱怎么写怎么写；推荐查找数据函数为Find(char* link,int x),其中第一项表示要查找的数据的内容，x表示查找的数据的类型是什么，return返回行号。例如Find(obx100,1)表示查找obx100（名字）在通讯录中的行号，Find(1234,2)表示查找1234（电话）在通讯录中的行号写入文件可以使用如下语句：fout.open("a.dat",ios::out|ios::binary);//打开文件，会导致清空文件，所以每次写入的txl通讯录必须是经过读入的完整的通讯录(打开文件失败判断和处理语句);fout.write((char*)&txl,sizeof(txl));//将txl通讯录保存fout.close();//关闭文件
你看，多简单啊，一个简单快乐的通讯录就产生了。当然还有做动态通讯录的办法，不过你时间紧迫我就不瞎扯淡了
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或这是仿韩都衣舍的模板，在这个文件里面的代码貌似全加密或者说加保护了，里面的在线客服或者其他首页的关键信息修改不掉呢咋还？修改掉之后上传到FTP就又变回原来的在线客服QQ号码和以前的信息了，如图，求大神帮忙给修改下或解除保护
这是仿韩都衣舍的模板，在这个文件里面的代码貌似全加密或者说加保护了，里面的在线客服或者其他首页的关键信息修改不掉呢咋还？修改掉之后上传到FTP就又变回原来的在线客服QQ号码和以前的信息了，如图，求大神帮忙给修改下或解除保护 5
可以用350模版装修啊，模版论坛有很多装修资源http:www.mobanbbs.net
提问者 的感言：当代劳模！所有人都应该向你学习！
其他回答 (2)
相关知识等待您来回答
跑跑卡丁车领域专家