自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(19)
  • 收藏
  • 关注

原创 鞍点

姓名:吴海洋专业:电气工程及其自动化 学号: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

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除