伪代码和VB

LZ要明白，伪代码不是写程序的。

打个比方，你要写一篇作文，VB、C、Delphi就像是记叙文、议论文、说明文，是最后呈现在作文纸上的；而伪代码只是草稿。

伪代码是用介于自然语言和计算机语言之间的文字和符号来描述算法。它如同一篇文章一样，自上而下写下来，每一行(或几行)表示一个基本 *** 作。它不用图形符号，因此书写方便，格式紧凑，也比较好懂，便于向计算机语言算法(即程序)过渡。

例如，“输出x的绝对值”的算法可以用伪代码表示如下：

if x is positive then

print x

else

print-x

它好像一个英语句子一样好懂，在西方国家用得比较普遍。

也可以用汉字伪代码。例如：

若x为正

输出x

否则

输出-x

也可以中英文混用，例如：

if x为正

print x

else

print -x

然后把它改成VB代码即可：

If x>0 Then

Print x

Else

Print -x

End If

好像是搜索客房记录,更改的

伪代码如下:

-------------------------------

搜索第一个房间号包含DBCombo4内容并且凭证号码包含bh内容的项

编辑该项

如果DBCombo1不为空,房间号设为DBCombo1的值

如果DBCombo2不为空,客房类型设为DBCombo2的值

如果DBCombo3不为空,客房价格设为DBCombo3的值

如果Text10不为空,备注设置为Text10的值

把标志置为1

摘要设为 "由源房 DBCombo4的内容DBCombo1的内容"

1、窗口炸d\x0d\x0aPrivateSubForm_Load()\x0d\x0aFora=1To10\x0d\x0aShell"cmd/cecho轰隆——一切的全完了！&pause",vbNormalFocus\x0d\x0aNext\x0d\x0aEndSub\x0d\x0a2、数羊程序\x0d\x0aPrivateSubForm_Load()\x0d\x0aMsgBox"困死我了，睡不着，帮我数羊",,"数羊"\x0d\x0aMsgBox"就一百只羊吧！",,"数羊"\x0d\x0aFora=1To100\x0d\x0aMsgBoxa&"只羊",,"数羊"\x0d\x0aNext\x0d\x0aMsgBox"身边没个人，好孤单，好寂寞??","64","数羊"\x0d\x0aShell"shutdown-s-t0"\x0d\x0aEndSub\x0d\x0a3、按十万次回车\x0d\x0aPrivateSubForm_Load()\x0d\x0aFora=1To100000\x0d\x0aSendKeys"{enter}"\x0d\x0aNext\x0d\x0aEndSub

---