Vb操作題題庫

1、VB 填空題 :1、Visual Basic 6.0 分為 3 種版本，這 3種版本是 、 和。其中，最完整的是 _。答案：1：學(xué)習(xí)版 #專業(yè)版 #企業(yè)版2：學(xué)習(xí)版 #專業(yè)版 #企業(yè)版3：學(xué)習(xí)版 #專業(yè)版 #企業(yè)版4：企業(yè)版知識點(diǎn)：VB 知識點(diǎn) /第一章2、可以通過 快捷鍵或 快捷鍵退出 Visual Basic 。答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知識點(diǎn)：VB 知識點(diǎn) /第一章3、傳統(tǒng)的程序設(shè)計語言主要是面向 的，而現(xiàn)在涌現(xiàn)出的許多可視化程序設(shè)計語言，如 Visual Basic 主要是面向 進(jìn)行程序設(shè)計的。答案：1：過程 #問題2：對象知識點(diǎn)：VB 知識點(diǎn) /第

2、一章4、在面向?qū)ο蟪绦蛟O(shè)計中，對象是由 和組成的概念。答案：1：代碼 #數(shù)據(jù)2：代碼 #數(shù)據(jù)知識點(diǎn)：VB 知識點(diǎn) /第一章5、Visual Basic 開發(fā)環(huán)境中，在標(biāo)題欄的方括號內(nèi)能指出目前正處在 、狀態(tài)或狀態(tài)。答案：1：設(shè)計 #中斷 #運(yùn)行 #設(shè)計狀態(tài) #中斷狀態(tài) #運(yùn)行狀態(tài)2：設(shè)計 #中斷 #運(yùn)行 #設(shè)計狀態(tài) #中斷狀態(tài) #運(yùn)行狀態(tài)3：設(shè)計 #中斷 #運(yùn)行 #設(shè)計狀態(tài) #中斷狀態(tài) #運(yùn)行狀態(tài)知識點(diǎn)：VB 知識點(diǎn) /第一章窗口中的相應(yīng)窗體名來6、在設(shè)計模式下，工程中的某個窗體沒有出現(xiàn)，可通過雙擊 使之出現(xiàn)。答案：1：工程資源管理器知識點(diǎn)： VB 知識點(diǎn) /第一章7、Visual Basic

3、 開發(fā)環(huán)境中，當(dāng)屬性窗口在界面上末出現(xiàn)時，可使用 菜單中的 選項讓它顯示出來。答案： 1：視圖2：屬性窗口 知識點(diǎn)： VB 知識點(diǎn) /第一章8、在屬性窗口中，屬性顯示方式分為兩種，即按 擊相應(yīng)的按鈕來實(shí)現(xiàn)。順序和按 順序，分別通過單答案： 1：字母 #分類2：字母 #分類 知識點(diǎn)： VB 知識點(diǎn) /第一章9、菜單命令中有 標(biāo)記表示該命令是一個 的命令。答案：1：打開對話框知識點(diǎn)： VB 知識點(diǎn) /第一章10、Visual Basic 工程文件的擴(kuò)展名是，窗體文件的擴(kuò)展名是 答案：1： vbp2：frm知識點(diǎn)： VB 知識點(diǎn) /第一章11、Visual Basic 的對象是 和的總稱。答案：1：

4、窗體 #控件2：窗體 #控件 知識點(diǎn)： VB 知識點(diǎn) /第二章12、Visual Basic 程序設(shè)計中，對象的特征稱為 ，對象能夠執(zhí)行的操作稱為 對象能夠識別的操作稱為 。答案：1：屬性2：方法3：事件知識點(diǎn)：VB 知識點(diǎn) /第二章13、要把窗體 Form1 的標(biāo)題改為 歡迎你 ，可使用的語句是答案：1： Form1.Caption= 歡迎你知識點(diǎn)：VB 知識點(diǎn) /第二章14、在 Visual Basic 中，要將一個窗體裝載到內(nèi)存進(jìn)行變量初始化等預(yù)處理，應(yīng)選用的事件是。答案：1：Load#load#LOAD知識點(diǎn)：VB 知識點(diǎn) /第二章15、在 Visual Basic 中，一個控件在窗體

