当前位置 > vb编程实例讲解vb编程实例讲解详解

• 

  求一个简单vb编程实例

  控件:image,picture,timer代码:Dim x As Integer Dim y As IntegerPrivate Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End SubPrivate Sub Timer1_Timer() If ***.Top >= pic.Height img.Height Then y = 100 End If If ***.Top <= 0 Then y = 100 End If If img.Left >= pic.Width img...

  2024-08-27 网络 更多内容 986 ℃ 941
• 

  vb编程实例

   Private Sub Form_Click()   Form1.Width = 13000   Dim i As Integer, j As Integer   Cls   Print   Print "***************九九乘法表****************...

  2024-08-27 网络 更多内容 139 ℃ 380
• 

  求一个简单vb编程实例

  控件:image,picture,timer代码:Dim x As Integer Dim y As IntegerPrivate Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End SubPrivate Sub Timer1_Timer() If ***.Top >= pic.Height img.Height Then y = 100 End If If ***.Top <= 0 Then y = 100 End If If img.Left >= pic.Width img...

  2024-08-27 网络 更多内容 579 ℃ 69
• 

  VB与串行通信编程实例

  代码如下: Private Sub Command1_Click() MSComm1.Output = "123456" End Sub Private Sub Form_Load() MSComm1.PortOpen = True MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.InputMode = comInputModeText Text1 = "" End Sub Priv...

  2024-08-27 网络 更多内容 862 ℃ 419
• 

  VB与串行通信编程实例

  代码如下: Private Sub Command1_Click() MSComm1.Output = "123456" End Sub Private Sub Form_Load() MSComm1.PortOpen = True MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.InputMode = comInputModeText Text1 = "" End Su...

  2024-08-27 网络 更多内容 432 ℃ 861
• 

  vb编程实例

  Static s As Integer s 是静态变量,过程结束后,数据依然存在,且值保持原来不变 一开始s=0 m(1),走入Function,时,n=1 ,循环一次(加上一个1),s=1,m(1)=1 m(2),走入Function,时,s=1(值保持原来1不变),n=2 ,循环2次(加上2个1),s=3,m(2)=3 m(3),走入Function,时,s=3(值保持原来3不变),,n=3 ,循环...

  2024-08-27 网络 更多内容 381 ℃ 366
• 

  vb编程例题

  题目好像不全。以下的程序是实现这样的功能:用随机函数产生10个50以内(包括50)的随机整数存入一维数组,从键盘上输入一个数,在数组中查找这样的数,最后返回查找结果:在数组的第几个元素中找到,或是未找到这样的数。Private Sub Command1_Click()   D...

  2024-08-27 网络 更多内容 740 ℃ 258
• 

  vb6.0编程实例 最好是绘图的

  最简单的画图代码,鼠标按下就画图:Dim i As BooleanPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)i = TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Not i Then Me.CurrentX = X Me...

  2024-08-27 网络 更多内容 509 ℃ 181
• 

  VB 编程!

  先从工程菜单中引用Microsoft Scripting Runtime Private Sub Command1_Click() Dim FS As FileSystemObject Set FS = New FileSystemObject '如果存在文件则删除 If FS.FileExists("C:\Test.txt") Then FS.DeleteFile ("C:\Test.txt") '创建文件 FS...

  2024-08-27 网络 更多内容 285 ℃ 400
• 

  求简单的vb入门编程实例教程

  http://www.***.cn/eschool/video/vb/ 我认为这是最好的教程了,很全面也很具体,要是有耐心的话,学上它一年就能出师咯,如果有白屏,就给我发个邮件,我给你它的下载器。 tenghao1995@163.com

  2024-08-27 网络 更多内容 179 ℃ 300