华南俳烁实业有限公司

考試首頁(yè) | 考試用書 | 培訓(xùn)課程 | 模擬考場(chǎng) | 考試論壇  
全國(guó)  |             |          |          |          |          |         
  當(dāng)前位置:計(jì)算機(jī)等級(jí) > 二級(jí)考試 > Visual Basic > VB模擬試題 > 文章內(nèi)容
  

全國(guó)計(jì)算機(jī)等級(jí)考試VB語(yǔ)言考試試題答案(23)

中華IT學(xué)院   【 】  [ 2016年3月24日 ]

填空題

隨機(jī)產(chǎn)生位學(xué)生的分?jǐn)?shù)(分?jǐn)?shù)范圍0~00),存放數(shù)組a中,以每分一個(gè)“*”顯示,如下圖(-)所示。

Private Sub form_Click()

Dim a%( To )

For i =  To

a(i) = _______【】______

Print _______【】_______

Next i

End Sub

輸出大小可變的正方形圖案,如圖.所示,最外圈是第一層,要求每層上用的數(shù)字與層數(shù)相同。

Option Base

Private Sub Form_Click()

Dim a()

n = InputBox("輸入 n")

ReDim a(n, n)

For i =  To (n + ) /

For j = i To n - i +

For k = i To n - i +

_______【】_______

Next k

Next j

Next i

For i =  To n

For j =  To n

_______【】_______

Next j

_______【】_______

Next i

End Sub

下面的程序是將輸入的一個(gè)數(shù)插入到按遞減的有序數(shù)列中,插入后使該序列仍有序。

Private Sub form_Click()

Dim a, i%, n%, m%

a = Array(, , , , , , , , , )

n = UBound(A)

ReDim _______【】_______

m = Val(InputBox("輸入插入的數(shù) n"))

For i = UBound(A) -  To 0 Step -

If m >= a(i) Then

_______【】_______

If i = 0 Then a(i) = m

Else

_______【】_______

Exit For

End If

Next i

For i = 0 To UBound(A)

Print a(i)

Next i

End Sub

冒泡排序程序如下,請(qǐng)?zhí)羁铡?

Private Sub Form_Click()

Dim a, i%, n%, j%

a = Array(, , , , , , , , )

n = UBound(A)

For i = 0 To n -

For j = 0 To n -  - i

If a(j) > a(j + ) Then

_______【】_______

_______【0】_______

a(j + ) = t

End If

Next j

Next i

For i = 0 To UBound(A)

Print a(i)

Next i

End Sub

.在窗體上畫一個(gè)名稱為“Command”的命令按鈕,然后編寫如下事件過(guò)程:
Private Sub Command_Click()

Dim a As String

a = ""

For i =  To

Print Space( - i); Mid$(a, _【】__ ,  * i - )

Next i
End Sub
程序運(yùn)行后,單擊命令按鈕,窗體上的輸出結(jié)果是:

請(qǐng)?zhí)羁铡?/P>

.以下程序段產(chǎn)生00個(gè)~之間的隨機(jī)整數(shù),并進(jìn)行統(tǒng)計(jì)。數(shù)組元素S(i)(i=,,,)的值表示等于i的隨機(jī)數(shù)的個(gè)數(shù),要求輸出如下格式:
S()=. . .
S()=. . .
S()=. . .
S()=. . .
將程序補(bǔ)充完整。
Dim S() As Integer
Randomize
For I= To 00
X=Int(Rnd * +)
S(X)=S(X)+
Next I
For I= To
_【】___
Next I

.以下程序代碼將任意一組數(shù)存入數(shù)組,從鍵盤接收一數(shù)據(jù),將其插入數(shù)組中,插入的位置也從鍵盤接收。
Dim A( )
Private Sub Form_Click( )
N=InputBox("數(shù)據(jù)個(gè)數(shù):")
N=N+
&, nbsp; __【】__
For I=To N-
A(I)=Val(InputBox("原數(shù)據(jù):"))
Next I
D=Val(InputBox("插入的數(shù)據(jù):"))
P=Val(InputBox("插入的位置:"))
Do While P>N Or P<
MsgBox"位置越界!"
P=Val(InputBox("插入的位置:"))
Loop
For I=N To P+ Step -

