【正文】 0 。 ?例 ? Sqr(1+*Cos(48*)) ?48c o s21??5．指數(shù)和對數(shù)函數(shù) ? Exp(x) 返回以 e為底、以 x為指數(shù)的值，即求 ex值。 例 eat Exp(a*t) ? Log(x) 返回 x的 自然對數(shù) 。 ? 例 ? ln（ 1+|a+b|10） Log(1+Abs((a+b) ^10) ? log10(a2+2ab+b2) Log(a*a+2*a*b+b*b)/Log(10) 三 字符串函數(shù) ?對字符串進行處理 1．刪除空白字符函數(shù) ? LTrim(S) 去掉字符串 s左邊的空白字符。 ? RTrim(S) 去掉字符串 s右邊的空白字符。 ? Trim(S) 去掉字符串 s左右兩邊的空白字符。 2．字符串截取函數(shù) ? Left(s,n) 截取字符串 s最左邊的 n個字符。 ? Mid(s,p,n) 在字符串 s中，從第 p個字符開始，向后截取 n個字符。 ? Right(s,n) 截取字符串 s最右邊的 n個字符。 例： ?設(shè)字符串為 Hello Computer World― ? ? Left(Hello Computer World , 5) ? ? Mid(Hello Computer World , 7, 8) ? ? Right(Hello Computer World , 5) ? Print FirstStr, MidStr, LastStr Hello Computer World ?要從字符串“ Visual BASIC ‖中截取子字符串“ BASIC‖可使用函數(shù)（ ） ? Mid(―Visual BASIC ‖,8,5) 3．字符串長度測試函數(shù) ? Len(s) 返回字符串 s的長度，即所含的字符個數(shù)。 ? Print Len(Hello World) 11 ? Print Len(華南理工大學 ) 6 6．字母大小寫轉(zhuǎn)換函數(shù) ? Ucase(s) 把字符串 s中的小寫字母轉(zhuǎn)換成大寫字母。 ? Lcase(s) 把字符串 s中的大寫字母轉(zhuǎn)換成小寫字母。 例： ? = Hello World 1234 ? Print UCase(LowerS) HELLO WORLD 1234 ? = Hello World 1234 ? Print Lcase(UpperS) ? hello world 1234 四．隨機函數(shù) ? Rnd[(x)] 產(chǎn)生一個 大于或等于 0小于 1的單精度隨機數(shù)。 ?例： ? Print Rnd ? .5795186 生成某個范圍內(nèi)的隨機整數(shù) ? Int((upper – lower + 1) * Rnd + lower) ?例 ? MyValue = Int((900 * Rnd) + 100) ‘生成 100到 999的隨機數(shù)值 ‘用隨機函數(shù)產(chǎn)生三位整數(shù) 第 3章 程序流程控制 3種基本結(jié)構(gòu) ?順序結(jié)構(gòu) ?分支結(jié)構(gòu) ?循環(huán)結(jié)構(gòu) 順序結(jié)構(gòu) ?賦值語句 ?輸入語句 ?輸出語句 一、賦值語句 ? varname = expression ? [objname.] attribute = expression ?例 ?St$ = “Good morning,” ? = St$ amp。 “teacher!” 賦值相容 ?數(shù)值型與字符串型 ?整型與實型 二、數(shù)據(jù)輸入 ? 格式： InputBox(prompt[,title][,default][,xpos][,ypos]) ? 返回值是字符串型 ? 例 ? Dim x! ? x = InputBox(請輸入長度 (cm)： , 輸入數(shù)據(jù) , 10, 2022, 3000) MsgBox函數(shù) ? 格式： ? MsgBox(prompt[, buttons][, title]) buttons參數(shù)設(shè)置值 ? 第一組值（ 0 – 5）描述了對話框中顯示的按鈕的類型與數(shù)目 ； ? 第二組值（ 16， 32， 48， 64）描述了 圖標 的樣式； ? 第三組值（ 0， 256， 512， 768）說明 哪一個按鈕是缺省活動按鈕 。活動按鈕中文字周圍有虛線，按回車鍵即可執(zhí)行該按鈕的操作； ? 第四組值（ 0， 4096）決定消息框的 強制返回性。 例如 ? 276 = 4 + 16 + 256 ? 或 VbYesNo + VbCritical+VbDefaultButton2 ? 顯示“是”、“否” 按鈕、“ ‖圖標，缺省活動按鈕為“否” 三、輸出數(shù)據(jù)的 Print方法 ?格式： ? [object.] Print [outputlist] 具有 Print方法的對象 ? 窗體（ Form）、圖片框（ PictureBox）、打印機（ Printer）都具有 Print方法。如果省略對象名 object，則在當前窗體上輸出。 輸出列表的格式 ? [Spc(n) | Tab(n)] expression charpos ? Spc(n) 空格函數(shù) ? Tab(n) 跳格函數(shù) ,省略 n,在 下一 打印區(qū) (一打印區(qū) 14列 )輸出 ? expression先對表達式求值 ? charpos 分隔符。 若用逗號 （ ,） 分隔，則按 標準格式 顯示數(shù)據(jù)項， 用分號 （ 。） 或空格作分隔符，則按 緊湊格式 輸出。 如果 省略 charpos，則在 下一行 輸出下一項目。 ?執(zhí)行語句 :Print Spc(9), ―basic ?其結(jié)果“ basic字符串在第（ ）列開始顯示。 ? a) 10 b) 11 c) 14 d)15 ? d Format函數(shù) ? 格式： Format( expression[ ,format] ) 字符 作 用 數(shù)字。不在輸出串前、后補 0 0 數(shù)字。在輸出串前、后補 0 . 小數(shù)點 , 千位分隔符 % 百分比符號 $ 美元符號 + – 正、負號 E+ E– 指數(shù)符號 例 ? x= ? Print Format ( x,‖.‖ ) ? Print Format ( x,‖‖ ) ? Print Format ( x,‖%‖ ) ? Print Format ( x,‖+00‖ ) ? Print Format ( x,‖ $0， ‖ ) ? 答案： 12． 36 ? 012． 36 ? 1235． 60% ? +00 ? $0, 分支結(jié)構(gòu) ?單行結(jié)構(gòu)條件語句 ?塊結(jié)構(gòu)條件語句 ?情況語句 一、單行結(jié)構(gòu)條件語句 ?格式 : If condition Then statements [Else elsestatements] ?注意 : ,沒有 Endif語句 then匹配 以下不正確的單行結(jié)構(gòu)條件語句是 ( ) ? a) If xy Then Print xy ? b) If x Then t = t * x ? c) If x Mod 3=2 Then ? x ? d) If x0 Then y = 2*x1: Print x End If ?答案 : D 二、塊結(jié)構(gòu)條件語句 ? 格式 : If condition_1 Then statements_1 [ElseIf condition_2 Then [elseifstatements_2] ... [ElseIf condition_n Then [elseifstatements_n] [Else [elsestatements_n+1]] End If 三、情況語句 ? Select Case testexpression [ Case expressionlist_1 [ statements_1 ] ] [ Case expressionlist_2 [ statements_2 ] ] …… [ Case Else [ statements_n ] ] ? End Select Select Case說明： ? 測試表達式 testexpression可以是數(shù)值表達式或字符串表達式； ? 表達式表列 expressionlist中的表達式必須與測試表達式 testexpression的類型相同。 ? expressionlist稱為域值，可以是下列形式之一： ? a. expression_1 [ ， expression_2 ]…… ? b. expression_1 To expression_2 ? c. Is expression 下列 Case語句中正確的是 ( ) ? a) ? Select Case x ? Case 1 Or 3 Or 5 ? y=x*x1 ? Case Is 10 ? y=x+1 ? End Select ? b) ? Select Case x ? Case 1, 3, 5 ? y=2*x1 ? Case Is x =1 ? Y=2*x+1 ? End Select ? 答案 : C ? c) ? Select Case x ? Case Is =0 ? y=x1 ? Case Is 0 ? y=Sqr(x)+1 ? End Select ? d) ? Select Case x ? Case x=1 And x= 5 ? y=x1 ? Case Is 10 ? y=x*x+1 ? End Select 例 ? Private Sub Command1_Click() ? Dim x%, y% ? x = InputBox(―請輸入 x的值：” ) ? Select Case x ? Case 1, 3, 5 ? y = x 1 ? Case 6 To 10 ? y = x + 1 ? Case 2, 4 ? y = 2 * x 結(jié)果 : ? Case Is 10 x=3 y=2 ? y = x * x + 1 x=2 y=4 ? End Select ? Print x=。 x, y=。 y ? End Sub ? （ x 的輸入值為 ,） ? 把一個實數(shù)賦給一個整變量，則只能獲取它的整數(shù)部分了。 循環(huán)結(jié)構(gòu) ? While … Wend 語句 ?Do…Loop 語句 ? For… Next語句 ?嵌套循環(huán) 一、 While … Wend 語句 ? While condition ? [statements] ? Wend 二、 Do…Loop 語句 ?先判斷條件形式 Do [ While | Until condition ] [statements] Loop ?后判斷條件形式 Do [statements] Loop [ While | Until condition ] 循環(huán)結(jié)構(gòu)注意問題 ? do、 while