程序填空

Option Explicit

'

'【程序说明】下列程序用来在窗体上输出如图4-1所示的数据。

'

'注意：不要删除'******* FILL ******，否则影响评分成绩

'去掉__________，填写代码。

'

Private Sub Form_Click()

Dim a(5, 5) As Byte, i As Byte, j As Byte

For i = 1 To 5

For j = 1 To 6 - i

'**********FILL**********

a(i, j) = i + j - 1

Next j, i

For i = 2 To 5

'**********FILL**********

For j = 7 - i To 5

a(i, j) = j + i - 6

Next j, i

For i = 1 To 5

For j = 1 To 5

Print a(i, j);

Next j

'**********FILL**********

Print

Next i

End Sub

Option Explicit

'

'【程序说明】下面是一段计算数学表达式的程序。

'

'注意：不要删除'******* FILL ******，否则影响评分成绩

'去掉__________，填写代码。

'

Private Sub Form_Click()

Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integer

n = InputBox("请输入N的值:")

s = 0: p = -1: q = 1

For i = 1 To n

'**********FILL********** p = -p: q = q * i

'**********FILL**********

s = s + p * i / q

'**********FILL**********

Next i

Print s

End Sub

Option Explicit

Private Sub Command1_Click()

Dim a() As Byte, i As Integer, j As Integer, s As String

Dim n As Integer

n = Val(Text1)

ReDim a(n)

a(1) = 1 '计算并打印第一个数

Picture1.Print Trim(Str(a(1)))

For i = 2 To n '计算其余行的数并打印

'**********FILL**********

a(i) = a(i - 1)

For j = j - 1 To 2 Step -1

'**********FILL**********

a(j) = a(j) + a(j - 1)

Next j

For j = 1 To i

s = Trim(Str(a(j)))

Picture1.Print s + Space(Int((4 - Len(s)) / 2 + 0.5));

Next j

'**********FILL**********

Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

'**********FILL**********

Picture1.Cls

End Sub

Option Explicit

Dim A(3, 3) As Integer, B(3, 3) As Integer, C(3, 3) As Integer

Private Sub Command1_Click()

Dim i%, j%

Picture1.Cls

For i = 0 To 3

For j = 0 To 3

'**********FILL**********

A(i, j) = Int(Rnd * 41 + 30)

Picture1.Print A(i, j);

Next j

Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

Dim i%, j%

Picture2.Cls

For i = 0 To 3

For j = 0 To 3

'**********FILL**********

B(i, j) = Int(Rnd * 35 + 101)

Picture2.Print B(i, j);

Next j

Picture2.Print

Next i

End Sub

Private Sub Command3_Click()

Dim i%, j%

Picture3.Cls

For i = 0 To 3

For j = 0 To 3

'**********FILL**********

C(i, j) = A(i, j) + B(i, j)

Picture3.Print C(i, j);

Next j

Picture3.Print

Next i

End Sub

Private Sub Command4_Click()

Dim D%(3, 3), i%, j%

Picture4.Cls

For i = 0 To 3 For j = 0 To 3

'**********FILL**********

D(i, j) = A(j, i)

Picture4.Print D(i, j);

Next j

Picture4.Print

Next i

End Sub

Private Sub Command5_Click()

Dim i%, j%, max%, n1%, n2%

max = C(0, 0)

n1 = 0

n2 = 0

Picture5.Cls

For i = 0 To 3

For j = 0 To 3

If C(i, j) > max Then

'**********FILL**********

max = C(i, j)

'**********FILL**********

n1 = i

'**********FILL**********

n2 = j

End If

Next j

Next i

Picture5.Print "最大值为：" & max; "，下标为：C("; n1; ","; n2; ")"

End Sub

Option Explicit

Private Sub Command1_Click()

Dim a(1 To 26) As Integer, c As String * 1, col As Integer

Dim le As String, i%, j%

Picture1.Cls

le = Len(Text1) '求字符串的长度

For i = 1 To le

'**********FILL**********

c = Ucase(Mid(Text1, i, 1))

If c >= "A" And c <= "Z" Then

j = Asc(c) - 65 + 1 '将A~Z大写字母转换成1~26的下标 '**********FILL**********

a(j) = a(j) + 1

End If

Next i

For j = 1 To 26 '输出字母及其出现的次数

If a(j) > 0 Then

'**********FILL**********

Picture1.Print " "; Chr$(j + 64); "="; a(j);

'**********FILL**********

col = col + 1

'**********FILL**********

If col Mod 8 = 0 Then Picture1.Print

End If

Next j

End Sub

Option Explicit

'

'【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，

' 再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

'

'注意：不要删除'******* FILL ******，否则影响评分成绩

'去掉__________，填写代码。

'

Private Sub Form_Click()

Dim a(30) As Byte, i As Byte, j As Byte, m As Byte

'**********FILL**********

For i = 1 To 30: a(i) = 10 + Int(Rnd * 90): Next i

For i = 1 To 29

'**********FILL**********

For j = i + 1 To 30

If a(i) > a(j) Then

'**********FILL**********

m = a(i): a(i) = a(j): a(j) = m

End If

Next j, i

For i = 1 To 30

'**********FILL**********

If a(i) Mod 2 = 1 Then Print a(i);

Next i