第一篇：解說ps等高線編輯器

Photoshop里等高線是Photoshop軟件中將像素圖里同一明度的像素為之等高，歸為一線。等高線編輯器是Photoshop軟件中圖層樣式里對陰影或光澤的明度調節工具。

[PS里，濾鏡和圖層樣式皆有等高線運用。圖解，不如自個實際操作。

請有心學習者，打開PS，建立新圖，填充顏色。再新添一透明層，在該一圖層上畫上三角形、矩形、圓形。

然后打開圖層樣式。在圖層混合選項里，將填充不透明度降為0.【不明上下作用的，可以在實驗后，適當將添加不透明度。來觀察上下問題】 然后自行，對我的闡述，做適當的操作實驗。]

濾鏡中的等高線

將同一明度的像素點稱為等高。256階即用256條等高線將圖片劃分。當你選擇某一階時，代表圖像只顯現該階的等亮度的像素點，其他255階則都不顯現。等高線編輯器詳解

嚴格上說，PS曲線，x軸就是等高線數值構成的，曲線用同亮度的等高線來統計調控像素，而等高線編輯器可以用同亮度或暗度來調控。鑒于圖層樣式里，虛擬圖層的光影中運用等高線，光影的特性，距光暗源同等級的光暗密度一致，故該等高線環源圍繞。若調控操作，則是絢麗的明暗環狀圈圈。

等高線編輯器是將陰影或光亮的像素點同等暗度或同等亮度劃分，將所有同亮度或同暗度的像素點統一成一條等高線。

于是，一個從陰影到光亮過渡的虛擬圖層圖像里，可以分成n條等高線。

我們若以陰影來劃分等高線，自然是從陰影最低的等高線記為0，即最亮的那段像素點的等高線數值是最低的，而陰影濃度最高的，即最暗的數值最高；

若我們用光澤來劃分等高線，則，沒有光澤的地方，即最暗部等高線為0，最亮部等高線數值最高。

在等高線編輯器里 x-y軸等高線輸入輸出圖里，用百分比來劃分等高線、即亮度濃度最高-亮度濃度最低 或者 暗度濃度最高-暗度濃度最低 用百分比，鑒于百分比輸入值通常用整數，故可以這么說，將可以無數條計數的等高線，刻畫了可以計數的一百條等高線。

等高線編輯器，將這100條等高線按等高線數值低到高分布。

x軸是圖像原圖像等高線分布數值，下方的輸入就是對X軸的操作，Y軸是我們要將X軸的線點數值調高或調低后的值，代表輸出。XY匯聚處，等高線數值為0。記住了，在等高線圖里，每個等高線點代表他原來圖像里相應同亮度或暗度的那些個像素點。所以，該等高線數值被調整后，對應的那些像素點的明度就發生改變。

等高線曲線里，常規默認是斜率為1的斜線。即，輸入輸出一致，也就是沒有調整過該虛擬圖像的明度。等高線編輯器里操作：

輸入[X]：定位原圖等高線數值。輸出[Y]：原等高線改變后的數值。

邊角：當瞄點可操作時，就是便黑色實心時，點擊該選項，瞄點右邊的線將被矯正為直的線段。

按shift鍵，可以同時點黑多個瞄點，同時操作多個瞄點。

按alt鍵，“取消”按鈕將出現“復位”，則可重新操作。該鍵通用在PS編輯器中。

PS里運用等高線編輯器的幾項 投影等高線編輯器

等高線是用暗度劃分，最暗處輸出為0【即最亮】

投影：圖層樣式里，投影是對實際圖層下方添加一個以實際圖層形狀的陰影。當大小為0時，該投影的像素點所有亮度一致，故統一為1條同一梯度的等高線。故此時調節等高線曲線圖，是對整體的一致的調節。等高線里，便只有Y軸上點高低變化有效。

當有大小時，等同邊緣羽化，投影擴散，范圍變大，明暗有了梯度，故此時可以分割成無數條等高線，x 0-100%代表從最亮到最暗，你調節了，就有各種亮環暗環。擴展時，該暗源輻射范圍暗的濃度升高，從輻射中點開始。內陰影等高線編輯器