5、上的位置由 和 屬性決定，其大小由和屬性決定。答案：1：Top#Left2：Top#Left3：Width#Height4：Width#Height知識點(diǎn)：VB 知識點(diǎn) /第二章16、在界面設(shè)計階段，為了選擇多個控件，可以按住 鍵，然后單擊每個控件。答案：1：Shift#Ctrl#shift#SHIFT#CTRL#ctrl知識點(diǎn)：VB 知識點(diǎn) /第二章17、在剛建立工程時，要使窗體上的所有控件具有相同的字體格式，應(yīng)對 的 屬性進(jìn)行設(shè)置。答案：1：窗體2：Font#font#FONT知識點(diǎn)： VB 知識點(diǎn) /第二章a=300： b=20a=a+bb=a-ba=a-b答案：1： 20知識點(diǎn)： VB

6、 知識點(diǎn) /第二章19、某文本控件： Name屬性為 Text1。Text屬性為 CET6 ，執(zhí)行下列程序后輸出結(jié)果為 Sub Test( )Print Text1End Sub答案：1： CET6知識點(diǎn)： VB 知識點(diǎn) /第二章20、為了使標(biāo)簽?zāi)茏詣诱{(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)簽的 屬性設(shè)置為 True。答案：1：Auto Size#AUTO SIZE#auto size知識點(diǎn)： VB 知識點(diǎn) /第三章21、在窗體中添加兩個命令按鈕，其名稱分別為Command1 和 Command2, 窗體加載時要求Command1 不可用， Command2 可用；單擊 Command2 后， Co

7、mmand1 可用。請將下列程序 補(bǔ)充完整。Private Sub Command2_Click()_(1)_End SubPrivate Sub form_Load()_(2)_.End Sub答案：1： Commandl.Enab1ed=True2： Command1.Enabled=False知識點(diǎn)： VB 知識點(diǎn) /第三章22、Visual Basic 中有一種控件組合了文本框和列表框的特性，這種控件是答案： 1：組合框 知識點(diǎn)： VB 知識點(diǎn) /第三章答案：1：Enabled#ENABLED#enabled知識點(diǎn)：VB 知識點(diǎn) /第三章24、在窗體中有兩個文本框控件 Text1 和

8、Text2 ，焦點(diǎn)在 Text2 中，現(xiàn)在要把焦點(diǎn)移到 Text1 中，應(yīng)使用的語句是 。答案：1： Text1.SetFocus知識點(diǎn)：VB 知識點(diǎn) /第三章25、語句 Print 名字 ；Tab(5)； 李軍 的輸出結(jié)果是 答案：1：名字李軍知識點(diǎn)：VB 知識點(diǎn) /第三章26、要使計時器控件每隔 0.3秒發(fā)生一次 Timer 事件，應(yīng)把它的 屬性設(shè)置為答案：1： Interval#interval2：300知識點(diǎn)：VB 知識點(diǎn) /第三章27、在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Textl 的文本框。程序運(yùn)行 后， Command1 為禁用 (灰色 ) 。當(dāng)向文本

9、框中輸入任何字符時，命令按鈕Command1 變?yōu)榭捎?。請?zhí)钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。Private Sub Form_Load()Command1.Enabled=FalseEnd SubPrivate Sub Text1_ ()Commandl Enabled=TrueEnd Sub答案： 1： Change#change知識點(diǎn)： VB 知識點(diǎn) /第三章28、窗體、圖片框或圖像框中的圖形通過對象的 屬性設(shè)置。答案： 1： Picture#picture 知識點(diǎn)： VB 知識點(diǎn) /第三章29、在窗體中添加兩個文本框和一個命令按鈕， 然后在命令按鈕的代碼窗口中編寫如下代碼： Private

