實例制作——倒序輸出_第1頁
實例制作——倒序輸出_第2頁
實例制作——倒序輸出_第3頁
全文預覽已結束

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、VB實例制作倒序輸出教案 上課時間： 2014.11.21 星期五【教學目標】 1、掌握Len函數和mid函數的使用 2、理解字符運算符號與字符表達式 3、理解順序連接與反向連接的區別【教學重難點】 重點：len函數與mid函數 難點：字符串的正向與反向連接【教學方法】任務教學法、自主探究學習法、上機實踐操作【教學環境】機房、任務單【教學過程】一、任務描述 用VB設計一個應用程序，設計如圖所示的界面. 在一個文本框里輸入一個4位正整數，比如4358，將其逆序組合成8534后在另外一個文本框里輸出.單擊“清除”按鈕，則能清除兩個文本框中的數據。二、操作提示1、新建工程在VB中新建一個“標準EXE

2、”工程。2、界面設計新建工程后，進入VB的界面設計窗口.按照下面的操作提示，在窗體上添加2個標簽（Label）對象，2個命令按鈕（Command）對象，2個文本框（TextBox）對象如下圖所示。各個控件對象的主要屬性可參見類對象名屬性名屬性值FormForm1Caption倒序輸出LabelLabel1Caption請輸入一個4位正整數Label2Caption逆序數為CommandButtonCommand1Caption清除Command2Caption退出TextBoxText1Text（空白）Text2Text（空白）完成好的界面如下圖所示3、代碼填空在Command1對象的Clic

3、k事件中輸入如下代碼：Private Sub Command1_Click()Dim a, b As String '定義字符串變量a，bDim n As Integer '定義字整型變量n，用來存放字符串的長度a = Text1.Text '把文本框的值賦值給an = Len(Text1.Text) '求出文本框1中輸入字符串的長度，并賦值給nFor i = n To 1 Step -1 '逆序求出字符串bb = b + Mid(a, i, 1)Next iText2.Text = b '把字符串b在文本框2中顯示End SubPrivate

4、Sub Command2_Click() '清空文本框1和文本框2的內容Text1.Text = ""Text2.Text = ""End Sub4、運行調試程序選擇菜單欄“運行”“啟動”命令，或按F5，運行程序，檢查是否有錯。如下圖所示5、保存程序在桌面上新建一個文件夾，以自己的名字命名。然后在vb中選擇菜單欄“文件”保存窗體文件（.frm）、工程文件（.vbp）、可執行文件（.exe），文件名為“倒序輸出”，如下最后把做好的結果上交.3、 課堂小結Len(X)：計算字符串的長度 例：Len(“ABC”)=3Mid(X,n,k)：取字符串X中第n個字符起長度為k的子串 例：Mid(“abcd”,3,1)=”c”4、 布置作業 寫一個程序，要求輸入“大上海”，輸出則為“海上大”【教學反思】本堂課的重

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論