內陰影：是模擬物體，投射出實際圖層的陰影，在圖上方形成一個虛擬圖層，其從圖層邊緣開始，最大擴散可以抵達整個實際圖層。故等高線操作時，其給予等高劃分的范圍是整個圖層形狀大小。

我們的用光、暗源說法：黑暗來臨，光明退卻。在實際圖層圖形上方，占據這滿滿的光源。當黑暗自該圖像邊緣的一個角落升起，光明無奈退卻。所以是黑暗步步貼近，光明以其原有的形狀整體位移后退，故該圖形狀的光明，可以部分原型抵達到另外一個圖形上，并且起到到入侵黑暗的作用。黑暗可以無止境逼近，故完全可以該圖層所有的形狀都便暗。

距離：就是黑暗來臨的腳步。距離圖形邊緣的距離。【黑暗是源】

大小：就是黑暗輻射的范圍：距離越遠，受到的影響越小。【輻射是源散播的黑暗元素】

堵塞：就是，輻射出去時，暗元素參與輻射的密集程度。堵塞百分比越大，等同于輻射范圍內，暗元素越多，越暗。

方式：以陰影劃分等高線，最亮的區域對應的等高線值為0。

外發光等高線編輯器

外發光是給實際圖層里圖像外圍形狀邊緣下方添加一個虛擬的與該形狀相同的一圈閉合光源。該當大小增大時，代表處于該圖像邊緣的光明開始背對圖像，往圖層外輻射延伸。因像素只分布在外圍。

故，外發光等高線操控范圍是外發光的那個圈。擴展：光元素的密集程度。

應用光澤劃分等高線，最暗的區域等高線值為0。內發光等高線編輯器

內發光是實際圖層里圖像外圍形狀邊緣上方添加一虛擬的與該邊緣形狀相同的一圈閉合光源。大小為0時，暗源占據該領土，當大小增大時，代表該處圖像邊緣的光明源360度開始向圖像里面輻射延伸，驅散黑暗。堵塞：光元素密集程度。越堵塞，越亮。操作范圍：該層所有圖像。

方式：光澤劃分等高線，最暗的區域等高線值為0。

浮雕與斜面的光澤等高線編輯器

內斜面：在圖層上方添加一個以圖層外圍形狀相同的一條狀虛擬素光、暗源，一半主光，一半主暗。該當大小增大時，代表處于該圖像邊緣的光明、黑暗開始往圖層里輻射延伸，所以，距離邊緣越遠的，光暗輻照量越少。

外斜面：在圖層外圍形狀邊緣下方添加一條狀虛擬的光、暗源，一半主光，一半主暗。當該大小增大時，便背離圖層，往圖層外延伸。

枕形浮雕：給實際圖層外圍形狀邊緣添加一對連體的條狀虛擬的光、暗環。環半光，一半暗。同側上下搭配的正是一光、一暗。當大小增大時，圖層上環狀的光明、黑暗內輻射，圖層下的光明、黑暗外輻射。呈現的圖像等同：內斜面+外斜面。

深度：代表光、暗元素的濃度，深度升高，將會讓光、暗濃度升高。

我們的曲線，在這里，運用光澤等高線：即光來劃分等高線。那黑暗的區域等高線的數值最低。

操控范圍：被光明、黑暗輻射過的區域。方式：光澤劃分，最暗的區域等高線值為0。光澤等高線編輯器

通常系統默認一種等高線曲線圖為一曲線，讓圖像直接成就光澤。但我們可以自定，來構造各種奇妙的光澤。

光澤：在實際圖層形狀邊緣上方一條狀光源。當移動距離時，該條狀光源以其角度的垂直方向分割，于其水平方向向對方移動。移動的最大范圍為該圖像該角度的寬度。該光澤圖形。開始是黑暗占據整個圖形。光明來臨，黑暗退卻。只是該光明自相對的兩邊入侵。故，黑暗無奈無路可逃，只好被壓消退。陽極陰生，當兩大光明交匯處，黑暗重現。

