日韩精品系列在线,91天堂在线观看无码

相關(guān)推薦

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

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

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

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

　　(2)在名稱為Form1的窗體上畫兩個(gè)命令按鈕(見圖1)，其名稱分別為Cmd1和Cmd2，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊命令按鈕Cmd1則可使該按鈕移動(dòng)窗體的左上角(只允許通過修改屬性的方式實(shí)現(xiàn));如果單擊命令按鈕Cmd2，則可使該按鈕在長度和寬度上各擴(kuò)大到原來的2倍。

　　程序的運(yùn)行情況如圖2所示。

　　rivate Sub Cmd1_Click()

　　Cmd1.Left = 0

　　Cmd1.Top = 0

　　End Sub

　　Private Sub Cmd2_Click()

　　Cmd2.Width = Cmd2.Width * 2

　　Cmd2.Height = Cmd2.Height * 2

　　End Sub

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt21.vbp，相應(yīng)的窗體文件為sjt21.frm。其功能是產(chǎn)生30個(gè)0～1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出其中的最大值。程序運(yùn)行后，單擊命令按鈕(名稱為Command1，標(biāo)題為“輸出最大值”，如圖所示)，即可求出其最大值，并在窗體上顯示出來。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arrN(30) As Integer

　　Dim Max As Integer

　　Randomize

　　For i = 1 To 30

　　arrN(i) = Int(Rnd * 1001)

　　Next i

　　Max = arrN(1)

　　For i = 2 To 30

　　If Max < arrN(i) Then

　　Max = arrN(i)

　　End If

　　Next i

　　Print Max

　　End Sub

　　(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp，相應(yīng)的窗體文件為sjt22.frm，在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)能被5整除或能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被5整除或能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。

　　Sub SaveData()

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

　　Print #1, Text1.Text

　　Close #1

　　End Sub

　　Function Fun()

　　Dim i As Integer '循環(huán)變量

　　Dim num As Integer '存放符合條件總數(shù)

　　num = 0

　　For i = 0 To 1000

　　If i Mod 5 = 0 Or i Mod 7 = 0 Then

　　num = num + 1

　　End If

　　Next i

　　Fun = num

　　End Function

　　Private Sub Command1_Click()

　　d = Fun()

　　Text1.Text = d

　　SaveData

　　End Sub

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

　　在考生文件夾下有一個(gè)工程文件sjt31.vbp，相應(yīng)的窗體文件為sjt31.frm，此外還有一個(gè)名為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 80 59 37

　　程序運(yùn)行后，單擊窗體，將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5列的矩陣形式顯示出來，并輸出矩陣左上-右下對(duì)角線上的數(shù)據(jù)，如圖所示。在窗體的代碼窗口中，已給出了部分程序，這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　Option Base 1

　　Private Sub Form_Click()

　　Const N = 5

　　Const M = 5

　　Dim Mat(N, M) As Integer

　　Dim i, j

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

　　For i = 1 To N

　　For j = 1 To M

　　Input #1, Mat(i, j)

　　Next j

　　Next i