VB程序改错.docxVIP

.Option ExplicitDim a(19) As IntegerPrivate Sub Command1_Click() Randomize Dim i% Picture1.Cls Picture2.Cls For i = 0 To 19 **********FILL**********a(i) = Int(Rnd * 101) Picture1.Print a(i); **********FILL********** If (i + 1) Mod 10 = 0 Then Picture1.Print Next iEnd SubPrivate Sub Command2_Click() Dim i% Dim s1%, s2%, s3%, s4%, s5% Picture2.Cls For i = 0 To 19 **********FILL********** If a(i) = 0 And a(i) = 59 Then s1 = s1 + 1 **********FILL********** If a(i) = 60 And a(i) =69 Then s2 = s2 + 1 **********FILL********** If a(i) = 70 And a(i) = 79 Then s3 = s3 + 1 **********FILL********** If a(i) = 80 And a(i) = 89 Then s4 = s4 + 1 **********FILL********** If a(i) = 90 Then s5 = s5 + 1NextPicture2.Print 0-59的有: s1 人 Picture2.Print 60-69的有: s2 人 Picture2.Print 70-79的有: s3 人 Picture2.Print 80-89的有: s4 人 Picture2.Print 90-100的有: s5 人End Sub------------------------------------------------ 【程序改错】------------------------------------------------题目：下面程序可输出如下图形： * *** ***** ******* *********------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integern = 4m = 1s = *For i = 5 To 1 Step -1 **********ERROR**********Print Spc(n) ; For j = 1 To 2 * m - 1 Print s; Next j Print **********ERROR**********n = n - 1 **********ERROR**********m = m + 1Next iEnd SubOption ExplicitPrivate Sub Form_Click() Dim i% For i = 1 To 5 Print Tab(3 * i); ★; String(17 - 3 * i, ☆); ★ Next i Print Tab(18); ☆ For i = 5 To 1 Step -1 Print Tab(3 * i); ☆; String(17 - 3 * i, ★); ☆ Next iEnd SubOption Explicit【程序说明】下面是一段计算数学表达式的程序。注意：不要删除******* FILL ******，否则影响评分成绩去掉__________，填写代码。Private Sub Form_Click() Dim n As Integer, p As Integer, s As Single, q As Integer, i As Intege