君自取-CSDN博客

原创添加菜单

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

2016-06-16 17:22:19 438

原创鞍点

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

2016-06-02 17:12:51 1098

原创登录窗口

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

2016-06-02 17:12:15 560

原创 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 414

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

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

2016-05-07 17:29:37 519

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

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

2016-04-28 16:43:35 431

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

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

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

一.用Timer算加法Private Sub Timer1_Timesum = sum + ii = i + 1If i > 100 ThenMe.Timer1.Ebable = FalzePrint sumEnd Sub二.阶乘算法Private Sub Command1_Click()ClsPr

2016-04-19 22:15:11 632

原创 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 921

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

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

2016-03-28 15:25:09 737

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

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

2016-03-28 15:23:42 623

KAISAXIN的博客