4为数组随机赋5个数，并对其排序

5、最大值最小值平均值

答案：（1）x>max (2) x<min sum/10

6画图1
'删除程序中的①②③及下划线，
填空完成程序，运行程序使能
打印下面所示的图案。
'@
'@@
'@@@
'@@@@
'@@@@@
'@@@@@@

答案

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 6
Print Tab(10);
For j = 1 To i
Print "@";
Next j
Print
Next i
End Sub

7画图2
'删除①②③及下划线，
填上正确的代码，画出
如下所示的图形，请不
要更改原程序结构。
**********
**********
**********

**********

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To ___①____ Step 1
For j = 1 To ___②____ Step 1
Print ____③____ '打印符号*
Next j
Print '换行
Print Space(i) ; '打印空格
Next i
End Sub

答案: ① 4 ② 10 ③ “*” ;

8 画图3

9画图4

答案：（1）-1 （2）2*i-1 (3) next j

10求100以内偶数、奇数的和
'下面的程序是求100以内偶数和s的值（S=2+4+6+8...+100）,程序中有三处错误，请更正。
'注：请不要更改原程序结构。
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i = 2 To 100 Step 1 '有错的语句
s = s * i '有错的语句
Next i
Print "s=" & i '有错的语句
End Sub

答案:

第1处将1改为2

第2处将*改为+

第3处将i改为s

11购物优惠1

12购物优惠2

13求三角形面积