hy18832629581-CSDN博客

原创鞍点

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

原创十六进制

在左侧点击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

hy18832629581的博客