vb代码，求vb简单的代码

本文目录一览

1，求vb简单的代码
2，给几个VB制作的代码
3，vb代码大全
4，求一个简单的VB代码
5，求一vb代码
6，求VB程序代码紧急

1，求vb简单的代码

在点击事件中写 label1.forecolor=rgb(255,0,0) 这是红 rgb(255,255,0)这是黄 rgb(0,0,0)这是黑 rgb(0,0,255)这是蓝

求vb简单的代码

2，给几个VB制作的代码

private sub command 1-Click O dim x As long Fora=0 to 9 Forb=0 to 9 Ford=0 to 9 Fore=0 to 9 x=a*10000+b*1000+1*100+d*10+e if（x Mod81=0） nexta，b，d，e End Sub

给几个VB制作的代码

3，vb代码大全

MSDN有详尽的 https://dl.dropbox.com/u/1998078/%E7%A8%8B%E5%BA%8F/VB6SP6MSDN.rar 安装到VB目录里

msnd有详尽的 https://dl.dropbox.com/u/1998078/%E7%A8%8B%E5%BA%8F/VB6SP6MSDN.rar

vb代码大全

4，求一个简单的VB代码

Private Sub Command1_Click() form1.backcolor =RGB(255,0,0) End Sub 或者 Private Sub Command1_Click() me.backcolor = RGB(255,0,0) End Sub 或者在From1窗口的属性窗内,设置backcolor属性即可(后面有颜色可选) ============================================================== 枫舞添言:课本中该有啊`~~ ^_^

5，求一vb代码

#include"stdio.h"ji(int x)int a,b,c,d,j;a=x/1000;b=x/100-a*10;c=x/10-a*100-b*10;d=x%10;j=a*b*c*d;return j;}void main()for(i=1000;i<=9999;i++)if(i%2) j=ji(i);if(j/60==0&&j!=0) sum+=j; printf("x为：%d\n",i); printf("积：%d\n",j);}}}printf("sum：%d\n",sum);} 我自己乱编的，献丑了，加粗的地方你可以去掉的

Private Sub Form_click()Dim S As Long, I As Integer, P As Integer, T As IntegerFor I = 1001 To 9999 Step 2 P = 1 T = I Do Until T = 0 P = P * (T Mod 10) T = T \ 10 Loop If P <> 0 And P Mod 60 = 0 Then S = S + I End IfNextPrint S End Sub

6，求VB程序代码紧急

Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()For i = 1 To 20a(i) = Int(Rnd() * 100 + 0)Text1.Text = Text1.Text & a(i) & vbCrLfNext iEnd Sub Private Sub Command2_Click()For i = 20 To 2 Step -1For j = 1 To i - 1If a(j) > a(j + 1) Thent = a(j + 1)a(j + 1) = a(j)a(j) = tEnd IfNext jNext iFor i = 1 To 20Text2.Text = a(i)Next iEnd Sub Private Sub Command3_Click()For i = 20 To 2 Step -1For j = 1 To i - 1If a(j) < a(j + 1) Thent = a(j + 1)a(j + 1) = a(j)a(j) = tEnd IfNext jNext iFor i = 1 To 20Text3.Text = a(i)Next iEnd Sub

Dim a(1 to 20) randomize for i=1 to 20 a(i)=int(rnd*100) print a(i); next i print min=a(1) max=a(1) for i=2 to 20 if min>a(i) then min=a(i) if max

我发现了！你们计算机老师也不是人！