【正文】 大整數(shù)是 （B） C、Integer And And B+C A And ABC And C038. 下面 C、12/19/99判斷題：1. 全局變量用global或public關(guān)鍵字聲明，且僅在通用聲明處可以定義。 （F）5. 。 （T）6. 對(duì)象的可見(jiàn)性用enabled屬性設(shè)置，可用性用visible屬性設(shè)置。 （F）7. 滾動(dòng)條控件不可作為用戶(hù)輸入數(shù)據(jù)的一種方法。 （F）10. TextBox與Label有許多共同特點(diǎn)，它們都能顯示和輸入文本。 （T）14. 事件過(guò)程與Sub過(guò)程，它們相同點(diǎn)都是事件驅(qū)動(dòng)，而不同的只是事件過(guò)程由控件屬性決定，而Sub過(guò)程是由戶(hù)自定義。(F)19. 菜單每一菜單項(xiàng)都是控件，可以通過(guò)點(diǎn)擊菜單項(xiàng)或通過(guò)光標(biāo)選擇并按回車(chē)鍵，以觸發(fā)Click事件。(T)22. 在表達(dá)式中，運(yùn)算符兩端的數(shù)據(jù)類(lèi)型要求一致。在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件。(F)29. (F)32. 如果一個(gè)列表框一共有5個(gè)選項(xiàng)，而當(dāng)選中第三項(xiàng)時(shí)，這時(shí)列表框的ListIndex屬性為2。Variant類(lèi)型變量還可具有Empty、Error和Null等特殊值。 (F)43. 當(dāng)在一個(gè)簡(jiǎn)單組合框的文本框中輸入一個(gè)它的列表框中的沒(méi)有的條目時(shí)，組合框會(huì)自動(dòng)反這一條目添加到它的列表框中。如果一個(gè)菜單項(xiàng)的Visible屬性為False，則它的子菜單也不會(huì)顯示。6. K=1表達(dá)式 1 and 0的值10. 設(shè)a=2,b=3,c=4,d=5,表達(dá)式 （ab Xor bc） OR bd11. a 和b 中有僅只有一個(gè)為1，相應(yīng)的Visual Basic邏輯表達(dá)式為 。 32\7 （4）14. Private Sub cmdSum_Click()static Sum as integer （7） Or Not ( 4+2517. 按照數(shù)據(jù)文件的存儲(chǔ)方法的不同，文件可以分為三種不同的類(lèi)型：___順序文件___________、______隨機(jī)文件_________和二進(jìn)制文件。 TO IMP yb 的結(jié)果為 (23. 聲明單精度常量g(重力加速度)代表9．8可寫(xiě)成：24. VB 的工作模式可分為三種：“__設(shè)計(jì)___”、“__運(yùn)行__”以及“_中斷__”。amp。 x=5 step –2 If forNEXT___2. 程序2SELECT A=A+2CASE ELSEA的值為_(kāi)_3__3. 程序4C=InputBox(“請(qǐng)輸入字符串：”)p=” ”For L=Len(c) To 2 Step –2P=Mid(C, L – 1, 2) + PNext LPrint P Y = Z + X 結(jié)果：5. 程序5Private Sub Command1_Click()Dim S As Integer, I As IntegerS = 0For I = 1 To 10End Suba1=5 a2=1007. 程序7Private Sub Form_Click( )End Sub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后的輸出結(jié)果。s=1 Static s As Integer s = s * a Print Spc(7 i)。 If i = 1 Then3. 程序10Private Sub Form_Click() str1 = abcdefghijk Y = Z + X 結(jié)果：5. 程序12 J)A(I, Next JNext IFor X = 1 To N 0 8 N=0:x=1:y=0 Str(n) = x= amp。7. 程序14Private Sub Form_Click()Dim a As Integer, b As Integer, z As Integera = 1b = 1For n = 1 To 3a = a + bNext nchg = aEnd Function z=101. 程序15Private Sub Form_Click()Dim x(5) As Integerx(1) = 8x(2) = 3x(3) = 1x(4) = 6x(5) = 4For i = 1 To 4 If x(i) x(j) Then t = x(i): x(k)Next kEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。五、 Dim a As String , I As Integer If a””Then If (i)=a Then ____ Dim I as integer ______ Do until _______Sum=sum+remultiply_____ I=I+1________ ___ Fs=sum ____ End function3. 輸入三個(gè)數(shù)，由大到小排序Dim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() C = Val(InputBox(Please input third integer, 輸入正整數(shù))) End If End If End If A。 For m = 2 To kExit For) n = i j Int(Sqr(n)) ) For m2 = 2 To m1 ) Then Print i。 n。 Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) ) THENY=Z ) THENPRINT Y ) THENPRINT Z Do (While n=0 or n=30) n=val(InputBox(“n=”,”請(qǐng)重輸入”)) do k=k+1 sum= (sum+1/(k*(k+1))) k=n（共計(jì)10分）第1題 答案：Y第3題圖片框的屬性Enabled設(shè)置為FALSE, 答案：N第4題若已在窗體中加入了一個(gè)通用對(duì)話框:要求在運(yùn)行時(shí),通過(guò)ShowOpen打開(kāi)對(duì)話框時(shí),只顯示擴(kuò)展名為 DOC 的文件,則對(duì)通用對(duì)話框的 Filter的屬性設(shè)置應(yīng)該是: (*.DOC)| ( .DOC) . N第5題設(shè)計(jì)菜單中每一個(gè)菜單項(xiàng)分別是一個(gè)控件,每個(gè)控件都有自己的名字. 答案：N共10題 B:Checked答案：C第4題下列關(guān)于設(shè)置控件屬性的敘述正確的是().A:用戶(hù)必須設(shè)置屬性值 B:所有的屬性值都可以由用戶(hù)隨意設(shè)定C:屬性值不必一一重新設(shè)置 D:窗體 答案：A第6題設(shè)a=10,b=5,c=1,執(zhí)行語(yǔ)句Printabc后,窗體上顯示的是().A:True B:False D:所有參數(shù)都是可選的 C第8題應(yīng)用程序設(shè)計(jì)完成后,應(yīng)將程序保存,保存的過(guò)程是().A:只保存窗體文件即可 C:Width39。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox( 請(qǐng)輸入a的值 )b = InputBox( 請(qǐng)輸入b的值 )c = InputBox( 請(qǐng)輸入c的值 )d = b * b 4 * a * cp = b / (2 * a)If d = 0 Then39。**********SPACE********** x239。 p。 p?！境绦蛱羁铡?9。 For j = 1 To 3 Next k39。 39。 End If 2). InputBox共3題【程序改錯(cuò)】39。 Dim I As Integer 39。 For I = 1 To 9 39。 Do Until I 1 SavePicture , End Sub答案： 或 3). I = I 1Option ExplicitPrivate Sub FindMidNum() 。 x = InputBox( PLEASE INPUT THE FIRST NUMBER )【程序改錯(cuò)】39。 do until 0i 1). for i=0 to 9 I = I + 1 39。 Next I X = / 2Dim X As Integer39。 Else**********SPACE********** 【?】 39。 x = Val(【?】( Please input x : , 輸入X的值 )) Dim x As Single, 【?】 As Single39?！境绦蛱羁铡?9。 Next i**********SPACE********************SPACE**********For i = 1 To 4**********SPACE**********Private Sub Command1_Click() q。 q。 q = Sqr(d) / (2 * a) Print x1= 。 x2 = p r x1 = p + r r = Sqr(d) / (2 * a) If 【?】 Then功能：以下程序的功能如(圖1)。共3題 B:Left C:先保存工程文件,之后保存窗體文件D:先保存窗體文件(或標(biāo)準(zhǔn)模塊文件),之后還要保存工程文件 B:設(shè)置對(duì)話框標(biāo)題D:Print HowAreYou B:=LoadPicture( HowAreYou )C: HowAreYou D:Enabled 答案：Y第10題通用對(duì)話框只能用SHOW方法進(jìn)行調(diào)用.Visual Basic程序的運(yùn)行可以從Main()過(guò)程啟動(dòng),也可以從某個(gè)窗體啟動(dòng).End Sub一、判斷 Loopk=0) Sum=0 Dim n As Integer,sum as Double,k As Integer ENDIF IF ( End Sub2. 從計(jì)算機(jī)輸入三個(gè)數(shù),找出中間數(shù)Private Sub FindMidNum( ) j。 Next m2 ( k = For j = 3 To i CEnd Sub1. 歌德巴赫猜想:任何一個(gè)大于或等于六的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)之和.Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, m As IntegerDim n As Integer, m1 As Integer, m2 As Integer,num If ________ B=C _______ Then If ______ A=C _________ Then If _____ A=B _________ Then A = Val(InputBox(Please input first integer, 輸入正整數(shù))) ________ ______Remultiply=____ remultiply*I I=1 Dim remultiply as long End Su