随机产生10个数字放到textbox里 vb代码

显示全部楼层 · 2007-11-6 21:38:32

Dim a(10) As IntegerDim min, max As IntegerPrivate Sub Command1_Click()Text1.Text = ""min = Val(InputBox("请输入产生数字的下限", , 0))max = Val(InputBox("请输入产生数字的上限", , 100))RandomizeFor i = 0 To 9a(i) = CInt(min + max * Rnd)Text1.Text = Text1.Text & CStr(a(i)) & ","Next iEnd SubPrivate Sub Command2_Click()Text1.Text = ""amin = maxFor i = 0 To 9If a(i)amin Then Text1.Text = Text1.Text & CStr(a(i)) & ","Next iEnd SubPrivate Sub Form_Load()Command1.Caption = "生成"Command2.Caption = "删除最小数"End Sub

千问 · 2007-11-6 21:38:32

一个text控件和一个command按钮Private Sub Command1_Click()Dim i%For i = 1 To 10RandomizeText1.Text = Text1.Text & CInt(100 * Rnd() + 1) & ","'调整100为10可得10范围内的随机数NextEnd Sub

千问 · 2007-11-6 21:38:32

Private Sub Command1_Click()Dim i%RandomizeText1 = ""For i = 1 To 10Text1 = Text1 & Int(Rnd * 100 + 1) & vbCrLfNextEnd SubPrivate Sub Command2_Click()Dim a$, b, Min%, i%Min = 1000a = Text1b = Split(a, vbCrLf)For i = 0 To UBound(b)If Len(b(i))0 ThenIf Val(b(i)) < Min Then Min = Val(b(i))End IfNexta = Join(b) & " "a = Replace(a, " " & CStr(Min) & " ", " ")Text1 = Join(Split(a, " "), vbCrLf)End Sub

随机产生10个数字 放到textbox里 vb代码

随机产生10个数字放到textbox里 vb代码