君自取-优快云博客

原创添加菜单

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

2016-06-16 17:22:19 568

原创鞍点

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

2016-06-02 17:12:51 1192

原创登录窗口

姓名:辛雅松专业:电气工程及其自动化学号:15050341033 制作登录窗口一、实验目的 1、掌握在窗体上添加控件的方法； 2、了解窗体等基本对象属性的设置方法； 3、掌握可视化数据管理器的使用方法； 4、掌握数据控件及绑定控件的使用方法； 5、掌握代码操作数据库的方法。二、实验内容 1、建立登录窗口 a、首先放置两个label，左对齐，在label右侧放置两个text

2016-06-02 17:12:15 646

原创 10.2016物电电气辛雅松 15050341033

一冒泡排序 Private Sub Command1_Click() Open "D:\15050341033\temp.txt" For Output As #1 Cls Dim a(1 To 1000000) As Long Dim i As Long Dim j As Long Di

2016-05-17 20:46:55 479

原创 9.2016.物电学院电气一班辛雅松 15050341033

一。十进制化为十六进制在左侧选择CommandButton，

2016-05-07 17:29:37 577

原创 8.2016 物电学院电气工程及其自动化辛雅松 15050341033

一，十进制化二进制在左侧工具栏中选中"CommandButton"，在 Font1 中选择大小适宜的区域，绘出 Command1 。 Private Sub Command1_Click() Cls Me.Font.Size = 60 Print erjinzhi(23) End Sub Private Function erjinzhi(y As Lo

2016-04-28 16:43:35 493

原创 7.2016.物电学院电气工程及其自动化辛雅松 15050341033

一，n*1 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)

2016-04-25 14:39:42 969

原创 6.2016.物电学院电气工程及其自动化辛雅松 15050341033

一.用Timer算加法 Private Sub Timer1_Time sum = sum + i i = i + 1 If i > 100 Then Me.Timer1.Ebable = Falze Print sum End Sub 二.阶乘算法 Private Sub Command1_Click() Cls Pr

2016-04-19 22:15:11 712

原创 5.2016 物电学院电气工程及其自动化专业辛雅松 15050341033

十个随机变量的求和——九种方法 1 Private Sub Command1_Click() Cls Dim n As Integer, s As Integer, a(10) As Integer n = 1 While n <= 10 a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n <= 10 Print a(n)

2016-04-07 17:40:38 1025

翻译 2.2016年物电学院电气工程及其自动化专业辛雅松 15050341033

一.交换值在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“变换”，双击按钮型图标，输入如下. Cls Dim a As Integer,b As Integer,c As Integer a=-1:b=2 Print "a=

2016-03-28 15:25:09 823

翻译 1.2016年物电学院电气工程及其自动化专业辛雅松 15050341033

1打开VB设计软件， 2在左侧工具栏中，选闹钟图标“Timer”按钮，再在右侧Form1中空白区域选择任意的区域，出现闹钟图标后，双击图标，输入“屏幕1.caption=time()”，关闭窗口，在右下角，将表格中“Interval”后面的“0”改成“1000”. 3在左侧工具栏中，选择A型图标“Label”按钮，再在右侧Form1中空白区域选择任意区域,出现闹钟图标后，选中图标，在右下角，将

2016-03-28 15:23:42 679

KAISAXIN的博客