A(I)=A(I-)

Next I

A(P)=D

For I= To N

Text.Text=Text.Text & Str(A(I))&""

Next I
End Sub

.設(shè)在窗體上有一個(gè)文本框Text,一個(gè)標(biāo)簽數(shù)組Label,共有0個(gè)標(biāo)簽,以下程序代碼實(shí)現(xiàn)在單擊任一個(gè)標(biāo)簽時(shí)將標(biāo)簽的內(nèi)容添加到文本框現(xiàn)有內(nèi)容之后。
Private Sub Labell_Click(Index As Integer)
Text.Text=_【】___
End Sub

0.設(shè)有如下程序

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 0 :b = 0

P a, b

p a, b

p a, b

Print "a=";a,"b=";b

End Sub

Sub p(x As Integer, ByVal y As Integer)

x = x + 0

y = y + 0

End Sub

Sub p(ByVal x As Integer, y As Integer)

x = x + 0

y = y + 0

End Sub

Sub p(ByVal x As Integer, ByVal y As Integer)

x = x + 0

y = y + 0

End Sub

該程序運(yùn)行后,單擊窗體,則在窗體上顯示的內(nèi)容是:a = _【】___和 b =__【】__。

.設(shè)有程序

Option Base

Private Sub Command_Click()

Dim arr,Max as Integer

arr=Array(,,,,,,,)

__【】___=arr()

For i= To

If arr(i)>Max Then_【0】_

Next i

Print"最大值是:";Max

End Sub
以上程序的功能是:用Array函數(shù)建立一個(gè)含有個(gè)元素的數(shù)組,然后查找并輸出該數(shù)組中元素的最大值。請(qǐng)?zhí)羁铡?/P>

12.設(shè)有如下程序:
Option Base
Private Sub Command_Click()
Dim arr
Dim Min As Integer,i As Integer
arr=Array(,,,-,,,,)
Min=__【】__
For i= To
If arr(i)【】___
Next i
Print "最小值是:";Min
End Sub
以上程序的功能是:用 Array 函數(shù)建立一個(gè)含有個(gè)元素的數(shù)組,然后查找并輸出該數(shù)組中各元素的最小值。請(qǐng)?zhí)羁铡?/P>

 

 

首頁(yè) 1 2 尾頁(yè)
分享到:
本文糾錯(cuò)】【告訴好友】【打印此文】【返回頂部
將考試網(wǎng)添加到收藏夾 | 每次上網(wǎng)自動(dòng)訪問(wèn)考試網(wǎng) | 復(fù)制本頁(yè)地址,傳給QQ/MSN上的好友 | 申請(qǐng)鏈接 | 意見(jiàn)留言 TOP
關(guān)于本站  網(wǎng)站聲明  廣告服務(wù)  聯(lián)系方式  站內(nèi)導(dǎo)航  考試論壇
Copyright © 2006-2017 中華考試網(wǎng)(Examw.com) All Rights Reserved  營(yíng)業(yè)執(zhí)照
昭平县| 塔河县| 二手房| 介休市| 海城市| 定襄县| 沁水县| 达拉特旗| 安图县| 彭水| 时尚| 武夷山市| 镇赉县| 东乡| 青龙| 方正县| 皮山县| 山阴县| 兰考县| 澄江县| 游戏| 巴林右旗| 开原市| 即墨市| 漯河市| 海安县| 定陶县| 玛沁县| 兴海县| 乌什县| 越西县| 鄢陵县| 秭归县| 广宗县| 仁化县| 抚松县| 龙门县| 都匀市| 二手房| 临夏县| 藁城市|