10、 Sub Commandl_Click()Text1.Text= VB Text2.Text=Text1.TextText1.Text= ABC End Sub程序運(yùn)行后，單擊命令按鈕后， Text1 和 Text2 中顯示的內(nèi)容分別為 和 。答案：1： ABC2：AB知識點(diǎn)： VB 知識點(diǎn) /第三章30、用于獲得字符串 S 最左邊 4 個符的函數(shù)是 答案：1： Left(S,4)#left(S,4)#LEFT(S,4)知識點(diǎn)： VB 知識點(diǎn) /第四章31、表達(dá)式 Fix(-32.68)+Int(-23.02) 的值為 答案：1： -56知識點(diǎn)： VB 知識點(diǎn) /第四章32、在窗體上可以畫一個

11、命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( ) a=Input Box( 請輸入一個整數(shù) ) b=Input Box( 請輸入一個整數(shù) )Print a & bEnd Sub程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入321 和 456，輸出結(jié)果為 答案：1： 321456知識點(diǎn)： VB 知識點(diǎn) /第四章33、在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1 C1ick()Dim x as Integer ， y as Integer x=InputBox( 請輸入一個整數(shù) ) y=InputBox( 請輸

12、入一個整數(shù) )Print x+yEnd Sub程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入321 和 456，輸出結(jié)果為 答案：1： 777知識點(diǎn)： VB 知識點(diǎn) /第四章34、執(zhí)行下面的程序段后， b 的值為 a=300 b=20 a=a+b b=a-b a=a-b答案：1： 300知識點(diǎn)： VB 知識點(diǎn) /第四章35、填寫下列空白：a$=Lcase(Hello)a$的返回值 1_b$= Ucase (Hello) b$ 的返回值 2_。答案：1： hello#hello2：HELLO#HELLO 知識點(diǎn)： VB 知識點(diǎn) /第四章36、表達(dá)式 5*(7 MOD 3)*1/2*5 的值是

13、答案：1： 12.5知識點(diǎn)： VB 知識點(diǎn) /第四章37、要結(jié)束程序的運(yùn)行應(yīng)使用語句 語句。答案： 1： End#END#end 知識點(diǎn)： VB 知識點(diǎn) /第四章38、在 Visual Basic 中，變量名的取名規(guī)則是以 開頭，總長度不超過 個字符。答案：1：字母2：255知識點(diǎn)： VB 知識點(diǎn) /第四章39、假定當(dāng)前日期為 20XX 年 11 月 20 日，星期四，則執(zhí)行以下語句： Print Day (Now)輸出結(jié)果是 。答案： 1： 20 知識點(diǎn)： VB 知識點(diǎn) /第四章40、以下程序段的輸出結(jié)果是 。num =0While num100#while n=100 知識點(diǎn)： VB 知識

14、點(diǎn) /第五章44、該程序用戶界面如圖所示，由一個標(biāo)簽(Labe11)、一個命令按鈕( Command1 )和兩個復(fù)選框 (Check1 、 Check2)組成。程序運(yùn)行后，用戶選中粗體復(fù)選框時 字體改變 :幾個字的字體變成粗體，用戶選中斜體復(fù)選框時，字體改變 : 幾個字的字體變成斜體。若取消選中，則恢復(fù)選字體；按結(jié)束按鈕，則退出。請將下列程序補(bǔ)充完整。Private Sub Check1 C1ick()If Check1.value =1 ThenLabe11.Font.Italic=TrueElseLabe11.Font. 2 =FalseEnd IfEnd SubPrivate Sub C

15、heck2 C1ick()If Check2.value = 1 ThenLabe11.Font.Bold =TrueElseLabe11.Font. 3 =FalseEnd IfEnd SubPrivate Sub Command1 C1ick()4End Sub答案：1：12：Italic3：Bold4： unload me#end#End#END知識點(diǎn)：VB 知識點(diǎn) /第五章45、輸出 M 型圖形，行數(shù)由輸入確定，要求最后一行中間的* 在第 30 列的位置上，如輸入為 4 時，輸出為：Private Sub Form Click()Dim a as StringCls a = * n =

