国产特级毛片视频,亚洲人成电影网久久影视

相關(guān)推薦

2016計(jì)算機(jī)二級(jí)考試vb復(fù)習(xí)試題及答案

　　今年第二次計(jì)算機(jī)等級(jí)考試即將開始了，yjbys為幫助大家鞏固vb基礎(chǔ)知識(shí)，下面為大家分享的是計(jì)算機(jī)等級(jí)考試vb復(fù)習(xí)試題，同學(xué)們趕緊來學(xué)習(xí)吧!

2016計(jì)算機(jī)二級(jí)考試vb復(fù)習(xí)試題及答案

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

　　(1)在名稱為Form1標(biāo)題為“選課”的窗體上畫一個(gè)復(fù)選框數(shù)組，名稱為CH1，共有四個(gè)復(fù)選框，按順序其標(biāo)題分別是“數(shù)學(xué)”、“語文”、“外語”、“計(jì)算機(jī)”，其中“語文”、“計(jì)算機(jī)”復(fù)選框處在選中狀態(tài)下，運(yùn)行時(shí)的窗體如圖所示。請畫控件并設(shè)置相應(yīng)屬性。

　　(2)在名稱為Form1的窗體上畫兩個(gè)文本框，名稱分別為Text1和Text2，均無初始內(nèi)容;再建立一個(gè)下拉菜單，菜單標(biāo)題為“操作”，名稱為M1，此菜單下含有兩個(gè)菜單項(xiàng)，名稱分別為Copy和Clear，標(biāo)題分別為“復(fù)制”、“清除”，請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊“復(fù)制”菜單項(xiàng)，則把Text1中的內(nèi)容復(fù)制到Text2中，單擊“清除”菜單項(xiàng)，則清除Text2中的內(nèi)容(即在Text2中填入空字符串)。運(yùn)行時(shí)的窗體如圖所示。要求在程序中不得使用任何變量，每個(gè)事件過程中只能寫一條語句。

　　Private Sub clear_Click()

　　Text2.Text = ""

　　'或 Me.Text2.Text = ""

　　'或 Form1.Text2.Text = ""

　　End Sub

　　Private Sub copy_Click()

　　Text2.Text = Text1.Text

　　'或 Me.Text2.Text = Text1.Text Text1.Text前可以加Me或Form1

　　'或 Form1.Text2.Text = Text1.Text Text1.Text前可以加Me或Form1

　　End Sub

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

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

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arrN(20) As Integer

　　Dim Aver As Single

　　Dim Sum As Integer

　　Randomize

　　For i = 1 To 20

　　'arrN(i) = ?

　　arrN(i) = Int(Rnd * 1000)

　　'或arrN(i) = Fix(Rnd * 1000)

　　Next i

　　'Sum = ?

　　Sum = 0

　　For i = 1 To 20

　　'Sum = ?

　　Sum = Sum + arrN(i)

　　Next i

　　'Aver = ?

　　Aver = Sum / 20

　　Print Aver

　　End Sub

　　(2)在考生目錄下有一個(gè)工程文件sjt22.vbp，窗體中的兩個(gè)滾動(dòng)條分別表示紅燈亮和綠燈亮的時(shí)間(秒)，移動(dòng)滾動(dòng)框可以調(diào)節(jié)時(shí)間，調(diào)節(jié)范圍為1-10秒。剛運(yùn)行時(shí)，紅燈亮。單擊“開始”按鈕則開始切換：紅燈到時(shí)后自動(dòng)變?yōu)辄S燈，1秒后變?yōu)榫G燈;綠燈到時(shí)后自動(dòng)變?yōu)辄S燈，1秒后變?yōu)榧t燈，如此切換(如圖所示)。

　　所提供的窗體文件已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。

　　提示：在三個(gè)圖片框picture1、picture2、picture3中分別放置了紅燈亮、綠燈亮、黃燈亮的圖標(biāo)，并重疊在一起，當(dāng)要使某個(gè)燈亮?xí)r，就使相應(yīng)的圖片框可見，而其他圖片框不可見，并保持規(guī)定的時(shí)間，時(shí)間到就切換為另一個(gè)圖片框可見，其他圖片框不可見。

　　Dim red, green

　　Private Sub Command1_Click()

　　' ? = HScroll1.Value

　　red = HScroll1.Value

　　green = HScroll2.Value

　　' Timer1.Enabled = ?

　　Timer1.Enabled = True

　　End Sub

　　Private Sub Timer1_Timer()

　　If Picture1.Visible Then

　　red = red - 1

　　If red = 0 Then

　　Picture1.Visible = False

　　' ? .Visible = True

　　Form1.Picture3.Visible = True

　　End If

　　ElseIf Picture3.Visible Then

　　Picture3.Visible = False

　　If red = 0 Then

　　Picture2.Visible = True

　　red = HScroll1.Value

　　Else

　　Picture1.Visible = True

　　green = HScroll2.Value

　　End If

　　ElseIf Picture2.Visible Then

　　' green = ?

　　green = green - 1

　　If green = 0 Then

　　Picture2.Visible = False

　　Picture3.Visible = True

　　End If

　　End Sub

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

　　以下數(shù)列：1，1，3，5，9，15，25，41，…，的規(guī)律是從第3個(gè)數(shù)開始，每個(gè)數(shù)是它前面兩個(gè)數(shù)的和加1。

　　在考生目錄下有一個(gè)工程文件sjt31.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)以下功能：在Text1中輸入整數(shù)40，單擊“計(jì)算”按鈕，則在Text2中顯示該數(shù)列第40項(xiàng)的值。如果單擊“存盤”按鈕，則將計(jì)算的第40項(xiàng)的值存到考生目錄下的out5.txt文件中。(提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量)

　　注意：在結(jié)束程序運(yùn)行之前，必須單擊“存盤”按鈕，把結(jié)果存入out5.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。

　　Dim a(50) As Long

　　Private Sub Command1_Click()

　　Dim f As Long

　　a(1) = 1

　　a(2) = 1

　　For i = 3 To Val(Text1.Text)

　　f = a(i - 2) + a(i - 1) + 1

　　a(i) = f

　　Text2.Text = f

　　End Sub

　　Private Sub Command2_Click()