随机生成10个三位整数 显示在列表框list1中；求其中的最大值和最大值所在的位置分别显示在文本框text1，text2中
求大神有没有会的这个该咋写老师留了作业结果不会做

不能沉啊QAQ

你什么地方不会？
1.启动VB
2.随机生成整数
3.显示在列表框中
4.求最大值
5.显示在文本框中

都不太行

随机生成整数哪里就有点卡住了，定义为a的话取值不知道该怎么办

Dim i As Integer '循环变量
Dim k As Integer 'k是数组最大值所在位置
Dim max As Integer 'max是最大值
Dim a
a = ？
For i = 1 To 10
If max < a(i) Then
max = a(i)
k = i
End If
Next i
Text1.Text = max
Text2.Text = k

我不知道我这样对不对，感觉不太对劲，a的具体取值我也没太弄明白

显示在列表框list1中
list1.additem a（i）

dim a
最好写成
dim a（10）as integer

在for之前，最好给max一个小于10个数中最小的那个的值，因为
①你这题dim max……正好初始化为0，从而小于100.但在更换了题目范围后，就不一定正确。
②小于最小的那个，可以保证取到最大值。如果稍大于最小的，在低概率下，所有数据都不大于这个假定，会导致mark无值而为0、max也不是数组中的数。

其他的大概没有毛病。
另以后提问，向后面这样就差不多
向前面那样，就……

楼楼西科大的么？

Dim i As Integer '　循环变量
Dim k As Integer '　k是最大值所在位置
Dim nMax As Integer '　nMax是最大值
Dim a(1 To 10) As Integer
nMax = 0: k = 1
List1.Clear '　清空列表框
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 900) + 100)
If nMax < a(i) Then
nMax = a(i): k = i
End If
List1.AddItem CStr(a(i)) '　在列表框中添加一行数据
Next
Text1.Text = CStr(nMax)
Text2.Text = CStr(k)

西科大无疑了,我做不来,然后就搜到你了