上機(jī)第四次作業(yè)

1、1 （自測(cè)練習(xí)，提供答案）有如下程序，程序運(yùn)行后，單擊窗體，輸出結(jié)果為（ A）。Private Sub Form_Click（）Dim i As Integer，sum As Integersum =0For i=2 To 10 If i Mod 2 0 And i Mod 3 =0 Then sum =sum +i EndIfNext iPrint sumEnd SubA.12 B.30 C.24 D.18 2 （自測(cè)練習(xí)，提供答案）在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click（）c=1234c1 = Trim

2、（Str（c）For i=1 To 4 Print_NextEnd Sub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在下劃線(xiàn)處應(yīng)填入的內(nèi)容為（ ）。A. Right（c1，i） B. Left（c1，i） C. Mid（c1，i， 1） D. Mid（c1，i，i） 3 （自測(cè)練習(xí)，提供答案）在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕和一個(gè)名稱(chēng)為 Text1 的文本框，然后編寫(xiě)如下事件過(guò)程。該事件過(guò)程的功能是（ ）。Private Sub Command1_Click（）n = Val（Text1.Text）For i=2 To n For j=2 To

3、 Sqr（i）If i Mod j=0 Then Exit ForNextjIf j Sqr（i） Then Print iNext iEnd SubA. 輸出 n 以?xún)?nèi)的奇數(shù) B. 輸出 n 以?xún)?nèi)的偶數(shù)C. 輸出 n 以?xún)?nèi)的素?cái)?shù) D. 輸出 n 以?xún)?nèi)能被 j 整除的數(shù) 4 （自測(cè)練習(xí)，提供答案）執(zhí)行以下程序段，輸出結(jié)果為（ ）。a=“abbacddcba”?For i=6 To2 Step -2X = Mid（a，i，i）Y = Left（a，i）z= Right（a，i）z= UCase（X & Y & z）Next iPrint zA. ABA B. BBABBA C. ABBABA D

4、. AABAAB 5 （自測(cè)練習(xí)，提供答案）設(shè)有如下程序段，運(yùn)行后 x 的值是（ ）。x =2For i=1 To10 Step 3x =x +iNextA. 18 B. 24 C. 38 D. 57ABCBB 2、填空題 1 （提交作業(yè)，無(wú)參考答案）輸出100200之間不能被3整除的數(shù)，試將橫線(xiàn)處的代碼補(bǔ)充完整。 Private Sub Command1_Click() Dim x As Integer x = 100 Do While （1） If （2） Then List1.AddItem x End If x = x + 1 Loop End Sub （1）x=200 (2) x m

5、od 302 （提交作業(yè)，無(wú)參考答案）以上程序的功能是 （3） 。程序運(yùn)行后，單擊窗體，輸出結(jié)果為 （4） 。Private Sub Form_Click（）Dim n As Integer，s As Integern =8s=0Dos=s+ nn = n -1Loop While n 0Print sEnd Sub (3)計(jì)算8以?xún)?nèi)所有正整數(shù)的和 （4）363、編程題 1 （提交作業(yè)，無(wú)參考答案）試編程序，打印出1到500之間所有偶數(shù)的和。（代碼編寫(xiě)在命令按鈕的Click事件過(guò)程中，結(jié)果輸出在窗體上，提交窗體文件，保存名為f2） 2 （提交作業(yè)，無(wú)參考答案）試編寫(xiě)打印下面圖案的源程序。（代碼編寫(xiě)在命令按鈕的Click事件過(guò)程中，結(jié)果輸出在窗體上，提交窗體文件，保存名為f3）* * 3 編寫(xiě)程序，計(jì)算下面表達(dá)式的值。1!+3!+5!+(2N+1)! N的值由InputBox輸入（代碼編寫(xiě)在命令按鈕的Click事件過(guò)程中，結(jié)果輸出在窗體上，提交窗體文件，保存名為f4） 4 （提交作業(yè)，無(wú)參考答案）一個(gè)球從10米的高處落下，它每次反彈的高度為前一次下落高度的2/3，編寫(xiě)程序，計(jì)算球第10次落地時(shí)運(yùn)動(dòng)的總路程。（代碼編寫(xiě)在命令按鈕的Click事件過(guò)程中，結(jié)果輸出在窗體上，提交窗體文件，保存名為f5） 5 （提交練習(xí),無(wú)參考答案）書(shū)上p