國二 綜合應(yīng)用題
《國二 綜合應(yīng)用題》由會員分享,可在線閱讀,更多相關(guān)《國二 綜合應(yīng)用題(18頁珍藏版)》請在裝配圖網(wǎng)上搜索。
1、第1套(綜合應(yīng)用題) 以下數(shù)列:1,1,2,3,5,8,13…從第三個數(shù)開始,每個數(shù)都是前兩個數(shù)之和.選中一個單選按鈕后,單擊“計算”按鈕,算出數(shù)列的第n項的值,n為選中單選按鈕后面的數(shù). Private Sub?。胦mmand1_Click() Dim a() As?。蘯ng Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 ?。蒮 Op1(i).Value?。?True Then n = Val(Op1(i).Caption)
2、 Exit For End?。蒮 Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i — 1) + a(i - 2) Next Text1。Text =?。?n) End Sub 第2套(綜合應(yīng)用題) 從文件中讀?。?個數(shù)據(jù),統(tǒng)計數(shù)據(jù)中素數(shù)的個數(shù).并找出所有素數(shù)中的最小素數(shù),將結(jié)果顯示在標簽Label3和Label4中。 Dim a As Integer Dim b As Intege
3、r a?。?0 b = arr(1) For i =?。?To 40 If prime(arr(i)) Then a = a?。? ption?。?a Next For i = 1 To 40 If prime(arr(i)) And arr(i) <= b Then b = arr(i) ption = b Next 第4套(綜合應(yīng)用題) 窗體上有兩文本框,三個命令按鈕“讀取”“排序”“存盤”.“讀取"按鈕的功能是將文件中得50個整數(shù)讀到數(shù)
4、組中,并在text1中顯示,“排序”按鈕是將其按升序排列,顯示在Text2中,“存盤”按鈕是把排好序的數(shù)存入文件中. 答案:第1處?填:a(k) 第2處?填:ch ”排序"按鈕的代碼 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j?。羢 Integer Dim ch As String ch = "” For i = 50 To 2 Step -1 For j = 1 To 49 If a(j) 〉
5、 a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j)) + "" ?。危鍃t j Text2.Text = ch End Sub 第5套?。ňC合應(yīng)用題) 在窗體上建立三個菜單,標題分別為“讀入數(shù)據(jù)”“計算并輸出”“存盤"。如果執(zhí)
6、行“讀入數(shù)據(jù)”命令,則讀入文件中的100個整數(shù),放入一個數(shù)組中,如果單擊“計算并輸出”,則把數(shù)組中下標為偶數(shù)的元素在文本框中顯示出來,計算和并在窗體上顯示. Dim sum As Integer Private Sub Calc_Click() Text1.Text = "” For i = 2 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum +?。羠r(i) Next i Print sum End Sub Private
7、 Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum End Sub 第6套 (綜合應(yīng)用題) 窗體上添加兩個命令按鈕,單擊“讀入數(shù)據(jù)“按鈕,將20個數(shù)分別放入Arr1和Arr2兩個數(shù)組中,單擊“計算"按鈕,第一個數(shù)組的第n個元素減去第二個數(shù)組的第n個元素,結(jié)果作為第三個數(shù)組的第n個元素。這里的n為1、2…20。最后計算第3個數(shù)組各元素之和,并顯示在窗體上。 Private Sub C1_Click() Call ReadData1
8、 Call ReadData2 End Sub Private Sub C2_Click() Dim Arr3(1 To 20) As Integer Dim sum?。羢 Integer sum?。?0 For i = 1 To 20 Arr3(i) = Arr1(i) -Arr2(i) sum = sum + Arr3(i) Next i ?。校騣nt ”sum="; sum WriteDat(yī)a "dataout.txt”, sum End Sub 第7套?。ňC合應(yīng)用題
9、) 窗體上有兩個命令按鈕,標題分別為“讀數(shù)據(jù)”和“統(tǒng)計",請?zhí)砑右粋€標題為“回文個數(shù)為”的標簽和一個名稱為Text1初始內(nèi)容為空的文本框。 程序功能如下:1)單擊“讀數(shù)據(jù)”按鈕,則將文件夾in5。dat(yī)的文件內(nèi)容讀到變量s中。 2)單擊“統(tǒng)計”按鈕,則統(tǒng)計in5.dat文件中回文的個數(shù),并顯示在Text1內(nèi)。 考生編寫 End Function Privat(yī)e Sub Form Unload(Cancel As Integer) Open?。粒餻。Pat(yī)h & "\out5。dat” For Output As?。? Print #1, Text1.Text Close
10、#1 End Sub 程序結(jié)束 參考答案 Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = True End Function 第8套 (綜合應(yīng)用題) 窗體上有兩個標簽L1和L2。標題分別為“口令"和“允許次數(shù)"。一個命令按鈕C1,標題為“確定”,兩文本框Text1和Text2。Text1用來輸入口令(輸入時文本內(nèi)容顯示“*”),初始內(nèi)容為空,Text2初始內(nèi)容為3.如果輸入的是“123456”則在Text1中顯示“正確口令";如果輸入其他內(nèi)容,單擊“確定”后,彈出錯誤提示對
11、話框,并且Text2中的數(shù)字減1。最多輸入三次口令。 答案:第1處填:Text1.Text 第2處入:PasswordChar 第3處填:0 第4處填:False 第9套 (綜合應(yīng)用題) 在窗體中有一個實心圓,當用鼠標左鍵單擊窗體任何空白位置時,實心圓則向單擊位置直線移動;用鼠標右鍵單擊窗體,則實心圓停止移動?!? 答案: 第1處:0 第2處:stepy 第3處:Timer1。Enabled 第4處:Timer1。Enabled 第5填:stepy 第10套 (綜合應(yīng)用題) 從文件中讀出數(shù)據(jù),將其放入一個5×5的二
12、維數(shù)組a中,找出數(shù)組a中每行的最大值機及該值在行中的次序,并在所找到的結(jié)果分別保存到一維數(shù)組b,c中,a中第一行的最大值保存在b(1)中,最大值的列次序保存在c(1)中。 參考答案: Max = a(i, 1) For j = 1 To?。? If Max < a(i,?。? Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j
13、Next j 第11套 (綜合應(yīng)用題) 計算勾股定理整數(shù)組合的個數(shù)。勾股定理中3個數(shù)的關(guān)系是:a^2+b^2=c^2,例如,3,4,5就是滿足條件的整數(shù)組合。編寫程序,統(tǒng)計滿足在60以內(nèi)的三個數(shù)滿足上述關(guān)系的整數(shù)組合的個數(shù),并顯示在標簽Label1中。 參考答案: Private Sub Command1 Click() ?。膇m i As?。蒼teger Dim j As Integer Dim?。?As Integer For i =?。薄o 60 For j = 1 To 60 For k = 1 To 60 If
14、i ^ 2 = j ^ 2 + k ^ 2 Then m = m + 1 End If Next?。? Next j Next i Label1 = m / 2 第12套(綜合應(yīng)用題) 程序運行時,單擊“打開文件”按鈕,則彈出“打開”對話框,默認目錄為考生目錄,默認文件類型為“文本文件".選中in5.txt文件,單擊“打開”按鈕,則把文件內(nèi)容讀入并顯示在文本框中;單擊“修改內(nèi)容”按鈕,則將Text1中大寫字母“E”“N”“T”改為小寫,把小寫字母“e”“n”“t"改為大寫;單擊“保存文件”按鈕,則彈出“另存為”對話框,單擊“保存”按鈕,則將Text1中修改后
15、的內(nèi)容存到out5.txt 答案:第1處?填:2 第2處?填:CommonDialog1. 第3處?填:s 第4處?填:2 Private Sub Command2 Click() Dim?。鉮 As String Dim s As String Dim n As?。蘯ng s = Text1。Text Text1.Text = "” For n = 1 To Len(s) ch?。?Mid(s,n, 1) If ch = "E" Or ch = ”N” Or ch
16、= "T" Then ch = LCase(ch) ElseIf ch = "e" Or ch = "n" Or ch = "t” Then ?。悖?= UCase(ch) End If Text1.Text = Text1 & ch Next n End Sub 第13套 (綜合應(yīng)用題) 在文本框Text1中輸入一個大于2的偶數(shù),并單擊“分解為”按鈕,則將該偶數(shù)分解為兩個素數(shù)之和,要求其中一個素數(shù)是所能分解出的最小素數(shù)。(例如24分解為5和19,也可分解為11和13,要求取含有最小素
17、數(shù)的組合。) For i = 1 To Val(Text1。Text) If IsPrime(i) And IsPrime(Val(Text1。Text) –i ) Then Label1 = i Label2 =?。謅l(Text1。Text) - i Exit For End If Next i 第14套 (綜合應(yīng)用題) 含三個窗體,標題為“啟動”“注冊”“登錄”,程序運行時顯示“啟動"窗口,單擊窗體上按鈕時彈出對應(yīng)窗體進行注冊或登錄.注冊信息放入全局數(shù)組users中,注冊用戶數(shù)(小與或等于10個)
18、放在全局變量n中。注冊時用戶名不能重復,且“口令"與“驗證口令”相同,注冊成功則在“啟動"窗體標簽中提示“注冊成功”否則提示相應(yīng)錯誤信息。登錄時,檢驗用戶名和口令,若正確則在“啟動”窗體標簽中提示“登陸成功"否則提示相應(yīng)錯誤信息 答案:Form2中第1處:1 Form2中第2處:0 Form2中第3處:Form1。Label1 Form3中第1處:0 Form3中第2處:k, 2 第15套 (綜合應(yīng)用題) 其功能是產(chǎn)生并顯示一個數(shù)列的前n項。數(shù)列產(chǎn)生的規(guī)律是:數(shù)據(jù)前2項是小于10的正整數(shù),將此兩數(shù)相乘,若乘積〈10,則此乘積作為第3項,若乘積≥10,則以乘積的十位數(shù)
19、為數(shù)列的第三項,以乘積的個位數(shù)作為數(shù)列第4項。直至產(chǎn)生第n項 答案:第1個?處填入:b 第2個?處填入:b 第3個?處填入:n 第4個?處填入:b 第16套 (綜合應(yīng)用題) 有一工程文件sjt5.vbp,相應(yīng)窗體文件sjt5。frm,此外還有datain.txt文本文件,內(nèi)容:32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79?。福?59 37 運行后單擊窗體,將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中,按5行5列矩陣形式顯示與窗體上,然后交換第二列和第四列的數(shù)據(jù),將
20、交換后的矩陣顯示在窗體上 答案: 第1個?處填入:Mat(yī)(N, M) As Integer 第2個?處填入:For Input 第3個?處填入:Input #1, Mat(i, j) 第4個?處填入:Mat(i, 4) = t 第17套 (綜合應(yīng)用題) 窗體上有三個文本框,名稱為Text1,Text2,Text3,其中Text1,Text2可多行顯示.請?zhí)砑樱硞€命令按鈕,名稱為Cmd1,Cmd2,Cmd3,標題為“產(chǎn)生數(shù)組"“統(tǒng)計”“退出”功能:1)單擊“產(chǎn)生數(shù)組”按鈕時,隨機產(chǎn)生20個0~10之間的數(shù)值,并將其保存到一維數(shù)組a中,同時將這20個數(shù)顯示與Text1
21、中。 2)單擊“統(tǒng)計"時,統(tǒng)計出數(shù)組a中出現(xiàn)頻率最高的數(shù)值及出現(xiàn)的次數(shù),并將出現(xiàn)頻率最高的數(shù)值在Text2文本框中顯示,出現(xiàn)頻率最高的次數(shù)在Text3文本框中顯示。 3)單擊“退出”按鈕,結(jié)束程序 答案: 第1處填:9 第2處填:i – 1 第3處填:fmax 第4處填:fmax 第5填:End 第18套 (綜合應(yīng)用題) 窗體上有兩個命令按鈕,標題為“讀數(shù)據(jù)”和“統(tǒng)計”,請?zhí)砑觾蓚€標簽,名稱為Label1和Label2,標題為“出現(xiàn)次數(shù)最多的字母"和“它出現(xiàn)的次數(shù)為";在添加兩個初始內(nèi)容為空的文本框Text1,Text2。 功能:1)單擊“讀數(shù)據(jù)”按
22、鈕,則將考生文件夾下in5。dat文件內(nèi)容讀到變量s中。 2)單擊“統(tǒng)計"按鈕,則自動統(tǒng)計in5.dat文件中所含各字母出現(xiàn)的次數(shù),并統(tǒng)計次數(shù)最多的字母顯示在Text1文本框內(nèi),它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)。 Privat(yī)e Sub Command2_Click() ' 考生編寫 Dim a(1 To 26) As Integer Dim max As Integer n = Len(s) For i = 1 To n k = Asc(Mid$(s, i, 1)) If (k >= 65 A
23、nd k <= 90) Then a(k — 64) = a(k — 64) + 1 End If ?。蒮 (k >= 97 And k <= 122) Then a(k - 96) = a(k - 96) + 1 End If Next i max = 0 For m = 1 To 26 If max < a(m) Then max =?。幔╩) End If Next Text
24、2 = max For m = 1 To 26 If a(m) = max Then l = m End If Next m Text1 = Chr(l + 64) 第19套 (綜合應(yīng)用題) 運行程序時,單擊“裝入數(shù)據(jù)"按鈕,則從考生文件夾的in5.txt文件中讀入所有城市名稱和距離,城市名稱按順序添加到列表框List1中,距離放到數(shù)組a中;當選中列表框中的一個城市時,它的距離就在Text1中顯示。單擊“計算運算"按鈕,則計算到該城市的每噸運費(結(jié)果取整,不四舍五入)并在Text2中顯示。每噸運費的計算:距
25、離*折扣*單價.單價為0。3 折扣為 距離<500 折扣為1 500≤距離<1000 折扣為0。98 ? 1000≤距離〈1500 折扣為0.95 1500≤距離<2000 折扣為0。92 2000≤距離 折扣為0.9 單擊“保存”按鈕,則把距離和每噸運費存到文件out5。txt中。 答案: 第1個?處填入:1 第2個?處填入:ch 參考答案: Privat(yī)e Sub Command2_Click() b = Val(Text1) If b >=?。?And b < 500 Then m = 0.3 * b
26、 ?。舕seIf b 〉= 500 And b 〈 1000 Then m = 0.3 * b * 0。98 ElseIf?。狻 担?1000 And b < 1500 Then m = 0.3?。 * 0.95 ElseIf b >= 1500 And b < 2000 Then m = 0。3 *?。?* 0.92 ElseIf b 〉= 2000 Then m = 0.3?。?b * 0。9 End If Text2 = Int(m) End Sub Pri
27、vate Sub List1_Click() Text1 =?。幔↙ist1。ListIndex + 1) End Sub 第20套 (綜合應(yīng)用題) 運行程序時,從考生文件夾數(shù)據(jù)文件中讀取學生的成績(均為整數(shù))。要求編寫程序,統(tǒng)計總?cè)藬?shù),同時統(tǒng)計不及格,60~69,70~79,80~89及90~100各分數(shù)段的人數(shù),將統(tǒng)計結(jié)果顯示在相應(yīng)的文本框中.程序運行前,必須單擊“保存”按鈕,保存統(tǒng)計結(jié)果 Privat(yī)e Sub Command1_Click() For i = 1 To n If arr(i) < 60?。詇en
28、 Text2 = Val(Text2) + 1 ElseIf arr(i) 〉= 60 And arr(i)?。?70 Then Text3 = Val(Text3) + 1 ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1 ElseIf arr(i) >= 80 And arr(i) 〈 90 Then Text5 = Val(Text5) + 1 ElseIf
29、arr(i) >= 90?。羘d arr(i) 〈= 100 Then Text6 = Val(Text6) + 1 End If Text1 = Val(Text1) + 1 Next End?。觰b 第21套 (綜合應(yīng)用題) . 在考生文件夾中有一個工程文件sjt5。vbp。窗體外觀如圖所示,運行程序,單擊“讀數(shù)據(jù)”按鈕,讀入文件中的數(shù)據(jù)到字符串變量并顯示在Label2標簽中。單擊“排序”命令按鈕時,對讀入的數(shù)據(jù)從小到大排序,并將排序結(jié)果在窗體的Lable4控件中顯示 答案: 第1個?處填入:EOF
30、(1) 第2個?處填入:a(i) For i = 1 To 10 f = True For j = 1 To 9 If a(j) 〉 a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t f =?。芶lse End If Next j If f Then
31、 Exit For End If Next i 第22套 (綜合應(yīng)用題) 窗體中有一個文本框數(shù)組,名稱為Text1,下標從0開始。單擊“產(chǎn)生隨機數(shù)"按鈕,就會隨機產(chǎn)生10個3位數(shù),并放入Text1數(shù)組中,單擊“重排數(shù)據(jù)"按鈕,則把Text1中奇數(shù)移到前面,偶數(shù)移到后面。 答案:第1個?處填入:9 第2個?處填入:temp 第3個?處填入:j 第4個?處填入:1 第23套 (綜合應(yīng)用題) 1.?單擊“讀數(shù)據(jù)”命令按鈕,將考生文件夾下in5.dat文件中100個正整數(shù)讀入數(shù)組a中,同時顯示在文本框Text1中 2。?單擊“素數(shù)"按鈕,
32、則將數(shù)組a中所有素數(shù)存入數(shù)組b中,并將b中的元素顯示在文本框Text2中 F or k = 1 To 100 flag = True i = 2 Do While i <= Int(a(k) / 2) And flag If Int(a(k) / i) = a(k) / i Then flag = False Else i = i + 1
33、 End If Loop If flag = True Then num = num + 1 b(num) = a(k) End If Next k 第24套?。ňC合應(yīng)用題) 有一工程文件sjt5。vbp,窗體上有命令按鈕標題為“讀數(shù)據(jù)”和“統(tǒng)計”。請?zhí)砑觾蓸撕濴abel1和Label2,標題為“最長單詞的長度”“以該長度最后一次出現(xiàn)的單詞”,再添加兩個初始內(nèi)容為空的文本框Text1和Text2 a. 單擊“讀數(shù)據(jù)”按鈕,將考生文件夾下in5.dat
34、文件內(nèi)容讀到變量s中 b. 單擊“統(tǒng)計”,程序自動統(tǒng)計將in5.dat文件中最長單詞長度,以及最后一個以該長度出現(xiàn)的單詞,并將該單詞長度顯示在Text1中,單詞顯示在Text2中 Private?。觰b Command2_Click() For i = 1 To Len(s) J =?。羢c(Mid(s, i, 1)) Select Case J Case 48 To 57, 65 To 90,?。? To 122 Case Else Mid(s, i, 1) =?。?/p>
35、—" End Select Next i J = Len(s)?。? For i = 1 To J If Mid(s, i, 1) = ”—” And Mid(s, i + 1,?。? = ”—" Then s = Left(s, i) + Right(s, J – i) J = J - 1 i = i — 1 End If Next i s?。?Left(s, Len(s) - 1) R = Spli
36、t(s, "—”) ?。?= R(0) For?。椤??。薄o UBound(R) If Len(B) 〈 Len(R(i)) Then?。隆? R(i) Next i For m = UBound(R) To 1 Step -1 If Len(B) = Len(R(m)) Then Exit For End If Next Text1。Text = Len(B) Text2.Text =?。遥╩) End Sub 第25套 (綜合應(yīng)用題)
37、 有一工程文件sjt5。vbp,窗體上有兩個命令按鈕,三個標簽,三個文本框 a。單擊“讀數(shù)據(jù)”命令按鈕,將文件in5.dat中兩組已按升序方式排列的數(shù)分別放入數(shù)組A和B中,并分別在Text1,Text2中顯示。 b?。畣螕簟昂喜ⅰ?則將A,B兩數(shù)組合并為另一個按從小到大的排列數(shù)組C,并顯示在Text3中 步驟1:打開本題工程文件,利用菜單編輯器,按表3.69中的設(shè)置建立菜單項,在窗體Form1中繪制一個文本框,其相關(guān)屬性設(shè)置見表3。85和表3.86。 c(1) = a(1) For i = 2 To 30 c(i) = a(i) Next
38、 c(31) = b(1) For j = 32 To 60 c(j) = b(j - 30) Next ?。苚r i = 1 To 60 f = True For j = 1 To 59 If c(j) 〉 c(j + 1) Then t = c(j) c(j) =?。悖╦ + 1) c(j + 1) = t f = False
39、 End If Next If f Then Exit For End If Next 第26套(綜合應(yīng)用題) 在窗體上建立三個菜單,名稱分別為Read, Calc和Save標題為“輸入數(shù)據(jù)”“計算并輸出"“存盤”然后添加一個文本框,名稱為Text1,Multiline為Ture,ScrollBars為2.如果執(zhí)行“讀入數(shù)據(jù)”命令,則讀入datain1。txt文件中的100個整數(shù),將其放入一數(shù)組中,下屆為1,單擊“計算并輸出”按鈕,則把數(shù)組中下標為奇數(shù)的元素在文本框中顯示出來,求出和,并把所求和
40、顯示在窗體上. Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 Step 2 Text1.Text?。?Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData ”dataout.
41、txt",?。髐m End Sub 第27套 (綜合應(yīng)用題) 在考生文件夾下有一個工程文件sjt5.vbp,窗體上有一個名稱為CD1的通用對話框;有一個文本框,名稱為Text1,可以多行顯示,還有三個命令按鈕,名稱分別為C1﹑C2﹑C3標題分別為“打開文件”“轉(zhuǎn)換”“存盤”。命令按鈕的功能是:“打開文件"——彈出“打開文件"對話框,默認打開文件的類型為“文本文件?!稗D(zhuǎn)換”——把text1中所有小寫英文字母轉(zhuǎn)換成大寫 答案:第1個?處填入:2 第2個?處填入a 第3個?處填入:2 ”轉(zhuǎn)換"按鈕的事件過程: Private Sub C2_Click() Tex
42、t1.Text = UCase(Text1.Text) End Sub 第28套 (綜合應(yīng)用題) 在窗體上建立三個菜單項(名稱分別為Read,Calc和Save,標題分別為“讀入數(shù)據(jù)”“計算并輸出”“存盤”),然后添加一個文本框(名稱為Text1,Multiline屬性設(shè)置為Ture,ScrollBars屬性設(shè)置為2)程序執(zhí)行后,如果執(zhí)行“讀入數(shù)據(jù)"命令,則讀入datain1。tet文件中的100個整數(shù),將其放入一個數(shù)組中,數(shù)組的下屆為1;如果單擊“計算并輸出"命令按鈕,則把該數(shù)組中可以被3整除的元素顯示在文本框中,求出它們的和,并把所求得的和顯示在窗體上;如果單擊“存盤”命令,則將所求
43、得的和存入考生文件夾下。 Privat(yī)e Sub Calc_Click() ?。詄xt1。Text =?。ⅲ? For i = 1 To 100 If (Arr(i) Mod 3) = 0 Then Text1.Text = Text1。Text?。Α。羠r(i) & Space(5) sum = sum + Arr(i) End If Next i Print sum End Sub Private Sub Read_Click() ReadData
44、End Sub Privat(yī)e Sub Save_Click() WriteData ”dataout.txt", sum End Sub 第29套 (綜合應(yīng)用題) 在窗體上建立三個菜單項(名稱分別為Read,Calc和Save,標題分別為“讀入數(shù)據(jù)"“計算并輸出"“存盤”),然后添加一個文本框(名稱為Text1,可顯示多行,ScorllBars屬性設(shè)置為2)程序執(zhí)行后,如果執(zhí)行“讀入數(shù)據(jù)”命令,則讀入datain1。tet文件中的100個整數(shù),將其放入一個數(shù)組中,數(shù)組的下屆為1;如果單擊“計算并輸出”命令按鈕,則把該數(shù)組中可以大于等于50的元素顯示在文本框中,求出它們的和,
45、并把所求得的和顯示在窗體上;如果單擊“存盤”按鈕,則將所求得的和存入考生文件夾下。 Privat(yī)e Sub Calc_Click() Text1。Text = ”" For i = 1 To 100 If?。粒騬(i) 〉= 50 Then Text1.Text = Text1。Text & Arr(i) & Space(5) sum = sum +?。粒騬(i) Next i ?。衦int sum End Sub Privat(yī)e Sub Read_Click() ReadData End Sub P
46、rivate Sub Save_Click() WriteData "dataout。txt”, sum End Sub 第30套 (綜合應(yīng)用題) 在窗體上建立三個菜單項(名稱分別為Read,Calc和Save,標題分別為“讀入數(shù)據(jù)”“計算并輸出"“存盤”),然后添加一個文本框(名稱為Text1,可顯示多行,ScorllBars屬性設(shè)置為2)程序執(zhí)行后,如果執(zhí)行“讀入數(shù)據(jù)"命令,則讀入datain1.tet文件中的100個整數(shù),將其放入一個數(shù)組中,數(shù)組的下屆為1;如果單擊“計算并輸出"命令按鈕,則把該數(shù)組中小于50的元素顯示在文本框中,求出它們的和,并把所求得的和顯示在窗體上;
47、如果單擊“存盤”命令,則將所求得的和存入考生文件夾下. 參考答案 Privat(yī)e Sub Calc_Click() Text1。Text = ”" For i = 1 To 100 If Arr(i) < 50 Then Text1。Text?。?Text1。Text & Arr(i)?。?Space(5) sum = sum + Arr(i) End If Next i Print sum End Sub Privat(yī)e Sub Read_Click()
48、 ReadData End Sub Private Sub Save_Click() WriteData ”dataout.txt”, sum End Sub 第31套?。ňC合應(yīng)用題) 在考生文件夾中有如下內(nèi)容:32 43 78 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序運行后,單擊窗體,將把文件datain。txt中的數(shù)據(jù)輸入二維數(shù)組Mat中,按5行5列的矩陣形顯示在窗體上,并輸出矩陣左上—右下對角線上的數(shù)據(jù)。 答案:第1處填:Mat(N, M) As Integer或M
49、at(5, 5) As Integer第2處填:For Input 第3處填:Input #1, Mat(i, j) 第4處填:i = j 第32套 (綜合應(yīng)用題) 本程序的功能:如果單擊“取數(shù)"按鈕,則把開始文件夾下的in5。txt文件中的15個姓讀到數(shù)組a中,并在窗體上顯示這些姓名;當在Text1中輸入一個姓氏,或一個姓名,單擊“查找”按鈕,則進行查找,若找到,就把所有與Text1中所有具有Text1中姓氏的姓名或相同的姓名顯示在Text2中,若未找到,則在Text2中顯示“未找到!";若Text1中沒有查找內(nèi)容,則在Text2中顯示“未輸入查找內(nèi)容!
50、”。 答案:第1個?處填入:#1 第2個?處填入:Text1。Text 第3個?處填入:n 第4個?處填入:a(k) 第5個?處填入:c 第33套 (綜合應(yīng)用題) 考生文件中有5個運動員的姓名、7個裁判的打分和動作的難度系數(shù)。每人的數(shù)據(jù)占一行,順序是:姓名、7個分數(shù)、難度系數(shù)。程序運行時,單擊“輸入"按鈕,可把in5。dat文件中的5 個姓名讀入數(shù)組athlete中,把5組得分(每組7個)和難度系數(shù)讀入二維數(shù)組a中,并把這些數(shù)據(jù)顯示在Text1文本框中;單擊“選出冠軍”按鈕,則把冠軍的姓名和成績分別顯示在文本框Text2、Text3中。成績的計算方法:去掉一個最高分和
51、一個最低分,求剩下得分的平均分,再乘以難度系數(shù),再乘以3;單擊“存盤”按鈕,則把冠軍姓名和成績存入考生文件夾下. 答案: 第1個?處填入:a(n, 1) 第2個?處填入:7 第3個?處填入:a(n, 8) Private Sub Command2_Click() Dim n As Integer For n = 1?。詏 5 If m < getmark(n) Then m = getmark(n) Next Text3。Text = m For n = 1 To 5 If m = getma
52、rk(n) Then Text2。Text = athlete(n) Next n 第34套 (綜合應(yīng)用題) 在考生文件夾下,其窗體上有兩個標題分別為“讀數(shù)據(jù)”和“統(tǒng)計”命令按鈕。請?zhí)砑觾蓚€標簽,其名稱分別是Label1和Label2,標題分別為“單詞的平均長度為”和“最長單詞的長度為”;再添加兩個名稱分別為Text1和Text2,Text屬性為空的文本框,程序功能如下: 1如果單擊“讀數(shù)據(jù)”命令按鈕,則將考生文件下in5.dat文件的內(nèi)容讀到變量s中(此程序已給出) 2如果單擊“統(tǒng)計”按鈕,則自動統(tǒng)計變量s(s中僅含有字母和空格,而空格是用來分隔不同單詞的)中每個單詞的長度
53、,并將所有單詞的平均長度在Text1文本框內(nèi)顯示,將最長單詞的長度在Text2文本框內(nèi)顯示。 Private Sub Command2_Click() For i = 1 To Len(s) J = Asc(Mid(s, i, 1)) Select Case J Case 48 To 57, 65 To 90, 97 To 122 Case Else Mid(s, i, 1) = ”-" End Select Next i J =
54、Len(s) — 1 For i = 1 To J If Mid(s, i, 1) = ”—" And Mid(s, i?。?, 1) = ”—” Then s = Left(s,?。椋? Right(s, J —?。椋? J = J — 1 i = i - 1 End If Next i s = Left(s, Len(s) — 1) ?。摇? Split(s, "-") B = R(0) For i = 1 To UB
55、ound(R) If Len(B) < Len(R(i)) Then B = R(i) Next i Text2.Text = Len(B) Text1.Text?。?Int((Len(s) - UBound(R)) / (UBound(R) + 1) + 0.5) End Sub 第35套 (綜合應(yīng)用題) 在考生文件夾下,其功能如下: 1)單擊“讀數(shù)據(jù)”按鈕,則將考生文件夾下in5.dat(yī)文件中的100正整數(shù)讀入到數(shù)組a中,同時在Text1文本框中顯示. 2)單擊“分組"按鈕,則將數(shù)組a中所有3的倍數(shù)的元素存入數(shù)組a中,并對數(shù)組b中的
56、元素按升序排序后顯示在文本框Text2中. 參考答案 n = 0 For k = 1 To 100 If a(k) Mod 3 = 0 Then num = num + 1 b(num) = a(k) End If Next?。? For i = 1 To num f?。健rue For j = 1 To num - 1
57、 If b(j) 〉 b(j + 1) Then t = b(j) b(j) = b(j +?。保? b(j + 1) = t f = False End?。蒮 Next j If f Then Exit For End?。蒮 Next i 第36套?。ňC合應(yīng)用題)
58、 考生文件夾下有1個初始文本為空的文本框Text1,2個標題分別為“讀數(shù)據(jù)”和“計算”的命令按鈕;請?zhí)砑樱眰€標題為“各行最小數(shù)的平均值為”的標簽Label2,再添加1個初始文本為空的文本框Text2,如圖所示。程序功能如下: 1) 單擊“讀數(shù)據(jù)”按鈕,則將考生文件夾下in5.dat文件的內(nèi)容讀入20行5列的二維數(shù)組a中,同時在Text1文本框內(nèi)顯示. 2) 單擊“計算”按鈕,程序則自動統(tǒng)計二維數(shù)組中各行的最小數(shù),并將這些最小數(shù)的平均值顯示在Text2文本框內(nèi)。 參考答案 Privat(yī)e Sub Command2_Click() '考生編寫 Dim sum As L
59、ong Dim min As Long ?。膇m b(20) As Integer For i = 1 To 20 min = a(i , 1) For j = 1 To 5 If a(i , j) < min Then min = a(i , j) End If ?。蝒xt j b(i) = min Next i sum = 0 For i = 1 To 20 sum = sum + b(i) Next Text2 = sum /?。? End Sub 文中如有不足,請您指教! 18 / 18
- 溫馨提示:
1: 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2023年六年級數(shù)學下冊6整理和復習2圖形與幾何第7課時圖形的位置練習課件新人教版
- 2023年六年級數(shù)學下冊6整理和復習2圖形與幾何第1課時圖形的認識與測量1平面圖形的認識練習課件新人教版
- 2023年六年級數(shù)學下冊6整理和復習1數(shù)與代數(shù)第10課時比和比例2作業(yè)課件新人教版
- 2023年六年級數(shù)學下冊4比例1比例的意義和基本性質(zhì)第3課時解比例練習課件新人教版
- 2023年六年級數(shù)學下冊3圓柱與圓錐1圓柱第7課時圓柱的體積3作業(yè)課件新人教版
- 2023年六年級數(shù)學下冊3圓柱與圓錐1圓柱第1節(jié)圓柱的認識作業(yè)課件新人教版
- 2023年六年級數(shù)學下冊2百分數(shù)(二)第1節(jié)折扣和成數(shù)作業(yè)課件新人教版
- 2023年六年級數(shù)學下冊1負數(shù)第1課時負數(shù)的初步認識作業(yè)課件新人教版
- 2023年六年級數(shù)學上冊期末復習考前模擬期末模擬訓練二作業(yè)課件蘇教版
- 2023年六年級數(shù)學上冊期末豐收園作業(yè)課件蘇教版
- 2023年六年級數(shù)學上冊易錯清單十二課件新人教版
- 標準工時講義
- 2021年一年級語文上冊第六單元知識要點習題課件新人教版
- 2022春一年級語文下冊課文5識字測評習題課件新人教版
- 2023年六年級數(shù)學下冊6整理和復習4數(shù)學思考第1課時數(shù)學思考1練習課件新人教版