大小：光源的輻射范圍。該光源兩邊輻射。若圖層里沒有實際像素的區域，輻射不顯現。鑒于某光源可以移動到該形狀外圍，鑒于，該光源在圖層上方起作用，故，若實際圖層上有多個圖形，則統一實際圖層里，不同形狀的圖形光源可以相互影響，只要他們在一方角度寬度兩倍范圍內。操控范圍：整個實際層圖形。

方式：光澤劃分，最暗的區域等高線值為0.

第二篇：實驗2-vi編輯器

西華大學數學與計算機學院上機實驗報告

西華大學數學與計算機學院上機實驗報告

課程名稱： linux操作系統

指導教師：劉世林

上機實驗名稱：vi編輯器

上機實驗編號：

年級：級 姓名：學號： 組號： 上機實驗成績：上機實驗日期： 上機實驗時間：12:30-13:30 提示：(教材p312)。一些實用的vi命令

yy復制當前行；3yy復制當前行開始的以下3行；4yy復制當前行開始的以下4行；….p粘貼復制的內容

dd刪除當前行；3dd刪除當前行開始的以下3行；4dd刪除當前行開始的以下4行；…./模式查找；例，/count查找文本中的字符串”count”，/[0-9][0-9]

/模式替換；例，:1,9s/abc/xyz將1-9行的字符串abc替換成xyz。若有每行只替換1個。例，:1,9s/abc/xyz/g將1-9行的字符串abc替換成xyz。每行全替換。將第7章所講的程序均用vi編輯，在編輯中注意使用本實驗所提到的命令

一、實驗目的學習使用vi編輯器建立，編輯，顯示及加工處理文本文件。

二、實驗內容

1.2.3.4.進入和退出vi 利用文本插入方式建立一個文件 在信箋的文本文件上移動光標位置 對該文件執行刪除，復原，修改，替換等操作。

三、使用環境

1.硬件環境

微型計算機一臺（intel? core CPU）（內存2G）

2.軟件環境

VMware Workstation、Ubuntu11

四、核心代碼及調試過程

五、總結

注：給出x,dd,u,c,r,等命令的功能，和你的體會

第三篇：等高線地形圖教案

等高線教案

一、【教學構思】

地圖及等高線內容是高考考查的重點知識，主要包括等高線的基本特征及其應用，高考題注重能力考查，往往以變式圖出現，講解過程重點講一般規律去推理特殊規律。

二、【教學目標】

1.區分絕對高度（海拔）和相對高度，并能熟練讀出海拔，計算相對高度。

2.了解等高線，能夠在等高線圖上，根據等高線的形狀、疏密正確判讀地形名稱和坡陡程度，識別山谷、山脊、山頂和懸崖。

3.學會等高線地形圖中的高度計算：兩地間氣溫差、某地形區的相對高度、估算陡崖的相對高度。

三、【教材分析】

重點：等高線地形圖的判讀及計算問題。學會繪制等高線地形剖面圖。難點：運用等高線進行選線、選點、選面等人類實際活動。

四、【教學方法】自主合作探究，講練結合

五、【教具學具】：多媒體，地圖冊

六、【課時安排】3課時

七、【教學過程】

上節課我們學習了地圖三要素，三要素都包括什么啊？（學生回答)這節課我們就來學習地形圖的一種——等高線地形圖

等高線地形圖不僅是地理學習的基礎內容，也是高考的重點內容，而且在實際的應用非常廣泛，比如戰爭，水庫選址，公路，鐵路的線路選擇。

一、等高線地形圖

（1）海拔（絕對高度）和相對高度的區別

1、海拔高度：即某個地點高出海平面的垂直距離，我國的海拔是高出黃海海平面的距離。

珠穆朗瑪峰 8844.43（中尼邊境）。死海（陸地最低點，-415米，約旦與巴勒斯坦邊界）。

2、相對高度：地面某個地點高出另一地點的垂直距離。

（2）等高線地形圖的基本特征

1、同線等高

2、同圖等距

