麦叩尔
麦叩尔
关注数: 3
粉丝数: 5
发帖数: 40
关注贴吧数: 0
想转动医啊啊啊 啊啊啊园艺学院转动医会不会难啊，有木有转过的学长学姐，想请问一下面试可能会问什么捏。
求助，编辑菜单 模仿记事本，菜单中剪切初始为无效，怎么编写使文本框选中字符时剪切变为有效
如果有多个鞍点如何编写 如下，又出现过有两个鞍点（数值相同）但只输出一个。 Private Sub Command2_Click() Form1.Cls Dim a(4, 4) As Integer, b(4) As Integer, c(4) As Integer Randomize For i = 1 To 4 For j = 1 To 4 a(i, j) = Val(Rnd * 89 + 10) Print a(i, j); Next j Print Max = a(i, 1) b(i) = Max For j = 1 To 4 If a(i, j) > Max Then Max = a(i, j): b(i) = Max End If Next j Next i For i = 1 To 4 Min = a(1, i) c(i) = Min For j = 1 To 4 If a(j, i) < Min Then Min = a(j, i) c(i) = Min End If Next j Next i For i = 1 To 4 For j = 1 To 4 If b(i) = c(j) Then n = b(i): k = i: p = j m = 1 End If Next j Next i If m = 1 Then Print Print "鞍点为：" & n & " 第" & k; "行，" & "第" & p & "列" Else Print Print "鞍点不存在" End If End Sub
1
下一页
