奶头挺立呻吟高潮av全片,成人试看120秒体验区,性欧美极品v,A片高潮抽搐揉捏奶头视频

計算機(jī)等級

計算機(jī)二級vb試題及答案

時間:2024-07-03 20:15:04 計算機(jī)等級 我要投稿

2016年計算機(jī)二級vb試題及答案

  為幫助同學(xué)們更好復(fù)習(xí)九月的計算機(jī)等級考試,yjbys小編為大家分享最新計算機(jī)vb考試試題及答案如下,快來瞧瞧吧!

2016年計算機(jī)二級vb試題及答案

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

  (1)在名稱為Form1的窗體上畫一個標(biāo)簽,其名稱為Label1,標(biāo)題為“等級考試”,BorderStyle屬性為1,可以根據(jù)標(biāo)題自動調(diào)整大小;然后再畫一個命令按鈕,其名稱和標(biāo)題均為Command1,編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后,其界面如圖1所示,此時如果單擊命令按鈕,則標(biāo)簽消失,同時用標(biāo)簽的標(biāo)題作為命令按鈕的標(biāo)題,如圖2所示。

  注意:

  存盤時必須存放在考生文件夾下,工程文件名為sjt11.vbp,窗體文件名為sjt11.frm。

  Private Sub Command1_Click()

  Command1.Caption = Label1

  Label1.Visible = False

  End Sub

  (2)在名稱為Form1的窗體上畫兩個文本框,名稱分別為Text1、Text2,再畫兩個命令按鈕,名稱分別為Command1、Command2,標(biāo)題分別為“復(fù)制”、“刪除”。程序運(yùn)行時,在Text1中輸入一串字符,并用鼠標(biāo)托拽的方法選擇幾個字符,然后單擊“復(fù)制”按鈕,則被選中的字符被復(fù)制到Text2中(如圖所示)。若單擊“刪除”按鈕,則被選擇的字符從Text1中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。

  注意: 要求程序中不得使用變量,事件過程中只能寫一條語句。

  存盤時必須存放在考生文件夾下,工程文件名為sjt12.vbp,窗體文件名為sjt12.frm。

  Private Sub Command1_Click()

  'Text2 = Text1.SelText

  '或

  Me.Text2.Text = Form1.Text1.SelText

  End Sub

  Private Sub Command2_Click()

  Form1.Text1.SelText = ""

  End Sub

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

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

  要求: 1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕筎ext1、Text2中數(shù)據(jù)右對齊;

  2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù)),選擇組合框中的一個項目,單擊“計算”按鈕,則根據(jù)所選擇的項目,計算出相應(yīng)的正弦、余弦值(保留3位小數(shù),第4位截去,π取3.14159),并顯示在Text2中。

  注意: 考生不得修改窗體文件中已經(jīng)存在的程序,在結(jié)束程序運(yùn)行之前,必須進(jìn)行一種計算;在Text1中輸入的必須是40;必須用窗體右上角的關(guān)閉按鈕結(jié)束程序,否則無成績。最后,按原文件名存盤。

  Private Sub Command1_Click()

  Const PI = 3.14159

  Select Case Combo1.Text

  Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)

  Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)

  Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)

  Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)

  ' Case "tg": a = Sin(CInt(Text1.Text) * PI / 180) / Cos(CInt(Text1.Text) * PI / 180)

  ' Case "ctg": a = Cos(CInt(Text1.Text) * PI / 180) / Sin(CInt(Text1.Text) * PI / 180)

  End Select

  Text2 = Int(a * 1000) / 1000

  End Sub

  Private Sub Form_Unload(Cancel As Integer)

  Call mysub

  End Sub

  Sub mysub()

  Open "out3.txt" For Output As #1

  Print #1, Form1.Combo1.Text, Form1.Text1.Text, Form1.Text2.Text

  Close #1

  End Sub

  (2)在考生文件夾下有一個工程文件sjt22.vbp,窗體上已經(jīng)畫出所有控件。程序的作用是構(gòu)成一個簡單的時鐘。剛運(yùn)行時,不計時,選擇一個單選按鈕后,再單擊“計時”按鈕,則開始計時,并根據(jù)所選的單選按鈕決定是每秒顯示一次秒數(shù),還是每10秒顯示一次秒數(shù)。Text2用于顯示秒,如圖所示。窗體文件中已經(jīng)給出了程序,但不完整,請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。

  Dim num

  Private Sub Command1_Click()

  Timer1.Enabled = True

  End Sub

  Private Sub Timer1_Timer()

  num = num + 1

  ' num = ?

  If num < 60 Then

  If Option1.Value = True Then

  Text2.Text = num

  Else

  If (num / 10 = CInt(Int(num / 10))) Then

  Text2.Text = Text2.Text + 10

  ' Text2.Text = Text2.Text + ?

  End If

  End If

  Else

  Text2.Text = 0

  num = 0

  Text1.Text = Text1.Text + 1

  ' Text1.Text = Text1.Text + ?

  End If

  End Sub

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

  在考生文件夾下有一個工程文件sjt5.vbp,其名稱為Form1的窗體上已有三個文本框Text1、Text2、Text3,以及程序。請完成以下工作:

  1)在屬性窗口中修改Text3的適當(dāng)屬性,使其在運(yùn)行時不顯示,窗體如圖所示;

  2)建立下拉式菜單,如下表所示:

 

