自定义博客皮肤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 573

原创 制作登录窗口

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

2016-06-22 17:41:54 423

原创 添加菜单

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

2016-06-22 17:34:41 287

原创 十个随机数的排列(选择排序)

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

2016-05-07 17:50:00 1489

原创 十六进制

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

2016-05-07 17:37:18 167

原创 十进制化16进制

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

2016-04-28 16:58:16 276

原创 十进制化二进制

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

2016-04-28 16:47:35 208

原创 多位数乘单位数

Private Sub Command1_Click()ClsDim a() As ByteDim r() As ByteDim b As StringDim c As ByteDim i As LongDim L As LongL = Len(Me.Text1.Text)ReDim a(L)For i = 1 To L    b = Mid(Me.Te

2016-04-21 16:55:30 356

原创 十的阶乘

Private Sub Command1_Click()ClsPrint 阶乘(10)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else阶乘 = n * 阶乘(n - 1)End IfEnd Function

2016-04-21 16:19:31 426

原创 余数和商

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

2016-04-21 16:17:24 238

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

Option ExplicitDim i As IntegerDim sum As IntegerPrivate Sub Command1_Click()ClsFont.Size = 70End SubPrivate Sub Timer1_Timer()sum = sum + ii = i + 1If i > 100 ThenMe.Timer1.Enab

2016-04-21 16:14:35 232

原创 十个随机数相加

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 255

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

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

2016-04-07 17:37:35 110

原创 随机排列

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b=" & bPrint "c=" & cd = cc = bb

2016-03-31 17:34:46 183

原创 两个随机数排序

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 194

原创 动态数组排列

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

2016-03-31 17:27:23 232

原创 15个数的排序

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

2016-03-31 17:21:18 325

原创 交换

打开vb 方法一:Private Sub Command3_Click()Dim a As Stringa = Text1.TextText1.Text = Text2.TextText2.Text = aEnd SubPrivate Sub Text1_Change()Text1.BackColor = vbBlackText1.ForeC

2016-03-31 17:15:58 164

原创 变量代换

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

2016-03-31 17:13:53 371

空空如也

空空如也

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

TA关注的人

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