vb制作实用小程序

A. 用VB编写一个小程序

这还不简单：
Private Sub Form_Load()
Text1.Text = "Visual Basic程序设计"
Command1.Caption = "结束"
End Sub
Private Sub Form_Resize()
Dim W, H
W = Me.ScaleWidth: H = Me.ScaleHeight
Text1.Move 0, 0, W * 0.5, H * 0.5
Command1.Move W - Command1.Width * 1.1, H - Command1.Height * 1.1
End Sub
Private Sub Command1_Click()
Unload Me
End Sub

B. 用VB制作小程序

OptionExplicit

PrivateSubForm_Load()
Randomize
Label1.Caption=Int((Rnd*(999999-100000+1))+100000)'生成100000-999999之间来的随机数自
Timer1.Interval=1000'一秒一次
Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer()
StaticnAsInteger
n=n+1
Ifn=60Then'一秒一次，累加到60此即60秒
n=0
Randomize
Label1.Caption=Int((Rnd*(999999-100000+1))+100000)
EndIf
EndSub

有问题请追问，满意请采纳，加油！

C. 如何使用VB编写一个简单的小程序

打开vb，选择新建工程，标准exe，点击运行启动，就看见一个窗体。
这就是最简单的vb程序。

然后点击运行结束，视图，代码窗口，粘贴如下代码：
Private Sub Form_Load()
MsgBox ("你好！")
End Sub
点击运行启动，就看到一个新的效果
祝你成功！

D. 谁知道怎样用ＶＢ制作小程序（具体步骤最好有图）

用VB.net制作一个小程序（1）
----制作“Hello.NET”程序
作者：高山
用下面很简单的方法，就可以制作一个“Hello.NET”小程序，同时可以掌握一些控件的用法。
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体衡喊设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
运悄 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(16, 112)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "OK"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(160, 112)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1})
Me.Name = "Form1"
Me.Text = "咐悄野Hello,VB.NET"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Hello,VB.NET!"
End Sub
End Class

E. 用VB制作一个小程序

先去照张照片，纯色背景，手拿一把天津大麻花，作翘首展望状
再把你女朋友骗去照张艺术照
把两张照片合为一张
做一个窗体，用这张照片做窗体背景，修改窗体的显示模式，隐藏最大化，最小化，关闭按钮，使她不能操作
做七个同样大小的标签控件，用七种色彩来表示，先设置为隐藏模式（其实一个也可以）
做一个时钟控件，控制七个标签的显示

把做好的小程序放入电脑，并设置为开机自动运行
程序功能如下
当她一开机，一幅你手捧麻花，含情脉脉地望着她的照片就出现了，不一会，出现一行红色字幕（最好是动态移动的，当然，这又要多用一个时钟控件了）“老婆，老婆，我爱你，今天下课我等你，老婆学习太辛苦，吃串麻花补一补”，然后，橙色，黄色，绿色，青色，蓝色，紫色依次出现，末了，窗体不见了（隐藏起来了）。一个小时后（两小时也行，也可以置为固定时间），你们又蹦了出来，折腾一番后又不见了，除非她关机。
行不行？
试一试？

F. 用vb编写一个小程序程序

新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。
新建一个命令按内钮Command1,添加以容下代码：
Private
Sub
Command1_Click()
Dim
i
As
Integer
For
i
=
1
To
100
If
(i
Mod
5
=
0)
And
(i
Mod
3
<>
0)
Then
Text1.Text
=
Text1.Text
&
vbCrLf
&
i
Next
End
Sub

G. 高分求用VB遍写的一个实用小程序

帮你写了个宏，执行时，完全满足你的要求。
第三次改了一下，还有什么问题，欢迎提出：
Sub Zh()
Dim S, i As Integer, K(), E As String, Sw As Integer, U As String
d = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
w = Array("", "万", "亿谨凳罩")
R = Range("A1").Value
If InStr(R, ".") <> 0 Then
U = Right(R, Len(R) - InStr(R, "."))
Do While Len(U) > 2
U = CStr((Val(U) + 5) \ 10)
Loop
R = Int(R)
End If
If Not IsNumeric(R) Then Exit Sub
i = Len(Int(R))
i = i \ 4
ReDim K(i)
For i = UBound(K) To LBound(K) + 1 Step -1
K(i) = Right(R, 4)
E = T(K(i)) + w(Sw) + E
Sw = Sw + 1
R = Left(R, Len(R) - 4)
Next i
K(i) = R
If K(i) <> "" Then
E = T(K(i)) + w(Sw) + E
End If
E = E + "元"
If Len(U) = 2 Then
E = E + d(Val(Left(U, 1))) + "角粗或" + d(Val(Right(U, 1))) + "分"
ElseIf Len(U) = 1 Then
E = E + d(Val(Left(U, 1))) + "角"
Else
E = E + "整"
End If
Range("A2").Value = E
End Sub
Function T(A) As String
d = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
S = Array("", "拾", "百", "千祥闹")
n = Len(A)
For i = 1 To n
T = d(Val(Mid(A, (n - i + 1), 1))) + S(i - 1) + T
Next i
End Function

H. VB设计一个简单的小程序

变量定义面变量名x,y换别x1y1等内
Dim
x1
As
Integer
Private
Sub
Command1_Click()'+按钮容
x1
=
x1
+
1
Me.Caption
=
x1
End
Sub
Private
Sub
Command2_Click()'-按钮
x1=
x1
-
1
Me.Caption
=
x1
End
Sub

I. 用VB做一个简单的小程序

PrivateSubCommand1_Click()
Me.Cls
DimNAsInteger,iAsInteger
N=InputBox("n=",,9)
Fori=1To2*N-1
Ifi<=NThen
PrintSpace(N-i)+String(2*i-1,CStr(i))
Else
PrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))
EndIf
Nexti
EndSub

J. 用vb编写一个小程序

楼主您好！

代码如下：

OptionExplicit
PrivateSubCommand1_Click()
Dimn(7)AsDouble
Dimk(3)AsDouble
k(3)=1
DimjAsInteger
Forj=1To7
n(j)=Val(Controls("Text"&CStr(j)).Text)
Nextj
Forj=1To7
k(1)=k(1)+n(j)
k(2)=k(2)-n(j)
k(3)=k(3)*n(j)
Nextj
Me.Text8.Text="7个数的和为："&k(1)&vbCrLf&_
"7个数的差为："&k(2)&vbCrLf&_
"7个数的乘积为："&k(3)
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
Fori=1To8
Controls("Text"&CStr(i)).Text=""
Nexti
EndSub
PrivateSubForm_Load()
DimiAsInteger
Fori=1To8
Controls("Text"&CStr(i)).Text=""
Nexti
EndSub