• 所有问题

    • VB问题，利用随机函数产生10个30到50范围内的随机数，并按从小到大顺序打印出来。

    请将下面红色问题处回答一下

    举报该问题
    推荐答案   2009-04-22
    1.for j=i+1 to 10
    2.swap a(i),a(j)
    3.a(10)
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2009-04-22
    给个文字版的吧
    相似回答
    VB编程:利用随机函数产生10个30到50范围内的随机数,显示他们的最大值...答：Private Sub Command1_Click()Dim a(10) As Integer Dim i, j, t, max, min As Integer Label1.Caption = ""Label2.Caption = ""sum = 0 For i = 0 To 9 a(i) = 20 * Rnd() + 30 Label1.Caption = Label1.Caption + vbCrLf + CStr(a(i))Next max = a(0): min = a...
    vb对随机产生10个数进行排序答：text1.text=""for i=1 to 10 text1.text=text1.text & a(i) & " " '随机数之间用空格隔开next'3---For i = 1 To 9 For j = 1 To 9 - i If a(j) > a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j) = t end if Next j Next i'上面3进行...
    vb编程题,用随机函数产生10个50以内包括50的随机整数存入一堆数组?_百 ...答：Private Sub Command1_Click()Dim a(10) As Integer Randomize Print "产生的随机数是："For i = 1 To 10 a(i) = Int(Rnd * 51)Print a(i);Next i Print x = CInt(InputBox("请输入要查找的数："))Print "要查找的数是："; x n = 0 For i = 1 To 10 If x = a(i) T...
    VB用随机函数产生50个【10-100】的随机整数,并按照从小到大的顺序打印...答：Dim A(50) As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 50A(i) = Int(Rnd * 90 + 10)Next iPicture1.ClsPicture1.Print "排序前数据："For i = 1 To 50Picture1.Print A(i);If i Mod 10 = 0 Then Picture1.PrintNextEnd SubPrivate Sub Command2_Click()For ...
    大家正在搜
    生成0到1之间的随机数的函数利用随机函数产生20个VBA产生随机数的函数具有产生随机数功能的函数是c语言产生0到1的随机数VB随机函数的应用产生0或1的随机数vb随机函数10～100用vb产生随机数
    相关问题
    VB中，随机产生10个0~100之间的随机数，按从小到大的顺...
    VB编程：利用随机函数产生10个30到50范围内的随机数，显...
    vb编程 产生10个50-100(包括50和100)的随机整...
    VB中，随机产生10个0~100之间的随机数，按从小到大的顺...
    VB题 急求 。利用随机函数rnd产生30个10~100之间...
    用随机函数产生50个[10，100 ）的随机整数，并按照由小...
    （vb编程问题）随机产生10个两位数，显示该十个数，按大到小...
    利用随机函数产生10个两位整数,然后按从大到小的顺序排序输出