【正文】 【控件屬性評分】 錯誤 【控件】 標準答案：Name=Cmd1 學(xué)生答案：Name=【控件屬性評分】 錯誤 【控件】 標準答案：Caption=顯示 學(xué)生答案：Caption=【事件評分】 錯誤 【事件】Private Sub Cmd1_Click() 標準答案： Print 呵呵，小菜一碟！ 學(xué)生答案：110 CABCD ACDDB 1120 DCBDB ACBBA 2130 DCDDA ABDDB3140 BDCBB DADCB 4150 CADAC BCDCD 5160 BACBC BAAAA6170CAAAD BBBCA 7180DACAD AACAD 8190DCDAD ADDCB91100CADDB ABBAC 101110CACCC AAAAB 111120DCDBA ADABD121130AAADA CBADB 131140DCDCA BADCC 141150ADADC DDDAD151CACCCDA。程序中不能使用任何變量，直接顯示字符串。False 學(xué)生答案：Enabled=【控件屬性評分】 錯誤 【控件】 標準答案：Name=passtxt 學(xué)生答案：Name=【控件屬性評分】 錯誤 【控件】 標準答案：PasswordChar=* 學(xué)生答案：PasswordChar=【事件評分】 錯誤 【事件】Private Sub passtxt_Change() 標準答案： = 學(xué)生答案：十 在名稱為Form1的窗體上建立一個名稱為Cmd1，標題為顯示的命令按鈕，編寫適當(dāng)?shù)氖录^程。 具體功能： 程序運行時，當(dāng)在文本框passtxt中輸入密碼時，showtxt中同時將輸入的內(nèi)容原樣顯示。注意：完成試題后，必須保存，然后關(guān)閉窗口。 注意：在程序中不能使用任何變量，不能使用默認屬性。False 學(xué)生答案：Visible=【事件評分】 錯誤 【事件】Private Sub c2_Click() 標準答案： = True 學(xué)生答案：【事件評分】 錯誤 【事件】Private Sub c1_Click() 標準答案： = False 學(xué)生答案：七 標題為輸出的命令按鈕，如圖112所示。程序中不得使用任何變量。False 學(xué)生答案：Visible=【控件屬性評分】 錯誤 【控件】 標準答案：Name=l1 學(xué)生答案：Name=【控件屬性評分】 錯誤 【控件】 標準答案：Name=cmd2 學(xué)生答案：Name=【控件屬性評分】 錯誤 【控件】 標準答案：Name=cmd1 學(xué)生答案：Name=【事件評分】 錯誤 【事件】Private Sub cmd1_Click() 標準答案： = True = aaa 學(xué)生答案：【事件評分】 錯誤 【事件】Private Sub cmd2_Click() 標準答案： = bbb六 在名稱為Form1的窗體上畫一個文本框，名稱為Text1,且不可見；再畫兩個命令按鈕，名稱分別為c1和c2， 標題分別為隱藏和顯示。 程序中不能使用任何變量，直接顯示字符串；不能使用默認屬性。要求程序運行后，每次移動滾動框時， ，如圖所示（程序中不能使用任何變量） 【事件】Private Sub HS1_Scroll() 標準答案： Print 學(xué)生答案：【控件屬性評分】 錯誤 【控件】 標準答案：Name=HS1 學(xué)生答案：Name=【控件屬性評分】 錯誤 【控件】 標準答案：Max=100五 在名稱為Form1的窗體上建立一個名稱為l1的標簽，并設(shè)置他不可見；兩個名稱為cmd1和cmd2， 標題分別為顯示1和顯示2的命令按鈕。要求：在程序運行后，通過Form_Load()事件過程加載窗體時， AAA，每當(dāng)單擊某個列表項時， ，如圖所示。 程序功能： 單擊隸書命令按鈕時，文本框的字體設(shè)為隸書； 單擊黑體命令按鈕時，文本框的字體設(shè)置為黑體。 【控件】 標準答案：Name=C1 學(xué)生答案：Name=【控件屬性評分】 錯誤 【控件】 標準答案：Caption=移動 學(xué)生答案：Caption=【控件屬性評分】 錯誤 【控件】 標準答案：Name=Txt1 學(xué)生答案：Name=【事件評分】 錯誤 【事件】Private Sub C1_Click() 標準答案： = 0 學(xué)生答案：二 利用 VB設(shè)計上面的程序界面。程序中不得使用任何變量。**********FILL********** _____Print n1, n2, n3答案 【學(xué)生答案】Do While _____【參考答案】do while ch?Do While ch?【學(xué)生答案】Case _____【參考答案】case A to ZCase A to Z【學(xué)生答案】_____【參考答案】loopLoop窗體設(shè)計1 在名稱為Form1的窗體上畫一個文本框，名稱為Txt1；再畫一個命令按鈕，名稱為C1，標題為移動，如圖1所示。**********FILL**********Do While _____ Select Case ch Case a To z n1 = n1 + 139。 大、小寫字母和數(shù)字的個數(shù)。 是一個素數(shù)Else Print n。**********FILL**********If _____ Then swit = 1Else39。Private Sub Form_Click()n = InputBox(請輸入一個正整數(shù)（≥3）)k = Int(Sqr(n))i = 2swit = 039。以下程序用于判斷一個正整數(shù)（≥3）是否為素數(shù)。 aPrint 最小公倍數(shù)為：。**********FILL**********Do While _____ temp = a Mod b a = b39。Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(請輸入一個正整數(shù))num2 = InputBox(請輸入一個正整數(shù))39。**********FILL********** _____score = Val(InputBox(msg, msgtitle))WendPrint n1, n2, n3, n4, n5, totalEnd Sub答案 【學(xué)生答案】While _____【參考答案】score=0 and score=100score=0 and score=100score1【學(xué)生答案】Select Case _____【參考答案】score【學(xué)生答案】_____【參考答案】End Select4．以下程序段用于實現(xiàn)：輸入兩個正整數(shù)m和n，求其最大39。**********FILL**********While _____ total = total + 139。 及格（6069）、不及格（60以下）的人數(shù)。從鍵盤輸入學(xué)生分數(shù)，統(tǒng)計學(xué)生總?cè)藬?shù)和各分數(shù)段人數(shù)，39。 q。 p。 q。 p。 x239。**********FILL********** _____ Print x1=。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(請輸入a的值)b = InputBox(請輸入b的值)c = InputBox(請輸入c的值)d = b * b 4 * a * cp = b / (2 * a)If d = 0 Then39。______【參考答案】max。 c。 b。______End Sub答案 【學(xué)生答案】If ______Then【參考答案】maxbmax=bbmaxb=max【學(xué)生答案】________【參考答案】max=c【學(xué)生答案】Print a。 c。 b。**********FILL**********Print a。**********FILL**********If ______Then max=bEnd IfIf max c Then39。Print i答案 【學(xué)生答案】Exit【參考答案】exit for【學(xué)生答案】If n k Then【參考答案】If nk ThenIf kn Then【學(xué)生答案】Next n【參考答案】next iNext i程序填空1.39。 End If39。**********ERROR********** Exit End If Next n 39。題目：以下程序段用于輸出100300的所有素數(shù)39。?Spc(i)。Print Spc(i)。**********ERROR********** n = n + 1 39。**********ERROR********** Print Spc(n) For j = 1 To 2 * m 1 Print s。 *********39。 *****39。 *39。39。6.39。j*k。 ?！緦W(xué)生答案】For k = 1 To 9【參考答案】For k = 1 To j【學(xué)生答案】Print Tab(j * 6)。 i【參考答案】Print Tab(i*6)。 。**********ERROR********** Print Tab(j * 6)。39。 iNext iPrintFor j = 1 To 9 Print j。For i = 1 To 939。Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30)。39。5.39。 n次方是。**********ERROR********** s = 0 Do While k = n s = s * 5 k = k + 139。Option ExplicitPrivate Sub F