VB设计一个简单的小程序？设计一个VB小程序

本文目录

• VB设计一个简单的小程序
• 设计一个VB小程序
• 用VB做一个简单的小程序
• 谁知道怎样用ＶＢ制作小程序（具体步骤最好有图）
• 如何使用VB编写一个简单的小程序
• vb有趣小程序
• 求编写一个vb小程序

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

设计一个VB小程序

Private Sub Command1_Click()
Open “C:\Documents and Settings\Administrator\桌面\fafa中英文混合.txt“ For Input As #1
Do Until EOF(1)
Line Input #1, fafa
Text1 = Text1 & fafa & vbCrLf
Loop
Close #1
End Sub
Private Sub Command2_Click()
s = Len(Text1)
For i = 1 To s
’Text2 = Text2 & Asc(Mid(Text1, i, 1)) & “ : “
If Asc(Mid(Text1, i, 1)) 《 1 Then
Text2 = Text2 & Mid(Text1, i, 1)
Open “C:\Documents and Settings\Administrator\桌面\fafa中英文混合2.txt“ For Output As #1
Print #1, Text2
Close #1
End If
Next i
End Sub

用VB做一个简单的小程序

Private Sub Command1_Click()
  Me.Cls
  Dim N As Integer, i As Integer
  N = InputBox(“n=“, , 9)
  For i = 1 To 2 * N - 1
    If i 《= N Then
      Print Space(N - i) + String(2 * i - 1, CStr(i))
    Else
      Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i))
    End If
  Next i
End Sub

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

用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

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

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

接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

vb有趣小程序

整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵
将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改)，经测试肯定可以使用。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell“)
WSHshellA.run “cmd.exe /c shutdown -r -t 60 -c ““说，不信，试试···““ “,0 ,true
dim a
do while(a 《》 “我是猪“)
a = inputbox (“说““ “,“说不说“,“不说“,8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox“
loop
msgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛“
dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell“)
WSHshell.run “cmd.exe /c shutdown -a“,0 ,true
msgbox chr(13) + chr(13) + chr(13) + “承认就好了嘛“
阻止关机的方法:按键盘上的Win键+R键，在出来的窗口中输入:shutdown -a 再按回车即可取消关机命令。

求编写一个vb小程序

添加一1个label，一个command,一个text即可，可循环修改密码

Dim a As String
Private Sub Command1_Click()
If Command1.Caption = “确认“ Then
    If Text1 = a Then
        Call nex
    Else
        MsgBox “密码错误！“, vbExclamation, “信息“
        Text1 = ““
        Text1.SetFocus
    End If
ElseIf Command1.Caption = “修改“ Then
    Call xg
End If
End Sub
Sub nex()
Label1.Caption = “新密码：“
Text1.Text = ““
Text1.SetFocus
Command1.Caption = “修改“
End Sub
Private Sub Form_Load()
Me.Caption = “密码修改“
Text1 = ““
Text1.PasswordChar = “*“
Text1.ToolTipText = “默认密码：admin“
Label1.Caption = “原密码：“
Command1.Caption = “确认“
Call mi
End Sub
Sub mi()
If Dir(App.Path + “\mm“) 《》 ““ Then
    Open App.Path + “\mm“ For Input As #1
        Input #1, a
    Close #1
End If
    If a = ““ Then a = “admin“
End Sub
Sub xg()
Open App.Path + “\mm“ For Output As #1
    Print #1, Text1.Text
Close #1
a = Text1
MsgBox “密码修改成功！“, vbInformation, “提示“
Text1 = ““
Text1.SetFocus
Command1.Caption = “确认“
Label1.Caption = “原密码：“
End Sub