- 博客(10)
- 收藏
- 关注
原创 二维数组的鞍点
二维数组m*n的鞍点 一:实验目的 设计vb程序,找到二维数组m*n中的鞍点。 二:实验内容 1.打开vb。 2.单击工具栏中的commandbutton,在form1上单击左键出现commandbutton。 3.单击commandbutton开始编写代码。 程序代码 注:括号内为解释说明。 Option Base 1 ('m*n的二维数组,m行,n列) Dim anma(
2016-06-02 18:06:26 638
原创 shiliujinzhi
Private Sub Command1_Click() Me.Font.Size = 20 Dim n As Byte n = 23 Const er As Byte = 16 Dim shang As Byte Dim yushu(1 To 2) As Byte Dim i As Byte i = 2 shang
2016-04-28 17:44:41 215
原创 任意数二进制转化
Private Sub Command1_Click() Me.Font.Size = 20 Print erjinzhi(230) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returnS
2016-04-28 17:40:06 217
原创 十进制到二进制
Private Sub Command1_Click() Me.Font.Size = 20 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 5) As Byte Dim i As Byte i = 5
2016-04-28 17:39:31 194
原创 乘法
Option Base 1 Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang A
2016-04-21 17:41:38 192
原创 两个数相乘
1、一个数 Option Base 1 Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1len As Long Dim n2() As Byte, n2len As Long Dim yushu As Byte Dim shang As
2016-04-14 17:36:35 358
原创 九 种求和方法
一节课的收获 (一) Option Explicit Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum =
2016-04-13 22:16:50 231
原创 排序
Private Sub Command1_Click() Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer
2016-04-05 22:10:26 187
原创 十五个数的顺序排列
Private Sub command2_Click() Cls Me.Font.Size = 24 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Di
2016-03-27 15:14:30 268
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人