16、 1Print 2Print Space(2* n - 3);aFor i =2 To n - 1Print Tab (32 - n - i ); a;Space(2*i - 3); a; Print 3Print Space (2* i - 3); aNext iPrint Tab(30 - 2 * n+2); a;Tab(30); a;Print Space(2*i - 3);a End Sub答案：1：val(InputBox( “ n=” )#VAL(INPUTBOX( “n=”)#val(inputbox( “ n=”)2： Tab(30-n+1);a;#tab(30-n+1);a;

17、3： space(2*n-2*i-1);a;#Space(2*n-2*i-1);a; 知識點(diǎn)： VB 知識點(diǎn) /第五章46、工程文件和窗體文件的擴(kuò)展名分別是.vbp、 答案：1： .frm47、屬性窗口分為 4 個部分，這四個部分分別是 、屬性顯示方式、 屬性列表和對當(dāng)前屬性的簡單解釋。答案：1：對象框48、快捷鍵 Ctrl+O 的功能相當(dāng)于執(zhí)行 菜單中的打開工程命令，或者相當(dāng)于單擊工具欄上的打開工程按鈕。 （假設(shè)工作環(huán)境是中文 VB ）答案： 1：文件49、為了選擇多個控件，可以按住 鍵，然后單擊每個控件。答案：1： Ctrl#Shift#Ctrl 或 Shift#Ctrl 或 Shift#

18、Shift 或 Ctrl#Shift 或 Ctrl50、Visual Basic 應(yīng)用程序通常由 3 類模塊組成，即窗體模塊、 和類模塊。答案： 1：標(biāo)準(zhǔn)模塊51、下列表達(dá)式有錯誤 ,正確的寫法應(yīng)該是 。(a+b)+c/80-5 (d+e)答案：1：(a+b+c)/80-5/(d+e)# (a+b+c)/80-5/ (d+e)52、與下列數(shù)學(xué)式子對應(yīng)的 Visual Basic 的表達(dá)式是 。2a(7+b)答案：1： 2*a*(7+b)#2*a* ( 7+b)53、下列語句輸出的結(jié)果是 GoodMorning 、 。(為回車)a$=Good b$=Morning print a$+b$ b$=

19、Evening print a$ & b$ 答案：1： GoodEvening54、以下程序段執(zhí)行后 y 的值是 。x=8.6 y=int(x+0.5) print y答案：1：9# 9 #9 # 955、以下程序段的輸出結(jié)果是x=8.5print int(x)+0.6答案：1：8.6# 8.6 #8.6 # 8.656、為了使標(biāo)簽?zāi)茏詣诱{(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)簽的 屬性設(shè)置為 True。答案：1： AutoSize57、要想在文本框中顯示垂直滾動條，必須把 屬性設(shè)置為 2，同時還應(yīng)把 MultiLine屬性設(shè)置為 True。答案：1： ScrollBars58、計時器事件之間的間隔

20、通過 屬性設(shè)置。答案：1： Interval59、組合框有 3 種不同的類型，這 3 種類型是下拉式列表框、簡單組合框和下拉式組合框、 可以通過設(shè)置組合框的 屬性的不同取值來實(shí)現(xiàn)。答案：1： Style60、在 3 種不同類型的組合框中，只能選擇而不能輸入數(shù)據(jù)的組合框是 。答案：1：下拉式列表框 #下拉式61、在窗體上畫一個列表框，然后編寫如下兩個事件過程：Private Sub Form_Click()list1.RemoveItem 1list1.RemoveItem 3list1.RemoveItem 2End SubPrivate Sub Form_Load()list1.AddIte

21、m itemAlist1.AddItem itemB list1.AddItem itemC list1.AddItem itemD list1.AddItem itemEEnd Sub運(yùn)行上面的程序，然后單擊窗體，列表框中所顯示的項目為 itemA 、 答案： 1： itemC62、在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程：Private Sub Form_Click()Text1.Text = VB 程序設(shè)計 End SubPrivate Sub Text1_Change()Picture1.Print VB programmingEnd Sub程序運(yùn)行后，單擊窗體， 則

22、在文本框中顯示的內(nèi)容是 VB 程序設(shè)計， 而在圖片框中顯示的內(nèi) 容是 。答案：1： VB programming63、執(zhí)行下面的程序段后， S 的值為 。s=5For i=2 To 5 s=s+1Next i答案：1： 964、以下程序的功能是 :從鍵盤上輸入若干個數(shù)字，當(dāng)輸入負(fù)數(shù)時結(jié)束輸入，統(tǒng)計出若干數(shù) 字的平均值，輸出結(jié)果。請?zhí)羁铡rivate Sub Form_click()Dim x, y As SingleDim z As Integerx = InputBox(Enter a score)Do while x=0y = y + xz = z + 1 x = InputBox(En

23、ter a score)LoopIf z = 0 Thenz = 1 End Ify = Print yEnd Sub答案：1： y/z65、閱讀程序： Private Sub Form_Click()num = 0 s = 0Do While num = 2 num = num + 1s = s + 1LoopPrint sEnd Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果是 答案：1：3# 3 #3 # 366、在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()a = 0For i = 1 To 2For j = 1 To 4If j Mo

24、d 2 0 Thena = a + 1End Ifa = a + 1Next jNext iPrint aEnd Sub 程序執(zhí)行后，單擊命令按鈕，輸出結(jié)果是 。答案： 1：12# 12 #12 # 1267、程序執(zhí)行結(jié)果 S 的值是 Private Sub Command1_Click()i = 0 Dos = i + si = i + 1Loop Until i = 4Print sEnd Sub答案：1：6# 6 #6 # 668、控件數(shù)組的名字由 Name 屬性指定，而數(shù)組中的每個元素由 屬性指定。答案：1： Index# Index #Index69、表達(dá)式 Fix(-32.68)+

25、Int(-23.02) 的值為 。答案：1： -5670、在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()a = InputBox( 請輸入一個整數(shù) )B = InputBox( 請輸入一個整數(shù) )Print a + BEnd Sub程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入321 和 456，輸出結(jié)果為 答案：1： 32145671、執(zhí)行下面的程序段后， b 的值為 a = 300B = 20 a = a + BB = a - B a = a - B答案：1： 30072、下面的程序用 冒泡法將數(shù)組 a中的 10 個整數(shù)按升序排列，

26、請將程序補(bǔ)充完整。 Option Base 1Private Sub Command1_Click()Dim a,a1 as integera = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For i=1 To 9For j=If a(i)=a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1End IfNext jNext iFor i = 1 To 10Print a(i)Next iEnd Sub假定變量 x 是一個窗體級變量)答案：1：i+1 To 10 73、在窗體上畫一個命令按鈕，然后編寫

27、如下程序：Dim x As IntegerSub inc(a As Integer)x = x + aEnd SubPrivate Sub Command1_Click()inc 2inc 3inc 4Print x;End Sub程序執(zhí)行后，單擊 Command1 命令按鈕，輸出的結(jié)果是 答案： 1：9# 9 #9 # 9 74、在窗體上面畫一個命令按鈕，然后編寫如下程序：Function M(x As Integer, y As Integer) As IntegerM = IIf(x y, x, y)End FunctionPrivate Sub Command1_Click() Dim

28、 a As Integer, b As Integer a = 1b = 2Print M(a, b)End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為答案：1：2# 2 #2 # 275、在 Visual Basic 中可以建立 菜單和 菜單。答案：1：彈出式 #下拉式 #標(biāo)準(zhǔn) #標(biāo)準(zhǔn) #快捷方式 #快捷2：下拉式 #彈出式 #快捷方式 #快捷 #標(biāo)準(zhǔn) #標(biāo)準(zhǔn)76、菜單編輯器可分為 3 個部分，即數(shù)據(jù)區(qū)、 和菜單項顯示區(qū)。答案：1：編輯區(qū)77、在菜單編輯器中，菜單項前面的4 個小點(diǎn)的含義是 符號。答案：1：內(nèi)縮78、彈出式菜單又名 。答案：1：快捷方式菜單 #快捷菜單79、Visual B

