国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

    第1.17例 InputBox函數(shù)
一、題目：
　　要求編寫一段代碼，運(yùn)用InputBox函數(shù)，用戶輸入一定范圍的數(shù)值并返回結(jié)果。
二、代碼：
Sub 示例_1_17()
         Dim Msg$,bt$, Default$, MyValue,aa
         Msg ="輸入一個10到25之間的數(shù)值："   
         bt ="InputBox 函數(shù)示例"
         Default ="10"    ' 設(shè)置缺省值。
100：
　　　MyValue = InputBox(Msg,bt, Default)
　　　If MyValue < 10 Or MyValue > 25Then
             aa =MsgBox("輸入數(shù)值超出范圍，請重新輸入或者退出。", 1)
             If aa<> vbOK Then Exit Sub
             GoTo100
　　　Else
         MsgBox "你輸入的是" & MyValue
　End If
End Sub
三、代碼詳解
1、Sub 示例_1_17()：宏程序的開始語句。宏名為示例_1_17。
2、Dim Msg$, bt$, Default, MyValue,aa   ：變量Msg、Default和bt聲明為字符串數(shù)據(jù)類型，其它的沒有顯式聲明，都為可變型數(shù)據(jù)類型。
3、Msg = "輸入一個10到25之間的數(shù)值："   ：設(shè)置提示信息，把字符串賦給變量Msg。
4、bt = "InputBox 函數(shù)示例"    ：設(shè)置標(biāo)題，把字符串賦給變量bt。
5、Default = "10"    ：設(shè)置缺省值，把字符串賦給變量Default。
6、MyValue = InputBox(Msg,bt, Default)    ：通過InputBox函數(shù)顯示信息、標(biāo)題及缺省值，把函數(shù)返回值賦給變量MyValue。
7、If MyValue < 10 Or MyValue > 25Then  ：如果InputBox函數(shù)返回的數(shù)值小于10或者大于25，那么執(zhí)行下面的語句。
8、aa = MsgBox("輸入數(shù)值超出范圍，請重新輸入或者退出。",1)  ：如果InputBox函數(shù)返回的數(shù)值超出了范圍，顯示一個消息框，消息框里面的第2個參數(shù)是1，表示消息框上有兩個按鈕：“確定”和“取消”按鈕。并把消息框返回的結(jié)果賦給變量aa。
9、If aa <> vbOK Then ExitSub  ：如果用戶按了消息框上的“取消”按鈕，就退出本程序。
10、GoTo100  ：如果用戶按了消息框上的“確定”按鈕，就轉(zhuǎn)而從行號100開始執(zhí)行代碼。
11、MsgBox "你輸入的是 " &MyValue  ：如果用戶輸入了符合要求的數(shù)值，按了回車鍵或者“確定”按鈕，消息框顯示用戶輸入的值。

InputBox 函數(shù)
在一對話框來中顯示提示，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串。
語法
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile,context])
InputBox 函數(shù)的語法具有以下幾個命名參數(shù)：
Prompt       必需的。作為對話框消息出現(xiàn)的字符串表達(dá)式。Prompt 的最大長度大約是 1024個字符，由所用字符的寬度決定。如果 Prompt 包含多個行，則可在各行之間用回車符 (Chr(13))、換行符 (Chr(10))或回車換行符的組合 (Chr(13) & Chr(10)) 來分隔。
Title       可選的。顯示對話框標(biāo)題欄中的字符串表達(dá)式。如果省略Title，則把應(yīng)用程序名放入標(biāo)題欄中。
Default       可選的。顯示文本框中的字符串表達(dá)式，在沒有其它輸入時作為缺省值。如果省略Default，則文本框?yàn)榭铡?br>       其它參數(shù)省略，請參見Excel幫助文件。