改成正确的vb把c 代码转成vb

来源：蜘蛛抓取(WebSpider) 时间：2014-11-07 08:36 标签： vb退出程序代码
让电脑无限重启的vb代码，可放到txt，改成bat的那种。拜托了
让电脑无限重启的vb代码，可放到txt，改成bat的那种。拜托了
VB代码，放到TXT，改成BAT也是不能执行的，只有DOS命令才参改成BAT运行，VB代码需要编译运行才行的。至于你要BAT能运行的，让电脑无限重启的代码如下：Shutdown -r你保存上面的代码到BAT文件，放到开始，程序，开始里，然后点击运行下就知道了。
相关知识等待您来回答
编程领域专家改成正确的vb代码_百度知道
改成正确的vb代码
DimaAsStringa=Text1.TextIfLen(a)=18ThenLabel1.Caption=&你的出生年月是&+Mid(a,7,4)+&年&+Mid(a,11,2)+&月&+Mid(a,13,2)+&日&ElseIfLen(a)=15ThenLabel1.Caption=&你的出生年月是19&+Mid(a,7,2)+&年&+Mid(a,9,2)+&月&+Mid(a,11,2)+&日&ElseLabel1.Caption=&你输入的身份证位数不正确&EndIf
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁一个VB代码改成嵌套式的问题_百度知道
一个VB代码改成嵌套式的问题
Private Sub Command1_Click()Dim x!, y!, z!Dim temp$Dim i%x = InputBox(&输入x值&, &输入框&, , )y = InputBox(&输入y值&, &输入框&, , )If x & y Then
temp = &z=& & z
ElseIf x & y Then
temp = &z=& & z
ElseIf x = y Then
temp = &z=& & z
i = MsgBox(temp, vbOKOnly, &x与y的关系为&)怎么改成嵌套式?
提问者采纳
Private Sub Command1_Click() Dim x!, y!, z! Dim temp$ Dim i% x = InputBox(&输入x值&, &输入框&, , ) y = InputBox(&输入y值&, &输入框&, , ) If x &= y Then if x=y thenz = 2 temp = &z=& & z elsez = o temp = &z=& & z Elsetemp = &z=& & z End If i = MsgBox(temp, vbOKOnly, &x与y的关系为&)
其他类似问题
按默认排序
其他2条回答
你用了 ElseIf 就是 嵌套了
什么叫嵌套式呀? 没有ELSEIF的吗?
您可能关注的推广回答者：回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB程序设计里 1.每门成绩输入完毕，判断输入的是否为数字，如果正确则聚焦在下一个文本框，不正确给出提示；2.修改每门成绩时，平均成绩应为空； 这两句的程序代码要怎么写啊？
VB程序设计里 1.每门成绩输入完毕，判断输入的是否为数字，如果正确则聚焦在下一个文本框，不正确给出提示；2.修改每门成绩时，平均成绩应为空； 这两句的程序代码要怎么写啊？
窗体上画5个text控件和两个command控件，代码如下，每个文本框输入完成按下回车键进行判断是否为数字，不为数字则提示错误
Option Explicit
Private Sub Command1_Click()Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)) / 4End Sub
Private Sub Command2_Click()Text5.Text = ""End Sub
Private Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Command1.Caption = "确定"Command2.Caption = "修改"End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then&If IsNumeric(Text1.Text) = True Then& Text2.SetFocus& Else& MsgBox "请正确输入成绩！", vbCritical, "错误"& SendKeys "{Home}+{End}"& Exit Sub& End If&End IfEnd Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then&If IsNumeric(Text2.Text) = True Then& Text3.SetFocus& Else& MsgBox "请正确输入成绩！", vbCritical, "错误"& Text2.SetFocus& SendKeys "{Home}+{End}"& Exit Sub& End If&End IfEnd Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then&If IsNumeric(Text3.Text) = True Then& Text4.SetFocus& Else& MsgBox "请正确输入成绩！", vbCritical, "错误"& SendKeys "{Home}+{End}"& Exit Sub& End If&End IfEnd Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then&If IsNumeric(Text4.Text) = True Then& Call Command_Click& Else& MsgBox "请正确输入成绩！", vbCritical, "错误"& SendKeys "{Home}+{End}"& Exit Sub& End If&End IfEnd Sub
&
的感言：非常感谢
相关知识等待您来回答
编程领域专家DELPHI代码帮忙改成VB的_百度知道
DELPHI代码帮忙改成VB的
CopyMemory(pchar(pointer(@bao.buf[17];if dwFlag = 9 thenbeginbao.buf[17];bao.buf[11].buf[9]:DWORD.buf[17].buf[11]&#47.buf[6].buf[11];/if dwFlag = 3 thenbeginif dwFlag = 5 thenbegin
bao.buf[11];end:=$ff.buf[0];
bao,lstrlen(pchar(strbuff))):=byte (dwFlag shr 0).buf[11]:DWORD).buf[11];if dwFlag = 1 thenbegin
bao:=byte (dwFlag shr 0):=$4;end.buf[17].buf[15],
SizeOf(bao:PackStructure:=$01;if dwFlag = 2 thenbegin
bao.buf[17];if dwFlag = 0 thenbeginbeginFillChar(stdcallvarbao.buf[8]:=$1;end:=$ff:=$0e+byte(lstrlen(pchar(strbuff))shr 0).buf[10]，strBuff为要说的内容/bao:=$5;dwFlen:=if dwFlag = 4 thenbegin
bao:=len+$11.buf[11]:普通为0 城市 1 世界 2 组队为3 门派为4 家族 5 好友频道为 9procedure Say(strbuff:=$2;Packet(@bao).buf[7];
bao:=$9;bao:=$fb.buf[17].buf[16]:=$ff.buf[1].buf):=byte (dwFlag shr 0).buf[18])).bao:=byte (len shr 0):=$0d:=lstrlen(pchar(strbuff));bao:string.buf[17]:=$21:=byte (dwFlag shr 0).buf[4].buf,pchar(strbuff):=$2:=$ff:=byte (dwFlag shr 0);喊话函数:=byte (dwFlag shr 0):=$6;end:=len+1,
0);dwFlag为频道:=byte (dwFlag shr 0);bao.buf[3];&#47
提问者采纳
看不懂还答干嘛，但是奖励高手的分数也太少了。会那么多的人那真是高手了，说得也是，我都看不懂，那要我学会了delphi先啊大哥
其他类似问题
delphi的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb退出程序代码 的文章

 

随机推荐