UC知道用VB做出来 求X的值!很急.
来源：百度知道 编辑：UC知道 时间：2024/06/01 23:09:07
刚刚学语言.请知道的帮做下.小弟真的很急!
【练习7-4】在窗体的Load事件过程中生成100个[-100,100]之间的随机整数到某数组中，并显示于第一个文本框Test1中，用文本框Text2输入某数，单击某按钮实现删除功能，如果该数不在数组中，则给出警告，否则将其从数组中删除，并用文本框Text3显示删除后的数组元素。
【练习7-4】在窗体的Load事件过程中生成100个[-100,100]之间的随机整数到某数组中，并显示于第一个文本框Test1中，用文本框Text2输入某数，单击某按钮实现删除功能，如果该数不在数组中，则给出警告，否则将其从数组中删除，并用文本框Text3显示删除后的数组元素。
Dim n(199) As String
Private Sub Command1_Click()
m = Text2.Text
If InStr(1, Text1.Text, Text2.Text) = 0 Then
MsgBox "此数不在数组中"
Else
For i = 0 To 199
If m = n(i) Then
n(i) = ""
End If
If Len(n(i)) <> 0 Then
If i = 199 Then
s = s & n(i)
Else
s = s & n(i) & ","
End If
End If
Next
Text3.Text = s
End If
End Sub
Private Sub Form_Load()
For i = 0 To 199
n(i) = CStr(Fix(Rnd * 201) - 100)
If i = 199 Then
s = s & n(i)
Else
s = s & n(i) & ","
End If
Next
Text1.Text = s
End Sub