3、等高線均為閉合曲線

4、等高線疏密反映坡度陡緩

5、等高線一般不相交，不重疊，但在陡崖峭壁處重合

6、示坡線表示降坡方向，它是垂直于等高線的短直線，指向坡度降低的方向。（在手上標出示坡線）

7、等高線地形圖中，山脊線稱為分水線，山谷線稱為集水線。（右手上標出山谷線與山脊線，并演示說明它們為何被稱為分水線和集水線）

二、等高線地形圖的計算問題

1、計算兩地間的氣溫差

2、估算某地形區的相對高度

3、坡度的計算

如何計算海拔(絕對高度)和相對高度

根據等高線的特性即標高為海拔、同線等高、等高距全圖一致等，判斷該地形區的：

最大海拔：H高＜H大＜H高＋d；

最小海拔：H低－d＜H小＜H低；

相對高度：H相=H大－ H小；

注：地形區最高處注記高程為H高，最低處注記高程為H低，等高距為d。

崖頂海拔： H高≤H大＜H高＋d；

崖底海拔： H低－d＜H小≤H低；

陡崖的相對高度為(n－1)d≤H＜(n＋1)d；

注：重合的等高線有n條，等高距為d。（1）計算：tan a＝h/L h為兩點相對高度，可有兩點等高線求出；

L為兩點間距離，可有圖中比例尺與兩點圖上距離求出。（2）比例尺大小與坡度大小規律： 等高距、等高線疏密程度相同：

比例尺大，坡陡；比例尺小，坡緩 等高線疏密、比例尺相同：

等高距大，坡陡；等高距小，坡緩

（三）等高線地形圖的判讀

（1）演示動畫 動畫演示等高線（高度相同的所有點的連線）地形圖的形成（2）游戲：以手為山地，在手上畫等高線。小組合作，探究，畫出圖并展示。運用地形圖進行對比，以游戲的形式讓學生理解等高線如何來表示各種地形

如圖：

山頂：閉合等高線，數值從四周向中心逐漸升高 盆地： 閉合等高線，數值從四周向中心逐漸降低

鞍部：兩個山頂之間，是兩個山頂之間的最低處，兩個山谷之間的最高處 山脊：等高線的凸出部分指向數值較低處，中間高于兩側 山谷：等高線的凸出部分指向數值較高處，中間低于兩側 坡度陡，等高線密集，坡度緩，等高線稀疏。陡崖：等高線重疊

四、等高線地形圖的應用：

①選“點”：氣象觀側站、療養院。

②選“線”：交通線（公路、鐵路）、引水線、輸油管線。

③選“面”：水庫匯水面積及壩址，開辟梯田，工業區和居民區。（1）水庫、壩址的選擇：應建在等高線密集的河流峽谷處 ①庫區：在河谷、山谷地區或在“口袋形”洼地或小盆地。

理由：庫容大；集水區域的面積大 ②壩址：峽谷地段。

理由：工程量少，投資少。

(1)圖示區域內最大高差可能為()A．50 m B．55 m C．60 m D．65 m(2)圖中①②③④附近河水流速最快的是()A．①

B．②

C．③

D．④

(3)在圖示區域內擬建一座小型水庫，設計壩高約13 m。若僅考慮地形因素，最適宜建壩處的壩頂長度約()A．15 m B．40 m C．65 m D．90 m

（2）港口碼頭的位置：

應建在等高線稀疏、等深線密集的海灣地區，即陸域平坦、水域闊深的避風港灣

右為某海灣附近等高線、等深線圖，該區域的主導風向為西北風和東南風。讀圖判斷:甲、乙、丙、丁四個地點，最適宜建港口的是（）A． 甲 B． 乙 C． 丙 D． 丁 3）引水線路：

路線盡可能短，避免通過山脊等障礙，并盡量利用地勢使水自流

五、如何繪制地形剖面圖

(1)確定剖面線。在等高線地形圖上，根據題目要求，在要作剖面圖的兩點之間作一直線，作為等高線地形圖的剖面線。上圖中上半部為等高線地形圖，圖中陰影部分是海洋。AB橫線是要切開地表的剖面線。

