亚洲无码另类色,97碰碰碰人妻无码免费看

相關(guān)推薦

2016年9月計(jì)算機(jī)二級(jí)vb考試試題及答案

　　計(jì)算機(jī)等級(jí)考試9月24日就要開(kāi)始啦，同學(xué)們準(zhǔn)備好了嗎?下面yjbys小編為大家分享的是計(jì)算機(jī)等級(jí)考試vb復(fù)習(xí)試題，同學(xué)們趕緊來(lái)學(xué)習(xí)吧!

2016年9月計(jì)算機(jī)二級(jí)vb考試試題及答案

　　1.基本操作(2小題，每題15分，共計(jì)30分)

　　(1) 在名稱為Form1的窗體上畫(huà)一標(biāo)簽(名稱為L(zhǎng)abel1，標(biāo)題為空白，BorderStyle屬性為1，Visible屬性為False)、一個(gè)文本框(名稱為Text1，Text屬性為空白)和一個(gè)命令按鈕(名稱為Command1,標(biāo)題為“顯示”)，如圖1所示。然后編寫命令按鈕的Click事件過(guò)程。程序運(yùn)行后，在文本框中輸入“計(jì)算機(jī)等級(jí)考試”，然后單擊命令按鈕，則文本框消失，并在標(biāo)簽內(nèi)顯示文本框中的內(nèi)容，運(yùn)行后的窗體如圖2所示。要求程序中不得使用任何變量。

　　Private Sub Command1_Click()

　　Label1.Visible = True

　　Text1.Visible = False

　　Label1.Caption = Text1.Text

　　End Sub

　　(2)在名稱為Form1的窗體上畫(huà)一個(gè)文本框(名稱為Text1)和一個(gè)水平滾動(dòng)條(名稱為HScroll1)，如圖1所示。在屬性窗口中對(duì)滾動(dòng)條設(shè)置如下屬性：

　　Min 500

　　Max 2000

　　Largechange 50

　　Smallchange 20

　　編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果移動(dòng)滾動(dòng)條上的滾動(dòng)框，則可擴(kuò)大或縮小文本框的高度，并使得文本框的寬度始終是其高度的1.2倍。運(yùn)行后的窗體如圖2所示。要求程序中不得使用任何變量。

　　Private Sub HScroll1_Change()

　　Text1.Height = HScroll1.Value

　　Text1.Width = Text1.Height * 1.2

　　End Sub

　　2.簡(jiǎn)單應(yīng)用(2小題，每題20分，計(jì)40分)

　　(1)在考生文件夾下有一個(gè)工程文件sjt21.vbp，請(qǐng)?jiān)诖绑w上畫(huà)兩個(gè)單選按鈕(名稱分別為Option1Option2，標(biāo)題分別為“添加項(xiàng)目”和“刪除項(xiàng)目”)，一個(gè)列表框(名稱為L(zhǎng)ist1)和一個(gè)文本框(名稱為Text1)，如圖1所示。編寫窗體的Click事件過(guò)程。程序運(yùn)行后，如果選擇“添加項(xiàng)目”單擊按鈕，然后單擊窗體，則從鍵盤上輸入要添加的項(xiàng)目(內(nèi)容任意，不少于三個(gè))，并添加到列表框中;如果選擇“刪除項(xiàng)目”單選按鈕，然后單擊窗體，則從鍵盤上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除。程序的運(yùn)行情況如圖2所示。

　　在考生文件夾下有一個(gè)工程文件sjt21.vbp(相應(yīng)的窗體文件名為sjt21.frm)，可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。

　　Private Sub Form_Click()

　　If Option1.Value = True Then

　　Text1.Text = InputBox("請(qǐng)輸入要添加的項(xiàng)目")

　　List1.AddItem Text1.Text

　　End If

　　If Option2.Value = True Then

　　Text1.Text = InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)目")

　　For i = 0 To List1.ListCount - 1

　　If List1.List(i) = Text1.Text Then

　　List1.RemoveItem i

　　End If

　　Next i

　　End If

　　End Sub

　　(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp(相應(yīng)的窗體文件名為sjt22.frm)，其功能是通過(guò)調(diào)用過(guò)程Sort將數(shù)組按降序排序，請(qǐng)裝入該文件。程序運(yùn)行后，在四個(gè)文本框中各輸入一個(gè)整數(shù)(如圖1所示)，然后單擊命令按鈕，即可使數(shù)組按降序排序，并在文本框中顯示出來(lái)(如圖2所示)。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　Option Base 1

　　Private Sub Sort(a() As Integer)

　　Dim Start As Integer, Finish As Integer

　　Dim i As Integer, j As Integer, t As Integer

　　Start = LBound(a)

　　Finish = UBound(a)

　　For i = Finish To 2 Step -1

　　For j = 1 To i - Start

　　If a(j) < a(j + 1) Then

　　t = a(j + 1)

　　a(j + 1) = a(j)

　　a(j) = t

　　End If

　　Next j

　　Next i

　　End Sub

　　Private Sub Command1_Click()

　　Dim arr1

　　Dim arr2(4) As Integer

　　arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

　　For i = 1 To 4

　　arr2(i) = CInt(arr1(i))

　　Next i

　　Sort arr2()

　　Text1.Text = arr2(1)

　　Text2.Text = arr2(2)

　　Text3.Text = arr2(3)

　　Text4.Text = arr2(4)

　　End Sub

　　3.綜合應(yīng)用(1小題,計(jì)30分)

　　在窗體上建立三個(gè)菜單(名稱分別為Read、Calc和Save,分別為“讀入數(shù)據(jù)”、“計(jì)算并輸出”、和“存盤”)，然后畫(huà)一個(gè)文本框(名稱為Text1,MultiLine屬性設(shè)置為True,ScrollBars屬性設(shè)置為2)(如圖所示)。程序運(yùn)行后，如果執(zhí)行“讀入數(shù)據(jù)”命令，則讀入datain1.txt文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中，數(shù)組的下界為1;如果單擊“計(jì)算并輸出”按鈕，則把該數(shù)組中小于50的元素在文本框中顯示出來(lái)，求出它們的和，并把所求得的和在窗體上顯示出來(lái);如果單擊“存盤”按鈕，則把所求得的和存入考生文件夾下的dataout.txt文件中。

　　在考生文件夾下有一個(gè)工程文件sjt31.vbp，考生可以裝入該文件。窗體文件中的ReadData過(guò)程可以把datain1.txt文件中的100個(gè)整數(shù)讀入Arr數(shù)組中;而WriteData過(guò)程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中(整數(shù)值通過(guò)計(jì)算求得，文件名為dataout.txt)。

　　Option Base 1

　　Dim Arr(100) As Integer

　　Dim Sum As Integer '存儲(chǔ)累加和

　　Sub ReadData()

　　Open App.Path & "\" & "datain1.txt" For Input As #1

　　For i = 1 To 100

　　Input #1, Arr(i)

　　Next i

　　Close #1

　　End Sub

　　Sub WriteData(Filename As String, Num As Integer)

　　Open App.Path & "\" & Filename For Output As #1