亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

填空題

隨機(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”的命令按鈕，然后編寫如下事件過程：
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>