- 博客(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.打开VB2.右击’Form1‘空白处,单击’菜单编辑器‘。3.在‘菜单编辑器’中 标题为“文件(&E)”名称为“file”,单击‘下一个’; 标题为“编辑(&)”,名称为“compile”; 选中’编辑‘,单击‘插入’,单击'右箭头图标',标题为“新建工程(&N)”,名称为“NewProject”,快捷键为“Ctil+N”; 选中’编辑‘,单
2016-06-22 17:34:41 293
原创 十个随机数的排列(选择排序)
在左侧点击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 1503
原创 十六进制
在左侧点击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 173
原创 十进制化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 285
原创 十进制化二进制
在左侧工具栏中点击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 216
原创 多位数乘单位数
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 367
原创 十的阶乘
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 435
原创 余数和商
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 243
原创 用计时器计算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 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()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 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 1Private Sub Command1_Click()ClsDim n As Integer, a As Integera = (Val(Me.Text1.Text))Dim x()
2016-03-31 17:27:23 239
原创 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 337
原创 交换
打开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 172
原创 变量代换
打开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 375
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人