UC知道会Visual Basic的请进来下，小女子有求
来源：百度知道 编辑：UC知道 时间：2024/07/07 23:24:58
帮忙做这几道题，做完200分双手奉上
1.利用随机函数产生50-100范围内的20个随机数，显示其中的最大值、最小值和平均值。
2.编写程序打印下列图形（用循环语句实现）
* * * * *
* * * *
* * *
* *
*
3.在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组的默认下界？
4.已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。
Dim a（-1 to 2，3）As Single
1.利用随机函数产生50-100范围内的20个随机数，显示其中的最大值、最小值和平均值。
2.编写程序打印下列图形（用循环语句实现）
* * * * *
* * * *
* * *
* *
*
3.在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组的默认下界？
4.已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。
Dim a（-1 to 2，3）As Single
'1.利用随机函数产生50-100范围内的20个随机数，显示其中的最大值、最小值和平均值。
Dim maxv As Long
Dim minv As Long
Dim v As Long
Dim count As Long
maxv = 0
minv = 100
Dim i As Long
For i = 1 To 20
v = CInt(Rnd * 51) + 50
'输出每一个50-100)之间的随机数
Debug.Print v & " ";
If v > maxv Then
maxv = v
End If
If v < minv Then
minv = v
End If
'累加
count = count + v
Next
Debug.Print ""
Debug.Print "最大值为："; maxv
Debug.Print "最小值为："; minv
Debug.Print "平均值为："; CInt(count / 20)
'2.编写程序打印下列图形（用循环语句实现）
'* * * * *
'* * * *
'* * *
'* *
'*
Dim i As Long
Dim j As Long
For i = 5 To 1 Step -1
For j = 1 To i
Debug.Print "*";
Next
Debug.Print vbCrLf;
Next
'