欧美日韩不卡一区二区三区,www.蜜臀.com,高清国产一区二区三区四区五区,欧美日韩三级视频,欧美性综合,精品国产91久久久久久,99a精品视频在线观看

試題

計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案

時(shí)間:2025-04-09 12:42:51 試題 我要投稿

2017年計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案

  為了幫助大家提高計(jì)算機(jī)考試成績(jī),今天百分網(wǎng)小編特地為大家收集了以下2017年計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案,歡迎學(xué)習(xí)!

2017年計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案

  1.與數(shù)學(xué)表達(dá)式ln(a+b)/(3x)+5 對(duì)應(yīng)的Visual Basic表達(dá)式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

  2.將C盤(pán)根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是【】

  3.在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框,然后畫(huà)三個(gè)單選按鈕,并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組,名稱為Option1,程序運(yùn)行后,如果單擊某個(gè)單選按鈕,則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

  Private Sub Option1_Click(Index As Integer)

  Select Case 【Index】

  Case 0

  a = "宋體"

  Case 1

  a = "黑體"

  Case 2

  a = "楷體_GB2312"

  End Select

  text1.fontname=a

  End Sub

  4.在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框,然后畫(huà)三個(gè)單選按鈕,并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組,名稱為Option1,程序運(yùn)行后,如果單擊某個(gè)單選按鈕,則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

  Private Sub Option1_Click(Index As Integer)

  Select Case index

  Case 0

  a = "宋體"

  Case 1

  a = "黑體"

  Case 2

  a = "楷體_GB2312"

  End Select

  text1.【fontname】=a

  End Sub

  5.在窗體上畫(huà)兩個(gè)組合框,其名稱分別為Combo1、Combo2,然后畫(huà)兩個(gè)標(biāo)簽,名稱分別為L(zhǎng)abel1、Label2。程序運(yùn)行后,如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目,則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。

  Private Sub Combo1_Click( )

  Call ShowItem(Combo1, Label1)

  End Sub

  Private Sub Combo2_Click( )

  Call ShowItem(Combo2, Label2)

  End Sub

  Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

  【tmplabel】.Caption =tmpCombo.Text

  End Sub

  6.在窗體上畫(huà)兩個(gè)組合框,其名稱分別為Combo1、Combo2,然后畫(huà)兩個(gè)標(biāo)簽,名稱分別為L(zhǎng)abel1、Label2,程序運(yùn)行后,如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目,則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。

  Private Sub Combo1_Click( )

  Call ShowItem(Combo1, Label1)

  End Sub

  Private Sub Combo2_Click( )

  Call ShowItem(Combo2, Label2)

  End Sub

  Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

  tmpLabel.Caption =【tmpcombo】.Text

  End Sub

  7.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:

  Private Sub Command1_Click( )

  n = 5

  f = 1

  s = 0

  For c = 1 To n

  f = f*【7】

  s = s + f

  Next c

  Print s

  End Sub

  該事件過(guò)程的功能是計(jì)算1!+2!+3!+…+n!的值。

  8.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下程序:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a(10) As Integer

  For I = 1 To 10

  a(I) = I

  Next I

  Call【swap】a( )

  For I = 1 To 10

  Print a(I);

  Next

  End Sub

  Sub swap(b( ) As Integer)

  n = ubound(b)

  For I = 1 To n / 2

  t = b(I)

  b(I) = b(n)

  b(n) = t

  n=n-1

  Next I

  End Sub

  上述程序的功能是,通過(guò)調(diào)用過(guò)程swap,調(diào)換數(shù)組中數(shù)值的存放位置,即a(1)與a(10)的值互換,a(2)與a(9)的值互換,……,a(5)與a(6)的值互換。

  9.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下程序:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a(10) As Integer

  For I = 1 To 10

  a(I) = I

  Next I

  Call swap(a( ))

  For I = 1 To 10

  Print a(I);

  Next

  End Sub

  Sub swap(b( ) As Integer)

  n =【ubound(b)】

  For I = 1 To n / 2

  t = b(I)

  b(I) = b(n)

  b(n) = t

  n=n-1

  Next I

  End Sub

  上述程序的功能是,通過(guò)調(diào)用過(guò)程swap,調(diào)換數(shù)組中數(shù)值的存放位置,即a(1)與a(10)的值互換,a(2)與a(9)的值互換,……,a(5)與a(6)的值互換。

  10.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下程序:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a(10) As Integer

  For I = 1 To 10

  a(I) = I

  Next I

  Call swap(a( ))

  For I = 1 To 10

  Print a(I);

  Next I

  End Sub

  Sub swap(b( ) As Integer)

  n = ubound(b)

  For I = 1 To n / 2

  t = b(I)

  b(I) = b(n)

  b(n) = t

  n=【n-1】

  Next I

  End Sub

【計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案】相關(guān)文章:

計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練題及答案08-11

2017計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練題及答案02-25

2017計(jì)算機(jī)二級(jí)《VB》考試基礎(chǔ)訓(xùn)練題及答案12-23

2017計(jì)算機(jī)二級(jí)《VB》考試提分訓(xùn)練題及答案07-07

計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練題07-17

計(jì)算機(jī)二級(jí)VB強(qiáng)化訓(xùn)練題及答案05-21

2017年計(jì)算機(jī)二級(jí)考試VB專(zhuān)項(xiàng)訓(xùn)練題及答案02-18

計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)訓(xùn)練題02-26

計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練試題及答案07-07