VB中生成20个数,求平均值的问题。

发布网友发布时间：2022-05-18 18:43

共4个回答

热心网友时间：2023-10-23 23:33

问题1：
Text1控件的MultiLine属性没有设为True，所以显示不了换行，其实只要把Text1.MultiLine=True就行了。

问题2：
Do While idx < 20 '由于是先判断再idx = idx + 1的，所以是到20时候停止循环，如果要用idx <= 20的话，idx会加到21才停止循环，这就多了一个。
For j = 1 To idx - 1
If k = a(j) Then Exit For
Next j '这三句是判断是否重复的，但是我认为不能用idx - 1，要不然有一个数没有查到，仍然会重复的。这个是程序错了。我测试时候发现有重复的数了。
If j > idx - 1 Then '意思是上面的检查是否重复的，如果重复了，则a(k)的值是重复的那个数，如果没有重复，则k的值会大于idx - 1(按照原程序的意思)

热心网友时间：2023-10-23 23:34

因为VB里数组的起始是0所以才定义Idx<20,因为这个程序是自动生成的数是随机的呵,不是人为的输入呵,

热心网友时间：2023-10-23 23:34

Text1.text = Text1.text & vbCrLf

热心网友时间：2023-10-23 23:35

你之所以看不懂这段程序
是因为写程序的高手抬高了
简易你自己写
别看他的
可以写的更简单易懂些