| | shénme shì vbscript ní ?vbscript de quán chēng shì :microsoftvisualbasicscriptediton.( wēi ruǎn gōng sī kě shì huà basic jiǎo běn bǎn ). zhèng rú qí zì miàn suǒ tòu lù de xìn xī ,vbs(vbscript de jìn yī bù jiǎn xiě ) shì jī yú visualbasic de jiǎo běn yǔ yán . wǒ jìn yī bù jiě shì yī xià ,microsoftvisualbasic shì wēi ruǎn gōng sī chū pǐn de yī tào kě shì huà biān chéng gōng jù , yǔ fǎ jī yú basic. jiǎo běn yǔ yán , jiù shì bù biān yì chéng 'èr jìn zhì wén jiàn , zhí jiē yóu sù zhù (host) jiě shì yuán dài mǎ bìng zhí xíng , jiǎn dān diǎn shuō jiù shì nǐ xiě de chéng xù bù xū yào biān yì chéng .exe, ér shì zhí jiē gěi yòng hù fā sòng .vbs de yuán chéng xù , yòng hù jiù néng zhí xíng liǎo .
wǒ zhī dào cài niǎo xiàn zài zuì guān xīn de jiù shì yòng shénme gōng jù lái kāi fā vbs chéng xù liǎo , dá 'àn shì : jì shì běn .(notepad). wǒ bù shì kāi wán xiào , qí shí rèn hé yī zhǒng wén běn biān ji qì dōukě yǐ yòng lái kāi fā vbs kāi fā , zhǐ bù guò jì shì běn shì yóu xì tǒng zì dài de , bǐ jiào hǎo zhǎo 'ér yǐ . jìn guǎn rú cǐ , wǒ hái shì jiàn yì nǐ qù xià zài yī gè zhuān yè de wén běn biān ji qì , yīn wéi zhè xiē gōng jù kě yǐ tí gōng " yǔ fǎ gāo liàng " děng gōng néng , gèng jiā fāng biàn kāi fā , yòng nǎ yī gè suí nǐ xǐ hǎo , wǒ bǐ jiào xǐ huān editplus(2.10).
ok, wǒ men xiān lái xiě yī gè vbscript chéng xù rè rè shēn .
rem shū rù bìng huí xiǎn nǐ de míng zì
' shǐ yòng inputbox hé msgbox hán shù
dimname,msg
msg=" qǐng shū rù nǐ de míng zì :"
name=inputbox(msg," míng chēng ")
msgbox(name)
bǎ shàng miàn de chéng xù qīng dān shū rù dào jì shì běn lǐ miàn , rán hòu bǎo cún wéi yǐ .vbs wéi kuò zhǎn míng de wén jiàn (" bǎo cún lèi xíng " lǐ miàn xuǎn zé " suǒ yòu wén jiàn "). rán hòu shuāng jī yùn xíng , guān chá yùn xíng jiēguǒ . zhù yì : qǐng zì jǐ shū rù chéng xù qīng dān , bù yào fù zhì -> zhāntiē
wǒ lái jiě shì yī xià zhè gè chéng xù , dì yīháng hé dì 'èr xíng de kāi tóu fēn bié shì "rem" yǔ jù hé "'", zhè liǎng gè dōng xī de zuò yòng shì xiāng tóng de , biǎo shì běn xíng shì zhù shì xíng , jiù shì shuō zhè liǎng xíng shénme yě bù gān , zhǐ shì yòng lái shuō míng zhè duàn chéng xù de gōng néng , bǎn quán xìn xī děng děng . zhù shì xíng shì chéng xù zuì zhòng yào de bù fēn zhī yī , jìn guǎn tā bù shì bì xū de , dàn duì yú qí tā rén yuè dú yuán dài mǎ , yǐ jí zì jǐ fēn xī yuán dài mǎ shì hěn yòu hǎo chù de . hǎo de xí guàn shì zài bì yào de dì fāng jiā shàng qīng xī , jiǎn jié de zhù shì .
dim yòng lái shēng míng yī gè biàn liàng , zài vbs zhōng , biàn liàng lèi xíng bìng bù shì nà me zhòng yào , jiù shì shuō vbs huì bāng nǐ zì dòng shí bié biàn liàng lèi xíng , ér qiě biàn liàng zài shǐ yòng qián bù yī dìng yào xiān shēng míng , chéng xù huì dòng tài fēn pèi biàn liàng kōng jiān . zài vbs zhōng nǐ bù yòng kǎo lǜ name chǔ cún de shì yī gè zhěng shù hái shì yī gè xiǎo shù ( xué míng jiào " fú diǎn shù "), yě bù yòng kǎo lǜ shì bù shì zì fú chuàn ( yī chuàn zì fú , bǐ rú :"helloworld"),vbs huì zì dòng bāng nǐ gǎo dìng . suǒ yǐ dì sān xíng yǔ jù kě yǐ shān chú , xiào guǒ bù huì biàn , dàn wǒ qiáng liè fǎn duì zhè me zuò , yī gè biàn liàng de jī běn yuán zé jiù shì : xiān shēng míng , hòu shǐ yòng . biàn liàng míng yòng zì mǔ kāi tóu , kě yǐ shǐ yòng xià huàxiàn , shù zì , dàn bù néng shǐ yòng vbs yǐ jīng dìng yì de zì , bǐ rú dim, yě bù néng shì chún shù zì .
xià yīháng bèi chēng zhī wéi " fù zhí ","=" shì fù zhí fú hào , bìng bù shì shù xué zhōng de děng yú hào , jìn guǎn kàn qǐ lái yī yàng . zhè shì zhèng tǒng de lǐ jiě , nǐ yào lǐ jiě chéng děng yú yě méi yòu shénme bù kě . fù zhí hào de zuǒ biān shì yī gè biàn liàng , yòu biān shì yào fù gěi biàn liàng de zhí , jīng guò fù zhí yǐ hòu ,msg zhè gè biàn liàng zài chéng xù zhōng děng tóng yú " qǐng shū rù nǐ de míng zì :" zhè gè zì fú chuàn , dàn dāng msg bèi zài cì fù zhí de shí hòu , yuán zhí jiù huì xiāo shī . bù guāng zì fú chuàn , qí tā rèn hé biàn liàng dū zhè yàng bèi fù zhí , lì rú :a=2,b=12.222 děng děng .
zài wǎng xià ,inputbox hé msgbox shì vbs nèi jiàn de hán shù , yī gè hán shù jiù xiāng dāng yú yī gè " hēi xiāng ", yòu shū rù ( cān shù ) hé shū chū ( fǎn huí zhí ), nǐ kě yǐ bù yòng liǎo jiě hán shù shì zěn me yùn zuò de , zhǐ yào liǎo jiě zhè gè hán shù néng gànshénme jiù xíng liǎo , wǒ men yě kě yǐ dìng yì zì jǐ de hán shù , bù guò nà yào děng dào yǐ hòu zài jiǎng . xiàn zài wǒ men zhǐ yào liǎo jiě , yī gè hán shù kě yǐ yòu fǎn huí zhí yě kě yǐ méi yòu , kě yǐ yòu cān shù yě kě yǐ méi yòu . lì rú inputbox jiù shì yòu fǎn huí zhí de hán shù , wǒ men yòng fù zhí hào zuǒ biān de biàn liàng lái " jiē " zhù inputbox de fǎn huí zhí -- jiù shì nǐ shū rù de nèi róng . zài inputbox yòu biān de kuò hào lǐ shì cān shù liè biǎo , měi gè cān shù yòng "," fēn gé kāi , měi gè cān shù yòu bù tóng de gōng xiào , bǐ rú dì yī gè cān shù huì xiǎn shì zài tí shì lǐ , wǒ men bǎ msg zhè gè biàn liàng zuò wéi dì yī gè cān shù chuán gěi liǎo inputbox hán shù , ér msg=" qǐng shū rù nǐ de míng zì :", suǒ yǐ wǒ men zài duì huà kuàng de tí shì lán jiù huì kàn dào " qǐng shū rù nǐ de míng zì :" dì 'èr gè cān shù shì duì huà kuàng de biāo tí , wǒ men yòng zhí jiē liàng ( xué míng jiào " cháng liàng ", zhè lǐ shì " zì fú chuàn cháng liàng ") chuán dì gěi hán shù , dāng rán nǐ yě kě yǐ chuán dì biàn liàng .inputbox hái yòu hěn duō cān shù , bǐ rú nǐ zài " míng chēng " hòu miàn zài jiā yī gè "," rán hòu shū rù suí biàn yī chuàn zì fú ( zì fú chuàn , yòng shuāng yǐn hào "" bāo guǒ qǐ lái de yī chuàn zì fú jiào zuò zì fú chuàn ) rán hòu yùn xíng , kàn kàn jiēguǒ . nǐ huì fā xiàn yòng yú shū rù de wén běn kuàng yòu liǎo mò rèn de zhí , zhè jiù shì dì sān gè cān shù de zuò yòng .
msgbox hán shù shì yòng lái shū chū de hán shù , zài vbs zhōng méi yòu zhuān mén de shū chū hán shù (basic zhōng de print,c zhōng de printf), suǒ yǐ wǒ men zhǐ néng yòng duì huà kuàng lái guān chá shū chū jiēguǒ ,msgbox de bì yào cān shù zhǐ yòu yī gè , jiù shì yào shū chū de nèi róng , zài zhè zhǒng qíng kuàng xià , wǒ men bù xū yào lǐ huì msgbox de fǎn huí zhí . guān yú msgbox hé inputbox wǒ men yǐ hòu hái huì zài tǎo lùn , jīn tiān zhǐ shì rè rè shēn , dào cǐ wéi zhǐ .
yào diǎn :
1) zhù shì ( yǐ rem huò ' kāi tóu ) xíng zài chéng xù zhōng bù qǐ zuò yòng , dàn néng ràng bié rén gèng róng yì dú dǒng nǐ de chéng xù .
2) biàn liàng hǎo xiàng yī gè hé zǐ , huò yī gè dài hào , kě yǐ dài biǎo nǐ xiǎng dài biǎo de dōng xī . biàn liàng fù zhí shǐ yòng "="
3) yǐ "" bāo guǒ qǐ lái de zì fú chēng zhī wéi " zì fú chuàn "
4) hán shù xiàng yī gè " hēi xiāng ", yòu cān shù hé fǎn huí zhí , yòng "=" zuǒ biān de biàn liàng kě yǐ jiē zhù fǎn huí zhí
5)inputbox hán shù dàn chū yī gè shū rù duì huà kuàng ,msgbox zé yòng yú shū chū
zuò yè :
1) shì yàn inputbox de dì sān gè cān shù
2) xiě yī duàn chéng xù shū chū nǐ de nián líng
3) xiě yī duàn chéng xù jìn xíng 3 cì shū rù , fēn bié shū rù nǐ hé nǐ fù mǔ de xìng míng ( yào qiú xiǎn shì tí shì ), bìng fēn 3 cì shū chū
cān kǎo zī liào： http://www.stu.la/former/bbs/printpage.asp?boardid=5&id=6515
dì 'èr piān：
wǒ zhēn méi xiǎng dào , dì yī cì de zuò yè jìng rán yòu rén bù huì .
kàn lái yào jiǎng de fēi cháng fēi cháng xì zhì cái xíng , ǹg , jīn tiān jiǎng gè zhǒng " liàng " hé jī běn yùn suàn
xiān shuō cháng liàng , zhè gè bǐ jiào jiǎn dān .
shénme shì cháng liàng ní , cháng liàng jiù shì qí zhí bù kě biàn huà de liàng .
cháng liàng fēn wéi liǎng zhǒng : dì yī zhǒng , zì rán cháng liàng . zhè jiào shì yīn wéi tā men běn shēn jiù shì cháng liàng , nǐ zěn me gēnggǎi 21 de zhí ní ? tā yǒng yuǎn dōushì 21, bù kě néng biàn chéng 46
rú guǒ nǐ zài chéng xù zhōng shǐ yòng "21=46", zhè yàng de yǔ jù jiāng huì yǐn fā yī gè cuò wù . tóng yàng de , zì fú chuàn yě shì cháng liàng ( hái jì dé zì fú chuàn má ? jiù shì bāo guǒ zài "" zhī jiān de yī chuàn zì fú ),"helloworld" jiù shì yī gè lì zǐ , rú guǒ nǐ shǐ yòng "helloworld"="bye" zhè yàng de yǔ jù tóng yàng huì yǐn fā yī gè cuò wù . nǐ néng jǔ chū zì rán cháng liàng de gèng duō lì zǐ má ?
dì 'èr zhǒng , shì wǒ men zì jǐ dìng yì de cháng liàng , zhè zhǒng liàng yě shǐ yòng dài hào , tā men yě bèi fù zhí , dàn hé biàn liàng de bù tóng diǎn zài yú , tā men zài dìng yì de shí hòu bèi fù zhí , yǐ hòu jiù bù néng gǎi biàn liǎo , rú guǒ qǐ tú gǎi biàn jiāng huì yǐn fā yī gè cuò wù . dìng yì yī gè biàn liàng , wǒ men shǐ yòng "const" zhè gè guān jiàn zì ( guān jiàn zì de yì sī shì xì tǒng dìng yì liǎo yòu tè shū gōng néng de zì , bù néng zuò wéi biàn liàng míng huò cháng liàng míng shǐ yòng )
gé shì shì :const cháng liàng míng = cháng liàng zhí .
lì rú :
constpi=3.1415926
constname=" jì yì suì piàn "
zhè yàng wǒ men jiù dìng yì liǎo liǎng gè cháng liàng ,pi hé name, yī bān shuō lái , cháng liàng míng quán bù shǐ yòng dà xiě , dàn yě kě yǐ bù yòng , suí nǐ xǐ hǎo . jiāng yī xiē zài chéng xù zhōng bù xū yào gǎi biàn de zhí dìng yì wéi cháng liàng shì gè hǎo xí guàn , zhè yàng néng fáng zhǐ bù bì yào de yì wài . lìng wài , shǐ yòng zì dìng yì cháng liàng yě kě yǐ jiǎn shǎo nǐ de gōng zuò liàng . bǐ rú :
msgbox("helloworld")
msgbox("helloworld")
msgbox("helloworld")
msgbox("helloworld")
msgbox("helloworld")
zhè gè chéng xù shū chū wǔ cì helloworld, rú guǒ nǐ xiǎng yào gǎi biàn shū chū wéi bye-bye, jiù bì xū xiū gǎi quán bù chéng xù , dāng rán nǐ kě yǐ shǒu dòng xiū gǎi 5 cì , dàn rú guǒ nǐ yào shū chū 1000 cì ní ? cháng liàng jiù kě yǐ tì wǒ men jiě jué zhè gè wèn tí :
consthw="helloworld"
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
zhè yàng dāng nǐ yào xiū gǎi shū chū de shí hòu zhǐ yào xiū gǎi hw de zhí jiù xíng liǎo .
hǎo liǎo , xiàn zài wǒ men lái kàn kàn biān chéng de dì yī kuài zhòng yào " jī shí ": biàn liàng . jiě shì biàn liàng zuì hǎo de bàn fǎ wǒ jué dé shì " hé zǐ ", yī gè biàn liàng hǎo xiàng yī gè hé zǐ , lǐ miàn zhǐ néng zhuāng yī gè dōng xī , dāng nǐ yào zhuāng jìn qù bié de dōng xī de shí hòu bì xū bǎ yuán yòu de dōng xī ná chū lái . zhè gè " hé zǐ " shì yòu míng chēng de , dāng nǐ zài chéng xù zhōng shǐ yòng biàn liàng de shí hòu , xì tǒng huì dǎ kāi hé zǐ qǔ chū lǐ miàn de dōng xī , ràng zhè xiē dōng xī cānyù chǔlǐ , ér bù shì hé zǐ . yòu xiē yǔ yán shì hěn yǐ lài " hé zǐ " lǐ miàn zhuāng xiē shénme dōng xī , zhè yàng cái néng zhǎo dào hé shì de " hé zǐ "( bǐ rú c yǔ yán ), dàn vbs gěi wǒ tí gōng de shì néng gòu zì dòng shēn suō de " mó shù hé ", wǒ men bù yòng guān xīn zhuāng jìn qù de shì shénme dōng xī ,
vbs huì zì dòng tiáozhěng hé zǐ de dà xiǎo . lì rú :
dima1,a2,a3
a1=14
a2=12.23
a3="hello"
ér bù yòng xiàng c yǔ yán nà yàng má fán : huò zhě shì vb de zhèng guī shēng míng (vb kě yǐ shēng míng yě kě yǐ bù yòng ) nà yàng :
inta1;dima1asinteger
floata2;dima2asdouble
char*a3;dima3asstrnig
a1=14;a1=14
a2=12.23;a2=12.23
a3="hello";a3="hello"
ǹg …… chě yuǎn liǎo……
biàn liàng yòu shénme yòng ní ? wā , nà yòng chù kě dà liǎo . zuì jiǎn dān , nǐ bìng bù néng què dìng chéng xù yùn xíng shí biàn liàng de zhí , bǐ rú qián yī jié kè wǒ men biān de shū rù xìng míng de chéng xù , nǐ bù néng què dìng inputbox fǎn huí de shì shénme ( hái jì dé inputbox de fǎn huí zhí má ? jiù shì nǐ shū rù de nèi róng ), suǒ yǐ nǐ jiù méi yòu bàn fǎ yìng duì gè zhǒng qíng kuàng , dàn wǒ men yòng name zhè gè " hé zǐ " bǎ yòng hù de míng zì zhuāng qǐ lái , dào yòng de shí hòu wǒ men zhǐ yào zhī dào name zhè gè hé zǐ de míng zì jiù xíng liǎo , xì tǒng huì zì jǐ dǎ kāi tā bìng bǎ lǐ miàn de nèi róng ná chū lái yòng . zài jǔ gè lì zǐ , wǒ men biān xiě yī gè chéng xù jì suàn yī gè jǔ xíng de miàn jī , bǐ rú zhè gè chéng xù yào fā gěi xiǎo xué shēng shǐ yòng :
dima,b,s
a=15
b=12
s=a*b
msgbox(s)
zhè yàng jiù kě yǐ qiú chū cháng wéi 15, kuān wéi 12 de jǔ xíng de miàn jī liǎo , shì bù shì hěn jiǎn dān ? dāng rán , zhè gè chéng xù yě kě yǐ zhè yàng xiě :
dims
s=15*12
msgbox(s)
zhè yàng kàn qǐ lái chéng xù duǎn liǎo xǔ duō , yě jié yuē nèi cún , dàn bìng bù shì gǔ lì de zuò fǎ , wèishénme ? qǐng kàn xià miàn .
xiàn zài , wǒ men de chéng xù yào biàn dé xiàng diǎn yàng zǐ cái xíng , shuí de chéng xù xiě chū lái hái yào bié rén xiū gǎi yuán dài mǎ cái néng yòng 'ā ?
suǒ yǐ , wǒ men yào jiē shòu yòng hù de shū rù , hái jì dé má ?inputbox hán shù .
xiū gǎi hòu chéng xù rú xià :
dima,b,s
a=inputbox(" qǐng shū rù jǔ xíng de cháng :")
b=inputbox(" qǐng shū rù jǔ xíng de kuān :")
s=a*b
msgbox(s)
ok, zhè me yī xiū gǎi , wú lùn yòng hù shū rù zěn yàng de shù jù , wǒ mendōu néng jì suàn chū jǔ xíng de miàn jī liǎo . rú guǒ nǐ yòng s=15*12 néng gǎi má ? dāng rán bù xíng .
wǒ xiǎng nǐ yǐ jīng fā xiàn liǎo ,vbs zhōng de shù xué jì suàn hé zhēn zhèng de suàn shù méi yòu shénme bù tóng ,+,-,*,/,(),[],{} dōushì yī yàng de yòng fǎ , bǐ rú :
dimans
ans=12+32/4+[(23-10)*2]
msgbox(ans)
sì zé yùn suàn de fǎ zé zài biān chéng zhōng tóng yàng shēng xiào , nǐ kě yǐ zài biān chéng zhōng chóngxīn huò dé xiǎo xué shí hòu de lè qù ( nǐ hèn shù xué ? nà jiù bié xué diàn nǎo liǎo ).
zài biān chéng zhōng yòu yī gè yòu qù de yùn suàn fú shì "mod", zhè gè yùn suàn fú jiào zuò " qǔ yú yùn suàn fú ", jiù shì qǔ dé yī cì chú fǎ de yú shù , lì rú
dima
a=16mod5
nǐ zhī dào a děng yú jǐ má ?bingo! méi cuò , jiù shì 1. yīn wéi 16/5=3....1, suǒ yǐ mod jì suàn de jiēguǒ jiù shì 1.
hái yòu yī gè yùn suàn fú shì "^"( jiù shì jiàn pán "6" shàng miàn de xiǎo jiàn tóu ), tā biǎo shì " chéng mì "( huò zhě shì " fāng ") bǐ rú :
dima,b,c
a=2
b=a^2
c=a^3
msgbox(a)
msgbox(c)
zé b=a*a=4,c=a*a*a=8
wǒ men yī cì bù yào jiǎng tài duō , zhè cì jiù jiǎng dào zhè lǐ , xiàn zài zǒng jié yī xià .
yào diǎn :
1) cháng liàng fēn wéi zì rán cháng liàng hé zì dìng yì cháng liàng , cháng liàng de zhí bù kě xiū gǎi
2) biàn liàng jiù xiàng hé zǐ , wǒ men bù zài hū hé zǐ lǐ zhuāng de shì shénme , dàn yī dìng yào zhī dào hé zǐ de míng zì
3) sì zé yùn suàn zài biān chéng zhōng méi yòu rèn hé bù tóng
4)mod shì qǔ yú yùn suàn
zuò yè :
1) biān yī gè chéng xù , jì suàn yuán xíng de miàn jī , bàn jìng yóu yòng hù gěi chū ( shǐ yòng inputbox)pi qǔ zhí 3.14159
2) biān yī gè chéng xù qǔ dé 20/3 de yú shù
[lasteditedbylongtian777on2004-12-6at16:02]
dì sān piān（ gòng liù piān）：
shǒu xiān , wǒ lái jiě jué yī xià shàng cì kè chéng de jǐ gè yí wèn
dì yī , nà gè yú shù wèn tí ,16/5=3...1, shì yīn wéi wǒ gǎi guò qián miàn de bù fēn , hòu miàn de wàng liǎo gǎi liǎo , bù hǎo yì sī .
dì 'èr , qǐng kàn yī xià chéng xù qīng dān :
1)
dima,b,c
a=inputbox("a shì :"," shū rù bàn jìng ")
b=inputbox("b shì :"," shū rù bàn jìng ")
c=a*2+b*2
msgbox(c)
zhè gè shū rù 1、 2 shí shì 6
2)
dima,b,c
a=inputbox("a shì :"," shū rù bàn jìng ")
b=inputbox("b shì :"," shū rù bàn jìng ")
c=(a+b)*2
msgbox(c)
zhè gè shū rù 1、 2 shí shì 24
wèishénme huì bù yī yàng ní ? zài shù xué shàng c=(a+b)*2 hé c=a*2+b*2 shì děng jià de , zài vbs zhōng yě shì rú cǐ . wèn tí chū zài "+" shàng , zài vbs zhōng ,+ bù jǐn jǐn shì jiā hào de yì sī hái biǎo shì bǎ liǎng gè zì fú chuàn lián jiē qǐ lái , lì rú "hello"+"world"="helloworld"haveyouunderstood? nǐ hái jì dé inoutbox hán shù de fǎn huí zhí má ? shì zì fú chuàn ! zhè jiù kàn chū wèn tí liǎo bā , zài biān chéng zhōng "1" bù děng yú (<>)1,"1" shì yī gè zì fú , ér 1 shì yī gè shù , suǒ yǐ a,b dōushì zì fú chuàn biàn liàng ,"1"+"2"="12", zhè jiù hǎo xiàng wǒ men xiǎo shí gēn huǒ bàn kāi wán xiào wèn tā men 1+1=? yī yàng , wǒ men zǒng shì xiào zhe shuō " cuò lā , yīnggāi shì 11". dàn wèishénme ,a kě yǐ *2 què bù fā shēng cuò wù ní ? zhè shí vbs bǐ jiào zhì néng de yī gè biǎo xiàn , rú guǒ zhè gè zì fú chuàn de nèi róng shì yī gè shù qiě duì tā jìn xíng shù xué yùn suàn , zé bǎ zì fú chuàn qiáng zhì zhuǎn huàn chéng shù cānyù yùn suàn , rú guǒ zì fú chuàn dài biǎo yī gè shù , dàn bù cān jiā shù xué yùn suàn , ér shì cān jiā zì fú chuàn yùn suàn ( hé bìng ) zé dāng zuò zì fú chuàn chǔlǐ , suǒ yǐ nǐ kàn dào a+b=12, zhè shí hòu a+b de jiēguǒ (12) shì yī gè zì fú chuàn , dāng tā yào chéng yǐ 2 de shí hòu jiù bèi qiáng zhì zhuǎn huàn chéng liǎo shù zì 12, zhè yàng wǒ jiù dé dào liǎo jiēguǒ 24.
zěn me xiū gǎi zhè gè chéng xù ní ? wǒ men xū yào yòng dào lìng yī gè nèi jiàn de hán shù :int,int hán shù de gōng néng shì jiāng shū rù zhí zhuǎn huà chéng zhěng shù zhí , wǒ men zhè yàng xiū gǎi :
c=(int(a)+int(b))*2
zhè gè yì sī jiù shì bǎ a zuò wéi cān shù chuán dì gěi int hán shù ,int hán shù jiù huì fǎn huí nà gè zhěng shù ( nǐ de shū rù zhí ), rán hòu ràng fǎn huí zhí cānyù yùn suàn , zhè yàng jiù dé dào liǎo zhèng què dá 'àn . suǒ yǐ , yǐ hòu rú guǒ nǐ yòng de shì inputbox hán shù de huà , zuì hǎo yòng int yǔ jù jiā gōng yī xià : bǐ rú c=int(c)'c shì nǐ zì jǐ de biàn liàng
dà jiā shì bù shì jué dé zhè gè kè chéng yòu diǎn kū zào , hē hē , biàn liàng hé yùn suàn fú bù fēn díquè shì zhè yàng de , bù guò duō duō liàn xí yě jiù hǎo liǎo , zhè cì , wǒ men xiě xiě zhēn zhèng hǎo wán de dōng xī : liú chéng kòng zhì yǔ jù . zhè gè bù fēn kāi shǐ cái shì zhēn zhèng de biān chéng .
shǒu xiān jiè shào pàn duàn jié gòu .
zài cǐ zhī qián , wǒ men xiān jiè shào yī zhǒng jiǎn dān de biàn liàng lèi xíng : bù 'ěr zhí (boolean), zhè zhǒng biàn liàng zhǐ yòu liǎng gè kě néng zhí :true,flase, jí zhēn huò jiǎ . zhè zhǒng biàn liàng zài mǒu xiē qíng kuàng xià hěn yòu yòng ( bǐ rú " kāi guān "). wǒ men dìng yì yī gè bool biàn liàng de fāng fǎ hé qí tā biàn liàng yī yàng , fù zhí yě yī yàng , lì rú :
dima,b
a=true
b=false
zhù yì ,true hé "true" shì bù yī yàng de ,"true" shì zì fú chuàn ,true shì bù 'ěr zhí , qiān wàn bù néng hùn xiáo .
huí dào if yǔ jù shàng lái , wǒ men xiān lái kàn kàn jiǎn huà bǎn de if yǔ jù :if pàn duàn shì then yǔ jù tǐ wǒ men lái kàn yī gè lì zǐ :
dima,b
a=12
b=13
ifb>athenmsgbox("b dà yú a")
wǒ men zhǐ kàn zuì hòu yīháng ,a>b zhè gè shì zǐ ( biǎo dá shì ) yòu yī gè fǎn huí zhí , shì bool xíng de . yīn wéi zhè gè shì zǐ zhǐ yòu liǎng zhǒng kě néng :b dà yú a,b bù dà yú a, suǒ yǐ zhè gè shì zǐ yě zhǐ yòu liǎng zhǒng kě néng xìng , jí zhēn huò zhě jiǎ .if yǔ jù pàn duàn zhè gè biǎo dá shì de fǎn huí zhí shì zhēn hái shì jiǎ , rú guǒ shì zhēn (true) zé zhí xíng then hòu miàn de yǔ jù , rú guǒ shì jiǎ , zé bù zhí xíng , nǐ bǎ a de zhí gǎi chéng 14 kàn kàn hái huì bù huì dàn chū duì huà kuàng ?
dāng wǒ men yào zài pàn duàn zhī hòu zhí xíng duō xíng yǔ jù zěn me bàn ní , wǒ men xū yào yòng yǔ jù kuài lái jiě jué , zài zhè lǐ kě yǐ jiào kuài if
dima,b
a=12
b=13
ifa<bthen
msgbox("a xiǎo yú b")
msgbox("b dà yú a")
endif
liǎng gè msgbox hán shù jiā zài if hé endif zhī jiān , zhè gè bù fēn jiù shì yǔ jù kuài , kuài lǐ de měi yī tiáo yǔ jù zhī qián qǐng kòngchū 4--8( yī gè <tab> jiàn ) gè gé , zhè bù shì bì xū de , dàn shì shì yī gè hǎo xí guàn , yǐ biàn kàn qīng chǔ chéng xù de jié gòu . zhè yàng wǒ men jiù néng yùn xíng duō yú yī gè de yǔ jù , qǐng zhù yì if...then...endif zhè sān gè guān jiàn bù fēn bù yào diào liǎo .ok, wǒ chū yī gè tí , shū rù yī gè shù , rú guǒ xiǎo yú 100 jiù shū chū " cuò wù ", rú guǒ dà yú 100 jiù shū chū " zhèng què ", wǒ zhè lǐ yòu liǎng gè chéng xù bǎn běn :
dima
a=inputbox(" qǐng shū rù yī gè dà yú 100 de shù ")
a=int(a)'inputbox fǎn huí de shì zì fú chuàn , wǒ men bǎ tā biàn chéng zhěng shù :)
ifa>100thenmsgbox(" zhèng què ")
ifa<100thenmsgbox(" cuò wù ")
hái yòu yī gè gèng jiǎn dān de
dima
a=inputbox(" qǐng shū rù yī gè dà yú 100 de shù ")
a=int(a)'inputbox fǎn huí de shì zì fú chuàn , wǒ men bǎ tā biàn chéng zhěng shù
ifa>100then
msgbox(" zhèng què ")
else
msgbox(" cuò wù ")
endif
kàn dào duō liǎo yī gè else liǎo bā ,else de zuò yòng jiù shì dāng yào pàn duàn de biǎo dá shì wéi false shí zhí xíng de . zhè yàng chéng xù jiù kě yǐ chǔlǐ liǎng zhǒng bù tóng de qíng kuàng liǎo . bù yào wàng liǎo yòng endif jié wěi
hēi hēi , wǒ shì biàn tài zhě , xiàn zài wǒ yào nǐ chǔlǐ sān zhǒng qíng kuàng ,<100,=100,>100, hái yào xiě zài yī gè if jié gòu lǐ , nǐ zěn me bàn , wǒ gěi nǐ dá 'àn :
dima
a=inputbox(" qǐng shū rù yī gè dà yú 100 de shù ")
a=int(a)'inputbox fǎn huí de shì zì fú chuàn , wǒ men bǎ tā biàn chéng zhěng shù
ifa>100then
msgbox(" zhèng què ")
elseifa=100then
msgbox(" lǎo dà , nǐ shuǎ wǒ ?")
else
msgbox(" cuò wù ")
endif
zhè cì shū rù 100 kàn kàn , shì shénme ?elseif yǔ jù kě yǐ zài if jié gòu zhōng duō cì chū xiàn , yǐ líng huó pàn duàn bù tóng de qíng kuàng ( rú guǒ nǐ yào pàn duàn dé tài duō , jiù qǐng shǐ yòng " xuǎn zé jié gòu ", guò huì 'ér jiù jiǎng ), dāng suǒ yòu elseif dū chǔlǐ wán liǎo , ér méi yòu fú hé qíng kuàng de shí hòu zài zhí xíng else zhōng de yǔ jù . lìng yī gè lì zǐ :
dima,b,c,d
a=inputbox("a shì :"," shū rù bàn jìng ")
b=inputbox("b shì :"," shū rù bàn jìng ")
d=inputbox(" dá 'àn :"," shū rù dá 'àn ")
c=a*2+b*2' zhè lǐ méi yòu wèn tí , huì zì dòng zhuǎn huàn
ifd=cthen
msgbox(" nǐ hǎo cōng míng ")
else
msgbox(" nǐ hǎo zhū tóu zì jǐ de tí hái bù huì !")
endif
zài kàn kàn zhè gè , wú lùn nǐ huí dá dé duō me zhèng què nǐ dū shì zhū tóu , hā hā , bù shì wǒ shuǎ nǐ , hái shì wén zhāng kāi shǐ shí hòu de inputbox de fǎn huí lèi xíng zài shuǎ nǐ ,d shì inputbox de fǎn huí zhí , tā shì yī gè zì fú chuàn , ér c shì yī cì zhěng shù jì suàn de jiēguǒ , tā shì yī gè zhěng shù . yī gè zì fú chuàn wú lùn rú hé yě bù děng yú yī gè zhěng shù , jìn guǎn tā men zì miàn shàng shì yī yàng de :"8"<>( bù děng yú hào )8 suǒ yǐ if de pàn duàn shì de zhí yǒng yuǎn shì false, zǒng shì zhí xíng else bù fēn de yǔ jù . wǒ men kě yǐ zhè me xiū gǎi
dima,b,c,d
a=inputbox("a shì :"," shū rù bàn jìng ")
b=inputbox("b shì :"," shū rù bàn jìng ")
d=inputbox(" dá 'àn :"," shū rù dá 'àn ")
d=int(d)
' zài zhè lǐ wǒ men qǔ chū liǎo d de zhí , biàn chéng zhěng shù , zài fàng huí "d" zhè gè hé zǐ lǐ
c=a*2+b*2
ifd=cthen
msgbox(" nǐ hǎo cōng míng ")
else
msgbox(" nǐ hǎo zhū tóu zì jǐ de tí hái bù huì !")
endif
zhè yàng jiù chéng gōng liǎo . zhè yě shì inputbox hán shù de yī gè tǎo yàn de dì fāng , méi bàn fǎ ,vbs méi yòu qí tā hǎo de shū rù fāng shì liǎo .
shuō dào if, wǒ men bù dé bù shuō yī shuō luó ji yùn suàn fú , jīn tiān jiè shào liǎng zhǒng ,"and" hé "or" xué huì liǎo if yǔ jù zhī hòu , wǒ jǔ yī gè lì zǐ , nǐ yī kàn jiù míng bái liǎo .
dima,b
a=inputbox(" shū rù yī gè shù >10")
b=inputbox(" shū rù lìng yī gè shù >10")
a=int(a)
b=int(b)
ifa>10andb>10then
msgbox(" zhèng què ")
else
msgbox(" cuò wù ")
endif
zhè duàn chéng xù ràng nǐ shū rù liǎng gè zhí , bì xū dōudà yú 10, zhǐ yào yòu yī gè bù dà yú , jiù shū chū cuò wù
dima,b
a=inputbox(" shū rù yī gè shù >10")
b=inputbox(" shū rù lìng yī gè shù >10")
a=int(a)
b=int(b)
ifa>10orb>10then
msgbox(" zhèng què ")
else
msgbox(" cuò wù ")
endif
zhè duàn chéng xù ràng nǐ shū rù liǎng gè zhí , zhǐ yào yòu yī gè dà yú 10, jiù fǎn huí chéng gōng . qí shí and hé or hěn hǎo lǐ jiě , wǒ dú "ifa>10orb>10then" zhè yī jù , yòng huá yǔ shì zhè yàng :" rú guǒ a dà yú 10 huò zhě b dà yú 10, nà me ...". zhè yàng shì bù shì jiù hěn hǎo lǐ jiě liǎo ní .
ok, wǒ men zài lái kàn yī zhǒng xīn jié gòu , jīn tiān de kè jiù jié shù , yǐ jīng wǔ yè liǎo , wǒdōu lèisǐ liǎo .
dāng nǐ de chéng xù yào chù lǐ hěn duō zhǒng bù tóng de pàn duàn qíng kuàng de shí hòu elseif..then huì ràng chéng xù kàn qǐ lái hěn zá luàn , suǒ yǐ jiù yòu liǎo yī zhǒng _select_case jié gòu zhuān mén duì fù zhè zhǒng qíng kuàng ,_select_case de yǔ fǎ jié gòu hěn jiǎn dān :
_select_case biàn liàng míng
case zhí
yǔ jù
case zhí
yǔ jù
caseelse
yǔ jù
end_select_
wǒ men jǔ gè lì zǐ jiù néng hěn jiǎn dān de shuō míng：
dima
a=inputbox(" shū rù yī gè 1--3 de zhí ")
a=int(a)' chǔlǐ inputbox fǎn huí zì fú chuàn de wèn tí
_select_casea
case1
msgbox(" yī ")
case2
msgbox(" èr ")
case3
msgbox(" sān ")
caseelse
msgbox(" shū rù cuò wù ")
end_select_
zhè gè lì zǐ bǎ 1,2,3 zhè sān gè 'ā lā bó shù zì zhuǎn huà chéng zhōng guó dà xiě shù zì , zhè gè chéng xù xiě chéng if...elseif de xíng shì rú xià
dima
a=inputbox(" qǐng shū rù 1--3 de zhí ")
a=int(a)
ifa=1then
msgbox(" yī ")
elseifa=2then
msgbox(" èr ")
elseifa=3then
msgbox(" sān ")
else
msgbox(" shū rù cuò wù ")
endif
zěn me yàng , má fán bā , hái shì _select_ hǎo bā .
ok, jīn tiān dào cǐ jié shù , zǒng jié yī xià :
yào diǎn :
1)inputbox fǎn huí de shì yī gè zì fú chuàn , ér bù shì yī gè shù , bì xū yòng a=int(a) zhè zhǒng xíng shì zhuǎn huà chéng shù
2)bool biàn liàng de zhí zhǐ yòu liǎng zhǒng :true,false
2.5)and liǎng biān de biǎo dá shì dōushì true, zé fǎn huí true.or liǎng biān de biǎo dá shì yòu yī gè shì true, jiù fǎn huí true
3)if yǔ jù de gé shì
4)_select_...case de gé shì
zuò yè :
1) shǐ yòng 3 gè bool zhí , chǔ cún nǐ de 3 xiōng dì jiě mèi shì fǒu shì nán xìng ( tí shì :sister1male=false)
2) gěi dìng yī gè gè shù , dà yú 10 ér qiě xiǎo yú 20 shū chū " zhèng què ", fǒu zé shū chū " cuò wù "
3) shū rù 12, huò zhě 15, shū chū " zhèng què ", fǒu zé shū chū " cuò wù "
4) bǎ 5 yǐ nèi de zhèng zhěng shù dū zhuǎn huàn chéng zhōng guó dà xiē shù zì
5) zì jǐ suí biàn shè jì yī gè chéng xù , yìng yòng jīn tiān de zhī shí
[lasteditedbylongtian777on2004-12-6at16:04]
sì piān（ gòng liù piān）：
dà jiā hǎo , zuó tiān wǒ xiū xī liǎo yī tiān , suǒ yǐ jīn tiān xiě dì 4 zhāng : xún huán jié gòu
wǒ men xiān lái kàn yī dào tí : shāng chǎng jìn xíng měi rì jié suàn , yào qiú lěi jiā chū jīn tiān de yíng yè 'é , měi cì shū rù yī gè shù , zhè dào tí qí shí hěn jiǎn dān , dàn jiù wǒ men xiàn zài xué
guò de zhī shí yào wán chéng zhè dào tí xiāng dāng má fán , wǒ men lái fēn xī yī xià . shǒu xiān , wǒ men xū yào zhī dào mǎi mài de cì shù , zhè yàng cái néng kòng zhì shū rù de cì shù , dàn shì , zhè zhǒng shè
jì shì fēi cháng dī xiào de , měi tiān dōuyào chóngxīn shè jì chéng xù . jiǎ dìng jīn tiān jìn xíng liǎo 5 cì jiāo yì , yǐ xià shì yuán chéng xù :
dimsum
sum=0' chū shǐ huà biàn liàng
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
'sum=sum+x zhè zhǒng xíng shì shì bǎ běn shēn de zhí qǔ chū lái , jìn xíng yī cì yùn suàn , zài fàng huí běn shēn , zhè zhǒng fāng fǎ hěn yòu yòng chù
' zhè lǐ shǐ yòng liǎo hán shù qiàn tào , bǎ inputbox de fǎn huí zhí zhí jiē chuán gěi int hán shù , zhuǎn huà chéng zhěng shù , xià tóng
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
msgbox(sum)
kàn dào liǎo má , wǒ tōng guò bǎ jì suàn guò chéng fù zhì liǎo 5 biàn cái shè jì hǎo liǎo chéng xù , zhè zhǒng chéng xù zài qì chē jiāo yì suǒ děng jiāo yì cì shù shǎo de dì fāng hái néng còu hé zhe yòng , rú guǒ
fàng dào chāo shì qǐ bù shì yào fù zhì , zhāntiē jǐ qiān biàn ? wǒ men jīn tiān jiǎng de nèi róng jiù kě yǐ kè fú zhè zhǒng quē xiàn , shǒu xiān , wǒ men lái jiǎng yǐ xià do...loop yǔ jù .
do...loop de jié gòu kàn shàng qù fēi cháng jiǎn dān , jiù shì :do...loop, jǐn cǐ 'ér yǐ , zhè gè jié gòu bù duàn zhí xíng do hé loop zhī jiān de yǔ jù ( xué míng jiào : xún huán tǐ ),
yǒng bù tíng zhǐ . jǔ gè lì zǐ lái shuō :
do
msgbox(" zhè gè xìn xī huì bù duàn chóngfù chū xiàn , yào tíng zhǐ chéng xù qǐng shǐ yòng rèn wù guǎn lǐ qì (ctrl+alt+del) zhōng zhǐ wscript jìn chéng ")
loop
yùn xíng zhè gè chéng xù , dāng nǐ diǎn xiāo diào yī gè duì huà kuàng mǎ shàng huì chū lái lìng yī gè , nǐ yǒng yuǎn diǎn bù wán , zǒng yòu xià yī gè . shuí huì yùn xíng zhè yàng de chéng xù ? chú fēi shì gěi
bié rén dǎo luàn ( wǒ jiù gān guò zhè zhǒng shì ), suǒ yǐ zài do..loop jié gòu zhōng hái yòu yī gè yǔ jù :exitdo, zhè gè yǔ jù jiāng zhōng zhǐ xún huán , tiào dào loop hòu miàn de yǔ jù jì xù
zhí xíng . jù gè lì zǐ lái shuō :
dima' zhù yì : cháng liàng bù xū yào zài dim lǐ miàn shēng míng , fǒu zé huì yǐn fā cuò wù
constpass="123456"' zhè shì yī gè zì fú chuàn qǐng yòng "" bāo guǒ qǐ lái . shè dìng mì mǎ wéi cháng liàng , bù kě biàngēng
do
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" mì mǎ jiàoyàn chéng gōng ")
exitdo
endif
loop
zhè gè chéng xù huì yī zhí bù tíng de wèn nǐ mì mǎ , zhī dào nǐ shū rù liǎo zhèng què de mì mǎ wéi zhǐ .(if kě yǐ qiàn tào zài lìng yī gè if dāng zhōng , yě kě yǐ qiàn tào zài xún huán tǐ dāng zhōng
, suǒ yǐ yī dìng yào yòng suō jìn , lái fēn qīng chǔ chéng xù de gè gè bù fēn ). zhè gè chéng xù shì hěn jīng diǎn de , zǎo qī de chéng xù dōushì zhè me zuò de . dàn shì wǒ men shì hacker, suǒ yǐ
wǒ men liǎo jiě xì tǒng de 'ān quán xìng , zhè zhǒng wú xiàn cì rèn zhèng chéng xù hěn róng yì bèi qióng jǔ pò jiě , wǒ men yào lái xiàn dìng rèn zhèng de cì shù . xiū gǎi chéng xù rú xià
dima,ctr
ctr=0' shè zhì jì shù qì
constpass="pas123_"' shàng miàn de nà gè shì ruò mì mǎ , zhè cì gǎi de qiáng yī diǎn
do
ifctr=3then
msgbox(" yǐ jīng dá dào rèn zhèng shàng xiàn , rèn zhèng chéng xù guān bì ")
exitdo
else
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" rèn zhèng chéng gōng ")
msgbox("( nǐ kě yǐ zài zhè lǐ jiā yī duàn chéng gōng hòu dé dào de xìn xī )")
exitdo
else
ctr=ctr+1' rú guǒ mì mǎ chū cuò jiù zēng jiā yī cì cuò wù rèn zhèng jì shù
msgbox(" rèn zhèng chū cuò , qǐng jiǎn chá mì mǎ ")
endif
endif
loop
yùn xíng zhè gè chéng xù shì shì kàn , dāng nǐ chū liǎo 3 cǐ cuò wù yǐ hòu , jiù huì tíng zhǐ zài cì xún wèn mì mǎ , guān bì chéng xù .telnet rèn zhèng yòng lái xiàn zhì cì shù de chéng xù yǔ cǐ dà
tóng xiǎo yì . yào zhù yì de shì qiàn tào de if yǔ jù , qīng zǎi xì dú yī xià zhè gè chéng xù , kě néng bǐ jiào nán dǒng , yě qǐng nǐ shì zhe zì jǐ shè jì yī xià lèi shìde chéng xù .
qí shí , yào zài do...loop jiā shàng yàn zhèng de gōng néng , bìng bù yī dìng yào yòng if, wǒ men kě yǐ zhí jiē lì yòng do. wǒ lái jiè shào yī xià while guān jiàn zì ,while kě yǐ fàng
zài do huò zhě shì loop hòu miàn , rán hòu zài jiē yī gè biǎo dá shì , dāng biǎo dá shì de zhí wéi true de shí hòu ( biǎo dá shì chéng lì ), cái yùn xíng xún huán tǐ . wǒ men lái kàn yī xià xiū gǎi hòu de
chéng xù "
dima,ctr
ctr=0
constpass="pas123_"
dowhilectr<3
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" rèn zhèng chéng gōng ")
msgbox("( nǐ kě yǐ zài zhè lǐ jiā yī duàn chéng gōng hòu dé dào de xìn xī )")
exitdo
else
ctr=ctr+1' rú guǒ mì mǎ chū cuò jiù zēng jiā yī cì cuò wù rèn zhèng jì shù
msgbox(" rèn zhèng chū cuò , qǐng jiǎn chá mì mǎ ")
endif
loop
zhè yàng shí xiàn de gōng néng hé shàng yī gè lì zǐ wán quán yī yàng , wǒ men zài lái kàn kàn bǎ while fàng zài loop hòu miàn :
dima,ctr
ctr=0
constpass="pas123_"
do
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" rèn zhèng chéng gōng ")
msgbox("( nǐ kě yǐ zài zhè lǐ jiā yī duàn chéng gōng hòu dé dào de xìn xī )")
exitdo
else
ctr=ctr+1' rú guǒ mì mǎ chū cuò jiù zēng jiā yī cì cuò wù rèn zhèng jì shù
msgbox(" rèn zhèng chū cuò , qǐng jiǎn chá mì mǎ ")
endif
loopwhilectr<3
gōng néng shì yī yàng de , wèishénme yào fàng zài loop hòu miàn ní ? nǐ bǎ ctr de zhí gǎi chéng 3 jiù zhī dào liǎo ,while zài do hòu miàn de chéng xù huì zhí jiē tuì chū , ér zài loop hòu miàn
hái huì yǔn xǔ yī cì rèn zhèng , dào liǎo loop cái jié shù . hé while xiāng fǎn de shì until, yòng fǎ hé while yī yàng , bù guò tā zhǐ yòu dāng hòu miàn de biǎo dá shì de zhí wéi false( biǎo
dá shì bù chéng lì ) de shí hòu cái zhí xíng xún huán tǐ , qǐng zì jǐ shì yàn yī xià
ok, wǒ men lái kàn lìng wài yī zhǒng xún huán jié gòu ,for....next, zhè zhǒng xún huán jié gòu shì jī yú jì shù de , yě shì zài biān chéng zhōng zuì cháng jiàn dào de xún huán jié gòu .
dimi
fori=0to5
msgbox(i)
next
kàn dào liǎo má ? měi cì shū chū de i dōushì dì zēng de , dàn wǒ men méi yòu míng què zhǐ chū i yào dì zēng , dāng i dá dào 5 de shí hòu , xún huán jiù jié shù liǎo , yīn wéi yóu 0 kāi shǐ , suǒ yǐ
xún huán tǐ zhí xíng liǎo 6 cì , zhè yī diǎn hěn zhòng yào , dà bù fēn dōng xī dōushì cóng 0 kāi shǐ 'ér bù shì 1. zhè gè chéng xù yě kě yǐ xiě chéng
do de xíng shì :
dimi
i=0
dowhilei<5
msgbox(i)
i=i+1' yīn wéi do bù néng zì dòng jì shù , bì xū shǒu dòng jiā
loop
zěn me yàng , hái shì for bǐ jiào hǎo yòng bā .for zài biān chéng zhōng hěn yòu yòng tú , wǒ men zài jǔ yī gè lì zǐ , shùn biàn jiǎng yī xià qiàn tào xún huán .
dimi,j
fori=1to9
forj=1to9
str=str&i*j&""'& shì hé bìng zì fú chuàn de fú hào
next' měi gè next duì yìng yī gè for
next
msgbox(str)
kàn kàn yùn xíng jiēguǒ , shì fǒu lìng nǐ huì xiǎng qǐ xiǎo xué shí dài de shù xué lǎo shī ( chǒu lòu de zuǐ liǎn ). yào zhù yì , zhè lǐ yòu yī gè " dà " de for, hé yī gè xiǎo de for, dāng
xiǎo de for zhí xíng wán yī gè zhōu qī yǐ hòu , dà de for cái zhí xíng yī cì ( huàn jù huà shuō , dà de for zhí xíng yī cì , xiǎo de yào zhí xíng 9 cì ), suǒ yǐ yī gòng zhí xíng liǎo jiǔ jiǔ bā shí
yī cì . zài dà de for lǐ kě yǐ bù jǐn jǐn shì yī gè xiǎo de for, yě kě yǐ jiā shàng lìng wài de yǔ jù . wǒ men lái xiū gǎi yī xià yuán chéng xù :
dimi,j
fori=1to9
forj=1to9
str=str&i*j&""
next' měi gè next duì yìng yī gè for
str=str&vbcrlf'vbcrlf xiāng dāng yú jiàn pán shàng de huí chē jiàn , yīn wéi nǐ bù néng zài jiàn pán shàng shū rù , suǒ yǐ xì tǒng dìng yì liǎo yī gè mò rèn de cháng liàng
next
msgbox(str)
zhè cì yùn xíng wán chéng yǐ hòu , shū chū jiēguǒ 'àn zhào chéng shù jìn xíng liǎo fēn gē , měi xiǎo for yùn xíng wán yī cì , jiù huàn yīháng ( tōng guò vbcrlf).
zhè cì de nèi róng duì cài niǎo kě néng bǐ jiào nán dǒng , zhǎng wò de bàn fǎ zhǐ yòu yī gè : duō shí jiàn . lìng wài , wǒ zài lùn tán kàn dào hěn duō rén hái shì wèn :"vbscript yào yòng shénme gōng
jù biān ?" wǒ jiù hěn qì fèn , wǒ zài dì yī piān lǐ miàn yǐ jīng shuō míng : yòng jì shì běn biān ji yuán dài mǎ , rán hòu bǎo cún wéi yǐ .vbs wéi kuò zhǎn míng de chéng xù jiù kě yǐ liǎo , qǐng dà jiā bù yào
zài wèn . lìng wài , guó chǎn de yī zhǒng lā jī ruǎn jiàn " chāo jí x bà " qiǎng zhàn liǎo vbs zhè gè kuò zhǎn míng , qǐng bǎ nà gè lā jī xiè zài diào .
wǒ men zǒng jié yī xià :
yào diǎn :
1)do..loop hé exitdo de yòng fǎ
2)while dāng biǎo dá shì true de shí hòu zhí xíng xún huán tǐ ,until fǎn zhī
3)for...next shì jì shù xún huán , měi cì zhí xíng jì shù qì dì jiā
4) qiàn tào xún huán de zuò yòng hé xiě fǎ
4.5)& yòng yú lián jiē zì fú chuàn
5)vbcrlf xiāng dāng yú jiàn pán shàng de huí chē jiàn
zuò yè :
1) zài wǒ guó de shù xué jīng diǎn zhù zuò " jiǔ zhāng suàn shù " zhōng yòu zhè yàng yī dào tí : bǎi qián mǎi bǎi jī , gōng jī 5 qián yī zhǐ , mǔ jī 3 qián yī zhǐ , xiǎo jī 1 qián 2 zhǐ ( zhè gè shù jù wǒ shì cān
kǎo yī běn biān chéng shū de , dàn wǒ jì dé shì gōng 3, mǔ 1, xiǎo 1 qián 3 zhǐ ? bù guǎn liǎo , jiù 'àn zhào shū shàng dé lái bā ) qiú dé shì néng yòu duō shǎo zhǒng bàn fǎ mǎi zhè xiē jī . rú guǒ kàn bù dǒng de
huà wǒ yòng dà bái huà shuō shuō : yòu rén yào qù mǎi jī , yòng 100 kuài qián zhèng hǎo mǎi liǎo 100 zhǐ jī , jià gé rú xià : gōng :5$, mǔ :3$, xiǎo :1$for2, ràng nǐ qiú yī gòng duō shǎo zhǒng mài
fǎ ( gōng mǔ xiǎo zěn me dā pèi ). qǐng yòng xún huán jiě jué zhè gè wèn tí .
ps: jīn tiān yào qù yí mín jú bàn shì , suǒ yǐ wén zhāng xiě de hěn cāng cù . dà bù fēn dài mǎ dōuméi yòu shí yàn , qǐng dà jiā bāng wǒ zhǎo cuò . lìng wài , shàng cì de zuò yè dà jiā zài lùn tán yīnggāi
kàn dào liǎo , wǒ jiù bù chóngfù dá 'àn liǎo , bù zhī dào dà jiā xǐ huān zuò zhè zhǒng tí , hái shì yǐ qián nà zhǒng bǐ jiào jiǎn dān de ?
[lasteditedbylongtian777on2004-12-6at16:08]
dì wǔ piān（ gòng liù piān）：
qǐng yǔn xǔ wǒ xiàn miáo shù yī xià wǒ xiàn zài de huán jìng : qì wēn gāo dá 37 shè shì dù , ér wǒ wàng jì liǎo tú shū guǎn kāi mén de shí jiān , hái yào zài zhè lǐ zhàn shàng yī gè xiǎo shí , zài rè dài zhí wù de bāo guǒ xià , gè zhǒng qí guài de xiǎo fēi chóng wéi zhe wǒ zhuǎn lái zhuǎn qù . bù guò lìng wǒ xīn wèi de shì , zhōng yú xiě dào wǔ liǎo , hái yòu liǎng kè wǒ men de " jī chǔ piān " jiù yào jié shù liǎo .
jīn tiān wǒ men lái liǎo jiě yǔ yán běn shēn de zuì hòu yī gè lùn tí : shù zǔ .
yào lǐ jiě " shù zǔ ", zhè gè gài niàn wǒ jué dé lìng yī zhǒng fān yì duì xué xí lái shuō gèng jiā róng yì :" zhèn liè ", méi cuò , shù zǔ jiù shì yī gè zhèn liè , yī gè shù jù de zhèn liè . zuì jiǎn dān de lì zǐ shì shù jù kù xì tǒng , jiǎ shè nǐ yào chǔ cún 20 míng xué shēng de yīng yǔ chéng jì , rú guǒ bù shì yòng shù zǔ , nǐ zé yào chuàng jiàn 20 gè bù tóng de biàn liàng , lèisǐ . shù zǔ jiù shì lèi xíng xiāng tóng ( zhòng yào !) de yī zǔ shù jù ( huò zhě n zǔ ), yòng lái chǔ cún xiāng guān de liàng , zuì jiǎn dān de shù zǔ shì yī wéi shù zǔ , wǒ men jiù xiān lái xué xí tā bā .
shénme shì yī wéi shù zǔ ní ? zài 3 wéi yǐ xià , nǐ kě yǐ lì yòng jǐ hé zhī shí lái lǐ jiě " wéi " de gài niàn , yī wéi xiāng dāng yú yī tiáo xiàn , èr wéi zé shì yī gè jǔ xíng , sān wéi shì yī gè cháng fāng tǐ . wǒ zhī dào zhè me jiǎng shì hěn chōu xiàng de , wǒ men xiān jǔ gè yī wéi shù zǔ de lì zǐ jiù bǐ jiào róng yì liǎo jiě liǎo .
dima(9)' cóng líng kāi shǐ
fori=0to9
a(i)=i' tián chōng měi yī gè shù zǔ yuán sù
msgbox(a(i))' shū chū shù zǔ yuán sù
next
wǒ men kě yǐ kàn dào , dìng yì yī gè shù zǔ de fāng fǎ hé dìng yì yī gè biàn liàng méi yòu shénme bù tóng , tóng yàng shì shǐ yòng dim yǔ jù . dìng yì yī wéi shù zǔ de fāng fǎ rú xià :
dim shù zǔ míng ( yuán sù shù liàng ), zhè lǐ dà jiā yào zhù yì yī diǎn , zhè lǐ dìng yì de yuán sù shù liàng zǒng shì bǐ nǐ yào de yào shǎo yī gè , yīn wéi yī gè shù zǔ de qǐ diǎn shì 0 hào shù jù 'ér bù shì 1, suǒ yǐ dà jiā yī dìng yào xiǎo xīn : nǐ xū yào 10 gè shù jù , jiù dìng yì "9", xū yào 100 gè jiù dìng yì 99, yǐ cǐ lèi tuī . shù zǔ de yuán sù kě yǐ kàn chéng yī gè gè dú lì de biàn liàng , nǐ kě yǐ xiàng dú lì de biàn liàng nà yàng shǐ yòng tā men . shù zǔ yuán sù de liàng kě néng shì háo wú guān xì de , bǐ rú dì yī gè shù zǔ yuán sù chǔ cún nǐ de nián líng , dì 'èr gè chǔ cún jīn nián xī guā de xiāo shòu liàng , dàn zhè zhǒng zuò fǎ shì bù gǔ lì de , shèn zhì shì bù bèi jiē shòu de , bù yào zhè me gān , zhè yàng de qíng kuàng qǐng dìng yì dú lì de biàn liàng .for yǔ jù zài shù zǔ zhōng kě suàn shì dà xiǎn shēn shǒu , hái jì dé for má ? tā lěi jiā yī gè biàn liàng , wǒ men kě yǐ bǎ zhè gè biàn liàng yìng yòng zài shù zǔ zhōng zhèng hǎo yòng lái dú qǔ huò zhě tián chōng 'àn zhào shùn xù pái liè de shù zǔ yuán sù , shàng miàn jiù shì zhè yàng yī gè lì zǐ . shù zǔ qí shí shì hěn jiǎn dān de dōng xī ( zài basic yǔ yán lǐ miàn ), shù zǔ nán de shì zěn me dǎo nòng zhè xiē xún huán , ràng tā men 'àn zhào nǐ de yào qiú yùn zhuǎn . zhè gè děng dào 'èr wéi shù zǔ zài shuō , wǒ men xiān kàn kàn rú hé shǒu gōng tián chōng shù zǔ .
rú guǒ nǐ zhè gèdōu xiǎng bù dào de huà , nà nǐ zhēn shì bái xué liǎo :
dimname(7),str' yī gòng bā gè xué shēng ,str biàn liàng shì yòng lái bǎ tā men chǔ cún chéng yī gè zì fú chuàn yǐ biàn shū chū
fori=0to7
name(i)=inputbox(" qǐng shū rù dì "&i+1&" gè xué shēng de míng zì ")
str=str&""&name(i)
next
msgbox(str)
zhè yàng wǒ men jiù yòu liǎo yī gè xiǎo xiǎo de shù jù kù , tā men de shù jù pái liè kě yǐ kàn chéng zhè yàng :
name(0),name(1),name(2).....name(7)
kàn dào liǎo bā , suǒ yǐ wǒ shuō wǒ men kě yǐ bǎ tā kàn chéng shì " yī tiáo xiàn ", děng dào wǒ men xué dào liǎo wén jiàn cāo zuò , jiù kě yǐ bǎ tā men shū chū dào wén jiàn zhōng qù liǎo . yī wéi shù zǔ yòu hěn duō yòng chù , wǒ men lái kàn yī xià yī gè fù zá de lì zǐ . wǒ men yào chǔ cún 3 gè xué shēng de míng zì , shēn gāo , chéng jì zhè sān zhǒng shù jù , yóu yú míng zì shì zì fú chuàn , ér shēn gāo kě néng shì fú diǎn shù ( dài xiǎo shù diǎn de shù ), chéng jì zé kě néng shì zhěng shù , suǒ yǐ wǒ men bù néng bǎ tā men chǔ cún zài yī gè shù zǔ lǐ miàn ( bù yào wàng jì , shù zǔ zhì zhǐ néng cún chǔ tóng lèi de shù jù ), suǒ yǐ wǒ men yào jiàn 3 gè shù zǔ , yǐ xià shì lì chéng :
dimname(2),high(2),mark(2)' dìng yì sān gè shù zǔ fēn bié chǔ cún 3 gè rén de míng zì , shēn gāo hé dé fēn
dimctr' jì shù qì
forctr=0to2
name(ctr)=inputbox(" qǐng shū rù dì "&ctr+1&" gè xué shēng de xìng míng ")
high(ctr)=inputbox(" qǐng shū rù dì "&ctr+1&" gè xué shēng de shēn gāo ")
mark(ctr)=inputbox(" qǐng shū rù dì "&ctr+1&" gè xué shēng de dé fēn ")
next
ok, wǒ men yǐ jīng tián chōng hǎo liǎo shù jù , xiàn zài wǒ men de xiǎo xiǎo shù jù kù zhǐ néng 'àn shùn xù shū rù , wǒ men yào ràng tā kàn qǐ lái xiàng diǎn yàng zǐ , wǒ men lái gěi tā shè jì chá xún gōng néng :
' jiē zhe shàng miàn de chéng xù
dimcname,temp' yào chá xún de míng zì , hé yī gè lín shí biàn liàng , yòng lái chǔ cún shù jù de wèi zhì
cname=inputbox(" qǐng shū rù nǐ yào chá xún de míng zì :")
forctr=0to2' biàn lì suǒ yòu name shù zǔ de chéng yuán , xún zhǎo yào chá xún de míng zì
ifname(ctr)=cnamethen
temp=ctr' jì lù shù jù wèi zhì
exitfor' tuì chū xún huán , hé exitdo de yòng fǎ yī yàng
endif' bù yào wàng liǎo endif
next
msgbox(" xìng míng :"&name(temp)&""&" shēn gāo :"&high(temp)&""&" dé fēn :"&mark(temp))
hēi hēi , yòu yì sī bā , qí shí zài zhè gè chéng xù lǐ miàn , nà gè temp biàn liàng wán quán méi yòu bì yào , zhǐ shì wèile gèng qīng chǔ dì shuō míng wèn tí . yīn wéi dāng exitfor yǐ hòu ctr biàn liàng de zhí jiù bù huì gǎi biàn , chǔ cún de zhèng hǎo shì duì yìng shù jù zài shù zǔ zhōng de wèi zhì , xiě zhè gè temp biàn liàng shì wéi liǎo zhào gù dào yǐ hòu yào xué c++ de péng yǒu (c++ kě yǐ zài for yǔ jù lǐ shēng míng xīn biàn liàng , zhǐ zài zhè gè for jié gòu zhōng yòu xiào , suǒ yǐ dào liǎo wài bù jiù bù néng fǎng wèn liǎo ). yě jiù shì shuō kě yǐ jiǎn huà chéng rú xià :
dimcname
cname=inputbox(" qǐng shū rù nǐ yào chá xún de míng zì :")
forctr=0to2
ifname(ctr)=cnamethenexitfor' yīn wéi zhǐ yòu exitfor jiù bù xū yào kuài if liǎo
next
msgbox(" xìng míng :"&name(ctr)&""&" shēn gāo :"&high(ctr)&""&" dé fēn :"&mark(ctr))
zhè shì zuì zhí jiē de lù zǐ . hǎohǎo zhòng dú yī xià shàng miàn suǒ yòu de yuán dài mǎ , rán hòu zì jǐ xiě jǐ gè chéng xù , wán quán gǎo qīng chǔ yī wéi shù zǔ jí qí yìng yòng yǐ hòu zài kàn hòu miàn de 'èr wèi shù zǔ . èr wéi shù zǔ hǎo xiàng shì yī gè yī wéi shù zǔ de jí hé , jiù hǎo xiàng " xiàn jī chéng miàn " yī yàng , yóu n gè yī wéi shù zǔ zǔ chéng 'èr wéi shù zǔ , zhè shì chū xué zhě bǐ jiào hǎo lǐ jiě de bàn fǎ ( bǐ jiào jīng què de shì yòng " biān hào " de gài niàn qù lǐ jiě , yīn wéi 4 wéi yǐ shàng de shù zǔ jiù bǐ jiào nán yǐ yòng 'ōu jǐ lǐ dé jǐ hé gài niàn qù jiě shì liǎo ). èr wéi shù zǔ shì hěn hǎo jiě shì de , wǒ men lái kàn yī xià :
dima(2,2)' cóng líng kāi shǐ , yī gòng yòu 3x3=9 gè shù jù
dimi,j' xū yào liǎng gè jì shù qì
fori=0to2
forj=0to2' shǐ yòng qiàn tào xún huán
a(i,j)="x"
next
next
wǒ men chuàng jiàn liǎo yī gè zhè yàng de 'èr wéi shù zǔ ( nà xiē "," shì wǒ yòng lái fēn gē yuán sù de , bìng bù cún zài ), liǎo jiě 'èr wéi shù zǔ de liǎo má ? bù qīng chǔ wǒ men zài jiǎng yī xià
biān hào 012
0x,x,x
1x,x,x
2x,x,x
'èr wéi shù zǔ de kàn qǐ lái shì bù shì jiù shì yī gè jǔ xíng ní ?( nǐ zài nèi cún zhōng kàn bù dào zhè yàng de jǔ xíng , zhǐ shì biàn yú nǐ lǐ jiě ), měi gè shù jù dōuyòu biān hào , yóu liǎng gè shù lái dìng wèi , zhè gè hěn xiàng ( fēi cháng xiàng ) nǐ zài guó jì xiàng qí qí pán shàng xún zhǎo yī gè gé , wǒ men yòng lèi sì "c6","a2" zhè yàng de " chuí zhí zuò biāo " jìn xíng dìng wèi , duì ," chuí zhí zuò biāo ", hěn què qiē . wǒ men yào shǐ yòng yī gè 'èr wéi shù zǔ yuán sù de shí hòu kě yǐ hé pǔ tōng biàn liàng yī yàng shǐ yòng , zhǐ yào zhǐ dìng shù zǔ yuán sù de " dìng wèi diǎn " jiù kě yǐ liǎo , lì rú
a(0)(1)=1,b(2)(1)=" nǐ hǎo ", zhū rú cǐ lèi . yào zhù yì de shì 'èr wéi shù zǔ yě zhǐ néng chǔ cún lèi xíng xiāng tóng de yuán sù , ér qiě shàng biāo ( qǐ diǎn ) yě cóng 0 kāi shǐ . jì suàn yī gè 'èr wéi shù zǔ de yuán sù gè shù zhǐ yào bǎ liǎng gè xià biāo +1( yǐ dé dào shí jì de zhí ) zài chéng qǐ lái jiù kě yǐ liǎo , fēi cháng lèi sì yú qiú yī gè jǔ xíng de miàn jī .
jiǎ rú xū yào chǔ cún dedōu shì tóng yī lèi xíng de shù jù , wǒ men jiù kě yǐ yòng 'èr wéi shù zǔ , bǐ rú yào chǔ cún 5 gè rén de xìng míng , guó jí , mín zú , jiù kě yǐ shǐ yòng 'èr wéi shù jù
diminfo(4,2)' yī gòng wǔ gè rén , yào chǔ cún de shù jù lèi xíng yòu 3 xiàng
dimi,j
fori=0to4
forj=0to2
dimopt' dìng yì yī gè biàn liàng yòng yú cún chǔ shù jù xiàng tí shì
_select_casej' pàn duàn yīnggāi shū rù de shì shénme shù jù
case0
opt=" xìng míng "
case1
opt=" guó jí "
case2
opt=" mín zú "
end_select_
info(i,j)=inputbox(" qǐng shū rù dì "&i+1&" gè rén de "&opt)
next
next
' shū chū tài má fán liǎo , wǒ lǎn dé dòng , nǐ zhī dào nà me huí shì jiù xíng liǎo
zhè yàng jiù bù xū yào dìng yì 3 gè yī wéi shù zǔ liǎo .
duō wèi shù zǔ ( sān wéi yǐ shàng ) de dìng yì hé shǐ yòng fāng fǎ yǔ 'èr wéi shù zǔ yī yàng , dàn bù tài hǎo zài 'ōu jǐ lǐ dé jǐ hé kōng jiān lǐ jiā yǐ jiě shì , xìng hǎo wǒ men bìng bù tài cháng yòng nà me duō wéi de shù zǔ . dìng yì yī gè sān wèi shù zǔ :dima(1,2,3)' yī gòng 24 gè shù zǔ yuán sù .
jīn tiān yīn wéi yào bān jiā ( wǒ xǐ huān sengkang 'ā , kě shì mm xián jiāo tōng bù biàn , shuí bù zhī dào tā zhǐ xiǎng qù guàng jiē ), ér gf yào qù hé tā de tóng xué qù cān jiā shénme shì yàn bàn yè cái huí jiā , suǒ yǐ xià wǔ wǒ zhǐ néng zì jǐ qù yā chē bān jiā liǎo ,5555~~ hǎo kě lián , zhè cì jiù qǐng dà jiā yuán liàng wǒ shǎo xiě yī diǎn , wǒ kě shì zhàn zài tú shū guǎn wài xiě de 'ā ,
xiàn zài tuǐ dū ruǎn liǎo ~~~ běn lái hái yào jiǎng " dòng tài shù zǔ " de , dàn xiǎng liǎo xiǎng hái shì fàng dào " jìn jiē bù fēn " zài shuō bā .
yào diǎn :
1) yī wéi shù zǔ shì " xiàn ", èr wéi shù zǔ shì " miàn ", sān wéi shù zǔ shì " tǐ "( duō wéi shù zǔ jiù luàn tào )
2) shù zǔ de xià biāo cóng 0 kāi shǐ
3)for xún huán zài shù zǔ de yìng yòng zhōng qǐ liǎo hěn dà zuò yòng , èr wéi shù zǔ xū yào qiàn tào xún huán
zuò yè :
shàng cì chū de " bǎi jī wèn tí ", dà jiā xǐ huān má ? yǐ hòu wǒ men jiù zuò zhè zhǒng xū yào dòng nǎo de tí mù , nà xiē jiǎn dān de shí jiàn , dà jiā yī dìng yào duō zuò !
1) dìng yì yī gè shù zǔ , bāo hán 5 gè yuán sù , dōushì suí jī zhěng shù ( suí biàn shū rù ), yào qiú bǎ tā men 'àn zhào cóng dà dào xiǎo de shùn xù pái liè qǐ lái
2) yòu liǎng gè 'èr wéi shù zǔ a(4,4) hé b(4,4)( yuán sù zhí suí biàn ), jiāo huàn liǎng gè shù zǔ ( yuán lái de a de suǒ yòu yuán sù zhí biàn chéng b de ,b de suǒ yòu yuán sù zhí biàn chéng a de )
[lasteditedbylongtian777on2004-12-6at16:11]
zuì hòu yī piān：
xīn jiā bù cuò ,mm kāi xīn , wǒ yě jiù gēn zhe gāo xīng liǎo :), jīn tiān wǒ men xué xí jī chǔ piān de zuì hòu yī gè bù fēn : zì dìng yì hán shù hé guò chéng . wǒ men měi tiān dōuzài hé hán
shù dǎ jiāo dào ,inputbox() shì hán shù ,msgbox() shì hán shù ,int() yě shì hán shù ... zhè xiē hán shù dōushì xì tǒng nèi jiàn de , wǒ men zhǐ néng yòng bù néng gǎi . jīn tiān , wǒ
jiù jiào dà jiā zěn yàng zì jǐ zhì zuò yī gè hán shù .
shǒu xiān wǒ men yào liǎo jiě , wèishénme yào yòng hán shù , wǒ men yòng " shí lì " shuō huà , xiān kàn yī gè lì zǐ : gěi chū liǎng gè shù , shū chū jiào dà de nà yī gè .
dima1,a2,b1,b2,c1,c2
a1=2:a2=4'":" kě yǐ ràng nǐ bǎ duō gè yǔ jù xiě zài yīháng shàng
b1=32:b2=67
c1=12:c2=898
ifa1>a2then
msgbox(a1)
elseifa1<a2then
msgbox(a2)
endif
ifb1>b2then
msgbox(b1)
elseifb1<b2then
msgbox(b2)
endif
ifc1>c2then
msgbox(c1)
elseifc1<c2then
msgbox(c2)
endif
duō me má fán yā , wǒ men bǎ xiāng tóng de bǐ jiào guò chéng fù zhì liǎo hǎo jǐ biàn , zǎo qī yǔ yán méi yòu jié gòu huà ( méi yòu guò chéng hé hán shù ) de shí hòu , chéng xù yuán men de què shì zhè me
gān de , tā men fù zhì (copy), nà gè nián dài yě méi yòu jiǎn tiē bǎn zhè yī shuō , dà jiādōu shì chóngxīn shū rù dài mǎ . hòu lái gōng zuò jiǎn huà liǎo :
dima1,a2,b1,b2,c1,c2
a1=2:a2=4
b1=32:b2=67
c1=12:c2=898
msgbox(co(a1,a2))
msgbox(co(b1,b2))
msgbox(co(c1,c2))
functionco(t1,t2)' wǒ men shǐ yòng function dìng yì liǎo yī gè xīn de hán shù
ift1>t2then
co=t1' tōng guò " hán shù míng = biǎo dá shì " zhè zhǒng fāng fǎ fǎn huí jiēguǒ
elseift2>t1then
co=t2
endif
endfunction
wǒ men zài zhè lǐ shì yòng liǎo yī gè xīn de guān jiàn zì :funciton, zhè gè guān jiàn zì biǎo shì yī gè xīn hán shù kāi shǐ , gé shì :
funciton hán shù míng ( cān shù 1, cān shù 2... cān shù n)' liè biǎo kě yǐ shì kōng de , dàn kuò hào bù néng shěng lüè , cān shù zhī jiān yòng "," fēn gē
...
exitfunciton' jié shù hán shù , bù shì bì xū de
...
endfunction
hán shù shì yī gè mó kuài , zhǐ yòu nǐ diào yòng de shí hòu cái huì yùn xíng , yě jiù shuō , dāng nǐ biān xiě liǎo yī gè hán shù , rán hòu zài chéng xù zhōng bìng bù diào yòng tā , nà me zhè gè hán shù
yǒng yuǎn bù huì yùn xíng . yī bān lái shuō , wǒ men biān xiě chéng xù shì 'àn zhào :
zhù chéng xù
..
..
..
hán shù 1
..
..
hán shù 2
..
..
xiáng xì jiě shì yī xià : hán shù zhōng zuì zhòng yào de shì cān shù hé fǎn huí zhí . cān shù shì zài hán shù míng hòu miàn de () lǐ dìng yì de , yòng "," fēn gē , shǐ yòng cān shù de shí hòu wǒ men yě
yòng "," fēn gē . shuō dào zhè lǐ wǒ xiǎng qǐ yī jiàn shì , zuó tiān yòu gè péng yǒu gěi wǒ fā xiāo xī wèn wǒ :
msgbox(name1,name2,name3)
zhè gè cuò zài nǎ lǐ ? wèishénme bù néng tóng shí xiǎn shì chū sān gè biàn liàng ? zhè jiù shì yīn wéi nǐ yòng liǎo ",", zhè gè fú hào biǎo shì nǐ shū rù de sān gè liàng zuò wéi sān gè bù tóng cān shù
chuán dì gěi msgbox() hán shù ,msgbox() hán shù zhǐ huì xiǎn shì chū dì yī gè cān shù , dì 'èr gè cān shù de zuò yòng shì chū xiàn zài biāo tí lán . suǒ yǐ nǐ yīnggāi yòng "&" huò zhě "+" bǎ
sān gè zì fú chuàn biàn liàng lián jiē qǐ lái , zuò wéi dì yī gè cān shù chuán dì gěi msgbox() hán shù . chéng xù yuán shuō cān shù de shí hòu jīng cháng shuō dào " xíng cān "," shí cān " zhè yàng de " hēi huà ",
wǒ lái jiě shì yī xià ." xíng cān " shì " xíng shì cān shù " de jiǎn chēng ," shí cān " shì " shí jì cān shù " de jiǎn chēng , shí cān shì zhǐ nǐ diào yòng hán shù de shí hòu chuán dì gěi hán shù de liàng , kě yǐ
shǐ biàn liàng huò zhě cháng liàng ( zhí jiē liàng ), lì rú :co(12,24) zhōng de 12,24 jiù shì shí cān . xíng cān shì nǐ zài hán shù dìng yì shí dìng yì de biàn liàng , zhè xiē biàn liàng yòng lái " jiē zhù " chuán dì
guò lái de liàng , lì rú functionco(t1,t2)t1,t2 jiù shì xíng cān .
zài vbscript zhōng , cān shù chuán dì shì yī zhǒng chuán zhí , ér bù shì chuán zhǐ ( tīng bù míng bái bù yào jǐn , xué liǎo c yǔ yán de zhǐ zhēn nǐ jiù míng bái liǎo ), suǒ yǐ wǒ men jìn xíng de cān
shù chuán dì shí jì shàng shì jìn xíng liǎo yī cì biàn liàng fù zhí , lì rú wǒ men diào yòng co(a1,a2), shí jì shàng chéng xù huì zhí xíng yī bù :t1=a1,t2=a2 zhè yàng de cāo zuò . tóng yàng yīn wéi chuán
zhí chuán zhǐ de yuán yīn ,vbscript zhǐ néng fǎn huí yī gè zhí , wǒ men xiān lái kàn kàn shénme jiào & | | dì yī piān（ gòng liù piān）：
wǒ zhī dào cài niǎo xiàn zài zuì guān xīn de jiù shì yòng shénme gōng jù lái kāi fā vbs chéng xù liǎo , dá 'àn shì : jì shì běn .(Notepad). wǒ bù shì kāi wán xiào , qí shí rèn hé yī zhǒng wén běn biān ji qì dōukě yǐ yòng lái kāi fā vbs kāi fā , zhǐ bù guò jì shì běn shì yóu xì tǒng zì dài de , bǐ jiào hǎo zhǎo 'ér yǐ . jìn guǎn rú cǐ , wǒ hái shì jiàn yì nǐ qù xià zài yī gè zhuān yè de wén běn biān ji qì , yīn wéi zhè xiē gōng jù kě yǐ tí gōng " yǔ fǎ gāo liàng " děng gōng néng , gèng jiā fāng biàn kāi fā , yòng nǎ yī gè suí nǐ xǐ hǎo , wǒ bǐ jiào xǐ huān EditPlus(2.10).
OK, wǒ men xiān lái xiě yī gè vbscript chéng xù rè rè shēn .
REM shū rù bìng huí xiǎn nǐ de míng zì
' shǐ yòng InputBox hé Msgbox hán shù
（ shàng miàn kě yǐ bù bì xiě rù yuán dài mǎ zhōng）
Dimname,msg
msg=" qǐng shū rù nǐ de míng zì :"
name=Inputbox(msg)
Msgbox(name)
bǎ shàng miàn de chéng xù qīng dān shū rù dào jì shì běn lǐ miàn , rán hòu bǎo cún wéi yǐ .vbs wéi kuò zhǎn míng de wén jiàn (" bǎo cún lèi xíng " lǐ miàn xuǎn zé " suǒ yòu wén jiàn "). rán hòu shuāng jī yùn xíng , guān chá yùn xíng jiēguǒ . zhù yì : qǐng zì jǐ shū rù chéng xù qīng dān , bù yào fù zhì -> zhāntiē
wǒ lái jiě shì yī xià zhè gè chéng xù , dì yīháng hé dì 'èr xíng de kāi tóu fēn bié shì "REM" yǔ jù hé "'", zhè liǎng gè dōng xī de zuò yòng shì xiāng tóng de , biǎo shì běn xíng shì zhù shì xíng , jiù shì shuō zhè liǎng xíng shénme yě bù gān , zhǐ shì yòng lái shuō míng zhè duàn chéng xù de gōng néng , bǎn quán xìn xī děng děng . zhù shì xíng shì chéng xù zuì zhòng yào de bù fēn zhī yī , jìn guǎn tā bù shì bì xū de , dàn duì yú qí tā rén yuè dú yuán dài mǎ , yǐ jí zì jǐ fēn xī yuán dài mǎ shì hěn yòu hǎo chù de . hǎo de xí guàn shì zài bì yào de dì fāng jiā shàng qīng xī , jiǎn jié de zhù shì .
Dim yòng lái shēng míng yī gè biàn liàng , zài vbs zhōng , biàn liàng lèi xíng bìng bù shì nà me zhòng yào , jiù shì shuō vbs huì bāng nǐ zì dòng shí bié biàn liàng lèi xíng , ér qiě biàn liàng zài shǐ yòng qián bù yī dìng yào xiān shēng míng , chéng xù huì dòng tài fēn pèi biàn liàng kōng jiān . zài vbs zhōng nǐ bù yòng kǎo lǜ name chǔ cún de shì yī gè zhěng shù hái shì yī gè xiǎo shù ( xué míng jiào " fú diǎn shù "), yě bù yòng kǎo lǜ shì bù shì zì fú chuàn ( yī chuàn zì fú , bǐ rú :"HelloWorld"),vbs huì zì dòng bāng nǐ gǎo dìng . suǒ yǐ dì sān xíng yǔ jù kě yǐ shān chú , xiào guǒ bù huì biàn , dàn wǒ qiáng liè fǎn duì zhè me zuò , yī gè biàn liàng de jī běn yuán zé jiù shì : xiān shēng míng , hòu shǐ yòng . biàn liàng míng yòng zì mǔ kāi tóu , kě yǐ shǐ yòng xià huàxiàn , shù zì , dàn bù néng shǐ yòng vbs yǐ jīng dìng yì de zì , bǐ rú dim, yě bù néng shì chún shù zì .
xià yīháng bèi chēng zhī wéi " fù zhí ","=" shì fù zhí fú hào , bìng bù shì shù xué zhōng de děng yú hào , jìn guǎn kàn qǐ lái yī yàng . zhè shì zhèng tǒng de lǐ jiě , nǐ yào lǐ jiě chéng děng yú yě méi yòu shénme bù kě . fù zhí hào de zuǒ biān shì yī gè biàn liàng , yòu biān shì yào fù gěi biàn liàng de zhí , jīng guò fù zhí yǐ hòu ,msg zhè gè biàn liàng zài chéng xù zhōng děng tóng yú " qǐng shū rù nǐ de míng zì :" zhè gè zì fú chuàn , dàn dāng msg bèi zài cì fù zhí de shí hòu , yuán zhí jiù huì xiāo shī . bù guāng zì fú chuàn , qí tā rèn hé biàn liàng dū zhè yàng bèi fù zhí , lì rú :a=2,b=12.222 děng děng .
zài wǎng xià ,Inputbox hé Msgbox shì vbs nèi jiàn de hán shù , yī gè hán shù jiù xiāng dāng yú yī gè " hēi xiāng ", yòu shū rù ( cān shù ) hé shū chū ( fǎn huí zhí ), nǐ kě yǐ bù yòng liǎo jiě hán shù shì zěn me yùn zuò de , zhǐ yào liǎo jiě zhè gè hán shù néng gànshénme jiù xíng liǎo , wǒ men yě kě yǐ dìng yì zì jǐ de hán shù , bù guò nà yào děng dào yǐ hòu zài jiǎng . xiàn zài wǒ men zhǐ yào liǎo jiě , yī gè hán shù kě yǐ yòu fǎn huí zhí yě kě yǐ méi yòu , kě yǐ yòu cān shù yě kě yǐ méi yòu . lì rú Inputbox jiù shì yòu fǎn huí zhí de hán shù , wǒ men yòng fù zhí hào zuǒ biān de biàn liàng lái " jiē " zhù InputBox de fǎn huí zhí -- jiù shì nǐ shū rù de nèi róng . zài inputbox yòu biān de kuò hào lǐ shì cān shù liè biǎo , měi gè cān shù yòng "," fēn gé kāi , měi gè cān shù yòu bù tóng de gōng xiào , bǐ rú dì yī gè cān shù huì xiǎn shì zài tí shì lǐ , wǒ men bǎ msg zhè gè biàn liàng zuò wéi dì yī gè cān shù chuán gěi liǎo Inputbox hán shù , ér msg=" qǐng shū rù nǐ de míng zì :", suǒ yǐ wǒ men zài duì huà kuàng de tí shì lán jiù huì kàn dào " qǐng shū rù nǐ de míng zì :" dì 'èr gè cān shù shì duì huà kuàng de biāo tí , wǒ men yòng zhí jiē liàng ( xué míng jiào " cháng liàng ", zhè lǐ shì " zì fú chuàn cháng liàng ") chuán dì gěi hán shù , dāng rán nǐ yě kě yǐ chuán dì biàn liàng .Inputbox hái yòu hěn duō cān shù , bǐ rú nǐ zài " míng chēng " hòu miàn zài jiā yī gè "," rán hòu shū rù suí biàn yī chuàn zì fú ( zì fú chuàn , yòng shuāng yǐn hào "" bāo guǒ qǐ lái de yī chuàn zì fú jiào zuò zì fú chuàn ) rán hòu yùn xíng , kàn kàn jiēguǒ . nǐ huì fā xiàn yòng yú shū rù de wén běn kuàng yòu liǎo mò rèn de zhí , zhè jiù shì dì sān gè cān shù de zuò yòng .
Msgbox hán shù shì yòng lái shū chū de hán shù , zài vbs zhōng méi yòu zhuān mén de shū chū hán shù (BASIC zhōng de print,C zhōng de printf), suǒ yǐ wǒ men zhǐ néng yòng duì huà kuàng lái guān chá shū chū jiēguǒ ,Msgbox de bì yào cān shù zhǐ yòu yī gè , jiù shì yào shū chū de nèi róng , zài zhè zhǒng qíng kuàng xià , wǒ men bù xū yào lǐ huì msgbox de fǎn huí zhí . guān yú Msgbox hé Inputbox wǒ men yǐ hòu hái huì zài tǎo lùn , jīn tiān zhǐ shì rè rè shēn , dào cǐ wéi zhǐ .
yào diǎn :
1) zhù shì ( yǐ REM huò ' kāi tóu ) xíng zài chéng xù zhōng bù qǐ zuò yòng , dàn néng ràng bié rén gèng róng yì dú dǒng nǐ de chéng xù .
2) biàn liàng hǎo xiàng yī gè hé zǐ , huò yī gè dài hào , kě yǐ dài biǎo nǐ xiǎng dài biǎo de dōng xī . biàn liàng fù zhí shǐ yòng "="
3) yǐ "" bāo guǒ qǐ lái de zì fú chēng zhī wéi " zì fú chuàn "
4) hán shù xiàng yī gè " hēi xiāng ", yòu cān shù hé fǎn huí zhí , yòng "=" zuǒ biān de biàn liàng kě yǐ jiē zhù fǎn huí zhí
5)Inputbox hán shù dàn chū yī gè shū rù duì huà kuàng ,Msgbox zé yòng yú shū chū
zuò yè :
1) shì yàn Inputbox de dì sān gè cān shù
2) xiě yī duàn chéng xù shū chū nǐ de nián líng
3) xiě yī duàn chéng xù jìn xíng 3 cì shū rù , fēn bié shū rù nǐ hé nǐ fù mǔ de xìng míng ( yào qiú xiǎn shì tí shì ), bìng fēn 3 cì shū chū
cān kǎo zī liào： http://www.stu.la/former/bbs/printpage.asp?BoardID=5&ID=6515
dì 'èr piān（ gòng liù piān）：
wǒ zhēn méi xiǎng dào , dì yī cì de zuò yè jìng rán yòu rén bù huì .
kàn lái yào jiǎng de fēi cháng fēi cháng xì zhì cái xíng , ǹg , jīn tiān jiǎng gè zhǒng " liàng " hé jī běn yùn suàn
xiān shuō cháng liàng , zhè gè bǐ jiào jiǎn dān .
shénme shì cháng liàng ní , cháng liàng jiù shì qí zhí bù kě biàn huà de liàng .
cháng liàng fēn wéi liǎng zhǒng : dì yī zhǒng , zì rán cháng liàng . zhè jiào shì yīn wéi tā men běn shēn jiù shì cháng liàng , nǐ zěn me gēnggǎi 21 de zhí ní ? tā yǒng yuǎn dōushì 21, bù kě néng biàn chéng 46
rú guǒ nǐ zài chéng xù zhōng shǐ yòng "21=46", zhè yàng de yǔ jù jiāng huì yǐn fā yī gè cuò wù . tóng yàng de , zì fú chuàn yě shì cháng liàng ( hái jì dé zì fú chuàn má ? jiù shì bāo guǒ zài "" zhī jiān de yī chuàn zì fú ),"HelloWorld" jiù shì yī gè lì zǐ , rú guǒ nǐ shǐ yòng "HelloWorld"="Bye" zhè yàng de yǔ jù tóng yàng huì yǐn fā yī gè cuò wù . nǐ néng jǔ chū zì rán cháng liàng de gèng duō lì zǐ má ?
dì 'èr zhǒng , shì wǒ men zì jǐ dìng yì de cháng liàng , zhè zhǒng liàng yě shǐ yòng dài hào , tā men yě bèi fù zhí , dàn hé biàn liàng de bù tóng diǎn zài yú , tā men zài dìng yì de shí hòu bèi fù zhí , yǐ hòu jiù bù néng gǎi biàn liǎo , rú guǒ qǐ tú gǎi biàn jiāng huì yǐn fā yī gè cuò wù . dìng yì yī gè biàn liàng , wǒ men shǐ yòng "const" zhè gè guān jiàn zì ( guān jiàn zì de yì sī shì xì tǒng dìng yì liǎo yòu tè shū gōng néng de zì , bù néng zuò wéi biàn liàng míng huò cháng liàng míng shǐ yòng )
gé shì shì :const cháng liàng míng = cháng liàng zhí .
lì rú :
constPI=3.1415926
constNAME=" jì yì suì piàn "
zhè yàng wǒ men jiù dìng yì liǎo liǎng gè cháng liàng ,PI hé NAME, yī bān shuō lái , cháng liàng míng quán bù shǐ yòng dà xiě , dàn yě kě yǐ bù yòng , suí nǐ xǐ hǎo . jiāng yī xiē zài chéng xù zhōng bù xū yào gǎi biàn de zhí dìng yì wéi cháng liàng shì gè hǎo xí guàn , zhè yàng néng fáng zhǐ bù bì yào de yì wài . lìng wài , shǐ yòng zì dìng yì cháng liàng yě kě yǐ jiǎn shǎo nǐ de gōng zuò liàng . bǐ rú :
msgbox("HelloWorld")
msgbox("HelloWorld")
msgbox("HelloWorld")
msgbox("HelloWorld")
msgbox("HelloWorld")
zhè gè chéng xù shū chū wǔ cì HelloWorld, rú guǒ nǐ xiǎng yào gǎi biàn shū chū wéi Bye-Bye, jiù bì xū xiū gǎi quán bù chéng xù , dāng rán nǐ kě yǐ shǒu dòng xiū gǎi 5 cì , dàn rú guǒ nǐ yào shū chū 1000 cì ní ? cháng liàng jiù kě yǐ tì wǒ men jiě jué zhè gè wèn tí :
consthw="HelloWorld"
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
zhè yàng dāng nǐ yào xiū gǎi shū chū de shí hòu zhǐ yào xiū gǎi hw de zhí jiù xíng liǎo .
hǎo liǎo , xiàn zài wǒ men lái kàn kàn biān chéng de dì yī kuài zhòng yào " jī shí ": biàn liàng . jiě shì biàn liàng zuì hǎo de bàn fǎ wǒ jué dé shì " hé zǐ ", yī gè biàn liàng hǎo xiàng yī gè hé zǐ , lǐ miàn zhǐ néng zhuāng yī gè dōng xī , dāng nǐ yào zhuāng jìn qù bié de dōng xī de shí hòu bì xū bǎ yuán yòu de dōng xī ná chū lái . zhè gè " hé zǐ " shì yòu míng chēng de , dāng nǐ zài chéng xù zhōng shǐ yòng biàn liàng de shí hòu , xì tǒng huì dǎ kāi hé zǐ qǔ chū lǐ miàn de dōng xī , ràng zhè xiē dōng xī cānyù chǔlǐ , ér bù shì hé zǐ . yòu xiē yǔ yán shì hěn yǐ lài " hé zǐ " lǐ miàn zhuāng xiē shénme dōng xī , zhè yàng cái néng zhǎo dào hé shì de " hé zǐ "( bǐ rú C yǔ yán ), dàn vbs gěi wǒ tí gōng de shì néng gòu zì dòng shēn suō de " mó shù hé ", wǒ men bù yòng guān xīn zhuāng jìn qù de shì shénme dōng xī ,
vbs huì zì dòng tiáozhěng hé zǐ de dà xiǎo . lì rú :
Dima1,a2,a3
a1=14
a2=12.23
a3="Hello"
ér bù yòng xiàng C yǔ yán nà yàng má fán : huò zhě shì VB de zhèng guī shēng míng (VB kě yǐ shēng míng yě kě yǐ bù yòng ) nà yàng :
inta1;Dima1asinteger
floata2;Dima2asDouble
char*a3;Dima3asstring
a1=14;a1=14
a2=12.23;a2=12.23
a3="Hello";a3="Hello"
ǹg…… chě yuǎn liǎo……
biàn liàng yòu shénme yòng ní ? wā , nà yòng chù kě dà liǎo . zuì jiǎn dān , nǐ bìng bù néng què dìng chéng xù yùn xíng shí biàn liàng de zhí , bǐ rú qián yī jié kè wǒ men biān de shū rù xìng míng de chéng xù , nǐ bù néng què dìng InputBox fǎn huí de shì shénme ( hái jì dé Inputbox de fǎn huí zhí má ? jiù shì nǐ shū rù de nèi róng ), suǒ yǐ nǐ jiù méi yòu bàn fǎ yìng duì gè zhǒng qíng kuàng , dàn wǒ men yòng name zhè gè " hé zǐ " bǎ yòng hù de míng zì zhuāng qǐ lái , dào yòng de shí hòu wǒ men zhǐ yào zhī dào name zhè gè hé zǐ de míng zì jiù xíng liǎo , xì tǒng huì zì jǐ dǎ kāi tā bìng bǎ lǐ miàn de nèi róng ná chū lái yòng . zài jǔ gè lì zǐ , wǒ men biān xiě yī gè chéng xù jì suàn yī gè jǔ xíng de miàn jī , bǐ rú zhè gè chéng xù yào fā gěi xiǎo xué shēng shǐ yòng :
dima,b,s
a=15
b=12
s=a*b
msgbox(s)
zhè yàng jiù kě yǐ qiú chū cháng wéi 15, kuān wéi 12 de jǔ xíng de miàn jī liǎo , shì bù shì hěn jiǎn dān ? dāng rán , zhè gè chéng xù yě kě yǐ zhè yàng xiě :
dims
s=15*12
msgbox(s)
zhè yàng kàn qǐ lái chéng xù duǎn liǎo xǔ duō , yě jié yuē nèi cún , dàn bìng bù shì gǔ lì de zuò fǎ , wèishénme ? qǐng kàn xià miàn .
xiàn zài , wǒ men de chéng xù yào biàn dé xiàng diǎn yàng zǐ cái xíng , shuí de chéng xù xiě chū lái hái yào bié rén xiū gǎi yuán dài mǎ cái néng yòng 'ā ?
suǒ yǐ , wǒ men yào jiē shòu yòng hù de shū rù , hái jì dé má ?InputBox hán shù .
xiū gǎi hòu chéng xù rú xià :
dima,b,s
a=inputbox(" qǐng shū rù jǔ xíng de cháng :")
b=inputbox(" qǐng shū rù jǔ xíng de kuān :")
s=a*b
msgbox(s)
ok, zhè me yī xiū gǎi , wú lùn yòng hù shū rù zěn yàng de shù jù , wǒ mendōu néng jì suàn chū jǔ xíng de miàn jī liǎo . rú guǒ nǐ yòng s=15*12 néng gǎi má ? dāng rán bù xíng .
wǒ xiǎng nǐ yǐ jīng fā xiàn liǎo ,vbs zhōng de shù xué jì suàn hé zhēn zhèng de suàn shù méi yòu shénme bù tóng ,+,-,*,/,(),[],{} dōushì yī yàng de yòng fǎ , bǐ rú :
dimans
ans=12+32/4+[(23-10)*2]
msgbox(ans)
sì zé yùn suàn de fǎ zé zài biān chéng zhōng tóng yàng shēng xiào , nǐ kě yǐ zài biān chéng zhōng chóngxīn huò dé xiǎo xué shí hòu de lè qù ( nǐ hèn shù xué ? nà jiù bié xué diàn nǎo liǎo ).
zài biān chéng zhōng yòu yī gè yòu qù de yùn suàn fú shì "mod", zhè gè yùn suàn fú jiào zuò " qǔ yú yùn suàn fú ", jiù shì qǔ dé yī cì chú fǎ de yú shù , lì rú
dima
a=16mod5
nǐ zhī dào a děng yú jǐ má ?Bingo! méi cuò , jiù shì 1. yīn wéi 16/5=3....1, suǒ yǐ mod jì suàn de jiēguǒ jiù shì 1.
hái yòu yī gè yùn suàn fú shì "^"( jiù shì jiàn pán "6" shàng miàn de xiǎo jiàn tóu ), tā biǎo shì " chéng mì "( huò zhě shì " fāng ") bǐ rú :
dima,b,c
a=2
b=a^2
c=a^3
msgbox(b)
msgbox(c)
zé b=a*a=4,c=a*a*a=8
wǒ men yī cì bù yào jiǎng tài duō , zhè cì jiù jiǎng dào zhè lǐ , xiàn zài zǒng jié yī xià .
yào diǎn :
1) cháng liàng fēn wéi zì rán cháng liàng hé zì dìng yì cháng liàng , cháng liàng de zhí bù kě xiū gǎi
2) biàn liàng jiù xiàng hé zǐ , wǒ men bù zài hū hé zǐ lǐ zhuāng de shì shénme , dàn yī dìng yào zhī dào hé zǐ de míng zì
3) sì zé yùn suàn zài biān chéng zhōng méi yòu rèn hé bù tóng
4)MOD shì qǔ yú yùn suàn
zuò yè :
1) biān yī gè chéng xù , jì suàn yuán xíng de miàn jī , bàn jìng yóu yòng hù gěi chū ( shǐ yòng Inputbox)PI qǔ zhí 3.14159
2) biān yī gè chéng xù qǔ dé 20/3 de yú shù
[Lasteditedbylongtian777on2004-12-6at16:02]
dì sān piān（ gòng liù piān）：
shǒu xiān , wǒ lái jiě jué yī xià shàng cì kè chéng de jǐ gè yí wèn
dì yī , nà gè yú shù wèn tí ,16/5=3...1, shì yīn wéi wǒ gǎi guò qián miàn de bù fēn , hòu miàn de wàng liǎo gǎi liǎo , bù hǎo yì sī .
dì 'èr , qǐng kàn yī xià chéng xù qīng dān :
1)
Dima,b,c
a=inputbox("a shì :"," shū rù bàn jìng ")
b=Inputbox("b shì :"," shū rù bàn jìng ")
c=a*2+b*2
Msgbox(c)
zhè gè shū rù 1、 2 shí shì 6
2)
Dima,b,c
a=inputbox("a shì :"," shū rù bàn jìng ")
b=Inputbox("b shì :"," shū rù bàn jìng ")
c=(a+b)*2
Msgbox(c)
zhè gè shū rù 1、 2 shí shì 24
wèishénme huì bù yī yàng ní ? zài shù xué shàng c=(a+b)*2 hé c=a*2+b*2 shì děng jià de , zài vbs zhōng yě shì rú cǐ . wèn tí chū zài "+" shàng , zài vbs zhōng ,+ bù jǐn jǐn shì jiā hào de yì sī hái biǎo shì bǎ liǎng gè zì fú chuàn lián jiē qǐ lái , lì rú "Hello"+"World"="HelloWorld"haveyouunderstood? nǐ hái jì dé InoutBox hán shù de fǎn huí zhí má ? shì zì fú chuàn ! zhè jiù kàn chū wèn tí liǎo bā , zài biān chéng zhōng "1" bù děng yú (<>)1,"1" shì yī gè zì fú , ér 1 shì yī gè shù , suǒ yǐ a,b dōushì zì fú chuàn biàn liàng ,"1"+"2"="12", zhè jiù hǎo xiàng wǒ men xiǎo shí gēn huǒ bàn kāi wán xiào wèn tā men 1+1=? yī yàng , wǒ men zǒng shì xiào zhe shuō " cuò lā , yīnggāi shì 11". dàn wèishénme ,a kě yǐ *2 què bù fā shēng cuò wù ní ? zhè shí vbs bǐ jiào zhì néng de yī gè biǎo xiàn , rú guǒ zhè gè zì fú chuàn de nèi róng shì yī gè shù qiě duì tā jìn xíng shù xué yùn suàn , zé bǎ zì fú chuàn qiáng zhì zhuǎn huàn chéng shù cānyù yùn suàn , rú guǒ zì fú chuàn dài biǎo yī gè shù , dàn bù cān jiā shù xué yùn suàn , ér shì cān jiā zì fú chuàn yùn suàn ( hé bìng ) zé dāng zuò zì fú chuàn chǔlǐ , suǒ yǐ nǐ kàn dào a+b=12, zhè shí hòu a+b de jiēguǒ (12) shì yī gè zì fú chuàn , dāng tā yào chéng yǐ 2 de shí hòu jiù bèi qiáng zhì zhuǎn huàn chéng liǎo shù zì 12, zhè yàng wǒ jiù dé dào liǎo jiēguǒ 24.
zěn me xiū gǎi zhè gè chéng xù ní ? wǒ men xū yào yòng dào lìng yī gè nèi jiàn de hán shù :int,int hán shù de gōng néng shì jiāng shū rù zhí zhuǎn huà chéng zhěng shù zhí , wǒ men zhè yàng xiū gǎi :
c=(int(a)+int(b))*2
zhè gè yì sī jiù shì bǎ a zuò wéi cān shù chuán dì gěi int hán shù ,int hán shù jiù huì fǎn huí nà gè zhěng shù ( nǐ de shū rù zhí ), rán hòu ràng fǎn huí zhí cānyù yùn suàn , zhè yàng jiù dé dào liǎo zhèng què dá 'àn . suǒ yǐ , yǐ hòu rú guǒ nǐ yòng de shì inputbox hán shù de huà , zuì hǎo yòng int yǔ jù jiā gōng yī xià : bǐ rú c=int(c)'c shì nǐ zì jǐ de biàn liàng
lìng wài， hái yòu yī gè hán shù： CDbl。 rú guǒ nǐ xiǎng bǎ zì fú zhuǎn huàn wéi shù zì， dàn yòu bù qǔ zhěng shí jiù yòng zhè gè：
Dima,b,c,d,e
a=inputbox("a shì :"," shū rù bàn jìng ")
b=Inputbox("b shì :"," shū rù bàn jìng ")
c=CDbl(a)
d=CDbl(b)
e=(c+d)*2
Msgbox(e)
nǐ shū rù 1.2， 1.3 shí jiù huì shū chū 5。
shàng miàn de shí lì yě kě yǐ zōng hé xiě chéng :
Dima,b
a=CDbl(inputbox("a shì :"," shū rù bàn jìng "))
b=CDbl(Inputbox("b shì :"," shū rù bàn jìng "))
Msgbox(a+b)*2
zhè yàng shū rù 1.2， 1.3 shí yǐ rán jiù dé chū 5。 bù guò zhè yàng xiě bǐ jiào shì hé xué xí guò yī duàn shí jiān vbs de péng yǒu .
dà jiā shì bù shì jué dé zhè gè kè chéng yòu diǎn kū zào , hē hē , biàn liàng hé yùn suàn fú bù fēn díquè shì zhè yàng de , bù guò duō duō liàn xí yě jiù hǎo liǎo , zhè cì , wǒ men xiě xiě zhēn zhèng hǎo wán de dōng xī : liú chéng kòng zhì yǔ jù . zhè gè bù fēn kāi shǐ cái shì zhēn zhèng de biān chéng .
shǒu xiān jiè shào pàn duàn jié gòu .
zài cǐ zhī qián , wǒ men xiān jiè shào yī zhǒng jiǎn dān de biàn liàng lèi xíng : bù 'ěr zhí (Boolean), zhè zhǒng biàn liàng zhǐ yòu liǎng gè kě néng zhí :True,Flase, jí zhēn huò jiǎ . zhè zhǒng biàn liàng zài mǒu xiē qíng kuàng xià hěn yòu yòng ( bǐ rú " kāi guān "). wǒ men dìng yì yī gè bool biàn liàng de fāng fǎ hé qí tā biàn liàng yī yàng , fù zhí yě yī yàng , lì rú :
dima,b
a=true
b=false
zhù yì ,true hé "true" shì bù yī yàng de ,"true" shì zì fú chuàn ,true shì bù 'ěr zhí , qiān wàn bù néng hùn xiáo .
huí dào if yǔ jù shàng lái , wǒ men xiān lái kàn kàn jiǎn huà bǎn de if yǔ jù :if pàn duàn shì then yǔ jù tǐ wǒ men lái kàn yī gè lì zǐ :
dima,b
a=12
b=13
ifb>athenmsgbox("B dà yú A")
wǒ men zhǐ kàn zuì hòu yīháng ,a>b zhè gè shì zǐ ( biǎo dá shì ) yòu yī gè fǎn huí zhí , shì bool xíng de . yīn wéi zhè gè shì zǐ zhǐ yòu liǎng zhǒng kě néng :b dà yú a,b bù dà yú a, suǒ yǐ zhè gè shì zǐ yě zhǐ yòu liǎng zhǒng kě néng xìng , jí zhēn huò zhě jiǎ .if yǔ jù pàn duàn zhè gè biǎo dá shì de fǎn huí zhí shì zhēn hái shì jiǎ , rú guǒ shì zhēn (true) zé zhí xíng then hòu miàn de yǔ jù , rú guǒ shì jiǎ , zé bù zhí xíng , nǐ bǎ a de zhí gǎi chéng 14 kàn kàn hái huì bù huì dàn chū duì huà kuàng ?
dāng wǒ men yào zài pàn duàn zhī hòu zhí xíng duō xíng yǔ jù zěn me bàn ní , wǒ men xū yào yòng yǔ jù kuài lái jiě jué , zài zhè lǐ kě yǐ jiào kuài if
dima,b
a=12
b=13
ifa<bthen
msgbox("A xiǎo yú B")
msgbox("B dà yú A")
endif
liǎng gè msgbox hán shù jiā zài if hé endif zhī jiān , zhè gè bù fēn jiù shì yǔ jù kuài , kuài lǐ de měi yī tiáo yǔ jù zhī qián qǐng kòngchū 4--8( yī gè <Tab> jiàn ) gè gé , zhè bù shì bì xū de , dàn shì shì yī gè hǎo xí guàn , yǐ biàn kàn qīng chǔ chéng xù de jié gòu . zhè yàng wǒ men jiù néng yùn xíng duō yú yī gè de yǔ jù , qǐng zhù yì if...then...endif zhè sān gè guān jiàn bù fēn bù yào diào liǎo .OK, wǒ chū yī gè tí , shū rù yī gè shù , rú guǒ xiǎo yú 100 jiù shū chū " cuò wù ", rú guǒ dà yú 100 jiù shū chū " zhèng què ", wǒ zhè lǐ yòu liǎng gè chéng xù bǎn běn :
dima
a=inputbox(" qǐng shū rù yī gè dà yú 100 de shù ")
a=int(a)'inputbox fǎn huí de shì zì fú chuàn , wǒ men bǎ tā biàn chéng zhěng shù :)
ifa>100thenmsgbox(" zhèng què ")
ifa<100thenmsgbox(" cuò wù ")
hái yòu yī gè gèng jiǎn dān de
dima
a=inputbox(" qǐng shū rù yī gè dà yú 100 de shù ")
a=int(a)'inputbox fǎn huí de shì zì fú chuàn , wǒ men bǎ tā biàn chéng zhěng shù
ifa>100then
msgbox(" zhèng què ")
else
msgbox(" cuò wù ")
endif
kàn dào duō liǎo yī gè else liǎo bā ,else de zuò yòng jiù shì dāng yào pàn duàn de biǎo dá shì wéi false shí zhí xíng de . zhè yàng chéng xù jiù kě yǐ chǔlǐ liǎng zhǒng bù tóng de qíng kuàng liǎo . bù yào wàng liǎo yòng endif jié wěi
hēi hēi , wǒ shì biàn tài zhě , xiàn zài wǒ yào nǐ chǔlǐ sān zhǒng qíng kuàng ,<100,=100,>100, hái yào xiě zài yī gè if jié gòu lǐ , nǐ zěn me bàn , wǒ gěi nǐ dá 'àn :
dima
a=inputbox(" qǐng shū rù yī gè dà yú 100 de shù ")
a=int(a)'inputbox fǎn huí de shì zì fú chuàn , wǒ men bǎ tā biàn chéng zhěng shù
ifa>100then
msgbox(" zhèng què ")
elseifa=100then
msgbox(" lǎo dà , nǐ shuǎ wǒ ?")
else
msgbox(" cuò wù ")
endif
zhè cì shū rù 100 kàn kàn , shì shénme ?elseif yǔ jù kě yǐ zài if jié gòu zhōng duō cì chū xiàn , yǐ líng huó pàn duàn bù tóng de qíng kuàng ( rú guǒ nǐ yào pàn duàn dé tài duō , jiù qǐng shǐ yòng " xuǎn zé jié gòu ", guò huì 'ér jiù jiǎng ), dāng suǒ yòu elseif dū chǔlǐ wán liǎo , ér méi yòu fú hé qíng kuàng de shí hòu zài zhí xíng else zhōng de yǔ jù . lìng yī gè lì zǐ :
Dima,b,c,d
a=inputbox("a shì :"," shū rù bàn jìng ")
b=Inputbox("b shì :"," shū rù bàn jìng ")
d=Inputbox(" dá 'àn :"," shū rù dá 'àn ")
c=a*2+b*2' zhè lǐ méi yòu wèn tí , huì zì dòng zhuǎn huàn
ifd=cthen
Msgbox(" nǐ hǎo cōng míng ")
else
Msgbox(" nǐ hǎo zhū tóu zì jǐ de tí hái bù huì !")
endif
zài kàn kàn zhè gè , wú lùn nǐ huí dá dé duō me zhèng què nǐ dū shì zhū tóu , hā hā , bù shì wǒ shuǎ nǐ , hái shì wén zhāng kāi shǐ shí hòu de inputbox de fǎn huí lèi xíng zài shuǎ nǐ ,d shì inputbox de fǎn huí zhí , tā shì yī gè zì fú chuàn , ér c shì yī cì zhěng shù jì suàn de jiēguǒ , tā shì yī gè zhěng shù . yī gè zì fú chuàn wú lùn rú hé yě bù děng yú yī gè zhěng shù , jìn guǎn tā men zì miàn shàng shì yī yàng de :"8"<>( bù děng yú hào )8 suǒ yǐ if de pàn duàn shì de zhí yǒng yuǎn shì false, zǒng shì zhí xíng else bù fēn de yǔ jù . wǒ men kě yǐ zhè me xiū gǎi
Dima,b,c,d
a=inputbox("a shì :"," shū rù bàn jìng ")
b=Inputbox("b shì :"," shū rù bàn jìng ")
d=Inputbox(" dá 'àn :"," shū rù dá 'àn ")
d=int(d)
' zài zhè lǐ wǒ men qǔ chū liǎo d de zhí , biàn chéng zhěng shù , zài fàng huí "d" zhè gè hé zǐ lǐ
c=a*2+b*2
ifd=cthen
Msgbox(" nǐ hǎo cōng míng ")
else
Msgbox(" nǐ hǎo zhū tóu zì jǐ de tí hái bù huì !")
endif
zhè yàng jiù chéng gōng liǎo . zhè yě shì Inputbox hán shù de yī gè tǎo yàn de dì fāng , méi bàn fǎ ,vbs méi yòu qí tā hǎo de shū rù fāng shì liǎo .
shuō dào if, wǒ men bù dé bù shuō yī shuō luó ji yùn suàn fú , jīn tiān jiè shào liǎng zhǒng ,"and" hé "or" xué huì liǎo if yǔ jù zhī hòu , wǒ jǔ yī gè lì zǐ , nǐ yī kàn jiù míng bái liǎo .
dima,b
a=inputbox(" shū rù yī gè shù >10")
b=inputbox(" shū rù lìng yī gè shù >10")
a=int(a)
b=int(b)
ifa>10andb>10then
msgbox(" zhèng què ")
else
msgbox(" cuò wù ")
endif
zhè duàn chéng xù ràng nǐ shū rù liǎng gè zhí , bì xū dōudà yú 10, zhǐ yào yòu yī gè bù dà yú , jiù shū chū cuò wù
dima,b
a=inputbox(" shū rù yī gè shù >10")
b=inputbox(" shū rù lìng yī gè shù >10")
a=int(a)
b=int(b)
ifa>10orb>10then
msgbox(" zhèng què ")
else
msgbox(" cuò wù ")
endif
zhè duàn chéng xù ràng nǐ shū rù liǎng gè zhí , zhǐ yào yòu yī gè dà yú 10, jiù fǎn huí chéng gōng . qí shí and hé or hěn hǎo lǐ jiě , wǒ dú "ifa>10orb>10then" zhè yī jù , yòng huá yǔ shì zhè yàng :" rú guǒ a dà yú 10 huò zhě b dà yú 10, nà me ...". zhè yàng shì bù shì jiù hěn hǎo lǐ jiě liǎo ní .
OK, wǒ men zài lái kàn yī zhǒng xīn jié gòu , jīn tiān de kè jiù jié shù , yǐ jīng wǔ yè liǎo , wǒdōu lèisǐ liǎo .
dāng nǐ de chéng xù yào chù lǐ hěn duō zhǒng bù tóng de pàn duàn qíng kuàng de shí hòu elseif..then huì ràng chéng xù kàn qǐ lái hěn zá luàn , suǒ yǐ jiù yòu liǎo yī zhǒng selectcase jié gòu zhuān mén duì fù zhè zhǒng qíng kuàng ,selectcase de yǔ fǎ jié gòu hěn jiǎn dān :
selectcase biàn liàng míng
case zhí
yǔ jù
case zhí
yǔ jù
caseelse
yǔ jù
endselect
wǒ men jǔ gè lì zǐ jiù néng hěn jiǎn dān de shuō míng：
dima
a=inputbox(" shū rù yī gè 1--3 de zhí ")
a=int(a)' chǔlǐ inputbox fǎn huí zì fú chuàn de wèn tí
selectcasea
case1
msgbox(" yī ")
case2
msgbox(" èr ")
case3
msgbox(" sān ")
caseelse
msgbox(" shū rù cuò wù ")
endselect
zhè gè lì zǐ bǎ 1,2,3 zhè sān gè 'ā lā bó shù zì zhuǎn huà chéng zhōng guó dà xiě shù zì , zhè gè chéng xù xiě chéng if...elseif de xíng shì rú xià
dima
a=inputbox(" qǐng shū rù 1--3 de zhí ")
a=int(a)
ifa=1then
msgbox(" yī ")
elseifa=2then
msgbox(" èr ")
elseifa=3then
msgbox(" sān ")
else
msgbox(" shū rù cuò wù ")
endif
zěn me yàng , má fán bā , hái shì select hǎo bā .
OK, jīn tiān dào cǐ jié shù , zǒng jié yī xià :
yào diǎn :
1)inputbox fǎn huí de shì yī gè zì fú chuàn , ér bù shì yī gè shù , bì xū yòng a=int(a) zhè zhǒng xíng shì zhuǎn huà chéng shù
2)bool biàn liàng de zhí zhǐ yòu liǎng zhǒng :true,false
2.5)and liǎng biān de biǎo dá shì dōushì true, zé fǎn huí true.or liǎng biān de biǎo dá shì yòu yī gè shì true, jiù fǎn huí true
3)if yǔ jù de gé shì
4)select...case de gé shì
zuò yè :
1) shǐ yòng 3 gè bool zhí , chǔ cún nǐ de 3 xiōng dì jiě mèi shì fǒu shì nán xìng ( tí shì :sister1male=false)
2) gěi dìng yī gè gè shù , dà yú 10 ér qiě xiǎo yú 20 shū chū " zhèng què ", fǒu zé shū chū " cuò wù "
3) shū rù 12, huò zhě 15, shū chū " zhèng què ", fǒu zé shū chū " cuò wù "
4) bǎ 5 yǐ nèi de zhèng zhěng shù dū zhuǎn huàn chéng zhōng guó dà xiē shù zì
5) zì jǐ suí biàn shè jì yī gè chéng xù , yìng yòng jīn tiān de zhī shí
[Lasteditedbylongtian777on2004-12-6at16:04]
sì piān（ gòng liù piān）：
dà jiā hǎo , zuó tiān wǒ xiū xī liǎo yī tiān , suǒ yǐ jīn tiān xiě dì 4 zhāng : xún huán jié gòu
wǒ men xiān lái kàn yī dào tí : shāng chǎng jìn xíng měi rì jié suàn , yào qiú lěi jiā chū jīn tiān de yíng yè 'é , měi cì shū rù yī gè shù , zhè dào tí qí shí hěn jiǎn dān , dàn jiù wǒ men xiàn zài xué
guò de zhī shí yào wán chéng zhè dào tí xiāng dāng má fán , wǒ men lái fēn xī yī xià . shǒu xiān , wǒ men xū yào zhī dào mǎi mài de cì shù , zhè yàng cái néng kòng zhì shū rù de cì shù , dàn shì , zhè zhǒng shè
jì shì fēi cháng dī xiào de , měi tiān dōuyào chóngxīn shè jì chéng xù . jiǎ dìng jīn tiān jìn xíng liǎo 5 cì jiāo yì , yǐ xià shì yuán chéng xù :
dimsum
sum=0' chū shǐ huà biàn liàng
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
'sum=sum+x zhè zhǒng xíng shì shì bǎ běn shēn de zhí qǔ chū lái , jìn xíng yī cì yùn suàn , zài fàng huí běn shēn , zhè zhǒng fāng fǎ hěn yòu yòng chù
' zhè lǐ shǐ yòng liǎo hán shù qiàn tào , bǎ inputbox de fǎn huí zhí zhí jiē chuán gěi int hán shù , zhuǎn huà chéng zhěng shù , xià tóng
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
sum=sum+int(inputbox(" qǐng shū rù jiāo yì 'é "))
msgbox(sum)
kàn dào liǎo má , wǒ tōng guò bǎ jì suàn guò chéng fù zhì liǎo 5 biàn cái shè jì hǎo liǎo chéng xù , zhè zhǒng chéng xù zài qì chē jiāo yì suǒ děng jiāo yì cì shù shǎo de dì fāng hái néng còu hé zhe yòng , rú guǒ
fàng dào chāo shì qǐ bù shì yào fù zhì , zhāntiē jǐ qiān biàn ? wǒ men jīn tiān jiǎng de nèi róng jiù kě yǐ kè fú zhè zhǒng quē xiàn , shǒu xiān , wǒ men lái jiǎng yǐ xià Do...Loop yǔ jù .
do...loop de jié gòu kàn shàng qù fēi cháng jiǎn dān , jiù shì :do...loop, jǐn cǐ 'ér yǐ , zhè gè jié gòu bù duàn zhí xíng do hé loop zhī jiān de yǔ jù ( xué míng jiào : xún huán tǐ ),
yǒng bù tíng zhǐ . jǔ gè lì zǐ lái shuō :
do
msgbox(" zhè gè xìn xī huì bù duàn chóngfù chū xiàn , yào tíng zhǐ chéng xù qǐng shǐ yòng rèn wù guǎn lǐ qì (Ctrl+Alt+Del) zhōng zhǐ wscript jìn chéng ")
loop
yùn xíng zhè gè chéng xù , dāng nǐ diǎn xiāo diào yī gè duì huà kuàng mǎ shàng huì chū lái lìng yī gè , nǐ yǒng yuǎn diǎn bù wán , zǒng yòu xià yī gè . shuí huì yùn xíng zhè yàng de chéng xù ? chú fēi shì gěi
bié rén dǎo luàn ( wǒ jiù gān guò zhè zhǒng shì ), suǒ yǐ zài do..loop jié gòu zhōng hái yòu yī gè yǔ jù :exitdo, zhè gè yǔ jù jiāng zhōng zhǐ xún huán , tiào dào loop hòu miàn de yǔ jù jì xù
zhí xíng . jǔ gè lì zǐ lái shuō :
dima' zhù yì : cháng liàng bù xū yào zài dim lǐ miàn shēng míng , fǒu zé huì yǐn fā cuò wù
constpass="123456"' zhè shì yī gè zì fú chuàn qǐng yòng "" bāo guǒ qǐ lái . shè dìng mì mǎ wéi cháng liàng , bù kě biàngēng
do
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" mì mǎ jiàoyàn chéng gōng ")
exitdo
endif
loop
zhè gè chéng xù huì yī zhí bù tíng de wèn nǐ mì mǎ , zhī dào nǐ shū rù liǎo zhèng què de mì mǎ wéi zhǐ .(if kě yǐ qiàn tào zài lìng yī gè if dāng zhōng , yě kě yǐ qiàn tào zài xún huán tǐ dāng zhōng
, suǒ yǐ yī dìng yào yòng suō jìn , lái fēn qīng chǔ chéng xù de gè gè bù fēn ). zhè gè chéng xù shì hěn jīng diǎn de , zǎo qī de chéng xù dōushì zhè me zuò de . dàn shì wǒ men shì Hacker, suǒ yǐ
wǒ men liǎo jiě xì tǒng de 'ān quán xìng , zhè zhǒng wú xiàn cì rèn zhèng chéng xù hěn róng yì bèi qióng jǔ pò jiě , wǒ men yào lái xiàn dìng rèn zhèng de cì shù . xiū gǎi chéng xù rú xià
dima,ctr
ctr=0' shè zhì jì shù qì
constpass="pas123_"' shàng miàn de nà gè shì ruò mì mǎ , zhè cì gǎi de qiáng yī diǎn
do
ifctr=3then
msgbox(" yǐ jīng dá dào rèn zhèng shàng xiàn , rèn zhèng chéng xù guān bì ")
exitdo
else
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" rèn zhèng chéng gōng ")
msgbox("( nǐ kě yǐ zài zhè lǐ jiā yī duàn chéng gōng hòu dé dào de xìn xī )")
exitdo
else
ctr=ctr+1' rú guǒ mì mǎ chū cuò jiù zēng jiā yī cì cuò wù rèn zhèng jì shù
msgbox(" rèn zhèng chū cuò , qǐng jiǎn chá mì mǎ ")
endif
endif
loop
yùn xíng zhè gè chéng xù shì shì kàn , dāng nǐ chū liǎo 3 cì cuò wù yǐ hòu , jiù huì tíng zhǐ zài cì xún wèn mì mǎ , guān bì chéng xù .telnet rèn zhèng yòng lái xiàn zhì cì shù de chéng xù yǔ cǐ dà
tóng xiǎo yì . yào zhù yì de shì qiàn tào de if yǔ jù , qǐng zǎi xì dú yī xià zhè gè chéng xù , kě néng bǐ jiào nán dǒng , yě qǐng nǐ shì zhe zì jǐ shè jì yī xià lèi shìde chéng xù .
qí shí , yào zài do...loop jiā shàng yàn zhèng de gōng néng , bìng bù yī dìng yào yòng if, wǒ men kě yǐ zhí jiē lì yòng do. wǒ lái jiè shào yī xià while guān jiàn zì ,while kě yǐ fàng
zài do huò zhě shì loop hòu miàn , rán hòu zài jiē yī gè biǎo dá shì , dāng biǎo dá shì de zhí wéi true de shí hòu ( biǎo dá shì chéng lì ), cái yùn xíng xún huán tǐ . wǒ men lái kàn yī xià xiū gǎi hòu de
chéng xù "
dima,ctr
ctr=0
constpass="pas123_"
dowhilectr<3
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" rèn zhèng chéng gōng ")
msgbox("( nǐ kě yǐ zài zhè lǐ jiā yī duàn chéng gōng hòu dé dào de xìn xī )")
exitdo
else
ctr=ctr+1' rú guǒ mì mǎ chū cuò jiù zēng jiā yī cì cuò wù rèn zhèng jì shù
msgbox(" rèn zhèng chū cuò , qǐng jiǎn chá mì mǎ ")
endif
loop
zhè yàng shí xiàn de gōng néng hé shàng yī gè lì zǐ wán quán yī yàng , wǒ men zài lái kàn kàn bǎ while fàng zài loop hòu miàn :
dima,ctr
ctr=0
constpass="pas123_"
do
a=inputbox(" qǐng shū rù mì mǎ ")
ifa=passthen
msgbox(" rèn zhèng chéng gōng ")
msgbox("( nǐ kě yǐ zài zhè lǐ jiā yī duàn chéng gōng hòu dé dào de xìn xī )")
exitdo
else
ctr=ctr+1' rú guǒ mì mǎ chū cuò jiù zēng jiā yī cì cuò wù rèn zhèng jì shù
msgbox(" rèn zhèng chū cuò , qǐng jiǎn chá mì mǎ ")
endif
loopwhilectr<3
gōng néng shì yī yàng de , wèishénme yào fàng zài loop hòu miàn ní ? nǐ bǎ ctr de zhí gǎi chéng 3 jiù zhī dào liǎo ,while zài do hòu miàn de chéng xù huì zhí jiē tuì chū , ér zài loop hòu miàn
hái huì yǔn xǔ yī cì rèn zhèng , dào liǎo loop cái jié shù . hé while xiāng fǎn de shì until, yòng fǎ hé while yī yàng , bù guò tā zhǐ yòu dāng hòu miàn de biǎo dá shì de zhí wéi false( biǎo
dá shì bù chéng lì ) de shí hòu cái zhí xíng xún huán tǐ , qǐng zì jǐ shì yàn yī xià
ok, wǒ men lái kàn lìng wài yī zhǒng xún huán jié gòu ,for....next, zhè zhǒng xún huán jié gòu shì jī yú jì shù de , yě shì zài biān chéng zhōng zuì cháng jiàn dào de xún huán jié gòu .
dimi
fori=0to5
msgbox(i)
next
kàn dào liǎo má ? měi cì shū chū de i dōushì dì zēng de , dàn wǒ men méi yòu míng què zhǐ chū i yào dì zēng , dāng i dá dào 5 de shí hòu , xún huán jiù jié shù liǎo , yīn wéi yóu 0 kāi shǐ , suǒ yǐ
xún huán tǐ zhí xíng liǎo 6 cì , zhè yī diǎn hěn zhòng yào , dà bù fēn dōng xī dōushì cóng 0 kāi shǐ 'ér bù shì 1. zhè gè chéng xù yě kě yǐ xiě chéng
do de xíng shì :
dimi
i=0
dowhilei<5
msgbox(i)
i=i+1' yīn wéi do bù néng zì dòng jì shù , bì xū shǒu dòng jiā
loop
zěn me yàng , hái shì for bǐ jiào hǎo yòng bā .for zài biān chéng zhōng hěn yòu yòng tú , wǒ men zài jǔ yī gè lì zǐ , shùn biàn jiǎng yī xià qiàn tào xún huán .
dimi,j
fori=1to9
forj=1to9
str=str&i*j&""'& shì hé bìng zì fú chuàn de fú hào
next' měi gè next duì yìng yī gè for
next
Msgbox(str)
( zhè yàng chū xiàn de jiēguǒ shì yī cì xìng de， rú guǒ nǐ xū yào yǐ cì chū xiàn bǎ Msgbox(str) tí qián dào next zhī qián )
kàn kàn yùn xíng jiēguǒ , shì fǒu lìng nǐ huì xiǎng qǐ xiǎo xué shí dài de shù xué lǎo shī ( chǒu lòu de zuǐ liǎn ). yào zhù yì , zhè lǐ yòu yī gè " dà " de for, hé yī gè xiǎo de for, dāng
xiǎo de for zhí xíng wán yī gè zhōu qī yǐ hòu , dà de for cái zhí xíng yī cì ( huàn jù huà shuō , dà de for zhí xíng yī cì , xiǎo de yào zhí xíng 9 cì ), suǒ yǐ yī gòng zhí xíng liǎo jiǔ jiǔ bā shí
yī cì . zài dà de for lǐ kě yǐ bù jǐn jǐn shì yī gè xiǎo de for, yě kě yǐ jiā shàng lìng wài de yǔ jù . wǒ men lái xiū gǎi yī xià yuán chéng xù :
dimi,j
fori=1to9
forj=1to9
str=str&i*j&""
next' měi gè next duì yìng yī gè for
str=str&vbCrlf'vbCrlf xiāng dāng yú jiàn pán shàng de huí chē jiàn , yīn wéi nǐ bù néng zài jiàn pán shàng shū rù , suǒ yǐ xì tǒng dìng yì liǎo yī gè mò rèn de cháng liàng
next
Msgbox(str)
zhè cì yùn xíng wán chéng yǐ hòu , shū chū jiēguǒ 'àn zhào chéng shù jìn xíng liǎo fēn gē , měi xiǎo for yùn xíng wán yī cì , jiù huàn yīháng ( tōng guò vbcrlf).
zhè cì de nèi róng duì cài niǎo kě néng bǐ jiào nán dǒng , zhǎng wò de bàn fǎ zhǐ yòu yī gè : duō shí jiàn . lìng wài , wǒ zài lùn tán kàn dào hěn duō rén hái shì wèn :"vbscript yào yòng shénme gōng
jù biān ?" wǒ jiù hěn qì fèn , wǒ zài dì yī piān lǐ miàn yǐ jīng shuō míng : yòng jì shì běn biān ji yuán dài mǎ , rán hòu bǎo cún wéi yǐ .vbs wéi kuò zhǎn míng de chéng xù jiù kě yǐ liǎo , qǐng dà jiā bù yào
zài wèn . lìng wài , guó chǎn de yī zhǒng lā jī ruǎn jiàn " chāo jí X bà " qiǎng zhàn liǎo vbs zhè gè kuò zhǎn míng , qǐng bǎ nà gè lā jī xiè zài diào .
wǒ men zǒng jié yī xià :
yào diǎn :
1)do..loop hé exitdo de yòng fǎ
2)while dāng biǎo dá shì true de shí hòu zhí xíng xún huán tǐ ,until fǎn zhī
3)for...next shì jì shù xún huán , měi cì zhí xíng jì shù qì dì jiā
4) qiàn tào xún huán de zuò yòng hé xiě fǎ
4.5)& yòng yú lián jiē zì fú chuàn
5)vbCrLf xiāng dāng yú jiàn pán shàng de huí chē jiàn
zuò yè :
1) zài wǒ guó de shù xué jīng diǎn zhù zuò " jiǔ zhāng suàn shù " zhōng yòu zhè yàng yī dào tí : bǎi qián mǎi bǎi jī , gōng jī 5 qián yī zhǐ , mǔ jī 3 qián yī zhǐ , xiǎo jī 1 qián 2 zhǐ ( zhè gè shù jù wǒ shì cān
kǎo yī běn biān chéng shū de , dàn wǒ jì dé shì gōng 3, mǔ 1, xiǎo 1 qián 3 zhǐ ? bù guǎn liǎo , jiù 'àn zhào shū shàng dé lái bā ) qiú dé shì néng yòu duō shǎo zhǒng bàn fǎ mǎi zhè xiē jī . rú guǒ kàn bù dǒng de
huà wǒ yòng dà bái huà shuō shuō : yòu rén yào qù mǎi jī , yòng 100 kuài qián zhèng hǎo mǎi liǎo 100 zhǐ jī , jià gé rú xià : gōng :5$, mǔ :3$, xiǎo :1$for2, ràng nǐ qiú yī gòng duō shǎo zhǒng mài
fǎ ( gōng mǔ xiǎo zěn me dā pèi ). qǐng yòng xún huán jiě jué zhè gè wèn tí .
ps: jīn tiān yào qù yí mín jú bàn shì , suǒ yǐ wén zhāng xiě de hěn cāng cù . dà bù fēn dài mǎ dōuméi yòu shí yàn , qǐng dà jiā bāng wǒ zhǎo cuò . lìng wài , shàng cì de zuò yè dà jiā zài lùn tán yīnggāi
kàn dào liǎo , wǒ jiù bù chóngfù dá 'àn liǎo , bù zhī dào dà jiā xǐ huān zuò zhè zhǒng tí , hái shì yǐ qián nà zhǒng bǐ jiào jiǎn dān de ?
[Lasteditedbylongtian777on2004-12-6at16:08]
dì wǔ piān（ gòng liù piān）：
qǐng yǔn xǔ wǒ xiān miáo shù yī xià wǒ xiàn zài de huán jìng : qì wēn gāo dá 37 shè shì dù , ér wǒ wàng jì liǎo tú shū guǎn kāi mén de shí jiān , hái yào zài zhè lǐ zhàn shàng yī gè xiǎo shí , zài rè dài zhí wù de bāo guǒ xià , gè zhǒng qí guài de xiǎo fēi chóng wéi zhe wǒ zhuǎn lái zhuǎn qù . bù guò lìng wǒ xīn wèi de shì , zhōng yú xiě dào wǔ liǎo , hái yòu liǎng kè wǒ men de " jī chǔ piān " jiù yào jié shù liǎo .
jīn tiān wǒ men lái liǎo jiě yǔ yán běn shēn de zuì hòu yī gè lùn tí : shù zǔ .
yào lǐ jiě " shù zǔ ", zhè gè gài niàn wǒ jué dé lìng yī zhǒng fān yì duì xué xí lái shuō gèng jiā róng yì :" zhèn liè ", méi cuò , shù zǔ jiù shì yī gè zhèn liè , yī gè shù jù de zhèn liè . zuì jiǎn dān de lì zǐ shì shù jù kù xì tǒng , jiǎ shè nǐ yào chǔ cún 20 míng xué shēng de yīng yǔ chéng jì , rú guǒ bù shì yòng shù zǔ , nǐ zé yào chuàng jiàn 20 gè bù tóng de biàn liàng , lèisǐ . shù zǔ jiù shì lèi xíng xiāng tóng ( zhòng yào !) de yī zǔ shù jù ( huò zhě n zǔ ), yòng lái chǔ cún xiāng guān de liàng , zuì jiǎn dān de shù zǔ shì yī wéi shù zǔ , wǒ men jiù xiān lái xué xí tā bā .
shénme shì yī wéi shù zǔ ní ? zài 3 wéi yǐ xià , nǐ kě yǐ lì yòng jǐ hé zhī shí lái lǐ jiě " wéi " de gài niàn , yī wéi xiāng dāng yú yī tiáo xiàn , èr wéi zé shì yī gè jǔ xíng , sān wéi shì yī gè cháng fāng tǐ . wǒ zhī dào zhè me jiǎng shì hěn chōu xiàng de , wǒ men xiān jǔ gè yī wéi shù zǔ de lì zǐ jiù bǐ jiào róng yì liǎo jiě liǎo .
dima(9)' cóng líng kāi shǐ
fori=0to9
a(i)=i' tián chōng měi yī gè shù zǔ yuán sù
msgbox(a(i))' shū chū shù zǔ yuán sù
next
wǒ men kě yǐ kàn dào , dìng yì yī gè shù zǔ de fāng fǎ hé dìng yì yī gè biàn liàng méi yòu shénme bù tóng , tóng yàng shì shǐ yòng dim yǔ jù . dìng yì yī wéi shù zǔ de fāng fǎ rú xià :
dim shù zǔ míng ( yuán sù shù liàng ), zhè lǐ dà jiā yào zhù yì yī diǎn , zhè lǐ dìng yì de yuán sù shù liàng zǒng shì bǐ nǐ yào de yào shǎo yī gè , yīn wéi yī gè shù zǔ de qǐ diǎn shì 0 hào shù jù 'ér bù shì 1, suǒ yǐ dà jiā yī dìng yào xiǎo xīn : nǐ xū yào 10 gè shù jù , jiù dìng yì "9", xū yào 100 gè jiù dìng yì 99, yǐ cǐ lèi tuī . shù zǔ de yuán sù kě yǐ kàn chéng yī gè gè dú lì de biàn liàng , nǐ kě yǐ xiàng dú lì de biàn liàng nà yàng shǐ yòng tā men . shù zǔ yuán sù de liàng kě néng shì háo wú guān xì de , bǐ rú dì yī gè shù zǔ yuán sù chǔ cún nǐ de nián líng , dì 'èr gè chǔ cún jīn nián xī guā de xiāo shòu liàng , dàn zhè zhǒng zuò fǎ shì bù gǔ lì de , shèn zhì shì bù bèi jiē shòu de , bù yào zhè me gān , zhè yàng de qíng kuàng qǐng dìng yì dú lì de biàn liàng .for yǔ jù zài shù zǔ zhōng kě suàn shì dà xiǎn shēn shǒu , hái jì dé for má ? tā lěi jiā yī gè biàn liàng , wǒ men kě yǐ bǎ zhè gè biàn liàng yìng yòng zài shù zǔ zhōng zhèng hǎo yòng lái dú qǔ huò zhě tián chōng 'àn zhào shùn xù pái liè de shù zǔ yuán sù , shàng miàn jiù shì zhè yàng yī gè lì zǐ . shù zǔ qí shí shì hěn jiǎn dān de dōng xī ( zài BASIC yǔ yán lǐ miàn ), shù zǔ nán de shì zěn me dǎo nòng zhè xiē xún huán , ràng tā men 'àn zhào nǐ de yào qiú yùn zhuǎn . zhè gè děng dào 'èr wéi shù zǔ zài shuō , wǒ men xiān kàn kàn rú hé shǒu gōng tián chōng shù zǔ .
rú guǒ nǐ zhè gèdōu xiǎng bù dào de huà , nà nǐ zhēn shì bái xué liǎo :
dimname(7),str' yī gòng bā gè xué shēng ,str biàn liàng shì yòng lái bǎ tā men chǔ cún chéng yī gè zì fú chuàn yǐ biàn shū chū
fori=0to7
name(i)=inputbox(" qǐng shū rù dì "&i+1&" gè xué shēng de míng zì ")
str=str&""&name(i)
next
msgbox(str)
zhè yàng wǒ men jiù yòu liǎo yī gè xiǎo xiǎo de shù jù kù , tā men de shù jù pái liè kě yǐ kàn chéng zhè yàng :
name(0),name(1),name(2).....name(7)
kàn dào liǎo bā , suǒ yǐ wǒ shuō wǒ men kě yǐ bǎ tā kàn chéng shì " yī tiáo xiàn ", děng dào wǒ men xué dào liǎo wén jiàn cāo zuò , jiù kě yǐ bǎ tā men shū chū dào wén jiàn zhōng qù liǎo . yī wéi shù zǔ yòu hěn duō yòng chù , wǒ men lái kàn yī xià yī gè fù zá de lì zǐ . wǒ men yào chǔ cún 3 gè xué shēng de míng zì , shēn gāo , chéng jì zhè sān zhǒng shù jù , yóu yú míng zì shì zì fú chuàn , ér shēn gāo kě néng shì fú diǎn shù ( dài xiǎo shù diǎn de shù ), chéng jì zé kě néng shì zhěng shù , suǒ yǐ wǒ men bù néng bǎ tā men chǔ cún zài yī gè shù zǔ lǐ miàn ( bù yào wàng jì , shù zǔ zhì zhǐ néng cún chǔ tóng lèi de shù jù ), suǒ yǐ wǒ men yào jiàn 3 gè shù zǔ , yǐ xià shì lì chéng :
dimname(2),high(2),mark(2)' dìng yì sān gè shù zǔ fēn bié chǔ cún 3 gè rén de míng zì , shēn gāo hé dé fēn
dimctr' jì shù qì
forctr=0to2
name(ctr)=inputbox(" qǐng shū rù dì "&ctr+1&" gè xué shēng de xìng míng ")
high(ctr)=inputbox(" qǐng shū rù dì "&ctr+1&" gè xué shēng de shēn gāo ")
mark(ctr)=inputbox(" qǐng shū rù dì "&ctr+1&" gè xué shēng de dé fēn ")
next
OK, wǒ men yǐ jīng tián chōng hǎo liǎo shù jù , xiàn zài wǒ men de xiǎo xiǎo shù jù kù zhǐ néng 'àn shùn xù shū rù , wǒ men yào ràng tā kàn qǐ lái xiàng diǎn yàng zǐ , wǒ men lái gěi tā shè jì chá xún gōng néng :
' jiē zhe shàng miàn de chéng xù
dimcname,temp' yào chá xún de míng zì , hé yī gè lín shí biàn liàng , yòng lái chǔ cún shù jù de wèi zhì
cname=inputbox(" qǐng shū rù nǐ yào chá xún de míng zì :")
forctr=0to2' biàn lì suǒ yòu name shù zǔ de chéng yuán , xún zhǎo yào chá xún de míng zì
ifname(ctr)=cnamethen
temp=ctr' jì lù shù jù wèi zhì
exitfor' tuì chū xún huán , hé exitdo de yòng fǎ yī yàng
endif' bù yào wàng liǎo endif
next
msgbox(" xìng míng :"&name(temp)&""&" shēn gāo :"&high(temp)&""&" dé fēn :"&mark(temp))
hēi hēi , yòu yì sī bā , qí shí zài zhè gè chéng xù lǐ miàn , nà gè temp biàn liàng wán quán méi yòu bì yào , zhǐ shì wèile gèng qīng chǔ dì shuō míng wèn tí . yīn wéi dāng exitfor yǐ hòu ctr biàn liàng de zhí jiù bù huì gǎi biàn , chǔ cún de zhèng hǎo shì duì yìng shù jù zài shù zǔ zhōng de wèi zhì , xiě zhè gè temp biàn liàng shì wéi liǎo zhào gù dào yǐ hòu yào xué C++ de péng yǒu (C++ kě yǐ zài for yǔ jù lǐ shēng míng xīn biàn liàng , zhǐ zài zhè gè for jié gòu zhōng yòu xiào , suǒ yǐ dào liǎo wài bù jiù bù néng fǎng wèn liǎo ). yě jiù shì shuō kě yǐ jiǎn huà chéng rú xià :
dimcname
cname=inputbox(" qǐng shū rù nǐ yào chá xún de míng zì :")
forctr=0to2
ifname(ctr)=cnamethenexitfor' yīn wéi zhǐ yòu exitfor jiù bù xū yào kuài if liǎo
next
msgbox(" xìng míng :"&name(ctr)&""&" shēn gāo :"&high(ctr)&""&" dé fēn :"&mark(ctr))
zhè shì zuì zhí jiē de lù zǐ . hǎohǎo zhòng dú yī xià shàng miàn suǒ yòu de yuán dài mǎ , rán hòu zì jǐ xiě jǐ gè chéng xù , wán quán gǎo qīng chǔ yī wéi shù zǔ jí qí yìng yòng yǐ hòu zài kàn hòu miàn de 'èr wèi shù zǔ . èr wéi shù zǔ hǎo xiàng shì yī gè yī wéi shù zǔ de jí hé , jiù hǎo xiàng " xiàn jī chéng miàn " yī yàng , yóu n gè yī wéi shù zǔ zǔ chéng 'èr wéi shù zǔ , zhè shì chū xué zhě bǐ jiào hǎo lǐ jiě de bàn fǎ ( bǐ jiào jīng què de shì yòng " biān hào " de gài niàn qù lǐ jiě , yīn wéi 4 wéi yǐ shàng de shù zǔ jiù bǐ jiào nán yǐ yòng 'ōu jǐ lǐ dé jǐ hé gài niàn qù jiě shì liǎo ). èr wéi shù zǔ shì hěn hǎo jiě shì de , wǒ men lái kàn yī xià :
dima(2,2)' cóng líng kāi shǐ , yī gòng yòu 3X3=9 gè shù jù
dimi,j' xū yào liǎng gè jì shù qì
fori=0to2
forj=0to2' shǐ yòng qiàn tào xún huán
a(i,j)="X"
next
next
wǒ men chuàng jiàn liǎo yī gè zhè yàng de 'èr wéi shù zǔ ( nà xiē "," shì wǒ yòng lái fēn gē yuán sù de , bìng bù cún zài ), liǎo jiě 'èr wéi shù zǔ de liǎo má ? bù qīng chǔ wǒ men zài jiǎng yī xià
biān hào 012
0X,X,X
1X,X,X
2X,X,X
'èr wéi shù zǔ de kàn qǐ lái shì bù shì jiù shì yī gè jǔ xíng ní ?( nǐ zài nèi cún zhōng kàn bù dào zhè yàng de jǔ xíng , zhǐ shì biàn yú nǐ lǐ jiě ), měi gè shù jù dōuyòu biān hào , yóu liǎng gè shù lái dìng wèi , zhè gè hěn xiàng ( fēi cháng xiàng ) nǐ zài guó jì xiàng qí qí pán shàng xún zhǎo yī gè gé , wǒ men yòng lèi sì "C6","A2" zhè yàng de " chuí zhí zuò biāo " jìn xíng dìng wèi , duì ," chuí zhí zuò biāo ", hěn què qiē . wǒ men yào shǐ yòng yī gè 'èr wéi shù zǔ yuán sù de shí hòu kě yǐ hé pǔ tōng biàn liàng yī yàng shǐ yòng , zhǐ yào zhǐ dìng shù zǔ yuán sù de " dìng wèi diǎn " jiù kě yǐ liǎo , lì rú
a(0)(1)=1,b(2)(1)=" nǐ hǎo ", zhū rú cǐ lèi . yào zhù yì de shì 'èr wéi shù zǔ yě zhǐ néng chǔ cún lèi xíng xiāng tóng de yuán sù , ér qiě shàng biāo ( qǐ diǎn ) yě cóng 0 kāi shǐ . jì suàn yī gè 'èr wéi shù zǔ de yuán sù gè shù zhǐ yào bǎ liǎng gè xià biāo +1( yǐ dé dào shí jì de zhí ) zài chéng qǐ lái jiù kě yǐ liǎo , fēi cháng lèi sì yú qiú yī gè jǔ xíng de miàn jī .
jiǎ rú xū yào chǔ cún dedōu shì tóng yī lèi xíng de shù jù , wǒ men jiù kě yǐ yòng 'èr wéi shù zǔ , bǐ rú yào chǔ cún 5 gè rén de xìng míng , guó jí , mín zú , jiù kě yǐ shǐ yòng 'èr wéi shù jù
diminfo(4,2)' yī gòng wǔ gè rén , yào chǔ cún de shù jù lèi xíng yòu 3 xiàng
dimi,j
fori=0to4
forj=0to2
dimopt' dìng yì yī gè biàn liàng yòng yú cún chǔ shù jù xiàng tí shì
selectcasej' pàn duàn yīnggāi shū rù de shì shénme shù jù
case0
opt=" xìng míng "
case1
opt=" guó jí "
case2
opt=" mín zú "
endselect
info(i,j)=inputbox(" qǐng shū rù dì "&i+1&" gè rén de "&opt)
next
next
' shū chū tài má fán liǎo , wǒ lǎn dé dòng , nǐ zhī dào nà me huí shì jiù xíng liǎo
zhè yàng jiù bù xū yào dìng yì 3 gè yī wéi shù zǔ liǎo .
duō wèi shù zǔ ( sān wéi yǐ shàng ) de dìng yì hé shǐ yòng fāng fǎ yǔ 'èr wéi shù zǔ yī yàng , dàn bù tài hǎo zài 'ōu jǐ lǐ dé jǐ hé kōng jiān lǐ jiā yǐ jiě shì , xìng hǎo wǒ men bìng bù tài cháng yòng nà me duō wéi de shù zǔ . dìng yì yī gè sān wèi shù zǔ :dima(1,2,3)' yī gòng 24 gè shù zǔ yuán sù .
jīn tiān yīn wéi yào bān jiā ( wǒ xǐ huān Sengkang 'ā , kě shì MM xián jiāo tōng bù biàn , shuí bù zhī dào tā zhǐ xiǎng qù guàng jiē ), ér GF yào qù hé tā de tóng xué qù cān jiā shénme shì yàn bàn yè cái huí jiā , suǒ yǐ xià wǔ wǒ zhǐ néng zì jǐ qù yā chē bān jiā liǎo ,5555~~ hǎo kě lián , zhè cì jiù qǐng dà jiā yuán liàng wǒ shǎo xiě yī diǎn , wǒ kě shì zhàn zài tú shū guǎn wài xiě de 'ā ,
xiàn zài tuǐ dū ruǎn liǎo ~~~ běn lái hái yào jiǎng " dòng tài shù zǔ " de , dàn xiǎng liǎo xiǎng hái shì fàng dào " jìn jiē bù fēn " zài shuō bā .
yào diǎn :
1) yī wéi shù zǔ shì " xiàn ", èr wéi shù zǔ shì " miàn ", sān wéi shù zǔ shì " tǐ "( duō wéi shù zǔ jiù luàn tào )
2) shù zǔ de xià biāo cóng 0 kāi shǐ
3)for xún huán zài shù zǔ de yìng yòng zhōng qǐ liǎo hěn dà zuò yòng , èr wéi shù zǔ xū yào qiàn tào xún huán
zuò yè :
shàng cì chū de " bǎi jī wèn tí ", dà jiā xǐ huān má ? yǐ hòu wǒ men jiù zuò zhè zhǒng xū yào dòng nǎo de tí mù , nà xiē jiǎn dān de shí jiàn , dà jiā yī dìng yào duō zuò !
1) dìng yì yī gè shù zǔ , bāo hán 5 gè yuán sù , dōushì suí jī zhěng shù ( suí biàn shū rù ), yào qiú bǎ tā men 'àn zhào cóng dà dào xiǎo de shùn xù pái liè qǐ lái
2) yòu liǎng gè 'èr wéi shù zǔ a(4,4) hé b(4,4)( yuán sù zhí suí biàn ), jiāo huàn liǎng gè shù zǔ ( yuán lái de a de suǒ yòu yuán sù zhí biàn chéng b de ,b de suǒ yòu yuán sù zhí biàn chéng a de )
[Lasteditedbylongtian777on2004-12-6at16:11]
zuì hòu yī piān：
xīn jiā bù cuò ,MM kāi xīn , wǒ yě jiù gēn zhe gāo xīng liǎo :), jīn tiān wǒ men xué xí jī chǔ piān de zuì hòu yī gè bù fēn : zì dìng yì hán shù hé guò chéng . wǒ men měi tiān dōuzài hé hán
shù dǎ jiāo dào ,inputbox() shì hán shù ,msgbox() shì hán shù ,int() yě shì hán shù ... zhè xiē hán shù dōushì xì tǒng nèi jiàn de , wǒ men zhǐ néng yòng bù néng gǎi . jīn tiān , wǒ
jiù jiào dà jiā zěn yàng zì jǐ zhì zuò yī gè hán shù .
shǒu xiān wǒ men yào liǎo jiě , wèishénme yào yòng hán shù , wǒ men yòng " shí lì " shuō huà , xiān kàn yī gè lì zǐ : gěi chū liǎng gè shù , shū chū jiào dà de nà yī gè .
dima1,a2,b1,b2,c1,c2
a1=2:a2=4'":" kě yǐ ràng nǐ bǎ duō gè yǔ jù xiě zài yīháng shàng
b1=32:b2=67
c1=12:c2=898
ifa1>a2then
msgbox(a1)
elseifa1<a2then
msgbox(a2)
endif
ifb1>b2then
msgbox(b1)
elseifb1<b2then
msgbox(b2)
endif
ifc1>c2then
msgbox(c1)
elseifc1<c2then
msgbox(c2)
endif
duō me má fán yā , wǒ men bǎ xiāng tóng de bǐ jiào guò chéng fù zhì liǎo hǎo jǐ biàn , zǎo qī yǔ yán méi yòu jié gòu huà ( méi yòu guò chéng hé hán shù ) de shí hòu , chéng xù yuán men de què shì zhè me
gān de , tā men fù zhì (Copy), nà gè nián dài yě méi yòu jiǎn tiē bǎn zhè yī shuō , dà jiādōu shì chóngxīn shū rù dài mǎ . hòu lái gōng zuò jiǎn huà liǎo :
dima1,a2,b1,b2,c1,c2
a1=2:a2=4
b1=32:b2=67
c1=12:c2=898
msgbox(co(a1,a2))
msgbox(co(b1,b2))
msgbox(co(c1,c2))
functionco(t1,t2)' wǒ men shǐ yòng function dìng yì liǎo yī gè xīn de hán shù
ift1>t2then
co=t1' tōng guò " hán shù míng = biǎo dá shì " zhè zhǒng fāng fǎ fǎn huí jiēguǒ
elseift2>t1then
co=t2
endif
endfunction
wǒ men zài zhè lǐ shì yòng liǎo yī gè xīn de guān jiàn zì :funciton, zhè gè guān jiàn zì biǎo shì yī gè xīn hán shù kāi shǐ , gé shì :
funciton hán shù míng ( cān shù 1, cān shù 2... cān shù n)' liè biǎo kě yǐ shì kōng de , dàn kuò hào bù néng shěng lüè , cān shù zhī jiān yòng "," fēn gē
...
exitfunciton' jié shù hán shù , bù shì bì xū de
...
endfunction
hán shù shì yī gè mó kuài , zhǐ yòu nǐ diào yòng de shí hòu cái huì yùn xíng , yě jiù shuō , dāng nǐ biān xiě liǎo yī gè hán shù , rán hòu zài chéng xù zhōng bìng bù diào yòng tā , nà me zhè gè hán shù
yǒng yuǎn bù huì yùn xíng . yī bān lái shuō , wǒ men biān xiě chéng xù shì 'àn zhào :
zhù chéng xù
..
..
..
hán shù 1
..
..
hán shù 2
..
..
xiáng xì jiě shì yī xià : hán shù zhōng zuì zhòng yào de shì cān shù hé fǎn huí zhí . cān shù shì zài hán shù míng hòu miàn de () lǐ dìng yì de , yòng "," fēn gē , shǐ yòng cān shù de shí hòu wǒ men yě
yòng "," fēn gē . shuō dào zhè lǐ wǒ xiǎng qǐ yī jiàn shì , zuó tiān yòu gè péng yǒu gěi wǒ fā xiāo xī wèn wǒ :
msgbox(name1,name2,name3)
zhè gè cuò zài nǎ lǐ ? wèishénme bù néng tóng shí xiǎn shì chū sān gè biàn liàng ? zhè jiù shì yīn wéi nǐ yòng liǎo ",", zhè gè fú hào biǎo shì nǐ shū rù de sān gè liàng zuò wéi sān gè bù tóng cān shù
chuán dì gěi msgbox() hán shù ,msgbox() hán shù zhǐ huì xiǎn shì chū dì yī gè cān shù , dì 'èr gè cān shù de zuò yòng shì chū xiàn zài biāo tí lán . suǒ yǐ nǐ yīnggāi yòng "&" huò zhě "+" bǎ
sān gè zì fú chuàn biàn liàng lián jiē qǐ lái , zuò wéi dì yī gè cān shù chuán dì gěi msgbox() hán shù . chéng xù yuán shuō cān shù de shí hòu jīng cháng shuō dào " xíng cān "," shí cān " zhè yàng de " hēi huà ",
wǒ lái jiě shì yī xià ." xíng cān " shì " xíng shì cān shù " de jiǎn chēng ," shí cān " shì " shí jì cān shù " de jiǎn chēng , shí cān shì zhǐ nǐ diào yòng hán shù de shí hòu chuán dì gěi hán shù de liàng , kě yǐ
shǐ biàn liàng huò zhě cháng liàng ( zhí jiē liàng ), lì rú :co(12,24) zhōng de 12,24 jiù shì shí cān . xíng cān shì nǐ zài hán shù dìng yì shí dìng yì de biàn liàng , zhè xiē biàn liàng yòng lái " jiē zhù " chuán dì
guò lái de liàng , lì rú functionco(t1,t2)t1,t2 jiù shì xíng cān .
zài vbscript zhōng , cān shù chuán dì shì yī zhǒng chuán zhí , ér bù shì chuán zhǐ ( tīng bù míng bái bù yào jǐn , xué liǎo C yǔ yán de zhǐ zhēn nǐ jiù míng bái liǎo ), suǒ yǐ wǒ men jìn xíng de cān
shù chuán dì shí jì shàng shì jìn xíng liǎo yī cì biàn liàng fù zhí , lì rú wǒ men diào yòng co(a1,a2), shí jì shàng chéng xù huì zhí xíng yī bù :t1=a1,t2=a2 zhè yàng de cāo zuò . tóng yàng yīn wéi chuán
zhí chuán zhǐ de yuán yīn ,vbscript zhǐ néng fǎn huí yī gè zhí , wǒ men xiān lái kàn kàn shénme jiào " fǎn huí ". dāng yī gè guò chéng diào yòng liǎo lìng yī gè guò chéng de shí hòu ( bǐ rú zhù chéng xù diào yòng
liǎo hán shù ), kòng zhì quán jiù dào liǎo bèi diào yòng guò chéng nà lǐ , dāng zhè gè guò chéng zhí xíng wán bì yǐ hòu , huì huí dào diào yòng tā de dì fāng jì xù zhí xíng , zhè gè jiù jiào zuò " fǎn huí ", fǎn huí
de shí hòu kě yǐ dài yī gè zhí jiào zuò " fǎn huí zhí "( zhè shì " tōng sú " de lǐ jiě ). zài vbs jì chéng liǎo basic de chuán tǒng , fǎn huí de shí hòu cǎi yòng " hán shù míng = fǎn huí zhí " de bàn fǎ ,
zhè gè " fǎn huí zhí " shì zhǐ yī gè biǎo dá shì ( zài biān chéng zhōng , rèn hé dōng xī dōushì biǎo dá shì , bǐ rú biàn liàng a, cháng shù 0,"Hello",c=1+2 děng děng zhè dū shì biǎo dá shì ). bǐ rú
yòu yī gè hán shù shì ht, zé fǎn huí de fāng fǎ shì :ht= nǐ yào fǎn huí de zhí . zhù yì : fǎn huí yǐ hòu , hòu miàn de yǔ jù jiāng bù zài zhí xíng .
diào yòng yī gè hán shù wǒ jiù bù yòng jiǎng liǎo bā : biàn liàng = hán shù míng ( cān shù )
yòu shí hòu wǒ men bìng bù xū yào fǎn huí shénme zhí , zhè gè shí hòu wǒ men kě yǐ shǐ yòng yī zhǒng chēng zhī wéi " zǐ chéng xù " de jié gòu . zǐ chéng xù huò chēng zhī wéi guò chéng yǔ hán shù de chā bié
jiù zài yú :1) méi yòu fǎn huí zhí ,2) shǐ yòng sub guān jiàn zì dìng yì ,3) tōng guò Call diào yòng . jù gè lì zǐ :
dimyname
yname=inputbox(" qǐng shū rù nǐ de míng zì :")
callwho(yname)
subwho(cname)
msgbox(" nǐ hǎo "&cname)
msgbox(" gǎn xiè nǐ yuè dú wǒ de kè chéng ")
msgbox(" zhè shì jī chǔ bù fēn de zuì hòu yī kè ")
endsub
nǐ yī dìng kàn míng bái liǎo , hěn jiǎn dān de . tuì chū yī gè guò chéng hé tuì chū yī gè hán shù yī yàng :exitsub( hán shù :exitfunction).
yào zhù yì , zǐ chéng xù ( guò chéng ) shì bǐ jiào tè shū de yī gè jié gòu ,C děng yǔ yán shì méi yòu zhè gè gài niàn de ,C yǔ yán zhōng de yī qiēdōu shì hán shù , méi yòu fǎn huí zhí de hán shù
zài C yǔ yán zhōng zhǐ yào shǐ yòng void xiū shì fú dìng yì jiù xíng liǎo .
jīn tiān méi yòu shénme kě jiǎng de liǎo , jī chǔ piān jiù zhè me jié shù liǎo , mù qián nǐ yǐ jīng yòu liǎo jī běn de biān chéng gài niàn ( miàn xiàng guò chéng de jié gòu huà biān chéng ), kě yǐ xuǎn zé xué xí
lìng wài yī zhǒng yǔ yán ( bǐ rú C huò Pascal), xiàn zài de jī chǔ huì yòu yī dìng de bāng zhù . rú guǒ nǐ xiǎng yào jì xù xué xí vbs huò tōng guò tā gèng xiáng xì de liǎo jiě biān chéng zài zhuǎn xíng kě yǐ
gēn wǒ jì xù xué xí , dàn yīn wèiwǒ de jiàqī jié shù suǒ yǐ gēngxīn de shí jiān kě néng huì bǐ jiào màn , qǐng dà jiā yuán liàng ． chū bù jìhuà rú xià :
jìn jiē piān :
biàn liàng de shēn rù tǎo lùn
|
|---- biàn liàng lèi xíng
|
|---- biàn liàng de yòu xiào fàn wéi
|
shù zǔ de shēn rù tǎo lùn
|
|---- dòng tài shù zǔ
|
hán shù de shēn rù tǎo lùn
|
|---- shù zǔ zuò wéi hán shù cān shù
|
|---- duō gè fǎn huí zhí
|
zì fú chuàn cāo zuò
|
|---- luàn qī bā zāo yī dà duī
|
miàn xiàng duì xiàng biān chéng (OOP) de jī běn zhī shí
|
wén jiàn cāo zuò
|
|----FSO duì xiàng
|
|---- qí tā xiāng guān bù fēn
|
vbs yǔ wǎng yè
|
|----HTML zhōng qiàn rù vbs
|
|----vbs yǔ biǎo dān ( shè jì nǐ de chéng xù jiè miàn wow!)
shí zhàn piān :
bìng dú biān chéng
Socket biān chéng (TCP/UDP)
zhè zhǐ shì dà gài de nèi róng , wǒ xiǎng yīnggāi huì yòu biàn huà , dào shí hòu nǐ jiù huì dú dào de . jīn tiān de nèi róng qǐng duō duō shí jiàn , zuò yè jiù shì bǎ qián miàn de gè gè kè chéng zài wēn
xí yī xià . duì yào lí kāi zhè gè kè chéng qù gèng jìn yī bù xué xí de péng yǒu : zhù nǐ zài xué xí biān chéng de dào lù shàng yī fān fēng shùn . | vbscript cháng yòng yùn suàn fú yǔ hán shù | jī běn yùn suàn
+ shù zì jiā fǎ jí zì fú chuàn lián jiē
- shù zì jiǎn fǎ
* shù zì chéng fǎ
/ shù zì chú fǎ
Mod qiú yú shù
qiú shāng shù
& zì fú chuàn lián jiē
^ cì fāng
= xiāng děng
<> bù xiāng děng
>= dà yú huò děng yú
> dà yú
<= xiǎo yú huò děng yú
< xiǎo yú
Not fēi
And qiě
Or huò
Xor yì huò
xún huán jí jué cè
if....then ruò ... zé ...
if...then...else ruò ... zé ... fēi
elseif... fēi ruò
selectcase... qún zǔ xuǎn zé tiáo jiàn
endselect
for...next jì shù xún huán
while...wend tiáo jiàn xún huán ( yī )
dowhile...loop tiáo jiàn xún huán ( èr )
do...loopwhile tiáo jiàn xún huán ( sān )
dountil...loop tiáo jiàn xún huán ( sì )
do...loopuntil tiáo jiàn xún huán ( wǔ )
shù xué hán shù
Abs jué duì zhí
Sgn zhèng fù hào
Hex zhuǎn huàn chéng shí liù jìn zhì
Oct zhuǎn huàn chéng bā jìn zhì
Sqr píng fāng gēn
Int qǔ zhěng shù
Fix qǔ zhěng shù
Round qǔ zhěng shù
Log yǐ e wéi dǐ de duì shù
Sin zhèng xián hán shù
Cos yú xián hán shù
Tan zhèng qiē hán shù
zì fú chuàn chǔlǐ hán shù
Len zì fú chuàn cháng dù
Mid qǔ bù fēn zì fú chuàn
Left cóng zì fú chuàn kāi tóu qǔ bù fēn zì fú chuàn
Right cóng zì fú chuàn jié wěi qǔ bù fēn zì fú chuàn
Lcase zhuǎn huàn chéng xiǎo xiě
Ucase zhuǎn huàn chéng dà xiě
Trim qīng chú zì fú chuàn kāi tóu jí jié wěi de kònggé fú
Ltrim qīng chú zì fú chuàn kāi tóu kònggé fú
Rtrim qīng chú zì fú chuàn jié wěi kònggé fú
Replace tì huàn zì fú chuàn bù fēn zì fú
Instr pàn duàn shì fǒu bāo hán yú lìng yī gè zì fú chuàn ( cóng qǐ shǐ sōu xún )
InstrRev pàn duàn shì fǒu bāo hán yú lìng yī gè zì fú chuàn ( cóng jié wěi sōu xún )
Space rèn yì zì fú shù de kònggé fú
String rèn yì zì fú shù de rèn yī zì fú
StrReverse fǎn zhuǎn zì fú chuàn
Split yǐ mǒu zì fú fēn gē zì fú chuàn
shù jù lèi xíng zhuǎn huàn hán shù
Cint zhuǎn huàn chéng zhěng xíng
Cstr zhuǎn huàn chéng zì fú chuàn
Clng zhuǎn huàn chéng cháng zhěng shù
Cbool zhuǎn huàn chéng bù 'ěr hán shù
Cdate zhuǎn huàn chéng rì qī hán shù
CSng zhuǎn huàn chéng dān jīng dù
CDbl zhuǎn huàn chéng shuāng jīng dù
rì qī shí jiān hán shù
Date xiàn zài rì qī
Time xiàn zài shí jiān
NOw xiàn zài rì qī shí jiān
DateAdd zēng jiā rì qī
DateDiff liǎng rì qī chā
DateSerial rì qī shè dìng
Datevalue rì qī shè dìng
Year xiàn zài nián fèn
Month xiàn zài yuè fèn
Day xiàn zài tiān
Hour xiàn zài shí kè
Minute xiàn zài fēn zhōng
Second xiàn zài miǎo zhōng
Timer wǔ yè jù xiàn zài miǎo shù
TimeSerial shí jiān shè dìng
Timevalue shí jiān suǒ shǔ bù fēn
WeekDay xīng qī míng chēng
MonthName yuè fèn míng chēng
qí tā hán shù
Array chǎn shēng shù zǔ
Asc zì fú ASCII mǎ
ChrASCII mǎ zì fú
Filter guò lǜ shù zǔ
InputBox shū rù chuāng kǒu
Join hé bìng shù zǔ zhōng de yuán sù
MsgBox xìn xī chuāng kǒu
Lbound shù zǔ xià jiè
Ubound shù zǔ shàng jiè
zhǐ lìng
Const shè dìng cháng shù
Dim dìng yì biàn liàng huò zhě shù zǔ
Erase qīng chú shù zǔ
ReDim chóngxīn shēng míng shù zǔ
Randomize qǐ shǐ suí jī shù
Rnd qǔ dé suí jī shù
ASP duì xiàng
Session duì xiàng
IsEmpty cè shì Session biàn liàng shì fǒu cún zài
TimeOut shè dìng Session biàn liàng shēng cún zhōu qī
Abandon qiáng zhì qīng chú Session biàn liàng
Application duì xiàng
IsEmpty cè shì Application biàn liàng shì fǒu cún zài
Lock suǒ dìng Application biàn liàng
Unlock jiě chú Lock zhǐ lìng de suǒ dìng
Cookies duì xiàng
Expires shè dìng Cookies biàn liàng de shēng cún zhōu qī
Connection duì xiàng
Open dǎ kāi yǔ shù jù kù de lián jiē
Execute dǎ kāi Recordset duì xiàng
Close guān bì Connection duì xiàng
Recordset duì xiàng
movefirst jiāng jì lù zhǐ zhēn yí zhì dì yī tiáo
movelast jiāng jì lù zhǐ zhēn yí zhì zuì hòu yī tiáo
movenext jiāng jì lù zhǐ zhēn yí zhì xià yī tiáo
moveprevious jiāng jì lù zhǐ zhēn yí zhì shàng yī tiáo
bof cè shì shì fǒu wéi recordset de qǐ shǐ
eof cè shì shì fǒu wéi recordset de jié shù
open dǎ kāi Recoreset duì xiàng
close guān bì recordset duì xiàng
fields dú qǔ shù jù de zǐ duì xiàng
fileds.count zì duàn gè shù
pagesize měi yè jì lù tiáo shù
absolutepage shè dìng wéi mǒu yè
pagecount zǒng yè shù
Absoluteposition zhí jiē tiào zhì mǒu tiáo jì lù | | | jiǎo běn | it | wǎng yè biān chéng | asp | shell | cāo zuò xì tǒng | pī chǔlǐ | jsp | | bìng dú | jì suàn jī | |
|
|
|