freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb程序設(shè)計教程集ppt課件-文庫吧在線文庫

2025-06-14 04:54上一頁面

下一頁面
  

【正文】 1 空白(設(shè)計時) Command1 輸入自然數(shù)后單擊此按鈕 表 47 判斷素數(shù)應(yīng)用程序控件屬性值 ( 3)編寫代碼 根據(jù)流程圖,編寫 Command1_click事件代碼如下: Private Sub Command1_Click() Dim m as integer ,k as integer Dim n As Long If Val() 2147483647 Then MsgBox 數(shù)據(jù)溢出,請重新輸入 , vbOKOnly + vbOKCancel + vbInformation, 數(shù)據(jù)錯誤 = Else 圖 428判斷素數(shù)程序運行實例 n = CLng() m = 0: k = 2 Do While k = Sqr(n) And m = 0 If n Mod k = 0 Then m = 1 Else k=k + 1 End If Loop If m = 0 Then = 是一個素數(shù) Else = 不是一個素數(shù) End If End If End Sub Do...Loop循環(huán) Do...Loop 語句的另一種演變形式是先執(zhí)行 循環(huán)體 ,然后在每次執(zhí)行后測試 循環(huán)條件 。 圖 429 求最大公約數(shù)的流程圖 直到 r=0 ( 2)設(shè)計應(yīng)用程序界面 所需添加的控件的屬性值參見表 48。 控件 Caption屬性值 Command1 單擊此按鈕求 1~1000值見能被 13整除的數(shù) Picture1 無此屬性值 表 49 求被 13整除的數(shù)應(yīng)用程序控件屬性值 ( 3)編寫代碼 圖 432 程序運行情況 Dim i As Integer, j As Integer j = 0 For i = 1 To 1000 If i Mod 13 = 0 Then j = j + 1 i。 Next i Print Print i, j, a End Sub 例 414:編程求圖 438所示乘法九九表。 圖 434 乘法九九表( 1) 在窗體上添加一個命令按鈕和一個 Pictrue控件,編寫mand1_click事件的代碼如下: Private Sub Command1_Click() Dim i As Integer, j As Integer Dim expss As String For i = 1 To 9 For j = 1 To i expss = i amp。 For Each...Next 循環(huán)的語法格式如下: For Each成員 In 數(shù)組|集合 [語句塊 ] Next elementt For Each...Next 退出控制結(jié)構(gòu) 1. Exit For 語句和 Exit Do語句 2. Go To語句 3. End語句 4. With語句 Go To語句的語法格式為: Go To {標(biāo)號 |行號 } With語句的功能是在一個單一對象或一個用戶定義類型上執(zhí)行一系列的語句。 +... amp。所求得根的誤差小于106。 d End Sub ② ……. =6x28x+3 )(39。 c End Sub 如果將循環(huán)改成: For c = 13 To 10000 / 177 For b = 17 To 10000 / 133 For a = 15 To 10000 / 112 結(jié)果是一樣的,只不過每一循環(huán)的次數(shù)增多。 n2, n3=。 ( 4)輸出 x,即為所求的根。 sn End Sub 圖 436 程序運行實例 綜合實例 例 416:求 1~1000之間的“水仙花數(shù)”。 Private Sub Command1_Click() Dim i As Integer, Dim a As Double, b As Double, tn As Double, sn As Double i = 1: tn = 0: sn = 0 a = Val() b = a If Val() 0 And Val() 10 And Val() 2 Then Do While (i = CInt()) tn = tn + a sn = sn + tn a = a * 10 i = i + 1 Loop Else MsgBox 請輸入 10以內(nèi)的自然數(shù) !, vbOKOnly + vbInformation, 數(shù)據(jù)錯誤 End If b amp。 i * j Tab((j 1) * 10 + 1)。 j amp。后的分號不能省略。 For 循環(huán)的語法如下: For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 Next [循環(huán)變量 ] 例 412:求 1~1000之間所有能夠被 13整除的數(shù)。其設(shè)計思路是: ( 1)假設(shè) m大于 n; ( 2)用 n作除數(shù)除 m,得余數(shù) r。 程序運行情況參見圖 426。其語法格式為: Do [{While | Until} 循環(huán)條件 ] 循環(huán)體 Loop ...)1...2111(6 222 ???? n例 49:編寫程序,根據(jù)多項式: π= 求 π的近似值。 % End Sub 另外,可以取系統(tǒng)的日期作為輸入日期,該事件可以指定為 Text1_DbClick事件,即雙擊 Text1發(fā)生的事件,代碼為: Private Sub Text1_DblClick() = Month(Now) = Day(Now) End Sub 當(dāng)要重新輸入數(shù)據(jù)時,可以自動清空各文本框的內(nèi)容。如圖 423。 False Select Case Select Case的結(jié)構(gòu)形式為: Select Case 測試表達(dá)式 [Case 表達(dá)式列表 1 [語句塊 1]] [Case 表達(dá)式列表 3 [語句塊 2]] … [Case 表達(dá)式列表 n [語句塊 n]] [Case Else [語句塊 n+1]] End Select Select Case選擇結(jié)構(gòu)執(zhí)行的過程為: ( 1)計算 測試表達(dá)式 的值 ( 2)將 測試表達(dá)式 的值與 Case語句中的 表達(dá)式列表 中的每一個值逐一進行比較。一般形式如圖 417所示。 ( 2)四門總分 680分(含 680分) ~700分(不含 700分),優(yōu)秀獎。當(dāng)它找到一個為 True 的條件時, Visual Basic就會執(zhí)行相應(yīng)的語句塊,然后執(zhí)行 End If 后面的代碼。其語法格式也有兩種形式: ( 1) If 表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If ( 2) If 表達(dá)式 Then語句 1Else語句 2 當(dāng) 表達(dá)式 的值為真時,執(zhí)行 Then后面的語句塊 1(或語句 1),否則執(zhí)行 Else后面的語句塊 2(或語句 2)。 圖 49對話框顯示的內(nèi)容 If strIDcard Then intMsgin = MsgBox(strmsg, vbYesNoCancel + vbQuestion + vbDefaultButton2, 確認(rèn)身份證 ) End If Select Case intMsgin Case 6 39。 vbDefaultButton2 256 第二個按鈕是缺省值。 VbYesNoCancel 3 顯示 Yes、 No 及 Cancel 按鈕。 圖 45 使用 InputBox 函數(shù) ( 2) MsgBox函數(shù)和 MsgBox過程 MsgBox函數(shù)在對話框中顯示信息,等待用戶單擊按鈕,并返回一個整數(shù)以標(biāo)明用戶單擊了哪個按鈕。 ( 2)設(shè)置屬性 可以將 Caption屬性值設(shè)置為“發(fā)送”。 Text3的高度為窗口高度的 1/2 = + + 100 39。H80000014 End Sub 由運行結(jié)果可知,單擊命令按鈕后,標(biāo)簽控件可以自動適用內(nèi)容,并自動換行,且加上邊框,背景色為白色以突出顯示文字。 ( a)設(shè)計時 ( b)運行時 圖 42 位置屬性的應(yīng)用 4. 清除方法 CLS Cls 將清除圖形和打印語句在運行時所產(chǎn)生的文本和圖形,清除后的區(qū)域以背景色填充。圖片框水平位置 = (ScaleHeight ) / 2 39。如果 n 大于輸出行的寬度,則 Spc 利用下列公式計算下一個打印位置: 當(dāng)前位置 + (n Mod 行寬 ) Spc函數(shù)與 Tab函數(shù)的作用類似,可以互相代替。 Tab(20 15)。 例題 Private Sub Form_Click() Print 12345678901234567890 Print Tab(5)。 Charpos:逗號或分號,指定下個字符的插入點。 5。 圖 41 Print方法與 Tab()函數(shù)結(jié)合 ( 2) Spc函數(shù) 格式: Spc(n) 在顯示或打印列表中的下一個表達(dá)式之前插入 n個空白數(shù), n為0~32767之間的整數(shù)。 Private Sub Form_Click() Dim str1 As String str1 = 圖片框相對窗體、文字相對圖片框居中顯示 = 宋體 39。程序設(shè)計時和運行結(jié)果見圖 42。 例如:建立一個 Label控件和 Command控件,按表 41設(shè)置設(shè)計時屬性。 ( 2)屬性設(shè)置 按表 43所示設(shè)置各對象的屬性值,其他屬性值不變。 例 42:在上述工程中,增添一個命令按鈕,單擊該按鈕時將清空所有文本框中的內(nèi)容(完善的工程將要編寫保存用戶信息的代碼)。 語法格式: [變量 [%]]=InputBox(提示 [,標(biāo)題 ] [,默認(rèn) ] [, x坐標(biāo)位置 ] [, y坐標(biāo)位置 ] [, helpfile, context]) 2. MsgBox函數(shù)和 MsgBox過程 作用:在對話框中顯示信息,等待用戶單擊按鈕,并返回一個整數(shù)以標(biāo)明用戶單擊了哪個按鈕。 ? 表 43 按鈕 設(shè)置值及其意義 分組 系統(tǒng)常數(shù) 值 描述 按鈕數(shù)目 vbOKOnly 0 只顯示 OK 按鈕。 VbExclamation 48 顯示 Warning Message 圖標(biāo)。 單擊“否”:返回 Command1_click事件,重新顯示如圖 45所示輸入對話框。例如: If
點擊復(fù)制文檔內(nèi)容
教學(xué)課件相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1