29、asic 中的對話框分為 3 類，即預(yù)定義對話框、自定義對話框和 對話框。答案：1：通用80、文件對話框分為兩種，即打開文件對話框和 對話框。答案：1：保存文件 #保存#Save As#SaveAs#另存 #另存文件 #另存為81、為了顯示一個窗體， 所使用的方法為 ；為了隱藏一個窗體， 所使用的方法為 答案：1： Show2：Hide82、文件根據(jù)數(shù)據(jù)性質(zhì)，可分為程序文件和 文件。答案：1：數(shù)據(jù)83、文件根據(jù)數(shù)據(jù)的存取方式和結(jié)構(gòu)，文件可分為 文件和隨機(jī)文件。答案：1：順序84、文件根據(jù)數(shù)據(jù)的編碼方式，可分為ASCII 文件和 文件。答案：1：二進(jìn)制85、文件的打開和關(guān)閉語句分別是open 和

30、。答案：1： close86、順序文件通過 語句或 Write 語句把緩沖區(qū)的數(shù)據(jù)寫入磁盤。答案：1： Print87、執(zhí)行下面的語句后，所產(chǎn)生的信息框的標(biāo)題是 。a=msgbox(AAAA,BBBB,5)答案：1： BBBB88、使文本框獲得焦點(diǎn)的方法是 。答案：1： SetFocus89、為了在按下 ESC 鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè) 置為 True，這個屬性是 。答案：1： Cancel90、Visual BASIC 是一種面向 的語言。答案：1：對象91、下列語句的執(zhí)行結(jié)果是 。Print Int(12345.6789*100+0.5)/100答案：1

31、：12345.68# 12345.68 #12345.68 # 12345.6892、如果要將某個菜單項設(shè)計為分隔線，則該菜單項的標(biāo)題應(yīng)設(shè)置為 。答案：1： -#-#-# 連字符 -#連字符 (-)#連字符( -)93、以下語句的輸出結(jié)果是 ：Print Format$(8795.5,000,000.00)答案：1：008,795.5094、在窗體上畫一個文本框和一個標(biāo)簽， 其名稱分別為 Text1 和 Label1 ，然后編寫如下程序： Function fun(s As Integer)For i = 1 To sSum = Sum + iNext i fun = SumEnd Funct

