VB实验题型.docVIP

7-2生成20个1~100之间的随机整数并存入一个一维数组，求出其中最大元素和最小元素的位置。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(20) As Integer, i As Integer, st As String Dim max As Integer, min As Integer, maxp As Integer, minp As Integer For i = 1 To 20 a(i) = Int(Rnd * (100 - 1 + 1)) + 1 st = st Str(a(i)) If i Mod 10 = 0 Then st = st vbCrLf Next i Text1.Text = st max = a(1): min = a(1) maxp = 1: minp = 1 For i = 2 To 20 If a(i) max Then max = a(i) maxp = i ElseIf a(i) min Then min = a(i) minp = i End If Next i Text2.Text = max 位置是 maxp Text3.Text = min 位置是 minp End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = : Text3.Text = End Sub Private Sub Command3_Click() End End Sub 7-3用Inputbox函数输入一个3*4矩阵Option ExplicitPrivate Sub Command1_Click()Dim a(4, 3) As Integer, i As Integer, j As IntegerDim max As IntegerFor i = 1 To 4For j = 1 To 3a(i, j) = InputBox(请输入矩阵的第( i , j )元素, 输入矩阵元素)picture1.Print a(i, j)Next jpicture1.Print vbCrLfNext iFor i = 1 To 4max = a(i, 1)For j = 2 To 3If max a(i, j) Thenmax = a(i, j)Next jpicture1.Print 第 i; 行最大的是：; maxNext iEnd Sub 建立三个图片框,第一个是用来显示全部随机数的,第二个是用来显示行和的,第三个是用来显示列和的.Dim a(10, 10) As IntegerPrivate Sub Command1_Click() 生成随机数For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(Rnd * 10) Picture1.Print a(i, j); Next j Picture1.PrintNext iEnd SubPrivate Sub Command2_Click() 求行和Dim h As IntegerFor i = 1 To 10 For j = 1 To 10 h = h + a(i, j) Next j Picture2.Print h h = 0Next iEnd SubPrivate Sub Command3_Click() 求列和Dim s As IntegerFor i = 1 To 10 For j = 1 To 10 s = s + a(j, i) Next j Picture3.Print s; s = 0Next iEnd SubPrivate Sub Command4_Click() 结束EndEnd Sub Private Sub Command5_Click() 清除Picture1.ClsPicture2.ClsPicture3.ClsEnd Sub 输入一个日期，计算给定的日期是那一年的第几天P