標(biāo)題

 

名稱

 

編輯

 

Edit

 

剪切

 

Cut

 

復(fù)制

 

Copy

 

粘貼

 

Paste

  3)窗體文件中給出了所有事件過程,但不完整,請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。以便實現(xiàn)以下功能:當(dāng)光標(biāo)所在的文本框中無內(nèi)容時,“剪切”、“復(fù)制”不可用,否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中;若Text3中無內(nèi)容,則“粘貼”不能用,否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。

  Dim which As Integer

  Private Sub copy_Click()

  If which = 1 Then

  Text3.Text = Text1.Text

  ElseIf which = 2 Then

  Text3.Text = Text2.Text

  End If

  End Sub

  Private Sub cut_Click()

  If which = 1 Then

  Text3.Text = Text1.Text

  Text1.Text = ""

  ElseIf which = 2 Then

  Text3.Text = Text2.Text

  Text2.Text = ""

  End If

  End Sub

  Private Sub edit_Click()

  If which = 1 Then

  ' If which = ? Then

  If Text1.Text = "" Then

  cut.Enabled = False

  copy.Enabled = False

  Else

  cut.Enabled = True

  copy.Enabled = True

  End If

  ElseIf which = 2 Then

  ' ElseIf which = ? Then

  If Text2.Text = "" Then

  cut.Enabled = False

  copy.Enabled = False

  Else

  cut.Enabled = True

  copy.Enabled = True

  End If

  End If

  If Text3.Text = "" Then

  paste.Enabled = False

  Else

  paste.Enabled = True

  End If

  End Sub

  Private Sub paste_Click()

  If which = 1 Then

  Text1.Text = Text1 + Text3.Text

  ' Text1.Text = ?

  ElseIf which = 2 Then

  Text2.Text = Text2 + Text3.Text

  ' Text2.Text = ?

  End If

  End Sub

  Private Sub Text1_GotFocus() '本過程的作用是:當(dāng)焦點在Text1中時,which = 1

  which = 1

  End Sub

  Private Sub Text2_GotFocus() '本過程的作用是:當(dāng)焦點在Text2中時,which = 2

  which = 2

  End Sub

  Private Sub Text3_Change()

  End Sub


更多計算機(jī)二級相關(guān)試題推薦:

1.2016計算機(jī)二級VB考試試題

2.2016年計算機(jī)二級VB考試沖刺題(含答案)

3.2016年計算機(jī)二級考試vb題庫及答案

4.2016年計算機(jī)二級vb試題及答案

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

6.2016年計算機(jī)二級《VB》備考練習(xí)題及答案

7.2016年全國計算機(jī)二級vb考試題庫及答案

8.2016年計算機(jī)二級VB模擬試題及答案

9.2016年計算機(jī)二級vb試題庫

10.2016年計算機(jī)二級vb試題庫及答案

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

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

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

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

2017計算機(jī)二級VB考試試題07-17

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

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

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

計算機(jī)二級office試題及答案07-12

2016年計算機(jī)二級vb考試試題06-22

2017年計算機(jī)二級VB考試試題07-05

主站蜘蛛池模板: 阜平县| 山阴县| 汪清县| 察雅县| 芦溪县| 丹巴县| 满城县| 沽源县| 信阳市| 华坪县| 阜南县| 上林县| 乡城县| 清原| 大同市| 报价| 东辽县| 沂水县| 新乡县| 湖北省| 库伦旗| 宝清县| 凌源市| 抚远县| 海城市| 逊克县| 民勤县| 壤塘县| 雷波县| 永善县| 北海市| 乐陵市| 南投市| 六枝特区| 丽江市| 石台县| 台东市| 云梦县| 余姚市| 佛教| 紫金县|