vb编程入门代码，谁给我点VB最基本的代码

本文目录一览

1，谁给我点VB最基本的代码
2，解释一下一个VB入门代码
3，VB入门程序
4，急急急求VB 几个基础代码
5，VB简单程序代码编写

1，谁给我点VB最基本的代码

Shell "Explorer /s , http://hi.baidu.com\weiwei_niuniu" 把这句加到你想要的地方

谁给我点VB最基本的代码

2，解释一下一个VB入门代码

http://hi.baidu.com/vb2070/blog/item/604258922654279fa977a4d4.html vb吧上面的.vb 范例开发大全源代码压缩后54.01m

解释一下一个VB入门代码

3，VB入门程序

A=1 S=0 Do while S<= 50 S=S+A A=A+2 Loop PRINT A End

Private Sub Form_click()Dim x As Integerx = InputBox("输入X的值")a = 1s = 0Do While a < x s = s + a a = a + 2LoopPrint sEnd Sub

VB入门程序

4，急急急求VB 几个基础代码

求和：sum()最大值：max()最小值: min()平均分:average()排序：order by 不过这是数据库的SQL代码，不明白楼主的具体意思

http://www.vbgood.com/viewthread.php?tid=54223&extra=page%3d1&page=1 发送alt组合键到后台的代码其他组合键,如ctrl的消息是wm_keydown,而alt键是wm_syskeydown 我猜postmessage 或 sendmessage 都实现不了。。还有我听说，dx的游戏句柄要用特殊的方法才能找到的

5，VB简单程序代码编写

手边没VB 写了下有错就提醒下 dim a as integer Private Sub Command1_Click() Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub Private Sub Command2_Cick() a=0 a=a+1 if a<16 then Me.BackColor = RGB( 255, 255, a) elseif a>16 then Command2_Cick end if End Sub

Dim Colour() Private Sub Command1_Click() Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub Private Sub Command2_Click() Form1.BackColor = Colour(Int(Rnd * 16)) End Sub Private Sub Form_Load() Colour = Array(1000, 2000, 30000, 40000, 500, 60000, 7000, 80000, 9000, 10, 11, 12, 13, 14, 15, 16)自己设置啦 Randomize Command1.Caption = "变换颜色1" Command2.Caption = "变换颜色2" End Sub

错不了，是这样的 Private Sub Command1_Click() Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub Private Sub Command2_Click() Static i As Integer Me.BackColor = QBColor(i) i = (i + 1) Mod 16 End Sub

我不清楚十六种颜色的RGB组合，便要按次序变化，可提出我的一个想法，让RGB的三个值分16次从0-255分量增加。有这种可能会组成不同的颜色。

第一个： Private Sub Command1_Click() Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub