当前位置 > vb编程实例速成150例vb编程实例速成150例解析

• 

  求一个简单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-07-24 网络 更多内容 508 ℃ 686
• 

  vb编程实例

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

  2024-07-24 网络 更多内容 382 ℃ 439
• 

  求一个简单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-07-24 网络 更多内容 272 ℃ 636
• 

  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-07-24 网络 更多内容 691 ℃ 892
• 

  vb编程超简单

  Private Sub Command1_Click()   Text2.Text = ""   Text2.Text = Text2.Text + Text1.Text   For i = 0 To 2     If Option1(i).Va...

  2024-07-24 网络 更多内容 927 ℃ 57
• 

  vb编程例题

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

  2024-07-24 网络 更多内容 816 ℃ 447
• 

  VB编程实例

  你要什么实例

  2024-07-24 网络 更多内容 427 ℃ 398
• 

  vb编程实例 初学入门有些不懂,希望指教

  添加一个文本框控件(text1)和一个命令按钮(command1)   command1 下添加如下代码:以下是用for循环实现:Private Sub Command1_Click()Dim a, i As Longa = Val(Text1.Text)i = 2For i&nb...

  2024-07-24 网络 更多内容 859 ℃ 733
• 

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

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

  2024-07-24 网络 更多内容 468 ℃ 505
• 

  简单的VB编程

  Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And Text1.Text <> "" And IsNumeric(Text1.Text) Then Dim vSum% for i=1 to val(text1.text) vSum = vS...

  2024-07-24 网络 更多内容 275 ℃ 910