國(guó)二 綜合應(yīng)用題
《國(guó)二 綜合應(yīng)用題》由會(huì)員分享,可在線閱讀,更多相關(guān)《國(guó)二 綜合應(yīng)用題(18頁(yè)珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、第1套(綜合應(yīng)用題) 以下數(shù)列:1,1,2,3,5,8,13…從第三個(gè)數(shù)開(kāi)始,每個(gè)數(shù)都是前兩個(gè)數(shù)之和.選中一個(gè)單選按鈕后,單擊“計(jì)算”按鈕,算出數(shù)列的第n項(xiàng)的值,n為選中單選按鈕后面的數(shù). Private Sub?。胦mmand1_Click() ?。模閙 a() As?。蘯ng Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If 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)用題) 從文件中讀取40個(gè)數(shù)據(jù),統(tǒng)計(jì)數(shù)據(jù)中素?cái)?shù)的個(gè)數(shù).并找出所有素?cái)?shù)中的最小素?cái)?shù),將結(jié)果顯示在標(biāo)簽Label3和Label4中。 Dim a As Integer Dim b As Intege
3、r a?。?0 b = arr(1) For i = 1 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)用題) 窗體上有兩文本框,三個(gè)命令按鈕“讀取”“排序”“存盤”.“讀取"按鈕的功能是將文件中得50個(gè)整數(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)用題) 在窗體上建立三個(gè)菜單,標(biāo)題分別為“讀入數(shù)據(jù)”“計(jì)算并輸出”“存盤"。如果執(zhí)
6、行“讀入數(shù)據(jù)”命令,則讀入文件中的100個(gè)整數(shù),放入一個(gè)數(shù)組中,如果單擊“計(jì)算并輸出”,則把數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來(lái),計(jì)算和并在窗體上顯示. Dim sum As Integer Private Sub Calc_Click() Text1.Text = "” For?。?= 2 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(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)用題) 窗體上添加兩個(gè)命令按鈕,單擊“讀入數(shù)據(jù)“按鈕,將20個(gè)數(shù)分別放入Arr1和Arr2兩個(gè)數(shù)組中,單擊“計(jì)算"按鈕,第一個(gè)數(shù)組的第n個(gè)元素減去第二個(gè)數(shù)組的第n個(gè)元素,結(jié)果作為第三個(gè)數(shù)組的第n個(gè)元素。這里的n為1、2…20。最后計(jì)算第3個(gè)數(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、) 窗體上有兩個(gè)命令按鈕,標(biāo)題分別為“讀數(shù)據(jù)”和“統(tǒng)計(jì)",請(qǐng)?zhí)砑右粋€(gè)標(biāo)題為“回文個(gè)數(shù)為”的標(biāo)簽和一個(gè)名稱為Text1初始內(nèi)容為空的文本框。 程序功能如下:1)單擊“讀數(shù)據(jù)”按鈕,則將文件夾in5。dat(yī)的文件內(nèi)容讀到變量s中。 ?。?單擊“統(tǒng)計(jì)”按鈕,則統(tǒng)計(jì)in5.dat文件中回文的個(gè)數(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)用題) 窗體上有兩個(gè)標(biāo)簽L1和L2。標(biāo)題分別為“口令"和“允許次數(shù)"。一個(gè)命令按鈕C1,標(biāo)題為“確定”,兩文本框Text1和Text2。Text1用來(lái)輸入口令(輸入時(shí)文本內(nèi)容顯示“*”),初始內(nèi)容為空,Text2初始內(nèi)容為3.如果輸入的是“123456”則在Text1中顯示“正確口令";如果輸入其他內(nèi)容,單擊“確定”后,彈出錯(cuò)誤提示對(duì)
11、話框,并且Text2中的數(shù)字減1。最多輸入三次口令。 答案:第1處填:Text1.Text 第2處入:PasswordChar 第3處填:0 第4處填:False 第9套 (綜合應(yīng)用題) 在窗體中有一個(gè)實(shí)心圓,當(dāng)用鼠標(biāo)左鍵單擊窗體任何空白位置時(shí),實(shí)心圓則向單擊位置直線移動(dòng);用鼠標(biāo)右鍵單擊窗體,則實(shí)心圓停止移動(dòng)?!? 答案: 第1處:0 第2處:stepy 第3處:Timer1。Enabled 第4處:Timer1。Enabled 第5填:stepy 第10套 (綜合應(yīng)用題) 從文件中讀出數(shù)據(jù),將其放入一個(gè)5×5的二
12、維數(shù)組a中,找出數(shù)組a中每行的最大值機(jī)及該值在行中的次序,并在所找到的結(jié)果分別保存到一維數(shù)組b,c中,a中第一行的最大值保存在b(1)中,最大值的列次序保存在c(1)中。 參考答案: Max = a(i, 1) For j = 1 To?。? If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then?。悖ǎ椋?= j
13、Next j 第11套 (綜合應(yīng)用題) 計(jì)算勾股定理整數(shù)組合的個(gè)數(shù)。勾股定理中3個(gè)數(shù)的關(guān)系是:a^2+b^2=c^2,例如,3,4,5就是滿足條件的整數(shù)組合。編寫程序,統(tǒng)計(jì)滿足在60以內(nèi)的三個(gè)數(shù)滿足上述關(guān)系的整數(shù)組合的個(gè)數(shù),并顯示在標(biāo)簽Label1中。 參考答案: Private Sub Command1 Click() ?。膇m i As?。蒼teger Dim j As Integer Dim?。?As Integer For i = 1 To 60 For j?。健? 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)用題) 程序運(yùn)行時(shí),單擊“打開(kāi)文件”按鈕,則彈出“打開(kāi)”對(duì)話框,默認(rèn)目錄為考生目錄,默認(rèn)文件類型為“文本文件".選中in5.txt文件,單擊“打開(kāi)”按鈕,則把文件內(nèi)容讀入并顯示在文本框中;單擊“修改內(nèi)容”按鈕,則將Text1中大寫字母“E”“N”“T”改為小寫,把小寫字母“e”“n”“t"改為大寫;單擊“保存文件”按鈕,則彈出“另存為”對(duì)話框,單擊“保存”按鈕,則將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中輸入一個(gè)大于2的偶數(shù),并單擊“分解為”按鈕,則將該偶數(shù)分解為兩個(gè)素?cái)?shù)之和,要求其中一個(gè)素?cái)?shù)是所能分解出的最小素?cái)?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)用題) 含三個(gè)窗體,標(biāo)題為“啟動(dòng)”“注冊(cè)”“登錄”,程序運(yùn)行時(shí)顯示“啟動(dòng)"窗口,單擊窗體上按鈕時(shí)彈出對(duì)應(yīng)窗體進(jìn)行注冊(cè)或登錄.注冊(cè)信息放入全局?jǐn)?shù)組users中,注冊(cè)用戶數(shù)(小與或等于10個(gè))
18、放在全局變量n中。注冊(cè)時(shí)用戶名不能重復(fù),且“口令"與“驗(yàn)證口令”相同,注冊(cè)成功則在“啟動(dòng)"窗體標(biāo)簽中提示“注冊(cè)成功”否則提示相應(yīng)錯(cuò)誤信息。登錄時(shí),檢驗(yàn)用戶名和口令,若正確則在“啟動(dòng)”窗體標(biāo)簽中提示“登陸成功"否則提示相應(yīng)錯(cuò)誤信息 答案:Form2中第1處:1 Form2中第2處:0 Form2中第3處:Form1。Label1 Form3中第1處:0 Form3中第2處:k, 2 第15套 (綜合應(yīng)用題) 其功能是產(chǎn)生并顯示一個(gè)數(shù)列的前n項(xiàng)。數(shù)列產(chǎn)生的規(guī)律是:數(shù)據(jù)前2項(xiàng)是小于10的正整數(shù),將此兩數(shù)相乘,若乘積〈10,則此乘積作為第3項(xiàng),若乘積≥10,則以乘積的十位數(shù)
19、為數(shù)列的第三項(xiàng),以乘積的個(gè)位數(shù)作為數(shù)列第4項(xiàng)。直至產(chǎn)生第n項(xiàng) 答案:第1個(gè)?處填入:b 第2個(gè)?處填入:b 第3個(gè)?處填入:n 第4個(gè)?處填入: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 運(yùn)行后單擊窗體,將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中,按5行5列矩陣形式顯示與窗體上,然后交換第二列和第四列的數(shù)據(jù),將
20、交換后的矩陣顯示在窗體上 答案: 第1個(gè)?處填入:Mat(yī)(N, M) As Integer 第2個(gè)?處填入:For Input 第3個(gè)?處填入:Input #1, Mat(i, j) 第4個(gè)?處填入:Mat(i, 4) = t 第17套 (綜合應(yīng)用題) 窗體上有三個(gè)文本框,名稱為Text1,Text2,Text3,其中Text1,Text2可多行顯示.請(qǐng)?zhí)砑樱硞€(gè)命令按鈕,名稱為Cmd1,Cmd2,Cmd3,標(biāo)題為“產(chǎn)生數(shù)組"“統(tǒng)計(jì)”“退出”功能:1)單擊“產(chǎn)生數(shù)組”按鈕時(shí),隨機(jī)產(chǎn)生20個(gè)0~10之間的數(shù)值,并將其保存到一維數(shù)組a中,同時(shí)將這20個(gè)數(shù)顯示與Text1
21、中。 2)單擊“統(tǒng)計(jì)"時(shí),統(tǒng)計(jì)出數(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)用題) 窗體上有兩個(gè)命令按鈕,標(biāo)題為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”,請(qǐng)?zhí)砑觾蓚€(gè)標(biāo)簽,名稱為L(zhǎng)abel1和Label2,標(biāo)題為“出現(xiàn)次數(shù)最多的字母"和“它出現(xiàn)的次數(shù)為";在添加兩個(gè)初始內(nèi)容為空的文本框Text1,Text2。 功能:1)單擊“讀數(shù)據(jù)”按
22、鈕,則將考生文件夾下in5。dat文件內(nèi)容讀到變量s中。 2)單擊“統(tǒng)計(jì)"按鈕,則自動(dòng)統(tǒng)計(jì)in5.dat文件中所含各字母出現(xiàn)的次數(shù),并統(tǒng)計(jì)次數(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 If (k >= 97 And k <= 122) Then a(k - 96) = a(k - 96) + 1 End If Next i max = 0 ?。苚r m = 1 To 26 If max < a(m) Then max = a(m) End If Next Text
24、2 = max For m = 1 To 26 If a(m) = max Then l = m ?。舗d If Next m Text1 = Chr(l + 64) 第19套 (綜合應(yīng)用題) 運(yùn)行程序時(shí),單擊“裝入數(shù)據(jù)"按鈕,則從考生文件夾的in5.txt文件中讀入所有城市名稱和距離,城市名稱按順序添加到列表框List1中,距離放到數(shù)組a中;當(dāng)選中列表框中的一個(gè)城市時(shí),它的距離就在Text1中顯示。單擊“計(jì)算運(yùn)算"按鈕,則計(jì)算到該城市的每噸運(yùn)費(fèi)(結(jié)果取整,不四舍五入)并在Text2中顯示。每噸運(yùn)費(fèi)的計(jì)算:距
25、離*折扣*單價(jià).單價(jià)為0。3 折扣為 距離<500 折扣為1 500≤距離<1000 折扣為0。98 ? 1000≤距離〈1500 折扣為0.95 1500≤距離<2000 折扣為0。92 2000≤距離 折扣為0.9 單擊“保存”按鈕,則把距離和每噸運(yùn)費(fèi)存到文件out5。txt中。 答案: 第1個(gè)?處填入:1 第2個(gè)?處填入: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 b 〉= 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)用題) 運(yùn)行程序時(shí),從考生文件夾數(shù)據(jù)文件中讀取學(xué)生的成績(jī)(均為整數(shù))。要求編寫程序,統(tǒng)計(jì)總?cè)藬?shù),同時(shí)統(tǒng)計(jì)不及格,60~69,70~79,80~89及90~100各分?jǐn)?shù)段的人數(shù),將統(tǒng)計(jì)結(jié)果顯示在相應(yīng)的文本框中.程序運(yùn)行前,必須單擊“保存”按鈕,保存統(tǒng)計(jì)結(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?。幔騬(i)?。?70 Then Text3 =?。郑幔欤ǎ詄xt3) + 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)用題) . 在考生文件夾中有一個(gè)工程文件sjt5。vbp。窗體外觀如圖所示,運(yùn)行程序,單擊“讀數(shù)據(jù)”按鈕,讀入文件中的數(shù)據(jù)到字符串變量并顯示在Label2標(biāo)簽中。單擊“排序”命令按鈕時(shí),對(duì)讀入的數(shù)據(jù)從小到大排序,并將排序結(jié)果在窗體的Lable4控件中顯示 答案: 第1個(gè)?處填入:EOF
30、(1) 第2個(gè)?處填入: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 = False End If Next j If f Then
31、 Exit For End If Next i 第22套 (綜合應(yīng)用題) 窗體中有一個(gè)文本框數(shù)組,名稱為Text1,下標(biāo)從0開(kāi)始。單擊“產(chǎn)生隨機(jī)數(shù)"按鈕,就會(huì)隨機(jī)產(chǎn)生10個(gè)3位數(shù),并放入Text1數(shù)組中,單擊“重排數(shù)據(jù)"按鈕,則把Text1中奇數(shù)移到前面,偶數(shù)移到后面。 答案:第1個(gè)?處填入:9 第2個(gè)?處填入:temp 第3個(gè)?處填入:j 第4個(gè)?處填入:1 第23套 (綜合應(yīng)用題) 1.?單擊“讀數(shù)據(jù)”命令按鈕,將考生文件夾下in5.dat文件中100個(gè)正整數(shù)讀入數(shù)組a中,同時(shí)顯示在文本框Text1中 2。?單擊“素?cái)?shù)"按鈕,
32、則將數(shù)組a中所有素?cái)?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,窗體上有命令按鈕標(biāo)題為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”。請(qǐng)?zhí)砑觾蓸?biāo)簽Label1和Label2,標(biāo)題為“最長(zhǎng)單詞的長(zhǎng)度”“以該長(zhǎng)度最后一次出現(xiàn)的單詞”,再添加兩個(gè)初始內(nèi)容為空的文本框Text1和Text2 a. 單擊“讀數(shù)據(jù)”按鈕,將考生文件夾下in5.dat
34、文件內(nèi)容讀到變量s中 b. 單擊“統(tǒng)計(jì)”,程序自動(dòng)統(tǒng)計(jì)將in5.dat文件中最長(zhǎng)單詞長(zhǎng)度,以及最后一個(gè)以該長(zhǎng)度出現(xiàn)的單詞,并將該單詞長(zhǎng)度顯示在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, 97 To 122 Case?。舕se 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,窗體上有兩個(gè)命令按鈕,三個(gè)標(biāo)簽,三個(gè)文本框 a。單擊“讀數(shù)據(jù)”命令按鈕,將文件in5.dat中兩組已按升序方式排列的數(shù)分別放入數(shù)組A和B中,并分別在Text1,Text2中顯示。 b .單擊“合并”,則將A,B兩數(shù)組合并為另一個(gè)按從小到大的排列數(shù)組C,并顯示在Text3中 步驟1:打開(kāi)本題工程文件,利用菜單編輯器,按表3.69中的設(shè)置建立菜單項(xiàng),在窗體Form1中繪制一個(gè)文本框,其相關(guān)屬性設(shè)置見(jiàn)表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) ?。?j) =?。悖╦ + 1) c(j + 1) = t f = False
39、 End If Next If f Then Exit For End If Next 第26套(綜合應(yīng)用題) 在窗體上建立三個(gè)菜單,名稱分別為Read, Calc和Save標(biāo)題為“輸入數(shù)據(jù)”“計(jì)算并輸出"“存盤”然后添加一個(gè)文本框,名稱為Text1,Multiline為Ture,ScrollBars為2.如果執(zhí)行“讀入數(shù)據(jù)”命令,則讀入datain1。txt文件中的100個(gè)整數(shù),將其放入一數(shù)組中,下屆為1,單擊“計(jì)算并輸出”按鈕,則把數(shù)組中下標(biāo)為奇數(shù)的元素在文本框中顯示出來(lái),求出和,并把所求和
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", sum End Sub 第27套 (綜合應(yīng)用題) 在考生文件夾下有一個(gè)工程文件sjt5.vbp,窗體上有一個(gè)名稱為CD1的通用對(duì)話框;有一個(gè)文本框,名稱為Text1,可以多行顯示,還有三個(gè)命令按鈕,名稱分別為C1﹑C2﹑C3標(biāo)題分別為“打開(kāi)文件”“轉(zhuǎn)換”“存盤”。命令按鈕的功能是:“打開(kāi)文件"——彈出“打開(kāi)文件"對(duì)話框,默認(rèn)打開(kāi)文件的類型為“文本文件。“轉(zhuǎn)換”——把text1中所有小寫英文字母轉(zhuǎn)換成大寫 答案:第1個(gè)?處填入:2 第2個(gè)?處填入a 第3個(gè)?處填入:2 ”轉(zhuǎn)換"按鈕的事件過(guò)程: Private Sub C2_Click() Tex
42、t1.Text = UCase(Text1.Text) End Sub 第28套?。ňC合應(yīng)用題) 在窗體上建立三個(gè)菜單項(xiàng)(名稱分別為Read,Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)”“計(jì)算并輸出”“存盤”),然后添加一個(gè)文本框(名稱為Text1,Multiline屬性設(shè)置為Ture,ScrollBars屬性設(shè)置為2)程序執(zhí)行后,如果執(zhí)行“讀入數(shù)據(jù)"命令,則讀入datain1。tet文件中的100個(gè)整數(shù),將其放入一個(gè)數(shù)組中,數(shù)組的下屆為1;如果單擊“計(jì)算并輸出"命令按鈕,則把該數(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 =?。髐m + 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)用題) 在窗體上建立三個(gè)菜單項(xiàng)(名稱分別為Read,Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)"“計(jì)算并輸出"“存盤”),然后添加一個(gè)文本框(名稱為Text1,可顯示多行,ScorllBars屬性設(shè)置為2)程序執(zhí)行后,如果執(zhí)行“讀入數(shù)據(jù)”命令,則讀入datain1。tet文件中的100個(gè)整數(shù),將其放入一個(gè)數(shù)組中,數(shù)組的下屆為1;如果單擊“計(jì)算并輸出”命令按鈕,則把該數(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)用題) 在窗體上建立三個(gè)菜單項(xiàng)(名稱分別為Read,Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)”“計(jì)算并輸出"“存盤”),然后添加一個(gè)文本框(名稱為Text1,可顯示多行,ScorllBars屬性設(shè)置為2)程序執(zhí)行后,如果執(zhí)行“讀入數(shù)據(jù)"命令,則讀入datain1.tet文件中的100個(gè)整數(shù),將其放入一個(gè)數(shù)組中,數(shù)組的下屆為1;如果單擊“計(jì)算并輸出"命令按鈕,則把該數(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 程序運(yùn)行后,單擊窗體,將把文件datain。txt中的數(shù)據(jù)輸入二維數(shù)組Mat中,按5行5列的矩陣形顯示在窗體上,并輸出矩陣左上—右下對(duì)角線上的數(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ù)"按鈕,則把開(kāi)始文件夾下的in5。txt文件中的15個(gè)姓讀到數(shù)組a中,并在窗體上顯示這些姓名;當(dāng)在Text1中輸入一個(gè)姓氏,或一個(gè)姓名,單擊“查找”按鈕,則進(jìn)行查找,若找到,就把所有與Text1中所有具有Text1中姓氏的姓名或相同的姓名顯示在Text2中,若未找到,則在Text2中顯示“未找到!";若Text1中沒(méi)有查找內(nèi)容,則在Text2中顯示“未輸入查找內(nèi)容!
50、”。 答案:第1個(gè)?處填入:#1 第2個(gè)?處填入:Text1。Text 第3個(gè)?處填入:n 第4個(gè)?處填入:a(k) 第5個(gè)?處填入:c 第33套 (綜合應(yīng)用題) 考生文件中有5個(gè)運(yùn)動(dòng)員的姓名、7個(gè)裁判的打分和動(dòng)作的難度系數(shù)。每人的數(shù)據(jù)占一行,順序是:姓名、7個(gè)分?jǐn)?shù)、難度系數(shù)。程序運(yùn)行時(shí),單擊“輸入"按鈕,可把in5。dat文件中的5 個(gè)姓名讀入數(shù)組athlete中,把5組得分(每組7個(gè))和難度系數(shù)讀入二維數(shù)組a中,并把這些數(shù)據(jù)顯示在Text1文本框中;單擊“選出冠軍”按鈕,則把冠軍的姓名和成績(jī)分別顯示在文本框Text2、Text3中。成績(jī)的計(jì)算方法:去掉一個(gè)最高分和
51、一個(gè)最低分,求剩下得分的平均分,再乘以難度系數(shù),再乘以3;單擊“存盤”按鈕,則把冠軍姓名和成績(jī)存入考生文件夾下. 答案: 第1個(gè)?處填入:a(n,?。? 第2個(gè)?處填入:7 第3個(gè)?處填入:a(n, 8) Private Sub Command2_Click() Dim n As Integer For n = 1 To 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)用題) 在考生文件夾下,其窗體上有兩個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”命令按鈕。請(qǐng)?zhí)砑觾蓚€(gè)標(biāo)簽,其名稱分別是Label1和Label2,標(biāo)題分別為“單詞的平均長(zhǎng)度為”和“最長(zhǎng)單詞的長(zhǎng)度為”;再添加兩個(gè)名稱分別為Text1和Text2,Text屬性為空的文本框,程序功能如下: 1如果單擊“讀數(shù)據(jù)”命令按鈕,則將考生文件下in5.dat文件的內(nèi)容讀到變量s中(此程序已給出) 2如果單擊“統(tǒng)計(jì)”按鈕,則自動(dòng)統(tǒng)計(jì)變量s(s中僅含有字母和空格,而空格是用來(lái)分隔不同單詞的)中每個(gè)單詞的長(zhǎng)度
53、,并將所有單詞的平均長(zhǎng)度在Text1文本框內(nèi)顯示,將最長(zhǎng)單詞的長(zhǎng)度在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, 1) = ”—” Then s = Left(s,?。椋? Right(s, J —?。椋? J = J — 1 i = i - 1 End If ?。蝒xt 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?。? 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中,同時(shí)在Text1文本框中顯示. 2)單擊“分組"按鈕,則將數(shù)組a中所有3的倍數(shù)的元素存入數(shù)組a中,并對(duì)數(shù)組b中的
56、元素按升序排序后顯示在文本框Text2中. 參考答案 n = 0 For k = 1 To 100 If a(k) Mod 3 = 0 Then num = num +?。? b(num) = a(k) End If Next?。? For i = 1 To num f?。健rue For j = 1 To num -?。?
57、 If b(j) 〉 b(j + 1) Then t = b(j) b(j) =?。猓╦ + 1) b(j + 1) = t f = False End?。蒮 Next j If f Then Exit For End?。蒮 Next i 第36套?。ňC合應(yīng)用題)
58、 考生文件夾下有1個(gè)初始文本為空的文本框Text1,2個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和“計(jì)算”的命令按鈕;請(qǐng)?zhí)砑樱眰€(gè)標(biāo)題為“各行最小數(shù)的平均值為”的標(biāo)簽Label2,再添加1個(gè)初始文本為空的文本框Text2,如圖所示。程序功能如下: 1) 單擊“讀數(shù)據(jù)”按鈕,則將考生文件夾下in5.dat文件的內(nèi)容讀入20行5列的二維數(shù)組a中,同時(shí)在Text1文本框內(nèi)顯示. 2) 單擊“計(jì)算”按鈕,程序則自動(dòng)統(tǒng)計(jì)二維數(shù)組中各行的最小數(shù),并將這些最小數(shù)的平均值顯示在Text2文本框內(nèi)。 參考答案 Privat(yī)e Sub Command2_Click() '考生編寫 Dim sum As L
59、ong Dim min As Long Dim 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 文中如有不足,請(qǐng)您指教! 18 / 18
- 溫馨提示:
1: 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)6整理和復(fù)習(xí)2圖形與幾何第7課時(shí)圖形的位置練習(xí)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)6整理和復(fù)習(xí)2圖形與幾何第1課時(shí)圖形的認(rèn)識(shí)與測(cè)量1平面圖形的認(rèn)識(shí)練習(xí)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)6整理和復(fù)習(xí)1數(shù)與代數(shù)第10課時(shí)比和比例2作業(yè)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)4比例1比例的意義和基本性質(zhì)第3課時(shí)解比例練習(xí)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)3圓柱與圓錐1圓柱第7課時(shí)圓柱的體積3作業(yè)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)3圓柱與圓錐1圓柱第1節(jié)圓柱的認(rèn)識(shí)作業(yè)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)2百分?jǐn)?shù)(二)第1節(jié)折扣和成數(shù)作業(yè)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)1負(fù)數(shù)第1課時(shí)負(fù)數(shù)的初步認(rèn)識(shí)作業(yè)課件新人教版
- 2023年六年級(jí)數(shù)學(xué)上冊(cè)期末復(fù)習(xí)考前模擬期末模擬訓(xùn)練二作業(yè)課件蘇教版
- 2023年六年級(jí)數(shù)學(xué)上冊(cè)期末豐收?qǐng)@作業(yè)課件蘇教版
- 2023年六年級(jí)數(shù)學(xué)上冊(cè)易錯(cuò)清單十二課件新人教版
- 標(biāo)準(zhǔn)工時(shí)講義
- 2021年一年級(jí)語(yǔ)文上冊(cè)第六單元知識(shí)要點(diǎn)習(xí)題課件新人教版
- 2022春一年級(jí)語(yǔ)文下冊(cè)課文5識(shí)字測(cè)評(píng)習(xí)題課件新人教版
- 2023年六年級(jí)數(shù)學(xué)下冊(cè)6整理和復(fù)習(xí)4數(shù)學(xué)思考第1課時(shí)數(shù)學(xué)思考1練習(xí)課件新人教版