(2)確定比例尺。一般來說，剖面圖的水平比例尺多采用原圖的比例尺(有特殊要求時除外)；垂直比例尺應視圖中地形的起伏狀況而定，一般來說，為了使剖面圖所表達的地形起伏更加明顯，垂直比例尺大多都要適當放大，一般要比水平比例尺大幾倍，以便形象地看出地勢起伏狀況。

(3)建立剖面圖坐標系。

①確定剖面圖的水平基線。因為剖面圖的水平比例尺一般保持與原圖一致，因而剖面圖的水平基線與剖面線長度相等。

②確定坐標縱軸的高程。縱軸的高程應根據垂直比例尺確定，但圖上高程的間距要與等高線地形圖的等高距相等，標出各高程的數值，并通過各高程點作平行于剖面圖基線的高程線。

③找出等高線地形圖中剖面線與等高線的交點，量出各點之間的距離，并把它們轉繪到剖面圖基線的相應位置上。

④通過轉繪到剖面圖基線上的各點作垂線，標出各垂線與相應高程線的交點。

⑤把各交點用一條平滑的曲線連接起來，并在曲線內畫上陰影部分，以更加清楚地顯示剖面的起伏狀況。

⑥在剖面圖的下方，標出水平比例尺和垂直比例尺。擦去垂線的痕跡，一幅完美的剖面圖就完成了。

通視問題

(1)若坡面等高線高處密、低處疏表示凹形坡(坡向下凹)，反之則為凸形坡(坡向上拱)；站在地勢高處向低處看，凸形坡視線常被阻擋，通視狀況較差。

(2)利用地形剖面圖可以很好地了解實際地點的通視情況。

如下圖，從A點觀察，C點到D點的山坡以及B山北坡 通視情況良好，而陰影區表示不可通視的地區。

八、【板書設計】

一、等高線地形圖

1.海拔（絕對高度）和相對高度的區別 2.等高線地形圖的判讀

3.等高線地形圖的基本特征

二、等高線地形圖的應用 1.計算兩地間的氣溫差

2.估算某地形區的相對高度 3.坡度的計算

三、地形剖面圖的畫法

九、【布置作業】

讀某河流上游水庫大壩的位置圖和剖面圖及其河流水量變化圖（1）圖中的水庫大壩選擇的地

形條件 這樣選

擇的理由是。

（2）大壩的設計與建設需考慮 的自然條件是（3）按照圖中的大壩設計（若

圖距為0.8㎝），壩長和

壩高（壩頂到壩底的相對高度）分別大約是、（4）在圖中繪出水庫淹沒的最大范圍

（5）判斷在E、F、G三個地點中，能目測到鐵路上經過H處火車車輛的是_______。

理由是_______________________________。

（6）經圖中的鐵路從山區外運的物產主要有茶葉、柑橘、毛竹等，該地所在的

省區簡稱是A、魯 B、浙 C、青D、吉

（1）峽谷 建壩工程量小，同時上游又有較廣的集水區域（2）流域內的降水量及其季節分配狀況；河流的流量、含沙量等水文特征；壩址所在地的地質條件（3）72m 50--100m（5）G 因為G地到H點之間沒有地形障礙，可以清晰地觀察（9）B 某山區一所學校，擬組織學生對附近公路邊交通流量進行調查。讀圖，完成下列要求:

(1)判斷在E、F、G三個地點中能目測到公路上過H處的車輛是___點。(2)試用地形剖面圖解釋你所做判斷，并作簡要說明。圖畫在下面的框內。

? 圖4示意某小區域地形。圖中等高距為100米，瀑布的落差為72米。據此完成10～11題。

10.Q地的海拔可能為

A.90米 B.230米 C.340米 D.420米 11.橋梁附近河岸與山峰的高差最接近

A.260米 B.310米 C.360米 D.410米

十、【教學反饋】

第四篇：等高線教學反思

如何高效復習等高線專題

長沙縣泉塘中學 張雙龍

