• 所有问题

    • VB～单击产生随机数命令按钮，产生10个两位正整数，并显示到窗体上

    如题

    举报该问题
    推荐答案   2010-06-25
    Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 10
    Print Int(Rnd() * 90) + 10;
    Next i
    Print
    End Sub

    Private Sub Form_Load()
    Command1.Caption = "产生随机数"

    End Sub
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    VB编程:输入10个二位整数数组元素,用选择法从小到大排序后输出。_百度...答：Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer Picture1.Cls Picture2.Cls Randomize '产生10个二位随机整数，并在Picture1输出 For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Picture1.Print a(i);Next '选择法排...
    vb随机产生10个两位数,并找出最大数和最小数,显示出来答：max = 0 min = 99 For i = 0 To 9 a(i) = Int(Rnd() * 89 + 10) ' 产生10-99的10个两位随机数 If a(i) >= max Then max = a(i) '比较求最大值 If a(i) <= min Then min = a(i) '比较求最小值 Print a(i); '输出产生的10个两位随机数 Next i Prin...
    vb中求十个两位随机数并找出最小值及其位置显示在窗体上答：Private Sub Command1_Click()Dim n(9) As Integer Dim min As Integer, j As Integer Randomize min = 99 For i = 0 To 9 n(i) = Int(Rnd * 91) + 10 Print n(i);Next i For i = 0 To 9 If min > n(i) Then min = n(i)j = i End If Next i Print Print min, ...
    vb编写一个程序,随机生成十个两位数保存到一维数组中,把该数组的各元素...答：Private Sub Command1_Click()Randomize Dim a(10) As Integer Print "产生的10个随机数："For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i);Next i Print Print "反序后的数组："For i = 1 To 5 t = a(i)a(i) = a(11 - i)a(11 - i) = t Next i For ...
    VB题:定义一个数组,包含十个两位的随机整数,求出其中的最大值,并在窗 ...答：Private Sub Form_click()Dim a(1 To 10) As Integer Print "原始数据是："For k = 1 To 10 a(k) = Int(90 * Rnd + 10)Print a(k);Next k Max = a(1)Print Print "最大数是："For Each x In a If Max < x Then Max = x End If Next x Print Max End Sub ...
    (vb编程问题)随机产生10个两位数,显示该十个数,按大到小的顺序排序,并...答：java.util.Random;public class Main{public static void main(String[] args){int array[] = new int[10];for(int i=0;i<10;i++){array[i] = new Random().nextInt(90) + 10;}Arrays.sort(array);System.out.println("生成的随机数的排序结果是："+Arrays.toString(array));}} ...
    vb题 随机生成10个两位整数,求出他们的总和及平均数答：1 s(i) = tt(Int(Rnd() * 99 + 10)) '循环10次得到数组s,存放10个随机数 If s(i) <> "" Then '如果得到的s数组值不为空 temp3 = temp3 + s(i) '把10个数相加 tt(s(i)) = "" '把tt数组已取出的值赋予空值 Else GoTo 1 '如果取出的值为空,则跳转到1,重新取值 End ...
    vb 产生10个两位随机整数,用冒泡排序法对10个数按升序排序答：Const n = 10Dim a(1 To n) As IntegerDim i As Integer, j As Integer, t As Integer, min As IntegerRandomizeFor i = 1 To n a(n) = Int(90 * Rnd) + 10Next iFor i = 1 To n Print a(i):Next iPrintFor i = 1 To n - 1 t = 1 For j = i + 1 To n If a(j) <...
    大家正在搜
    excel生成随机数保留两位小数js随机数生成1到100单击开始按钮指向什么并单击随机数保留两位小数产生随机数的函数单击退出按钮关闭窗体如何产生随机数excel随机数小数点后一位单击窗口最小化按钮
    相关问题
    VB如何能按Command1按钮，在窗体上显示10个随机两位...
    VB中，单击窗体随机产生10个二位正整数，放入数组a，从中选...
    4、编程，按命令按钮1(Command1)后随机产生10个两...
    vb编程：单击窗体，随机产生一个两位随机正整数，然后判断其是...
    用vb随机产生100个两位正整数,在窗体上每行输入10个数,...
    VB随机产生10个两位数整数（正整数），要求分别用选择排序法...
    vb题目：单击“生成随机数”按钮，随机生成两3位正整数M、N...
    vb编程 随机生成10个两位正整数存放在数组A中，再将数组中...