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