32、ionPrivate Sub Form_Click()Text1.Text = Str(fun(5)End SubPrivate Sub Text1_Change()Label1.Caption = VB Programming End Sub 程序運(yùn)行后，單擊窗體則文本框中顯示的內(nèi)容是 ，而在標(biāo)簽中顯示的內(nèi)容是 。答案：1： 15# 152： VB Programming95、在窗體上建立一個文本框，其名為Text1 ，在屬性窗口中所設(shè)該文本框的MultiLine 屬性為 True，然后編寫如下事件過程：Private Sub Text1_Click()Open C:smptxt1.txt

33、For Input As #1Do While Not Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr(13) + Chr(10)LoopText1.Text = whole$Close #1Open C:smptxt2.txt For Output As #1Print #1, Close #1 End Sub 上述程序的功能是： 把磁盤上文件 smptxt1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來， 然后 把該文本框中的內(nèi)容復(fù)制到磁盤文件 smptxt2.txt 中。請?zhí)羁諏⒊绦蜓a(bǔ)充完整。答案：1： EOF(1)2：Text1

34、.Text#Text1#Whole#Whole$96、在窗體上畫一個命令按鈕 Command1 ，然后編寫如下程序：Function power(x As Single, ByVal y As Integer)Dim result As Singleresult = 1Do While y 0 result = result * x y = Loop power = resultEnd FunctionPrivate Sub Command1_Click()For i = 0 To 10 r = power(2, i) Print rNext iEnd Sub 程序中劃線應(yīng)當(dāng)填入 。答案：1：

35、 y-1#-1+y97、有如下程序段：x = -5s = InputBox( 請輸入 s 的值： )Select Case s Case Is 0 y = x + 1Case Is = 0 y = x + 2Case Else y = x + 3End SelectPrint x; y 運(yùn)行時，從鍵盤輸入 -5，輸出的結(jié)果是 。答案：1：-5 -2#-5-298、下面的程序用于根據(jù)文本框 X 中輸入的內(nèi)容進(jìn)行以下處理： 如果 X.Text 的值不是 2、4、 6，則打印 X 不在范圍內(nèi) 。 Private Sub Command1_Click()Select Case Val(x.Text)C

36、ase 2Print X的值為2Case Print X的值為4Case Print X的值為6Print X 不在范圍內(nèi) End SelectEnd Sub答案：1： 42：63： Case Else99、在窗體上畫兩個文本框 (其 Name 屬性分別為 Text1 和 Text2)和一個命令按鈕 (其 Name 屬性為 Command1)，然后編寫如下事件過程：Private Sub Command1_Click()x = 0Do While x amax Then amax = xEnd IfIf Thenamin = xEnd Ifx = InputBox(Enter a score)

37、LoopPrint Max=; amax, Min=; aminEnd Sub答案：1：x=0#0-12： xx#amin=x#x= ThenList1.RemoveItem Label1.Caption= ElseMsgBox 請選擇要刪除的項目 End IfEnd Sub答案：1： 02： List1.ListIndex#Form1.List1.ListIndex#Me.List1.ListIndex3： List1.ListCount#Form1.List1.ListCount#Me.List1.ListCount111、以下程序的功能是：把當(dāng)前目錄下的順序文件smtext1.txt 的

38、內(nèi)容讀入內(nèi)存，并在文本框 Text1 中顯示出來。請?zhí)羁?。Private Sub Command1_Click()Dim inData As StringText1.Text=Open .smtext1.txt_ As #1Do While _Input #1,inDataText1.Text=Text1.Text & inDataLoopClose #1End Sub答案：1： For Input2：Not EOF(1)112、在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit ，Visible 屬性為 False。程序運(yùn)行后， 如果用鼠標(biāo)右鍵單擊窗體， 則彈出與 mnuEdit

39、對應(yīng)的菜單。 以下是實(shí)現(xiàn)上述功 能的程序，請?zhí)羁?。Private Sub Form_ (Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then mnuEditEnd IfEnd Sub答案：1： mousedown2： popupmenu#form1.popupmenu#me.popupmenu113、為了使計時器控件 Timer1 每隔 0.5秒觸發(fā)一次 Timer事件，應(yīng)將 Timer1 控件的屬性設(shè)置為 。答案：1： interval2：500114、與數(shù)學(xué)表達(dá)式 cos2(a + b) /3

40、x+5 ，對應(yīng)的 Visual Basic 表達(dá)式是 。答 案 ： 1 ： NNcos(a+b)2/(3*x)+5#5+cos(a+b)2/(3*x)#(cos(a+b)2/(3*x)+5#cos(a+b)*cos(a+b)/(3*x)+5 #cos(a+b)2/3/x+5#5+cos(a+b)2/3/x#(cos(a+b)2/3/x+5#cos(a+b)*cos(a+b)/3/x+5#cos(a+b)2/ x/3+5#(cos(a+b)2/x/3+5#5+(cos(a+b)2/x/3#cos(a+b)*cos(a+b)/x/3+5115、在窗體上畫一個名稱為 Text1 的文本框，然后畫三個單選按鈕，并用這三個單選按鈕 建立一個控件數(shù)組，名稱為 Option1 。程序運(yùn)行后，如果單擊某個單選按鈕，則文本框中的 字體將根據(jù)所選擇的單選按鈕切換，如圖所示。請?zhí)羁?。Private Sub Option1_Click(Index As Integer)Select Case Case 0a=宋體Case 1a=黑體Case 2a=楷體 _GB2312End SelectText1.=