等高線內容在初中地理中對于學生來說是一個相對比較難的知識塊。部分學生因為空間思維能力有限，覺得很難理解山谷、山脊這些知識點。所以，把等高線部分的內容做一個專題來復習非常必要。但是總是感覺一節課時間不夠，復習效果也不好。針對這節復習課我有以下思考。

一、利用多媒體構建空間情境。現在網絡上有很多優秀的微課或者動態圖。可以在網上找找資源，利用多媒體播放幫助學生創建空間情境。但是一定要對網絡資源有所取舍。等高線地形圖的成圖過程是一定要給學生展示的。這有利于學生對等高線的理解。特別是山脊線和山谷線一定要給學生播放并講解。因為學生對于山谷和山脊的判讀一直存在問題。

二、注意準確解讀關鍵詞，防止學生理解誤區。老師經常會講‘等高線向高處凸出為山谷’實質上表述為‘等高線向海拔高處彎曲為山谷’更好一些。因為學生經常會把向試卷上側彎曲的等高線定義為山谷，這往往會出錯。

三、合作探究，提高學習效率。學生這一部分的知識點掌握不好主要是因為理解不了抽象的概念。老師不可能給每一個學生一一解答。所以要利用好學生的力量。由掌握的好的學生給掌握不好的學生解答問題。老師需要事先了解學情。知道哪些學生這一部分知識掌握的好。然后進行一個簡單分組，把全班同學大致分為七八個組。提供題目先讓學生自己做。然后老師在白板上公布正確答案，學生自己對答案。用紅筆把做錯的題目標注好。最后學生之間互相交流，由指定學生組內解答疑問。

四、總結歸納考察題型類型。老師需要把等高線部分的考法總結歸納出來。在準備練習題目的時候要全面涵蓋。每一種類型的題目都準備好一個例題、等高線專題復習可以用兩個課時。如果做到以上方面我想效果應該會好一些。在以后的教學中，我還會繼續實驗，尋找更加高效的方法。

第五篇：VB課程設計-文本編輯器

學院名稱學生姓名專業名稱班

級VB課程設計報告

——文本編輯器

： ： ： ：

一、課程設計題目

用Visual Basic程序設計語言編寫一個簡易的文本編輯器

要求：有最基本的文本編輯功能，包括復制、剪切、粘貼、字體設置、背景顏色設置、字體顏色設置；同時擁有文本管理功能，包括打開文件、保存文件；以及完整的系統運行退出等功能，所有的操作可選擇設定的快捷鍵。

二、課程設計目的

雖然本學期的Visual Basic課程是自學的，相對于課堂學習有些不足，但通過平時的上機實驗，初步掌握了VB程序設計的各種方法，學會了編寫最基本的VB程序；對于完整的VB程序設計來講是很不足的，平時掌握的只是單獨的窗體(Form)程序編寫，以及各種簡單控件的使用，沒有做到很好連貫性，所以有必要做一次完整的VB程序設計，結合所學的基本知識，使用多個窗體自成一套系統，加上各種控件的綜合運用，初步設計一個合格的VB應用程序；這樣在鞏固VB所學的同時，更好地學會程序設計的一些思想和方法，對于以后的編程學習或是工作有重要的實踐意義。

三、課程設計說明

題目為文本編輯器，即是最基本的文本編輯程序，首先必須做好文本編輯器本身的功能，然后對其完善，做成一個完整的小程序

功能設計說明：功能是這個文本編輯器的核心內容，也就是程序的作用，它是用來做什么的；本程序就是用來編寫文本的，編寫過程中要利用到窗體（Form）一個，控件包括：RichTextBox1（超文本框）、CommonDialog（通用對話框），以及InputBox（消息框）、菜單編輯器等。要做的工作就是編寫代碼把這些控件和窗體等結合為一體，使得程序能夠成為一體，順暢運行。

本次設計在按照題目要求的前提下，為了完整地展示一個應用程序，在最初就設計為最基本的文本的編輯器，所以取名為“易記本”，就是簡易記事本的簡稱，然后加入圖標，在程序完成之后還進行了大包操作，得到應用程序的安裝文件，最后安裝在電腦上運行使用。四．源代碼

