ClientHeight = 4350 ClientLeft = 60 ClientTop = 450 ClientWidth = 7005 LinkTopic = \ ScaleHeight = 4350 ScaleWidth = 7005
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 5280 TabIndex = 0 Top = 3120 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim a(), i%, j%, m%, n% m = InputBox(\ n = InputBox(\
ReDim a(1 To m, 1 To n)
For i = 1 To m For j = 1 To n
a(i, j) = Int(Rnd * 100) Print a(i, j); Next j Print Next i
Dim max%, imax%, jmax%
max = a(1, 1): imax = 1: jmax = 1 For i = 1 To m For j = 1 To n
If a(i, j) > max Then max = a(i, j) imax = i
jmax = j End If Next j Next i
Print \ Print max, imax, jmax End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 4935 ClientLeft = 60 ClientTop = 450 ClientWidth = 7155 LinkTopic = \ ScaleHeight = 4935 ScaleWidth = 7155
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 4920 TabIndex = 0 Top = 3600 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim a(), i%, j%, m%, n% m = InputBox(\ n = InputBox(\
ReDim a(1 To m, 1 To n)
For i = 1 To m For j = 1 To n
a(i, j) = Int(Rnd * 100) Print a(i, j); Next j
Print Next i
Print \ ReDim Preserve a(1 To m, 1 To n + 1)
'计算i行的和，放入第n+1列
For i = 1 To m
a(i, n + 1) = 0 For j = 1 To n
a(i, n + 1) = a(i, n + 1) + a(i, j) Next j Next i
For i = 1 To m
For j = 1 To n + 1 Print a(i, j); Next j Print Next i End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 4725 ClientLeft = 60 ClientTop = 450 ClientWidth = 6990 BeginProperty Font
Name = \宋体\ Size = 10.5 Charset = 134 Weight = 400
Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty
LinkTopic = \ ScaleHeight = 4725 ScaleWidth = 6990
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ BeginProperty Font
Name = \宋体\ Size = 9 Charset = 134 Weight = 400
Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty
Height = 495 Left = 5040 TabIndex = 0 Top = 3480 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim n%, a%(), i% n = InputBox(\ ReDim a(1 To n)
Print \初值-----------------\ For i = 1 To n '赋值 a(i) = Int(Rnd * 21 - 10) Print a(i); Next i Print
For i = 1 To n - 1 '将相同值的数改为99 If a(i) <> 99 Then For j = i + 1 To n
If a(j) = a(i) Then a(j) = 99 Next j End If Next i
Print \重复的数值已经修改为99----------\ For i = 1 To n '赋值 Print a(i); Next i Print
Print \删除了重复数后的结果------------\
'下面的代码将值为99的数组元素过滤掉 k = 0
For i = 1 To n
If a(i) <> 99 Then k = k + 1 a(k) = a(i) End If Next i
'打印剩余的k个不重复数 ReDim Preserve a(1 To k) For i = 1 To k Print a(i); Next i End Sub
实验7
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True Caption = \ ClientHeight = 3555 ClientLeft = 60 ClientTop = 450 ClientWidth = 5760 LinkTopic = \ ScaleHeight = 3555 ScaleWidth = 5760
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 3840 TabIndex = 0 Top = 2280 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False