填空題
隨機(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>
2015年全國(guó)職稱計(jì)算機(jī)考試教材(2007模 .. 定價(jià):¥225 優(yōu)惠價(jià):¥213 更多書籍 | |
全國(guó)職稱計(jì)算機(jī)考試速成過(guò)關(guān)系列套裝:W .. 定價(jià):¥133 優(yōu)惠價(jià):¥133.0 更多書籍 |