原创力文档- 1、本文档共352页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47;48;49;50;51;52;53;54;55;56;57;58;59;60;61;62;63;64;65;66;67;68;69;70;71;72;73;74;75;76;77;78;79;80;81;82;83;84;85;86;87;88;89;90;91;92;93;94;95;96;97;98;99;100;101;102;103;104;105;106;107;108;109;110;111;112;113;114;115;116;117;118;119;120;121;122;123;124;125;126;127;128;129;130;131;132;133;134;135;136;137;138;139;140;141;142;143;144;145;4.1基本語句;;;;4.2使用表單設計器進行程式設計;5.1電腦演算法;;;;5.2條件選擇語句;;;6.1概述;;[例6.1]編寫計算S=1+2+3+…+100的程式。
;[例6.2]計算n的階乘。
;計算按鈕的Click事件代碼：
n=Thisform.Text1.Value輸入n的值
IFn=0如果n的值小於或等於0則不進行計算
Messagebox(“輸入數據不正確！”)
Return
ENDIF
n1=1變數n1用來保留每次乘積的結果
i=1變數i為計數器，初值為1
DOWhilei=n當i的值小於或等於n的值，執行循環體
n1=n1*i將i每次自增後的值同前次乘積的結果相乘，並再次保存到n1中
i=i+1計數器i自增
Enddo
Thisform.Text2.Value=n1將n的階乘輸出
Thisform.Refresh
;6.2.2FOR迴圈;[例6.3]編寫計算S=1+2+3+…+100的程式。
;[例6.4]修改[例6.2]，改用FOR迴圈計算n的階乘。
;[例6.5]判斷n是否素數
;[例6.6]求前20個Fibonacci數列
;6.2.3SCAN迴圈
語句格式：
SCAN[範圍][FOR條件]
語句序列
ENDSCAN
;6.2.4迴圈輔助語句LOOP和EXIT;6.2.5多重迴圈
;6.3列表框與組合框控件;[例6.9]求從2000年到2100年之間的所有閏年。;[例6.10]利用迴圈結構和列表框控件，設計一個“選項移動”表單。;對象
;編寫表單的Init事件代碼：
(未加容器container1)Thisform.List1.Additem(“one”)Thisform.List1.Additem(“two”)Thisform.List1.Additem(“three”)Thisform.List1.Additem(“four”)Thisform.List1.Additem(“five”)Thisform.List1.Additem(“six”)Thisform.List1.Additem(“seven”)Thisform.List1.Additem(“eight”)Thisform.List1.Additem(“nine”)Thisform.List1.Additem(“ten”);[例6.11]顯示檔???錄的列表框程式。在列表框中選定檔後，用滑鼠單擊“打開選定檔”按鈕可以打開該檔進行查看或編輯。;設計步驟如下：
（1）選擇新建表單，進入表單設計器。增加一個列表框List1、一個命令按鈕Command1、兩個形狀按鈕Shape1和Shape2、兩個標籤Label1和Label2及一個文本框Text1，如上圖所示。;[例6.12]簡易數學用表。顯示整數1~100的平方、平方根、自然對數和e指數，如圖6-13所示：
;6.3.2使用組合框;[例6.13]在文本框輸入數據，按回車添加到列表框中，在列表框中選
文档评论（0）