Private Sub Command1_Click()Dim i As Integer If Text2.Text <> “123456” Then i = MsgBox(“密碼錯誤”, 5 + vbExclamation, “警告”)If i <> 6 Then End Else Text2.Text = “" Text2.SetFocus End If End If Form1.Hide Form2.Show End Sub

Private Sub Form_Load()Text1.Text = ”“ Text1.MaxLength = 6

Text2.Text = ”“ Text2.MaxLength = 6 Text2.PasswordChar = ”*“ End Sub

Private Sub Text1_LostFocus()If Not IsNumeric(Text1.Text)Then MsgBox ”帳號必須為數字“, , ”警告“ Text1.Text = ”“ Text1.SetFocus End If End Sub

Private Sub Command1_Click()Form2.Hide Form3.Show End Sub

Private Sub Command2_Click()Form2.Hide Form4.Show End Sub

Private Sub Command3_Click()Form2.Hide Form5.Show End Sub

Private Sub Color_Click()CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color End Sub

Private Sub Command1_Click()Form3.Hide Form2.Show End Sub

Private Sub Copy_Click()Dim st As String st = Text1.SelText End Sub

Private Sub Cut_Click()

Dim st As String st = Text1.SelText Text1.SelText = ”“ End Sub

Private Sub Exit_Click()End End Sub

Private Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FileName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color End Sub

Sub New_Click()Text1.Text = ”“ Me.Caption = File End Sub

Sub Open_Click()CommonDialog1.Action = 1 Text1.Text = ”“ Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1)Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 End Sub

Private Sub Paste_Click()Text1.SelText = st End Sub

Private Sub Print_Click()CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies

Printer.Print Text1.Text Next i Printer.EndDoc End Sub

Private Sub SaveAs_Click()CommonDialog1.FileName = ”vb課設用.txt“ CommonDialog1.DefaultExt = ”txt" CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text End Sub

Dim arr As Long, sum As Long, a As Integer Private Sub Command1_Click()a = HScroll1.Value Text1.Text = plus(a)Call isprime(a)End Sub

Private Sub Command2_Click()End End Sub

Private Sub HScroll1_Change()Label2.Caption = HScroll1.Value End Sub Sub isprime(max As Integer)Dim x As Integer, i As Integer, j As Integer For i = 2 To max x = 0 For j = 2 To ictP * 2 Show1 ctDu(I), &HFFFFFF /(ctDuS + 1)* I * 0.6 Next Dim x As Single, y As Single Static J As Single Picture1.DrawWidth = 15 x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet(x0, y0), 255 x = 1200: y = 0: J = JJ x = S * Cos(J + ToJ): y = S * Sin(J + ToJ)End Sub Private Sub Command1_Click()End End Sub

五、運行結果

六． 心得體會

通過本次課程設計，使我對VB的認識更加深入了一層，VB主要由兩部分組成，一個是Visual可視化界面設計，另一個是Basic程序設計。對于第一部分，我覺得還是比較容易的，因為它比較直觀。就目前我所學的，對于第二部分還是比較困難。在做設計的過程中發現自己存在不少問題，由于word知識欠缺，我沒有辦法為我的課程設計創建目錄，這讓我覺得很遺憾，尤其是對VB編程語句的不熟悉而造成在運行過程的很多次出錯。具體說文本編輯器的設計，首先是控件的使用要注意，例如不能使用平時一般的Text文本框，因為其只適用于一般的文本顯示，使用RichTextBox，可擁有文本的完整功能，不用再添加滾動條等控件，而是使用其自帶的滾動條；其實是菜單的設計，應注意菜單的名稱書寫，不能出現重復現象，否則要使用索引，不僅增加麻煩更不利于程序編寫，然后編寫代碼的時候應注意必須與菜單中的名字一一對應，否則會出現錯誤；最后要注意程序的完整性以及實用性、便捷性，能夠有友好的UI設計，給用戶最好的體驗。