hy18832629581-CSDN博客

原创鞍点

姓名:吴海洋专业:电气工程及其自动化学号:15050341032 求出二维数组中m*n的鞍点一、实验目的： 1．掌握数组的声明和数组元素的引用 2．掌握定长数组和动态数组的使用 3．掌握数组的基本操作算法 4．掌握过程的定义和调用二、实验内容找一个n*m的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大，在本列中数值最小。也可能在一个数组

2016-06-22 17:45:03 579

原创制作登录窗口

姓名:吴海洋专业:电气工程及其自动化学号:15050341032 制作登录窗口一、实验目的 1、掌握在窗体上添加控件的方法； 2、了解窗体等基本对象属性的设置方法； 3、掌握可视化数据管理器的使用方法； 4、掌握数据控件及绑定控件的使用方法； 5、掌握代码操作数据库的方法。二、实验内容和步骤、 1、打开VB，在

2016-06-22 17:41:54 429

原创添加菜单

菜单栏的制作 1.打开VB 2.右击’Form1‘空白处，单击’菜单编辑器‘。 3.在‘菜单编辑器’中标题为“文件（&E）”名称为“file”，单击‘下一个’；标题为“编辑（&）”，名称为“compile”；选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“新建工程（&N）”，名称为“NewProject”，快捷键为“Ctil+N”; 选中’编辑‘，单

2016-06-22 17:34:41 293

原创十个随机数的排列（选择排序）

在左侧点击commandbutton，在右侧form空白区域选中双击command1 再其中输入以下内容 Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i); Next i Print Dim j As Integer For j = 1 To 9 For i = j + 1

2016-05-07 17:50:00 1503

原创十六进制

在左侧点击commandbutton，在右侧form空白区选中双击command1 在其中输入以下内容 Private Sub Command1_Click() Me.Font.Size = 30 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 1230: b = 16 Whi

2016-05-07 17:37:18 173

原创十进制化16进制

在左侧工具栏点击commandbutton且在右侧空白区域选中双击command1 输入以下内容 Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(23) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n

2016-04-28 16:58:16 285

原创十进制化二进制

在左侧工具栏中点击commandbutton并在右侧空白区域选中双击command1 输入以下内容 Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(23) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n

2016-04-28 16:47:35 216

原创多位数乘单位数

Private Sub Command1_Click() Cls Dim a() As Byte Dim r() As Byte Dim b As String Dim c As Byte Dim i As Long Dim L As Long L = Len(Me.Text1.Text) ReDim a(L) For i = 1 To L b = Mid(Me.Te

2016-04-21 16:55:30 366

原创十的阶乘

Private Sub Command1_Click() Cls Print 阶乘(10) End Sub Private Function 阶乘(n As Integer) As Long If n = 1 Then 阶乘 = 1 Else 阶乘 = n * 阶乘(n - 1) End If End Function

2016-04-21 16:19:31 435

原创余数和商

Private Sub Command1_Click() Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.Text)) tempresult = n1

2016-04-21 16:17:24 243

原创用计时器计算1到100的和

Option Explicit Dim i As Integer Dim sum As Integer Private Sub Command1_Click() Cls Font.Size = 70 End Sub Private Sub Timer1_Timer() sum = sum + i i = i + 1 If i > 100 Then Me.Timer1.Enab

2016-04-21 16:14:35 239

原创十个随机数相加

1. Option Explicit Private Sub Command1_Click() Cls Dim i As Integer Dim a(10) As IntegerDim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a(i) Next

2016-04-07 17:38:57 267

原创欢迎使用CSDN-markdown编辑器

欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦： Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传 LaTex数学公式 UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl

2016-04-07 17:37:35 118

原创随机排列

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim b As Integer, c As Integer Dim d As Integer c = Int(Rnd() * 1000) b = Int(Rnd() * 1000) Print "b=" & b Print "c=" & c d = c c = b b

2016-03-31 17:34:46 190

原创两个随机数排序

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a

2016-03-31 17:31:52 199

原创动态数组排列

打开vb 在左侧选中commandbutton按钮并在form空白处选中在左侧选中textbox按钮并在form空白处选中双击command1输入以下内容 Option Base 1 Private Sub Command1_Click() Cls Dim n As Integer, a As Integer a = (Val(Me.Text1.Text)) Dim x()

2016-03-31 17:27:23 239

原创 15个数的排序

打开vb 选中commandbutton并在form空白处选中双击command1输入 Private Sub Command1_Click() Cls Dim x(15) As Integer, n As Integer n = 1 While n x(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer, m

2016-03-31 17:21:18 337

原创交换

打开vb 方法一： Private Sub Command3_Click() Dim a As String a = Text1.Text Text1.Text = Text2.Text Text2.Text = a End Sub Private Sub Text1_Change() Text1.BackColor = vbBlack Text1.ForeC

2016-03-31 17:15:58 172

原创变量代换

打开VB 选中commandbutton并在form空白处选中双击command1 在其中输入 Private Sub Command1_Click() Cls Dim b As Integer, c As Integer Dim d As Integer c = Int(Rnd() * 1000) b = Int(Rnd() * 1000) Print "b=" & b

2016-03-31 17:13:53 375

hy18832629581的博客