特急！VB

来源：百度知道 编辑：UC知道 时间：2024/05/20 22:49:33
在窗体的load事件中生成100个[-100-100]之间的随机整数，显示于第一个文本框中text1中，用文本框text2输入某数，单击某按钮实现删除功能，如果该数不存在，则给出警告，否则将其从数组中删除，并用文本框text3显示删除后的数组。
删除那里不会做

可以给个全面的程序吗？？

如果text2中的数在数组中存在,我们赋给它一个小于-100的数,比如-1000,在text3中显示数组时,加一个语句:
if a(i)<-100 then 不显示.
如果你对上述方法不满意,那么当a(i)=val(Text2)时,就交换 a(i)与a(100),把a(i)调到最后,然后ReDim Preserve (UBound(a) - 1).
注意,要这样用的话,就要这样定义a数组:
Dim a()
Redim a(100)
才行,否则出错.

我的那个仙儿啊 不知道你要达到什么目的，但你可以将随机数组成数组，并以TextBox2中的数据与数组遍历比较，如有相同则删除，剩下的赋值给一个新的数组显示在TextBox3中就行了

很简单的题目啊，为什么不自己动动脑筋呢