|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2015年9月全國(guó)計(jì)算機(jī)二級(jí)VB操作題真題1 |
102 一、基本操作題 (1)在名稱為Form1、標(biāo)題為“球類項(xiàng)目”、且沒(méi)有最大化和最小化按鈕的窗體上畫1個(gè)名 稱為Combo1的組臺(tái)框。組合框中的文本內(nèi)容為空，表項(xiàng)內(nèi)容有”乒乓球“、”羽毛球”和“網(wǎng)球”三項(xiàng)。運(yùn)行后的窗體如圖所示。 注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm
(2)在名稱為Form1、標(biāo)題為”轉(zhuǎn)換”的窗體上，畫1個(gè)名稱為Shape1、邊框?qū)挾葹?/SPAN>3的形狀。再畫2個(gè)標(biāo)題分別為“橢圓”和”圓“的命令按鈕。如下圖所示。 要求：編寫適當(dāng)?shù)氖录^(guò)程，使得單擊“橢圓”按鈕時(shí), Shape1的形狀變換為橢圓；單擊“圓“按鈕時(shí)，shape1的形狀變換為圓。程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句 注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm.
二、簡(jiǎn)單應(yīng)用題 (1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。窗體Form1上有2個(gè)標(biāo)題分別是”讀數(shù) 據(jù)“和“查找“的命令按鈕。請(qǐng)畫1個(gè)名稱為Text1、初始值為空的文本框，該文本框允許顯示多行內(nèi)容，且有垂直滾動(dòng)條，如圖所示。程序功能如下： ①在考生文件夾下的in3.dat文件中存有100個(gè)正整數(shù)。單擊”讀數(shù)據(jù)”按鈕，則將文件in3.dat中的數(shù)據(jù)讀入數(shù)組a中。 ②單擊“查找”按鈕，則查找數(shù)組a中所有為7的倍數(shù)的數(shù)據(jù)，并將這些數(shù)據(jù)順次顯示在Text1文本框內(nèi)（數(shù)據(jù)之間用空格隔開）�！弊x數(shù)據(jù)“按鈕的click事件過(guò)程已經(jīng)結(jié)出，請(qǐng)編寫程序完成”查找”按鈕的click事件過(guò)程，實(shí)現(xiàn)上述功能。 注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須使 用”查找“接鈕完成查找過(guò)程，且必須用窗體右上角的關(guān)閉按扭結(jié)束程序，否則無(wú)成績(jī)。最后將程序接原文件名存盤。
Option Base 1 Dim a(100) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in3.dat" For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1 End Sub Private Sub Command2_Click() '考生編寫 End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out3.dat" For Output As #1 Print #1, Text1.Text Close #1 End Sub (2)考生文件夾下有一個(gè)工程文件sjt4.vbp。在窗體Form1上有2個(gè)名稱為Command1和Command2、標(biāo)題分別為“重輸“和”查找”的命令按鈕。程序功能為：?jiǎn)螕簟爸剌敗卑粹o，則清空Text1中的內(nèi)容，等待用戶輸入由空格隔開的若干個(gè)英文單詞；單擊“查找“按鈕，則找出Text1中最長(zhǎng)的單詞，并將其顯示在Text2中。某一次的運(yùn)行效果如圖所示。請(qǐng)將”查找“按鈕的Click事件過(guò)程中的注釋符去掉，把？改為正確內(nèi)容，以實(shí)現(xiàn)上述程序功能。 注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。
Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() Dim x As String, word As String, word_max As String Dim num As Integer, xmax As Integer x = Trim(Text1.Text) xmax = 0 Do While Len(x) > 0 num = InStr(x, Space(1)) If num = 0 Then ' word = ? x = "" Else ' word = Left(x, ? ) x = Mid(x, num + 1) End If If Len(word) >= xmax Then xmax = Len(word) ' word_max = ? End If ' ? 'Text2.Text = ? End Sub 三、綜合應(yīng)用題 考生文件夾下有一個(gè)工程文件sjt5.vbp。在窗體Form1上有2個(gè)標(biāo)題分別是“產(chǎn)生數(shù) 據(jù)“和”重新排列”的命令按鈕，有2個(gè)標(biāo)題為“原始數(shù)據(jù)“和“排列數(shù)據(jù)“的標(biāo)簽。程序功能如下: ①單擊“產(chǎn)生數(shù)據(jù)”按鈕，則隨機(jī)產(chǎn)生20個(gè)一位整數(shù)，存入數(shù)組a中，并同時(shí)顯示在Text1中。 ②單擊“重新排列“按鈕，則重新排列數(shù)組a中的元素使等值的元素相鄰存放，并且保持它們?cè)跀?shù)組a中首次出現(xiàn)的相對(duì)次序；最后將排列結(jié)果顯示在Text2中。某一次運(yùn)行結(jié)果如圖所示。 請(qǐng)將“重新排列”按鈕的click事件過(guò)程中的注釋符去掉，把？改為正確內(nèi)容，以實(shí)現(xiàn)上述程序功能。 注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名存盤。
Option Base 1 Dim a(20) As Integer Private Sub Command1_Click() Randomize (1) Text1.Text = "" For i = 1 To 20 a(i) = Int(Rnd * 10) Text1.Text = Text1.Text + Str(a(i)) Next End Sub Private Sub Command2_Click() ' i = ? Do While i < 20 For j = i + 1 To 20 If a(i) = a(j) Then x = a(j) i = i + 1 For k = j To i + 1 Step -1 '本循環(huán)把下標(biāo)為i到j-1的元素向后移一個(gè)位置 ' a(k) = ? Next k ' a(i) = ? End If Next j i = i + 1 Loop Text2.Text = "" ' For i = 1 To ? Text2.Text = Text2.Text + Str(a(i)) Next i End Sub
|
