亚洲精品中文字幕无乱码_久久亚洲精品无码AV大片_最新国产免费Av网址_国产精品3级片

計算機等級

最新計算機二級vb考試試題及答案

時間:2024-08-23 06:04:36 計算機等級 我要投稿
  • 相關(guān)推薦

2016最新計算機二級vb考試試題及答案

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

2016最新計算機二級vb考試試題及答案

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

  (2)在名稱為Form1的窗體上畫一個圖片框(名稱為Picture1)、一個水平滾動條(名稱為HScroll1)和一個命令按鈕(名稱為Command1,標(biāo)題為“設(shè)置屬性”),通過屬性窗口在圖片框中裝入一個圖形(文件名為pic1.jpg,位于考生目錄下),圖片框的高度與圖形的高度相同,圖片框的寬度任意(如圖1所示)。編寫適當(dāng)?shù)氖录^程,程序運行后,如果單擊命令按鈕,則設(shè)置水平滾動條的如下屬性:

  Min 100

  Max 1500

  LargeChange 100

  SmallChange 10

  之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。運行后的窗體如圖2所示。程序中不得使用任何變量。

  Private Sub Command1_Click()

  HScroll1.Min = 100

  HScroll1.Max = 1500

  HScroll1.LargeChange = 100

  HScroll1.SmallChange = 10

  End Sub

  Private Sub HScroll1_Change()

  Picture1.Width = HScroll1.Value

  End Sub

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

  (1)在名稱為Form1的窗體上畫一個計時器,其名稱為Timer1;再畫一個圖像框,其名稱為Image1,在該圖像框中裝入一個圖形文件pic.ico;然后畫一個水平滾動條,其名稱為HScroll1,Min屬性值為100,Max屬性值為1200,LargeChange屬性值為100,SmallChange屬性值為25,編寫適當(dāng)?shù)氖录^程。程序運行后,可以使圖像框閃爍,其閃爍速度可以通過滾動條調(diào)節(jié)。

  提示:圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實現(xiàn)。

  Private Sub HScroll1_Change()

  Timer1.Interval = HScroll1.Value

  End Sub

  Private Sub Timer1_Timer()

  Image1.Visible = Not Image1.Visible

  End Sub

  (2)在考生目錄下有一個工程文件sjt22.vbp,包含了所有控件和部分程序,如圖所示。

  要求:1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕?/p>

  為List1列表框添加3個項目:宋體、黑體、楷體_GB2312;Text1文本框設(shè)置初始值為“計算機”;Hscroll1水平滾動條設(shè)置最小值和最大值分別為10和50。

  2)去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,完成以下功能:如果在列表框中選擇一種字體,然后移動滾動條中的滾動框,則可使文本框中的文字按所選擇的字體顯示,并可隨著滾動框的移動放大或縮小;如果不選擇字體直接移動滾動框,則顯示一個信息框,提示“請選擇字體”。

  注意:去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其實現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

  Private Sub HScroll1_Change()

  Text1.FontSize = HScroll1.Value

  ' Text1.FontSize = ?

  If List1.Text <> "" Then

  Text1.FontName = List1.Text

  ' Text1.FontName = ?

  Else

  MsgBox "請選擇字體", , ""

  End If

  End Sub

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

  在考生目錄下有一個工程文件sjt31.vbp,其中的窗體中有一個名為Text1的文本框,初始內(nèi)容為0;一個標(biāo)簽;一個計時器;一個有兩個元素的單選按鈕數(shù)組,名稱為Op1,標(biāo)題依次為“1秒”、“3秒”;兩個命令按鈕,名稱分別為C1、C2,標(biāo)題分別為“開始計數(shù)”、“停止計數(shù)”,同時給出了兩個事件過程,但并不完整。在運行時要完成下面的功能:

  單擊一個單選按鈕,可以設(shè)置計時間隔為1秒或3秒;單擊“開始計數(shù)”,則Text1中的數(shù)按設(shè)定的計時間隔每次加1;單擊“停止計數(shù)”,則Text1中的數(shù)不再變化。

  請按下面的要求設(shè)置屬性和編寫程序,以便實現(xiàn)上述功能:

  1)設(shè)置計時器的屬性,使其在初始狀態(tài)下不計時。

  2)去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。

  3)為兩個命令按鈕編寫適當(dāng)?shù)氖录^程,每個事件過程中只能有一條語句,不能使用變量。

  '要求考生編寫的程序:

  Private Sub C1_Click()

  Form1.Timer1.Enabled = True

  '或 Timer1.Enabled = 1 或非0值

  '在 Timer1的前面可以加:Me. 、Form1. 、C2.Parent.

  End Sub

  Private Sub C2_Click()

  Me.Timer1.Enabled = False

  '或 Timer1.Enabled = False

  '在 Timer1的前面可以加:Me. 、Form1. 、C3.Parent.

  End Sub

  '提供給考生的程序:

  Private Sub Op1_Click(Index As Integer)

  ' Select Case ?

  Select Case Index

  Case 0

  Timer1.Interval = 1000

  Case 1

  Timer1.Interval = 3000

  End Select

  End Sub

  Private Sub Timer1_Timer()

  ' Text1.Text = ?.Text + 1

  Me.Text1.Text = Form1.Text1.Text + 1

  End Sub

  '答案:

  'Index

  'Text1

【最新計算機二級vb考試試題及答案】相關(guān)文章:

計算機等級考試二級VB模擬試題及答案09-18

2017計算機等級考試vb二級試題及答案10-09

2017年計算機二級VB考試試題及答案09-26

2017計算機二級VB考試試題07-17

2016年9月計算機二級vb考試試題及答案07-17

2024年9月計算機二級VB考試試題及答案09-04

2016下半年計算機二級vb考試試題及答案07-27

2017最新計算機二級考試C++試題及答案08-24

2016年計算機二級vb考試試題06-22

2017年計算機二級VB考試試題07-05