如何用VB6.0版编写一个变色的程序？

在窗体添加一个标签，一个计时器控件，Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = ＂字体随机变色＂ End Sub Private Sub .

用VB编写的应用程序，实用一点，但不需要太长实用小例子，吸引学生兴趣。

Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox(＂请输入三角形的边a：＂， ＂输入＂)) b = Val(InputBox(＂请输入三角形的边b：＂， ＂输入.

学校要交至少10个VB程序，所以跪求10个简单程序，不胜感激！邮箱：。

第一个 text1=＂哎，现在的人啊.＂ 第二个 label1.cpation=＂能学到什么呢？＂ 第三个 me.caption=＂作业还要别人做...＂ 第四个 print ＂这个样子不是在欺骗自己么＂ 第.

打开vb，选择新建抄工程，标准exe，点击运行启动，就看见一个窗袭体。这就是最简单的vb程序。然后点击运行百结束，视图，度代码窗口，粘贴如下代码：Private Sub .

例如解方程的

我写了一个解一元二次方程的小程序，您可以参考一下 Private Sub Form_Load() a = InputBox(＂a=＂， ＂请输入二次项的系数＂) b = InputBox(＂b=＂， ＂请输入一次项的.

我想用vb写一个非常简单的程序，只要能在窗体中，输入自变量x，然后一按.

do x=int(rnd*10) y=int(rnd*10) do if x*y=val(tres) then 'tres为你要输入结果的东东 出题.enable=true exit do else 出题.enable=false msgbox ＂计算错误，从新写吧＂ end if .

像桌面飘雪 给个做法+代码 或者教程

VB制作奇形怪状的窗体 普通的窗体都是方方的，使用API函数可以做出一些奇怪的形状。比如，窗体是圆角矩形，在中间挖一个椭圆形的洞。先要理解一个重要的概念：区.

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如.

详细一点不要太复杂

给你写了个隔5秒改变一次窗体背景颜色的程序，即容易懂又好玩.Option Explicit '要求变量声明，根据个人习惯，建议最好使用 Dim i As Integer '定义i为全局变量 Private .

一个小实验，就是做一个小程序，能够统计输入的文章(中英文，符号)的字。

帮助~~宇~~来解答 这是专为你写的一个小程序，希望能对你用帮助！ 这里只能提供按钮事件的源码，整个工程源码打包请到： http://www.exfsoft.com/upload/file/q.

一个很简单的小程序 串口输入一个数据X(010%为不及格 否则及格 那位高手。

Private Sub Command1_Click() Dim x, k x = InputBox(＂请输入一个数据<0~~100%>:＂) If x < 0 Or x > 1 Then k = MsgBox(＂请输入有效数据！＂， vbExclamation) .

这个VB小程序不需要任何显示界面，双击运行----复制25.txt 内容到剪贴板---结。

vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main() Open ＂c:\temp\25.txt＂ For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1).

要好玩的，有趣的。谁有呀？

整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵 将以下文字粘贴到记事本上后将后缀名改为：.

怎样 使几张图片 在程序中动起来 ，按下＂command1＂键 使图片停止

form1上放置Command1,Timer1,Picture1(装入一个图片) Dim MoveStep As Integer Private Sub Command1_Click() Timer1.Enabled = False End Sub Private Sub Form_.

100RMB有偿聘请哦~ 有意者联系1284343. 就是很简单的一个小程序，网址更。

Private Sub Command1_Click() Label1.Caption = ＂欢迎来到精彩的VB世界＂ End Sub Private Sub Form_Load() End Sub============ 需要控件 Label Label的名字是.

编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的(范。

Private Sub Command1_Click() '生成 Randomize a = Int(Text1.Text) b = Int(Text2.Text) Print ＂三个随机数为＂ For i = 1 To 3 x = Int(20 + Rnd * (b - a + 1)) Print x, s = s + .

新做了两个EXE 一个运行后 另外一个EXE也运行 但另外那个EXE隐藏了 但进。

api showwindow() 如果这两个程序都是你写的，自己在formload中form2.show()就可以了 Private Declare Function FindWindow Lib ＂user32.dll＂ Alias ＂.

清空回收站代码 Private Declare Function SHEmptyRecycleBin Lib ＂shell32.dll＂ Alias ＂SHEmptyRecycleBinA＂ _(ByVal hwnd As Long, ByVal pszRootPath As String, .

想写一个vb的小程序，但是不懂，请各位高手帮忙一下，再此先谢过了，具体。

Const str = ＂abcdef＂ '你所说的6个字符 Dim s As Long '设置一个变量s Private Sub Command1_Click() Text3.Text = Mid(str, (s - 3) Mod Len(str) + 1, 1) '按你的要求显示 .

找到好的程序要考试了阿

Private Sub Command1_Click() Dim b(1 To 10) As Single Dim a, a1, a2 As Integer For i = 1 To 10 b(i) = InputBox(＂请输入一个数：＂) If b(i) > 0 Then a = a + 1 If b(i) < 0 .