VB随机函数1.docVIP

1、设定一个最大值x,让Label1.caption在1到x中滚动Dim x As Integer Private Sub Form_Load() x = InputBox(请输入需设定数的最大值。, 键入数值, 0) End Sub Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled End Sub Private Sub Timer1_Timer() Randomize Label1.Caption = Int((Rnd() * x) + 1) End Sub 1）VB 用随机函数产生20个两位数的整数，存于4行5列的二维数组中，并求出其中的最大元素及它的行、列坐标，将数组按行（矩阵形式）输出到窗体，最大元素及行、列下标输出在数组的下方。 Option Explicit Option Base 1 Dim a%(80), i%, k%, t%, b%(80) Private Sub Command1_Click() Me.Cls Dim j As Integer Randomize For i = 1 To 80 a(i) = Int(Rnd * 90) + 10 Next i k = 0 t = 1 For i = 1 To 79 b(i) = Abs(a(i + 1) - a(i)) If b(i) k Then k = b(i) t = i End If Next i Print 全部 For i = 1 To 80 Print a(i); If i Mod 10 = 0 Then Print Next i Print 最大差值: k ,是 a(t + 1) 和 a(t) 之差 End Sub Option Base 1 Private Sub Form_Click() Dim a(4, 5) As Integer, i As Integer, j As Integer, s As Integer, n As Integer, m As Integer Dim a_ave As Single Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(91 * Rnd + 10) Print Format(a(i, j), @@@@@@); Next j Print Next i s = a(1, 1) For i = 1 To 4 For j = 1 To 5 If a(i, j) s Then Else s = a(i, j) n = i m = j End If Next j Next i Print 最大的元素为：; s; 坐标为：; n; 行; m; 列 End Sub 拓展： 1. 利用随机数生成两个矩阵(数据不一定相同，前者30～70范围、后者101～135)。 Option Base 1 Private Sub Form_Click() Dim a(4, 5) As Integer, i As Integer, j As Integer, s As Integer, n As Integer, m As Integer Dim a_ave As Single Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(200 * Rnd + 101) Print Format(a(i, j), @@@@@@@@@); Next j Print Next i s = a(1, 1) For i = 1 To 4 For j = 1 To 5 If a(i, j) s Then Else s = a(i, j) n = i m = j End If Next j Next i Print 最大的元素为：; s; 坐标为：; n; 行; m; 列 Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(40 * Rnd + 30) Pr